HelpSource/Classes/Pbus.schelp

   1 class:: Pbus
   2 summary:: isolate a pattern by restricting it to a bus
   3 related:: Classes/Pfx, Classes/Pfxb, Classes/Pgroup
   4 categories:: Streams-Patterns-Events>Patterns>Server Control
   5
   6 description::
   7
   8 Starts a new group and plays the pattern in this group, on a private bus. The group and the bus is released when the stream has ended.
   9
  10 This is useful in order to isolate a link::Classes/Pfx::.
  11
  12 ClassMethods::
  13
  14 method::new
  15
  16 argument::pattern
  17
  18 argument::dur
  19 delay to allow inner patterns to decay.
  20
  21 argument::fadeTime
  22 fading out the inner pattern after dur over this time.
  23
  24 argument::numChannels
  25 number of channels of the bus (should match the synthdef).
  26
  27 argument::rate
  28 bus rate.
  29
  30 Examples::
  31
  32 code::
  33 (
  34 SynthDef(\echo, { arg out=0, maxdtime=0.2, dtime=0.2, decay=2, gate=1;
  35         var env, in;
  36         env = Linen.kr(gate, 0.05, 1, 0.1, 2);
  37         in = In.ar(out, 2);
  38         XOut.ar(out, env, CombL.ar(in * env, maxdtime, dtime, decay, 1, in));
  39 }, [\ir, \ir, 0.1, 0.1, 0]).add;
  40
  41 SynthDef(\distort, { arg out=0, pregain=40, amp=0.2, gate=1;
  42         var env;
  43         env = Linen.kr(gate, 0.05, 1, 0.1, 2);
  44         XOut.ar(out, env, (In.ar(out, 2) * pregain).distort * amp);
  45 }, [\ir, 0.1, 0.1, 0]).add;
  46
  47 SynthDef(\wah, { arg out=0, gate=1;
  48         var env, in;
  49         env = Linen.kr(gate, 0.05, 1, 0.4, 2);
  50         in = In.ar(out, 2);
  51         XOut.ar(out, env, RLPF.ar(in, LinExp.kr(LFNoise1.kr(0.3), -1, 1, 200, 8000), 0.1).softclip * 0.8);
  52 }, [\ir, 0]).add;
  53 )
  54
  55 (
  56 var p, q, r, o;
  57 p = Pbind(\degree, Prand((0..7),12), \dur, 0.3, \legato, 0.2);
  58
  59 q = Pfx(p, \echo, \dtime, 0.2, \decay, 3);
  60
  61 r = Pfx(q, \distort, \pregain, 20, \amp, 0.25);
  62
  63 o = Pfx(r, \wah);
  64
  65 Ppar(
  66         [p, q, r, o].collect(Pbus(_)); // play each in a different bus.
  67 ).play;
  68 )
  69
  70
  71
  72 // compare to playing them together on one bus.
  73 (
  74 var p, q, r, o;
  75 p = Pbind(\degree, Prand((0..7),12), \dur, 0.3, \legato, 0.2);
  76
  77 q = Pfx(p, \echo, \dtime, 0.2, \decay, 3);
  78
  79 r = Pfx(q, \distort, \pregain, 20, \amp, 0.25);
  80
  81 o = Pfx(r, \wah);
  82
  83 Ppar([p, q, r, o]).play;
  84 )
  85 ::