chp4.scd

// cf. https://github.com/brunoruviaro/SynthDefs-for-Patterns/blob/master/laserbeam.scd
(
SynthDef("laserbeam", {
    arg out = 0, pan = 0.0, freq = 440, amp = 0.1, dur = 0.25;
    var snd, freqenv, ampenv;
    // frequency envelope
	freqenv = Env.perc(releaseTime: dur/2).kr(doneAction: 2);
	// amplitude envelope
	ampenv = Env.perc(releaseTime: dur/2).kr(doneAction: 2);
	// snd = LFTri.ar(freq: freq * freqenv, mul: ampenv);
	// snd = Saw.ar(freq: freq * freqenv, mul: ampenv);
	snd = LFSaw.ar(freq: freq * freqenv, mul: ampenv);
	// snd = SinOsc.ar(freq: freq * freqenv, mul: ampenv);
    Out.ar(out, Pan2.ar(snd, pan));
}).add;
)

(
Pbind(
	\instrument, "laserbeam",
	\pan, Pwhite(-1.0, 1.0),
	\midinote, Pwhite(60, 140),
	// \midinote, 150,
	\amp, 0.25,
	\dur, 0.125
	// \dur, 1.0/Prand([4,4,4,4,8,16], inf)
).play;
)