今日
体調悪く，午前中は不稼働．
午後から授業準備，夕方に会議1件，SuperColliderの授業，その後練習．
SuperColliderのMIDIIn
MIDIInがかなり落ちる．
MIDIIn.connect;
s = Server.local;
s.boot;
s.latency = 0;
(
SynthDef(\sinetest, {arg out = 1, amp=0.0, freq = 440, gate = 0.0;
var snd = Saw.ar(freq);
snd = EnvGen.kr(Env.adsr, gate, doneAction:2) * snd * amp;
Out.ar(out, snd);
}).send(s);
)
//シンセサイザをPatternからではなく，通常起動しておく
x = Synth(\sinetest);
(
// Clean up Responder
n.do { |resp| resp.remove };
//set the action:
n = [
NoteOnResponder({ arg src, chan, num, vel;
x.set(\freq, num.midicps);
x.set(\amp, vel / 127.0);
x.set(\gate, 1.0);
}),
NoteOffResponder({ arg src, chan, num, vel;
x.set(\gate, 0.0);
})
];
)
