Help/Streams-Patterns-Events/Patterns/Plambda.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: 12.0px Helvetica; color: #0000ee}
  13 p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
  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}
  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: #007300}
  18 span.s1 {font: 18.0px Helvetica}
  19 span.s2 {color: #000000}
  20 span.s3 {text-decoration: underline}
  21 span.s4 {color: #007300}
  22 span.s5 {color: #0000bf}
  23 span.Apple-tab-span {white-space:pre}
  24 </style>
  25 </head>
  26 <body>
  27 <p class="p1"><span class="s1"><b>Plambda<span class="Apple-tab-span">  </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></b></span><b>create a<span class="Apple-converted-space">  </span>scope (namespace) for enclosed streams</b></p>
  28 <p class="p2"><br></p>
  29 <p class="p3"><span class="s2"><b>superclass: </b><a href="FilterPattern.html"><span class="s3">FilterPattern</span></a></span></p>
  30 <p class="p2"><br></p>
  31 <p class="p2"><br></p>
  32 <p class="p1"><b>Plambda(pattern, scope)</b></p>
  33 <p class="p2"><b><span class="Apple-tab-span">  </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></b></p>
  34 <p class="p1"><b><span class="Apple-tab-span">  </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>pattern:<span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></b>an event stream</p>
  35 <p class="p1"><b><span class="Apple-tab-span">  </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>scope:<span class="Apple-tab-span">      </span><span class="Apple-tab-span">    </span></b>an event with default bindings (can be nil)</p>
  36 <p class="p2"><br></p>
  37 <p class="p4"><br></p>
  38 <p class="p4"><br></p>
  39 <p class="p4"><br></p>
  40 <p class="p5">// Plet, Pget and Plambda.</p>
  41 <p class="p5">// Plet(key, stream, return)</p>
  42 <p class="p5">// Pget(key, default, repeats)</p>
  43 <p class="p4"><br></p>
  44 <p class="p6">(</p>
  45 <p class="p7">SynthDef<span class="s2">(</span><span class="s4">\sine</span><span class="s2">,<span class="Apple-converted-space"> </span></span></p>
  46 <p class="p6"><span class="Apple-tab-span">     </span>{ <span class="s5">arg</span> out=0, freq=440, sustain=0.05, pan=0, amp=0.1;</p>
  47 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s5">var</span> env;</p>
  48 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>env = <span class="s5">EnvGen</span>.kr(<span class="s5">Env</span>.perc(<span class="s5">Rand</span>(0.001, 0.02), sustain, <span class="s5">AmpCompA</span>.kr(freq)*amp), doneAction:2);</p>
  49 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s5">Out</span>.ar(out, <span class="s5">Pan2</span>.ar(<span class="s5">SinOsc</span>.ar(freq), pan, env))</p>
  50 <p class="p6"><span class="Apple-tab-span">     </span>}).add;</p>
  51 <p class="p6">)</p>
  52 <p class="p4"><br></p>
  53 <p class="p6">(</p>
  54 <p class="p7"><span class="s2">a = </span>Plambda<span class="s2">(</span></p>
  55 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s5">Pseq</span>([</p>
  56 <p class="p7"><span class="s2"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></span>Pfindur<span class="s2">(5,</span></p>
  57 <p class="p7"><span class="s2"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span></span><span class="Apple-tab-span">     </span>Ppar<span class="s2">([</span></p>
  58 <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="s5">Pbind</span>(<span class="s4">\note</span>, <span class="s5">Plet</span>(<span class="s4">\x</span>, <span class="s5">Prand</span>([1, 5, 1, [10, 14]], <span class="s5">inf</span>)), <span class="s4">\dur</span>, 8/3, <span class="s4">\pan</span>, -1),</p>
  59 <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="s5">Pbind</span>(<span class="s4">\note</span>, <span class="s5">Plet</span>(<span class="s4">\y</span>, <span class="s5">Pseq</span>([5, 3, 2, 0, [0, 5, 6, 9]], <span class="s5">inf</span>)), <span class="s4">\dur</span>, 0.5, <span class="s4">\pan</span>,1),</p>
  60 <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="s5">Pbind</span>(<span class="s4">\note</span>, <span class="s5">Pseq</span>([<span class="s5">Pget</span>(<span class="s4">\x</span>), <span class="s5">Pget</span>(<span class="s4">\y</span>)], <span class="s5">inf</span>) + 12, <span class="s4">\pan</span>, 0, <span class="s4">\dur</span>, 2/3)</p>
  61 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>])</p>
  62 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span>),</p>
  63 <p class="p6"><span class="Apple-tab-span">     </span><span class="Apple-tab-span">    </span><span class="s5">Pbind</span>(<span class="s4">\note</span>, <span class="s5">Pget</span>(<span class="s4">\x</span>, 0, 6) + [0, 5], <span class="s4">\dur</span>, <span class="s5">Pstutter</span>(<span class="s5">inf</span>, <span class="s5">Prand</span>([2/3, 1/6])))</p>
  64 <p class="p5"><span class="s2"><span class="Apple-tab-span">    </span><span class="Apple-tab-span">    </span>], </span><span class="s5">inf</span><span class="s2">).trace(</span><span class="s4">\eventScope</span><span class="s2">) </span>// internally, the values are shared via \eventScope</p>
  65 <p class="p6"><span class="Apple-tab-span">     </span>);</p>
  66 <p class="p8"><span class="s2">b = </span><span class="s5">Pbindf</span><span class="s2">(a, </span>\instrument<span class="s2">, </span>\sine<span class="s2">, </span>\legato<span class="s2">, 0.1);</span></p>
  67 <p class="p6">b.play</p>
  68 <p class="p6">)</p>
  69 <p class="p4"><br></p>
  70 <p class="p5">// this structure remains parallelizable</p>
  71 <p class="p4"><br></p>
  72 <p class="p6"><span class="s5">Ppar</span>([b, <span class="s5">Pbindf</span>(b, <span class="s4">\ctranspose</span>, 24, <span class="s4">\dur</span>, <span class="s5">Pkey</span>(<span class="s4">\dur</span>) * 0.25)]).play;</p>
  73 <p class="p4"><br></p>
  74 <p class="p4"><br></p>
  75 <p class="p4"><br></p>
  76 </body>
  77 </html>