1 <!DOCTYPE html PUBLIC
"-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
4 <meta http-equiv=
"Content-Type" content=
"text/html; charset=UTF-8">
5 <meta http-equiv=
"Content-Style-Type" content=
"text/css">
7 <meta name=
"Generator" content=
"Cocoa HTML Writer">
8 <meta name=
"CocoaVersion" content=
"949.43">
9 <style type=
"text/css">
10 p
.p1
{margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica
}
11 p
.p2
{margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica
; min-height: 14.0px}
12 p
.p3
{margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco
; color: #001bb9; min-height: 12.0px}
13 p
.p4
{margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco
}
14 p
.p5
{margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco
; min-height: 12.0px}
15 p
.p6
{margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco
; color: #ad140d}
16 p
.p7
{margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco
; color: #001bb9}
17 p
.p8
{margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco
; color: #2c7014}
18 span
.s1
{font: 18.0px Helvetica
}
19 span
.s2
{color: #001bb9}
20 span
.s3
{color: #000000}
21 span
.s4
{color: #2c7014}
22 span
.Apple-tab-span
{white-space:pre
}
26 <p class=
"p1"><span class=
"s1"><b>Ptime
<span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span></b></span><b>derive relative time
</b></p>
27 <p class=
"p2"><br></p>
28 <p class=
"p1"><b>superclass: Pattern
</b></p>
29 <p class=
"p2"><br></p>
30 <p class=
"p2"><br></p>
31 <p class=
"p1">returns time in beats from moment of embedding in stream
</p>
32 <p class=
"p2"><br></p>
33 <p class=
"p1"><b>Ptime(repeats)
</b></p>
34 <p class=
"p2"><br></p>
35 <p class=
"p2"><br></p>
36 <p class=
"p3"><br></p>
38 <p class=
"p4">a =
<span class=
"s2">Ptime
</span>.new;
</p>
39 <p class=
"p4">x = a.asStream;
</p>
41 <p class=
"p5"><br></p>
42 <p class=
"p4">x.next;
<span class=
"Apple-converted-space"> </span></p>
43 <p class=
"p4">x.next;
</p>
44 <p class=
"p4">x.next;
</p>
45 <p class=
"p5"><br></p>
46 <p class=
"p6">// post time in a playing event stream
</p>
48 <p class=
"p7">Pbind
<span class=
"s3">(
</span></p>
49 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\pfunc
</span>,
<span class=
"s2">Ptime
</span>.new.trace,
</p>
50 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\dur
</span>,
<span class=
"s2">Pseries
</span>(
0.5,
0.5,
5)
</p>
51 <p class=
"p4">).play;
</p>
53 <p class=
"p5"><br></p>
54 <p class=
"p5"><br></p>
55 <p class=
"p6">// change degree independant of number of events that have been playing
</p>
56 <p class=
"p5"><br></p>
58 <p class=
"p4"><span class=
"s2">var
</span> a, b;
</p>
59 <p class=
"p4">a =
<span class=
"s2">Pbind
</span>(
</p>
60 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\degree
</span>,
<span class=
"s2">Pswitch
</span>(#[
0,
2b,
3],
<span class=
"s2">Ptime
</span>(
8).round(
2) /
2),
</p>
61 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\dur
</span>,
<span class=
"s2">Prand
</span>(#[
0.2,
0.5,
1.1,
0.25,
0.15],
<span class=
"s2">inf
</span>)
</p>
63 <p class=
"p4">b =
<span class=
"s2">Pbind
</span>(
</p>
64 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\degree
</span>,
<span class=
"s2">Pseq
</span>(#[
0,
2b,
3],
1),
</p>
65 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\dur
</span>,
2,
</p>
66 <p class=
"p8"><span class=
"s3"><span class=
"Apple-tab-span"> </span></span>\ctranspose
<span class=
"s3">, -
7</span></p>
68 <p class=
"p4"><span class=
"s2">Pseq
</span>([
<span class=
"s2">Event
</span>.silent(
1.25),
<span class=
"s2">Ppar
</span>([a, b])],
<span class=
"s2">inf
</span>).play;
</p>
70 <p class=
"p5"><br></p>
71 <p class=
"p5"><br></p>
72 <p class=
"p5"><br></p>
73 <p class=
"p6">// test tempo changes
</p>
74 <p class=
"p5"><br></p>
76 <p class=
"p4"><span class=
"s2">var
</span> a, b;
</p>
77 <p class=
"p4">a =
<span class=
"s2">Pbind
</span>(
</p>
78 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\degree
</span>,
<span class=
"s2">Pswitch
</span>(#[
0,
2b,
3],
<span class=
"s2">Ptime
</span>(
8).round(
2) /
2),
</p>
79 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\dur
</span>,
<span class=
"s2">Prand
</span>(#[
0.2,
0.5,
1.1,
0.25,
0.15],
9)
</p>
81 <p class=
"p4">b =
<span class=
"s2">Pbind
</span>(
</p>
82 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\degree
</span>,
<span class=
"s2">Pseq
</span>(#[
0,
2b,
3],
1),
</p>
83 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s4">\dur
</span>,
2,
</p>
84 <p class=
"p8"><span class=
"s3"><span class=
"Apple-tab-span"> </span></span>\ctranspose
<span class=
"s3">, -
7</span></p>
86 <p class=
"p7">Pn
<span class=
"s3">(
</span></p>
87 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"s2">Pfset
</span>({ ~tempo = #[
1,
2,
4].choose.postln },
<span class=
"Apple-converted-space"> </span></p>
88 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span><span class=
"s2">Pseq
</span>([
</p>
89 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span><span class=
"s2">Event
</span>.silent(
1.25),
<span class=
"Apple-converted-space"> </span></p>
90 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span><span class=
"s2">Ppar
</span>([a, b])
</p>
91 <p class=
"p4"><span class=
"Apple-tab-span"> </span><span class=
"Apple-tab-span"> </span>])
</p>
92 <p class=
"p4"><span class=
"Apple-tab-span"> </span>)
</p>
93 <p class=
"p4">).play
</p>
95 <p class=
"p5"><br></p>
96 <p class=
"p5"><br></p>
97 <p class=
"p5"><br></p>
98 <p class=
"p5"><br></p>
99 <p class=
"p5"><br></p>
100 <p class=
"p5"><br></p>