Fork Code: Wine Glass Code - Edited

name

code content

// Wine Glass Sound
(
SynthDef("AM", { arg freq = 523.25, modfreq = 1, amp = 0.5, attack = 2, dur = 5, pos = 0;
	var carrier, modulator, env;
	modulator = SinOsc.kr(modfreq).range(0, 1);
	carrier = SinOsc.ar(freq: freq, mul: modulator);
	env = Env.perc(attackTime: attack, releaseTime: dur - attack, level: amp).kr(2);
	carrier = carrier * env;
	Out.ar(0, Pan2.ar(carrier, pos))
}).add;
)

(
Pbind(
\instrument, "AM",
	\note, 15,
	\dur, 10,
	\amp, Pwhite(0.5, 0.1),
	\att, 1,
	\rel, 10
).play;
)




// changes to the modfreq in SynthDef "AM1" -- rougher rubbing against the glass
(
Pbind(
\instrument, "AM",
	\note, 15,
	\dur, 10,
	\amp, Pwhite(0.5, 0.1),
	\att, 1,
	\rel, 10,
	\modfreq, 10
).play;
)




// even higher modfreq -- greater number of voices
(
Pbind(
\instrument, "AM",
	\note, 15,
	\dur, 10,
	\amp, Pwhite(0.5, 0.1),
	\att, 1,
	\rel, 10,
	\modfreq, 1000
).play;
)

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change