dewdrop_libMixerテンプレート

dewdrop_libMixer.scd

MixerChannelDef(\mix1x4, 1, 4, 
   SynthDef(\mix1x4, { |busin, busout, xpos, ypos, level|
      var   sig = In.ar(busin, 1);
      sig = Pan4.ar(sig, xpos, ypos, level);
      Out.ar(busout, sig);
      ReplaceOut.ar(busin, sig);
   }),
   controls: (xpos: \bipolar,
      ypos: \bipolar,
      level: (value: 0.75, spec: \amp))
);

m = MixerChannel(\channel1, s, 1, 4);
m = MixerChannel.newFromDef(\channel1, \mix1x4, s);

a = m.play({ SinOsc.ar(Lag.kr(LFNoise0.kr(8).range(100, 200), 0.07), 0) });
b = m.play({ SinOsc.ar(Lag.kr(LFNoise0.kr(8).range(400, 800), 0.07), 0) });

m.automate(\xpos, { LFNoise1.kr(0.2) });
m.automate(\ypos, { LFNoise1.kr(0.3) });