SEMIMUTICAS #CadaDiaUnSinte Synth00

(
SynthDef(\synth00, {|gate 1, grain 1, rev 1, room 1, ampg 0|
var sen, env, pan;

sen = Mix(SinOsc.ar((1,2..50)*LFNoise0.kr(10).range(20.midicps, 72.midicps), Array.fill(50, {LFNoise2.kr(0.5).range(0, 2*pi)}), 1/(1,2..50))) * 2;
sen = sen * Dust.kr(grain).range(0,1);
sen = FreeVerb.ar(sen, rev, room, 0.25);
env = EnvGen.kr(Env.asr(0.1, 1, 0.1), gate, doneAction:2);
pan = Pan2.ar(sen*env*ampg, 0);

Out.ar(0, pan)
},
metadata: (specs: (
grain:[0.1, 10],
rev:[0,1],
room:[0,1],
ampg:[0, 1]
))
).store;
SynthDescLib.global[\synth00].makeWindow;
)

http://semimuticas.org/
https://www.facebook.com/semimuticas
https://twitter.com/semimuticas