startup.scd

(
s.options.device = "SuperCollider";
s.options.sampleRate = 44100;
s.options.numBuffers = 32;
s.options.hardwareBufferSize = 16;
s.options.numOutputBusChannels = 16;
s.options.numInputBusChannels = 0;
s.waitForBoot{
  SuperDirt.start;

  SynthDef(\cv, {|ch=14, val=0, time=0|
	OffsetOut.ar(ch, Lag.ar(DC.ar(1) * val, time));
  }).store;

  SynthDef(\es5, {|ch=20, val=1, time=0.003, t_trig=0|
	var e;
	e = EnvGen.ar(Env([0, 1, 1, 0], [0, time, 0], curve: \exp), gate: t_trig);
	OffsetOut.ar(ch, e * val);
  }).store;

  ~ch2val = { |ch| if (ch == 7) { -1 } {(1 << ch) / 127} };
  ~n2cv = { |n| (0.089 / 11) * n };
  ~dictAt = { |dict, key, default|
	if (dict.at(key) == nil) { default } { dict.at(key) };
  };

  ~es8 = Array.fill(8, { |i|
	Synth(\cv, [\ch, i])
  });


  ~cvout = ~es8;

  ~es5 = Array.fill(8, { |i|
	Synth(\es5, [\ch, 6, \val, ~ch2val.(i)])
  });


  OSCdef(\zzz, {|msg, time, addr, recvPort|
	var d = (\ch: -1, \note: -1, \cv: nil,\slew: 0.0, \length: 0.5, \gate: -1), ch = -1, cv, slew, note = -1, length = 0.5, gate = -1;
	msg.postln;
	msg[1..].pairsDo({ |k, v| d.put(k, v); });
	//d.postln;

	ch = d.at(\ch);
	cv = d.at(\cv);
	note = d.at(\note);
	slew = d.at(\slew);
	length = d.at(\length);
	gate = d.at(\gate);

	if (note >= 0,
	  { ~cvout[ch - 1].set(\val, ~n2cv.(note), \time, slew);}
	  , {
		if (cv != nil, { ~cvout[ch - 1].set(\val, cv, \time, slew);});
	  }
	);
	if (gate == 1, {
	  ~es5[ch - 1].set(\t_trig, 1, length);
	});
  }, "/zzz", nil, 12345);
};
)

[ /zzz, ch, 3, cps, 0.5625, cycle, 1562.5, delta, 0.22222232818604, gate, 1, length, 0.0010000000474975, note, 79 ]