Help/Streams-Patterns-Events/Patterns/Pproto.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="1038.25">
   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: #0010c4}
  15 p.p6 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #606060}
  16 p.p7 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; color: #c40000}
  17 span.s1 {font: 18.0px Helvetica}
  18 span.s2 {color: #0010c4}
  19 span.s3 {color: #007200}
  20 span.s4 {color: #000000}
  21 span.s5 {color: #606060}
  22 span.Apple-tab-span {white-space:pre}
  23 </style>
  24 </head>
  25 <body>
  26 <p class="p1"><span class="s1"><b>Pproto<span class="Apple-tab-span">   </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></b></span><b>provide a proto event for an event stream</b></p>
  27 <p class="p2"><br></p>
  28 <p class="p1"><b>superclass: </b><a href="Pattern.html"><span class="s2">Pattern</span></a></p>
  29 <p class="p2"><br></p>
  30 <p class="p1"><b><span class="Apple-tab-span">  </span>*new(makeFunction, patternOrPatternArray, cleanupFunction)</b></p>
  31 <p class="p2"><br></p>
  32 <p class="p1">Pproto uses the <b>makeFunction</b> to allocate resources (buffers, buses, groups) and create a protoEvent that makes those resources available to a pattern. It is fully compatible with non-realtime synthesis using <b>render</b>.<span class="Apple-converted-space"> </span></p>
  33 <p class="p2"><br></p>
  34 <p class="p1"><b>makeFunction<span class="Apple-converted-space"> </span></b> "makes" the protoEvent (i.e.protoEvent is currentEnvironment).<span class="Apple-converted-space">  </span>Typically, it defines and yields a sequence of events that create the needed resources using the following eventTypes:</p>
  35 <p class="p2"><br></p>
  36 <p class="p1"><span class="Apple-tab-span">     </span><b>\allocRead<span class="Apple-tab-span">       </span>load a file from ~path</b></p>
  37 <p class="p1"><b><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="Apple-tab-span">    </span>starting at ~firstFileFrame</b></p>
  38 <p class="p1"><b><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="Apple-tab-span">    </span>reading ~numFrames sample frames</b></p>
  39 <p class="p1"><b><span class="Apple-tab-span">  </span>\cue<span class="Apple-tab-span">        </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>cue a file for DiskIn, with ~bufferSize frames</b></p>
  40 <p class="p1"><b><span class="Apple-tab-span">  </span>\table<span class="Apple-tab-span">      </span><span class="Apple-tab-span">    </span>load ~amps directly into a buffer</b></p>
  41 <p class="p1"><b><span class="Apple-tab-span">  </span>\sine1<span class="Apple-tab-span">      </span><span class="Apple-tab-span">    </span>generate a buffer from ~amps</b></p>
  42 <p class="p1"><b><span class="Apple-tab-span">  </span>\sine2<span class="Apple-tab-span">      </span><span class="Apple-tab-span">    </span>generate a buffer from ~freqs, ~amps</b></p>
  43 <p class="p1"><b><span class="Apple-tab-span">  </span>\sine3<span class="Apple-tab-span">      </span><span class="Apple-tab-span">    </span>generate a buffer from ~freqs, ~amps, ~pahses</b></p>
  44 <p class="p1"><b><span class="Apple-tab-span">  </span>\cheby<span class="Apple-tab-span">      </span><span class="Apple-tab-span">    </span>generate a waveshape buffer from ~amps</b></p>
  45 <p class="p1"><b><span class="Apple-tab-span">  </span>\audioBus<span class="Apple-tab-span">   </span>allocate ~channels consecutive audio buses</b></p>
  46 <p class="p1"><b><span class="Apple-tab-span">  </span>\controlBus<span class="Apple-tab-span"> </span>allocate ~channels consecutive control buses</b></p>
  47 <p class="p1"><b><span class="Apple-tab-span">  </span>\on<span class="Apple-tab-span"> </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>create a synth</b></p>
  48 <p class="p2"><br></p>
  49 <p class="p1"><b>Note: </b>these eventTypes will allocate their own buffers and buses unless they are specified.<span class="Apple-converted-space">  </span>To support this, the key <b>\bufNum </b>is used rather than <b>\bufnum </b>which has a default value assigned.<span class="Apple-converted-space"> </span></p>
  50 <p class="p2"><br></p>
  51 <p class="p1">When Pproto ends, these eventTypes will respond to the <b>cleanup </b>call by <b>deallocating any resources they have allocated</b>. Do not assume your buffers, buses etc. will exist after Pproto stops!</p>
  52 <p class="p2"><br></p>
  53 <p class="p1">The function yields each event.<span class="Apple-converted-space">  </span>That event is then performed with possible modifications by enclosing patterns and the player (either an EventStreamPlayer or a ScoreStreamPlayer).<span class="Apple-converted-space">  </span>The resultant event is returned to the function where it can be assigned to a key within the protoEvent.</p>
  54 <p class="p2"><br></p>
  55 <p class="p1">The patternarray is played using Pfpar, a variant of Ppar that ends when any of its subpatterns end.<span class="Apple-converted-space">  </span>In this way,</p>
  56 <p class="p1">you can use Pproto to create effects that can be controlled by a pattern that runs in parallel with the note generating pattern and ends together with that note generating pattern (see example 0 below).</p>
  57 <p class="p2"><br></p>
  58 <p class="p1">A <b>cleanupFunction</b> that deallocates resources when the pattern ends or is stopped is automatically created. It<span class="Apple-converted-space">  </span>can be replaced with a user defined cleanup if needed.<span class="Apple-converted-space">  </span>This function receives two arguments: <b>proto</b>, the prototype event, and <b>flag</b>, which is set false if all nodes have been freed already by <b>CmdPeriod.</b></p>
  59 <p class="p2"><br></p>
  60 <p class="p2"><br></p>
  61 <p class="p1"><b>Example 0, using an effect with parallel control.</b></p>
  62 <p class="p3"><br></p>
  63 <p class="p4">(</p>
  64 <p class="p4"><span class="s2">SynthDef</span>(<span class="s3">\echo</span>, { <span class="s2">arg</span> out=0, maxdtime=0.2, dtime=0.2, decay=2, gate=1;</p>
  65 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">var</span> env, in;</p>
  66 <p class="p4"><span class="Apple-tab-span">     </span>env = <span class="s2">Linen</span>.kr(gate, 0.05, 1, 5, 2);</p>
  67 <p class="p4"><span class="Apple-tab-span">     </span>in = <span class="s2">In</span>.ar(out, 2);</p>
  68 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">XOut</span>.ar(out, env, <span class="s2">CombL</span>.ar(in * env, maxdtime, <span class="s2">Lag</span>.kr(dtime, 4), decay, 1, in));</p>
  69 <p class="p4">}, [<span class="s3">\ir</span>, <span class="s3">\ir</span>, 0.1, 0.1, 0]).add;</p>
  70 <p class="p3"><br></p>
  71 <p class="p3"><br></p>
  72 <p class="p4"><span class="s2">SynthDef</span>(<span class="s3">\fm</span>, { <span class="s2">arg</span> out=0,<span class="Apple-converted-space">  </span>freq, index, decay=2, gate=1;</p>
  73 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">var</span> env, in;</p>
  74 <p class="p4"><span class="Apple-tab-span">     </span>env = <span class="s2">Linen</span>.kr(gate, 0.05, 1, 5, 2);</p>
  75 <p class="p4"><span class="Apple-tab-span">     </span>in = <span class="s2">In</span>.ar(out, 2);</p>
  76 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">XOut</span>.ar(out, env, <span class="s2">SinOsc</span>.ar(freq, in * index));</p>
  77 <p class="p4">}).add;</p>
  78 <p class="p3"><br></p>
  79 <p class="p3"><br></p>
  80 <p class="p5">Pproto<span class="s4">({</span></p>
  81 <p class="p4"><span class="Apple-tab-span">     </span>~fsynth = ( type: <span class="s3">\on</span>, instrument: <span class="s3">\fm</span>, freq: 4, index: 1, addAction: 1, db: -30).yield;</p>
  82 <p class="p4"><span class="Apple-tab-span">     </span>~fControl = [<span class="s3">\set</span>, ~fsynth[<span class="s3">\id</span>], ~fsynth[<span class="s3">\msgFunc</span>] ];</p>
  83 <p class="p3"><span class="Apple-tab-span">     </span></p>
  84 <p class="p4"><span class="Apple-tab-span">     </span>~synth = ( type: <span class="s3">\on</span>, instrument: <span class="s3">\echo</span>, addAction: 1).yield;</p>
  85 <p class="p4"><span class="Apple-tab-span">     </span>~sControl = [<span class="s3">\set</span>, ~synth[<span class="s3">\id</span>], ~synth[<span class="s3">\msgFunc</span>] ];</p>
  86 <p class="p3"><br></p>
  87 <p class="p4"><span class="Apple-tab-span">     </span>}, [<span class="Apple-converted-space"> </span></p>
  88 <p class="p5"><span class="s4"><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(*[</span></p>
  89 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>#[type, id, msgFunc],<span class="Apple-tab-span">       </span><span class="s2">Pkey</span>(<span class="s3">\fControl</span>),</p>
  90 <p class="p3"><br></p>
  91 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>freq:<span class="Apple-tab-span">       </span><span class="s2">Pseg</span>([0,1], 10).linexp(0,1, 0.1, 1000),</p>
  92 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>index:<span class="Apple-tab-span">      </span><span class="s2">Pseg</span>([0,1], 10).linexp(0,1, 0.1, 100),</p>
  93 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>dur:  0.1,</p>
  94 <p class="p4"><span class="Apple-tab-span">     </span>]),</p>
  95 <p class="p5"><span class="s4"><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(*[</span></p>
  96 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>#[type, id, msgFunc],<span class="Apple-tab-span">       </span><span class="s2">Pkey</span>(<span class="s3">\sControl</span>),</p>
  97 <p class="p3"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span></p>
  98 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>dtime:<span class="Apple-tab-span">      </span><span class="s2">Pwhite</span>(0,0.2),</p>
  99 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>decay:<span class="Apple-tab-span">      </span><span class="s2">Pwhite</span>(0.1,2),</p>
 100 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>dur:  1,</p>
 101 <p class="p4"><span class="Apple-tab-span">     </span>]),</p>
 102 <p class="p5"><span class="s4"><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(*[</span></p>
 103 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>instrument: <span class="s3">\default</span>,</p>
 104 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>freq: <span class="s2">Pwhite</span>(1,16) * 100,</p>
 105 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>dur: 0.2,</p>
 106 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>db:<span class="Apple-tab-span"> </span>0</p>
 107 <p class="p4"><span class="Apple-tab-span">     </span>])</p>
 108 <p class="p4"><span class="Apple-tab-span">     </span>]</p>
 109 <p class="p4">).play</p>
 110 <p class="p1">)</p>
 111 <p class="p2"><br></p>
 112 <p class="p1"><b>Example 1, loading and granulating a sound file.</b></p>
 113 <p class="p2"><br></p>
 114 <p class="p3"><br></p>
 115 <p class="p5">(</p>
 116 <p class="p5">SynthDef<span class="s4">(</span><span class="s5">\help_playbuf</span><span class="s4">, { </span>| out=0, bufnum = 0, rate = 1, startPos = 0, amp = 0.1, sustain = 1, pan = 0, loop = 1|</p>
 117 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">var</span> audio;</p>
 118 <p class="p4"><span class="Apple-tab-span">     </span>rate = rate * <span class="s2">BufRateScale</span>.kr(bufnum);</p>
 119 <p class="p4"><span class="Apple-tab-span">     </span>startPos = startPos * <span class="s2">BufFrames</span>.kr(bufnum);</p>
 120 <p class="p3"><span class="Apple-tab-span">     </span></p>
 121 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">BufRd</span>.ar(1, bufnum, <span class="s2">Phasor</span>.ar(0, rate, startPos, <span class="s2">BufFrames</span>.ir(bufnum)), 1, 1);</p>
 122 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">EnvGen</span>.ar(<span class="s2">Env</span>.sine, 1, timeScale: sustain, doneAction: 2) * audio;</p>
 123 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">Pan2</span>.ar(audio, pan, amp);</p>
 124 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">OffsetOut</span>.ar(out, audio);</p>
 125 <p class="p4">}).add;</p>
 126 <p class="p3"><br></p>
 127 <p class="p4">a = <span class="s2">Pproto</span>({</p>
 128 <p class="p4"><span class="Apple-tab-span">     </span>~newgroup = (type:<span class="Apple-tab-span">  </span><span class="s3">\group</span>).yield;</p>
 129 <p class="p6"><span class="s4"><span class="Apple-tab-span">    </span>~sf1 =<span class="Apple-converted-space">  </span></span><span class="s2">SoundFile</span><span class="s4">(</span>"sounds/a11wlk01-44_1.aiff"<span class="s4">).asEvent.yield;</span></p>
 130 <p class="p7">//<span class="Apple-tab-span">   </span>(type: \on).yield</p>
 131 <p class="p4">},<span class="Apple-tab-span">   </span></p>
 132 <p class="p5"><span class="s4"><span class="Apple-tab-span">    </span></span>Pbind<span class="s4">(*[</span></p>
 133 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>instrument:<span class="Apple-tab-span"> </span><span class="s5">\help_playbuf</span>,</p>
 134 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>dur:<span class="Apple-tab-span">        </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s2">Pseg</span>([0,0,0.25,0.5, 0.75, 1],10).linexp(0,1,0.01,2),</p>
 135 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>legato:<span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>4,</p>
 136 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>startPos:<span class="Apple-tab-span">   </span><span class="Apple-tab-span">    </span><span class="s2">Pn</span>(<span class="s2">Pseg</span>([0,1], 20), <span class="s2">inf</span>),</p>
 137 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>rate:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s2">Pwhite</span>(1, 1).midiratio,</p>
 138 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>loop:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span>0,</p>
 139 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>group:<span class="Apple-tab-span">      </span><span class="Apple-tab-span">    </span><span class="s2">Pkey</span>(<span class="s3">\newgroup</span>),</p>
 140 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>bufnum:<span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pkey</span>(<span class="s3">\sf1</span>)</p>
 141 <p class="p3"><span class="Apple-tab-span">     </span></p>
 142 <p class="p4"><span class="Apple-tab-span">     </span>])</p>
 143 <p class="p4">);</p>
 144 <p class="p4">a.play;</p>
 145 <p class="p4">)</p>
 146 <p class="p3"><br></p>
 147 <p class="p7">//a.render("sounds/test.aif", 40)</p>
 148 <p class="p7">//SoundFile.openRead("sounds/test.aif").play</p>
 149 <p class="p3"><br></p>
 150 <p class="p1"><b>Example 2, loading a waveform buffer and modifying it in performance</b></p>
 151 <p class="p3"><br></p>
 152 <p class="p4">(</p>
 153 <p class="p4"><span class="s2">SynthDef</span>(<span class="s5">\osc</span>,{ <span class="s2">arg</span> out=0, bufnum=0, numbufs = 8, sustain = 1, freq = 500, amp = 0.1, pan = 0;</p>
 154 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">var</span> audio;</p>
 155 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">Osc</span>.ar(bufnum, freq);</p>
 156 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">EnvGen</span>.ar(<span class="s2">Env</span>.linen(0.01, 0.90,0.9), 1, timeScale: sustain, doneAction: 2) * audio;</p>
 157 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">Pan2</span>.ar(audio, pan, amp);</p>
 158 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">OffsetOut</span>.ar(out, audio);</p>
 159 <p class="p4">}).add;</p>
 160 <p class="p3"><br></p>
 161 <p class="p4">b = <span class="s2">Pproto</span>({</p>
 162 <p class="p4"><span class="Apple-tab-span">     </span>~bufnum =<span class="Apple-tab-span">   </span>(type: <span class="s3">\sine1</span>, amps: 1.0/[1,2,3,4,5,6] ).yield;</p>
 163 <p class="p4">},</p>
 164 <p class="p5"><span class="s4"><span class="Apple-tab-span">    </span></span>Ppar<span class="s4">([</span></p>
 165 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pbind</span>(*[</p>
 166 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>instrument: <span class="Apple-tab-span">        </span><span class="s3">\osc</span>,</p>
 167 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>freq:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s2">Pwhite</span>(1, 16) * 100,</p>
 168 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>detune:<span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pfunc</span> { <span class="s2">Array</span>.fill(3.rand + 1, {3.0.rand}) },</p>
 169 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>dur:<span class="Apple-tab-span">        </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s2">Prand</span>([2,2,2.5,1],10),</p>
 170 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>db:<span class="Apple-tab-span"> </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s2">Pn</span>(<span class="s2">Pstep</span>([-10, -20, -20, -15, -20, -20, -20], 0.5) ),</p>
 171 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>legato:<span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pwhite</span>(0.0,1).linexp(0,1,0.1, 3)<span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></p>
 172 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>]),</p>
 173 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pbind</span>(*[</p>
 174 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>type:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s3">\sine1</span>,<span class="Apple-converted-space"> </span></p>
 175 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>amps:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s2">Pseg</span>(<span class="s2">Pfunc</span>{ <span class="s2">| ev |</span> <span class="s2">Array</span>.fill(10, {1.0.rand}) }, 1),</p>
 176 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>numOvertones:<span class="Apple-tab-span">       </span><span class="s2">Pseg</span>(<span class="s2">Pwhite</span>(0, 9), 10).asInteger,</p>
 177 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>amps:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s2">Pfunc</span>{ <span class="s2">| ev |</span> ev[<span class="s3">\amps</span>].copyRange(0, ev[<span class="s3">\numOvertones</span>]) },</p>
 178 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>dur: <span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span>0.05,</p>
 179 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>bufNum:<span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pkey</span>(<span class="s3">\bufnum</span>)</p>
 180 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>])</p>
 181 <p class="p4"><span class="Apple-tab-span">     </span>])</p>
 182 <p class="p4">);</p>
 183 <p class="p4">b.play</p>
 184 <p class="p4">)</p>
 185 <p class="p3"><br></p>
 186 <p class="p7">//b.render("sounds/test.aif", 40)</p>
 187 <p class="p7">//SoundFile.openRead("sounds/test.aif").play</p>
 188 <p class="p3"><br></p>
 189 <p class="p1"><b>Example 3, loading a waveshaper buffer and modifying it in performance</b></p>
 190 <p class="p2"><br></p>
 191 <p class="p5">(</p>
 192 <p class="p4"><span class="s2">SynthDef</span>(<span class="s5">\shaper</span>,{ <span class="s2">arg</span> out=0, bufnum=0, numbufs = 8, sustain = 1, freq = 500, amp = 0.1, pan = 0;</p>
 193 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">var</span> audio;</p>
 194 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">SinOsc</span>.ar(freq);</p>
 195 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">EnvGen</span>.ar(<span class="s2">Env</span>.linen(0.4, 0.50,0.9), 1, timeScale: sustain, doneAction: 2) * audio;</p>
 196 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">Shaper</span>.ar(bufnum, audio);</p>
 197 <p class="p4"><span class="Apple-tab-span">     </span>audio = <span class="s2">Pan2</span>.ar(audio, pan, amp);</p>
 198 <p class="p4"><span class="Apple-tab-span">     </span><span class="s2">OffsetOut</span>.ar(out, <span class="s2">LeakDC</span>.ar(audio));</p>
 199 <p class="p4">}).add;</p>
 200 <p class="p3"><br></p>
 201 <p class="p4">c = <span class="s2">Pproto</span>({</p>
 202 <p class="p4"><span class="Apple-tab-span">     </span>~bufnum = (type: <span class="s3">\cheby</span>, amps: 1.0/[1,2,3,4,5,6] ).yield;</p>
 203 <p class="p4">},</p>
 204 <p class="p5"><span class="s4"><span class="Apple-tab-span">    </span></span>Ppar<span class="s4">([</span></p>
 205 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pbind</span>(*[</p>
 206 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>instrument: <span class="Apple-tab-span">        </span><span class="s3">\shaper</span>,</p>
 207 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>freq:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s2">Pwhite</span>(1, 16) * 100,</p>
 208 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>detune:<span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pfunc</span> { <span class="s2">Array</span>.fill(3.rand + 1, {3.0.rand}) },</p>
 209 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>dur:<span class="Apple-tab-span">        </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s2">Prand</span>([2,2,2.5,1],<span class="s2">inf</span>),</p>
 210 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>db:<span class="Apple-tab-span"> </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span><span class="s2">Pn</span>(<span class="s2">Pstep</span>([-10, -20, -20, -15, -20, -20, -20], 0.5) ),</p>
 211 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>legato:<span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pwhite</span>(0.0,1).linexp(0,1,1.1, 5)<span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></p>
 212 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>]),</p>
 213 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s2">Pbind</span>(*[</p>
 214 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>type:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s3">\cheby</span>,<span class="Apple-converted-space"> </span></p>
 215 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>amps:<span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span><span class="s2">Pseg</span>(<span class="s2">Pfunc</span>{ <span class="s2">| ev |</span> <span class="s2">Array</span>.fill(10, {1.0.rand}) }, 4),</p>
 216 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>dur: <span class="Apple-tab-span">       </span><span class="Apple-tab-span">    </span>0.05</p>
 217 <p class="p4"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>])</p>
 218 <p class="p4"><span class="Apple-tab-span">     </span>])</p>
 219 <p class="p4">);</p>
 220 <p class="p4">c.play</p>
 221 <p class="p4">)</p>
 222 <p class="p7">//c.render("sounds/test.aif", 40)</p>
 223 <p class="p7">//SoundFile("sounds/test.aif").play</p>
 224 <p class="p7">//</p>
 225 <p class="p3"><br></p>
 226 </body>
 227 </html>