Help/Streams-Patterns-Events/Patterns/Pstep.html

   1 <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
   2 <html>
   3 <head>
   4 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
   5 <meta http-equiv="Content-Style-Type" content="text/css">
   6 <title></title>
   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; 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; color: #bf0000}
  15 p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000}
  16 p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #0000bf}
  17 p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #ad140d}
  18 p.p9 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #001bb9}
  19 p.p10 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #000000; min-height: 12.0px}
  20 p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #2c7014}
  21 p.p12 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #007300}
  22 span.s1 {font: 18.0px Helvetica}
  23 span.s2 {color: #001bb9}
  24 span.s3 {color: #0000bf}
  25 span.s4 {color: #000000}
  26 span.s5 {color: #007300}
  27 span.s6 {color: #2c7014}
  28 span.s7 {color: #bf0000}
  29 span.Apple-tab-span {white-space:pre}
  30 </style>
  31 </head>
  32 <body>
  33 <p class="p1"><span class="s1"><b>Pstep<span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></b></span><b>timed embedding of values</b></p>
  34 <p class="p2"><br></p>
  35 <p class="p1"><b>superclass: Pattern</b></p>
  36 <p class="p1">related: <a href="Pseg.html"><span class="s2">Pseg</span></a></p>
  37 <p class="p2"><br></p>
  38 <p class="p1"><b>Pstep(levels, durs, repeats)</b></p>
  39 <p class="p2"><br></p>
  40 <p class="p1">Levelpattern can return individual values, arrays, or events. The value returned by levelpattern is</p>
  41 <p class="p1">returned for the duration returned by durpattern.</p>
  42 <p class="p2"><br></p>
  43 <p class="p1">Pstep is good for representing chord progressions, scale progressions, accent patterns, etc.</p>
  44 <p class="p2"><br></p>
  45 <p class="p2"><span class="Apple-converted-space"> </span></p>
  46 <p class="p3"><br></p>
  47 <p class="p4">(</p>
  48 <p class="p5">// select a chord and duration and repeat it for a random time interval</p>
  49 <p class="p6">p = <span class="s3">Pstep</span>(</p>
  50 <p class="p7"><span class="s4"><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(</span></p>
  51 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s5">\ctranspose</span>, [0, 4, 7],<span class="Apple-converted-space"> </span></p>
  52 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s5">\note</span>,<span class="Apple-tab-span">      </span><span class="s3">Pwhite</span>(0, 12),<span class="Apple-converted-space"> </span></p>
  53 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s5">\dur</span>,<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s3">Prand</span>([0.2, 0.4, 0.8], <span class="s3">inf</span>)</p>
  54 <p class="p6"><span class="Apple-tab-span">     </span>),<span class="Apple-converted-space"> </span></p>
  55 <p class="p6"><span class="Apple-tab-span">     </span><span class="s3">Prand</span>([1, 2, 4], <span class="s3">inf</span>)/4</p>
  56 <p class="p6">);</p>
  57 <p class="p6"><span class="s3">Ppar</span>([p, p]).play;</p>
  58 <p class="p4">)</p>
  59 <p class="p8">// change degree independant of number of events that have been playing</p>
  60 <p class="p3"><br></p>
  61 <p class="p4">(</p>
  62 <p class="p9">Pchain<span class="s4">(</span></p>
  63 <p class="p9"><span class="s4"><span class="Apple-tab-span">    </span></span>Ppar<span class="s4">([</span></p>
  64 <p class="p9"><span class="s4"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(</span></p>
  65 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s6">\degree</span>, <span class="s2">Pbrown</span>(0, 12, 1),<span class="Apple-converted-space"> </span></p>
  66 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s6">\dur</span>, <span class="s2">Pstep</span>( <span class="s2">Pseq</span>([0.1, 0.2, 0.4, 0.8, 1.6], <span class="s2">inf</span>), 3.2)</p>
  67 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>),<span class="Apple-converted-space"> <span class="Apple-tab-span">    </span></span></p>
  68 <p class="p9"><span class="s4"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(</span></p>
  69 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s6">\degree</span>, <span class="s2">Pbrown</span>(0, 20, 1),<span class="Apple-converted-space"> </span></p>
  70 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s6">\dur</span>, <span class="s2">Pstep</span>( <span class="s2">Pseq</span>([0.1, 0.2, 0.4, 0.8, 1.6], <span class="s2">inf</span>), 4.5)</p>
  71 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>)</p>
  72 <p class="p4"><span class="Apple-tab-span">     </span>]),<span class="Apple-converted-space"> </span></p>
  73 <p class="p9"><span class="s4"><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(</span></p>
  74 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s6">\scale</span>, <span class="s2">Pstep</span>(<span class="s2">Pseq</span>([ [0, 2, 4, 5, 7, 9, 11], [0, 1, 2, 3, 4, 5, 6]], <span class="s2">inf</span>), 5),<span class="Apple-converted-space"> </span></p>
  75 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s6">\db</span>, <span class="s2">Pstep</span>(<span class="s2">Pseq</span>([2, -2, 0, -2], <span class="s2">inf</span>), 0.25) - 10</p>
  76 <p class="p4"><span class="Apple-tab-span">     </span>)</p>
  77 <p class="p4">).play;</p>
  78 <p class="p3"><br></p>
  79 <p class="p4">)</p>
  80 <p class="p3"><br></p>
  81 <p class="p8">// use a simple pattern<span class="Apple-converted-space"> </span></p>
  82 <p class="p4">(</p>
  83 <p class="p7">Pchain<span class="s4">(</span></p>
  84 <p class="p7"><span class="s4"><span class="Apple-tab-span">    </span></span>Ppar<span class="s4">([</span></p>
  85 <p class="p7"><span class="s4"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(</span></p>
  86 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s5">\octave</span>, [5, 6] + <span class="s3">Prand</span>([0, 0, <span class="s5">\r</span>], <span class="s3">inf</span>),<span class="Apple-converted-space"> </span></p>
  87 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s5">\degree</span>,<span class="Apple-tab-span">    </span><span class="s3">Proutine</span>({ <span class="s3">| ev |</span> loop { ev = <span class="s3">Pseq</span>(ev[<span class="s5">\degree</span>]).embedInStream } }),<span class="Apple-converted-space"> </span></p>
  88 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s5">\dur,</span><span class="Apple-tab-span">       </span><span class="s3">Proutine</span>({ loop { <span class="s3">Pseq</span>([0.2, 0.2, 0.2, 0.2, 0.3].scramble).embedInStream } })</p>
  89 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>),<span class="Apple-converted-space"> </span></p>
  90 <p class="p7"><span class="s4"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(</span></p>
  91 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s5">\octave</span>, 4,<span class="Apple-converted-space"> </span></p>
  92 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s5">\legato</span>, 1.2,<span class="Apple-converted-space"> </span></p>
  93 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s5">\dur</span>, <span class="s3">Proutine</span>({ loop { <span class="s3">Pseq</span>([0.2, 0.2, 0.2, 0.2, 0.3].scramble * 5).embedInStream }})</p>
  94 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>),<span class="Apple-converted-space"> </span></p>
  95 <p class="p6"><span class="Apple-tab-span">     </span>]),<span class="Apple-converted-space"> </span></p>
  96 <p class="p7"><span class="s4"><span class="Apple-tab-span">    </span></span>Pstep<span class="s4">(</span>Pbind<span class="s4">(</span></p>
  97 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s5">\db</span>, <span class="s3">Pseq</span>([0, -4, -2, -4, -3, -4, -3, -4], <span class="s3">inf</span>) - 20</p>
  98 <p class="p6"><span class="Apple-tab-span">     </span>), 0.2),<span class="Apple-converted-space"> </span></p>
  99 <p class="p7"><span class="s4"><span class="Apple-tab-span">    </span></span>Pstep<span class="s4">(</span></p>
 100 <p class="p7"><span class="s4"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(</span></p>
 101 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s5">\degree</span>, <span class="Apple-tab-span">   </span><span class="s3">Pfunc</span>({ {10.rand}.dup(10) }),<span class="Apple-converted-space"> </span></p>
 102 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s5">\scale</span>,<span class="Apple-tab-span">     </span><span class="s3">Pfunc</span>({ {rrand(1, 2)}.dup(7).integrate })</p>
 103 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>),<span class="Apple-converted-space"> </span></p>
 104 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>5</p>
 105 <p class="p6"><span class="Apple-tab-span">     </span>)</p>
 106 <p class="p6">).play</p>
 107 <p class="p10"><span class="Apple-tab-span">    </span></p>
 108 <p class="p4">)</p>
 109 <p class="p3"><br></p>
 110 <p class="p3"><br></p>
 111 <p class="p3"><br></p>
 112 <p class="p3"><br></p>
 113 <p class="p8">// change one parameter</p>
 114 <p class="p4">(</p>
 115 <p class="p9">Pbind<span class="s4">(</span></p>
 116 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\degree</span>, <span class="s2">Pstep</span>(<span class="s2">Pseq</span>([1, 2, 3, 4, 5]), 1.0).trace,<span class="Apple-converted-space"> </span></p>
 117 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\dur</span>, <span class="s2">Pseries</span>(0.1, 0.1, 15)</p>
 118 <p class="p4">).play;</p>
 119 <p class="p4">)</p>
 120 <p class="p3"><br></p>
 121 <p class="p3"><br></p>
 122 <p class="p8">// change degree independant of number of events that have been playing</p>
 123 <p class="p3"><br></p>
 124 <p class="p4">(</p>
 125 <p class="p4"><span class="s2">var</span> a, b;</p>
 126 <p class="p4">a = <span class="s2">Pbind</span>(</p>
 127 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\degree</span>, <span class="s2">Pstep</span>(<span class="s2">Pseq</span>([0, 2b, 3], 1), 1.0),<span class="Apple-converted-space"> </span></p>
 128 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\dur</span>, <span class="s2">Prand</span>([0.2, 0.5, 1.1, 0.25, 0.15], <span class="s2">inf</span>)</p>
 129 <p class="p4">);</p>
 130 <p class="p4">b = <span class="s2">Pbind</span>(</p>
 131 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\degree</span>, <span class="s2">Pseq</span>([0, 2b, 3], 1),<span class="Apple-converted-space"> </span></p>
 132 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\dur</span>, 2,<span class="Apple-converted-space"> </span></p>
 133 <p class="p11"><span class="s4"><span class="Apple-tab-span">   </span></span>\ctranspose<span class="s4">, -7</span></p>
 134 <p class="p4">);</p>
 135 <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>
 136 <p class="p4">)</p>
 137 <p class="p3"><br></p>
 138 <p class="p3"><br></p>
 139 <p class="p3"><br></p>
 140 <p class="p8">// test tempo changes</p>
 141 <p class="p3"><br></p>
 142 <p class="p4">(</p>
 143 <p class="p4"><span class="s2">var</span> a, b;</p>
 144 <p class="p4">a = <span class="s2">Pbind</span>(</p>
 145 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\degree</span>, <span class="s2">Pstep</span>(<span class="s2">Pseq</span>([0, 2b, 3], 1), 1.0),<span class="Apple-converted-space"> </span></p>
 146 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\dur</span>, <span class="s2">Prand</span>([0.2, 0.5, 1.1, 0.25, 0.15], 9)</p>
 147 <p class="p4">);</p>
 148 <p class="p4">b = <span class="s2">Pbind</span>(</p>
 149 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\degree</span>, <span class="s2">Pseq</span>([0, 2b, 3], 1),<span class="Apple-converted-space"> </span></p>
 150 <p class="p4"><span class="Apple-tab-span">     </span><span class="s6">\dur</span>, 2,<span class="Apple-converted-space"> </span></p>
 151 <p class="p11"><span class="s4"><span class="Apple-tab-span">   </span></span>\ctranspose<span class="s4">, -7</span></p>
 152 <p class="p4">);</p>
 153 <p class="p3"><br></p>
 154 <p class="p4"><span class="s2">Ppar</span>([a, b], <span class="s2">inf</span>).play;</p>
 155 <p class="p4">)</p>
 156 <p class="p3"><br></p>
 157 <p class="p3"><br></p>
 158 <p class="p4"><span class="s2">SystemClock</span>.sched(0, { <span class="s2">TempoClock</span>.default.tempo = [1, 2, 3, 5].choose.postln; 2 });</p>
 159 <p class="p3"><br></p>
 160 <p class="p4"><span class="s2">TempoClock</span>.default.tempo = 1.0;</p>
 161 <p class="p3"><br></p>
 162 <p class="p3"><br></p>
 163 <p class="p3"><br></p>
 164 <p class="p8">// timing test:</p>
 165 <p class="p8">// parallel streams</p>
 166 <p class="p3"><br></p>
 167 <p class="p3"><br></p>
 168 <p class="p4">(</p>
 169 <p class="p6"><span class="s3">var</span> a, b, x;</p>
 170 <p class="p6"><span class="s3">var</span> times, levels;</p>
 171 <p class="p10"><br></p>
 172 <p class="p10"><br></p>
 173 <p class="p7">SynthDef<span class="s4">(</span><span class="s5">\pgrain</span><span class="s4">,<span class="Apple-converted-space"> </span></span></p>
 174 <p class="p6"><span class="Apple-tab-span">     </span>{ <span class="s3">arg</span> out = 0, freq=800, sustain=0.001, amp=0.5, pan = 0;</p>
 175 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s3">var</span> window;</p>
 176 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>window = <span class="s3">Env</span>.sine(sustain, amp);</p>
 177 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s3">Out</span>.ar(out,<span class="Apple-converted-space"> </span></p>
 178 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s3">Pan2</span>.ar(</p>
 179 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s3">SinOsc</span>.ar(freq) * <span class="s3">EnvGen</span>.ar(window, doneAction:2),<span class="Apple-converted-space"> </span></p>
 180 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>pan</p>
 181 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>)<span class="Apple-converted-space"> </span></p>
 182 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>)</p>
 183 <p class="p6"><span class="Apple-tab-span">     </span>}</p>
 184 <p class="p6">).store;</p>
 185 <p class="p10"><br></p>
 186 <p class="p10"><br></p>
 187 <p class="p6">times = <span class="s3">Pseq</span>([3.4, 1, 0.2, 0.2, 0.2], <span class="s3">inf</span>);</p>
 188 <p class="p6">levels = <span class="s3">Pseq</span>([0, 1, 2, 3, 4], <span class="s3">inf</span>);</p>
 189 <p class="p10"><br></p>
 190 <p class="p6">a = <span class="s3">Pstep</span>(levels, times);</p>
 191 <p class="p12"><span class="s4">b = </span><span class="s3">Pbind</span><span class="s4">(</span>\instrument<span class="s4">, </span>\pgrain<span class="s4">, </span>\octave<span class="s4">, 7, </span>\dur<span class="s4">, 0.12, </span>\degree<span class="s4">, a);</span></p>
 192 <p class="p6">x = times;</p>
 193 <p class="p10"><br></p>
 194 <p class="p6"><span class="s3">Ppar</span>([b, <span class="s3">Pset</span>(<span class="s5">\mtranspose</span>, 2, b) ]).play;</p>
 195 <p class="p10"><br></p>
 196 <p class="p6">b.play;</p>
 197 <p class="p6">r {</p>
 198 <p class="p6"><span class="Apple-tab-span">     </span><span class="s3">var</span> z = x.asStream; <span class="s7">// direct times</span></p>
 199 <p class="p6"><span class="Apple-tab-span">     </span>0.5.wait;</p>
 200 <p class="p6"><span class="Apple-tab-span">     </span>loop {</p>
 201 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>z.next.wait;</p>
 202 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>s.makeBundle(0.2, {</p>
 203 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s3">Synth</span>(<span class="s5">\pgrain</span>, [<span class="s5">\freq</span>, 3000, <span class="s5">\sustain</span>, 0.01]); <span class="s7">// signal tone</span></p>
 204 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>})</p>
 205 <p class="p10"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></p>
 206 <p class="p6"><span class="Apple-tab-span">     </span>}</p>
 207 <p class="p6">}.play(quant:1)</p>
 208 <p class="p4">)</p>
 209 <p class="p3"><br></p>
 210 <p class="p3"><br></p>
 211 <p class="p3"><br></p>
 212 <p class="p3"><br></p>
 213 <p class="p3"><br></p>
 214 </body>
 215 </html>