martes, 13 de septiembre de 2016

SEMIMUTICAS #CadaDiaUnSinte Synth04

(
SynthDef(\synth04, {|gate 1, frec1 100, frec2 250, frecFil 0.2, frecAmp 10, ampg 0|
var mod1, mod2, sen, env;
mod1 = SinOsc.kr(frecFil).range(400, 8000);
mod2 = SinOsc.kr(frecAmp).range(0, 1);
sen = Saw.ar([frec1,frec2],0.1);
sen = RLPF.ar(sen, mod1, 0.05) * mod2;
env = EnvGen.kr(Env.asr(0.1, 1.0, 0.1), gate, doneAction:2);
Out.ar(0, (sen*env)*ampg)
},
metadata: (specs: (
frec1:[40,5000],
frec2:[40,5000],
frecFil:[0.1,100],
frecAmp:[0.1, 100],
ampg:[0, 1]
))
).store;
SynthDescLib.global[\synth04].makeWindow;
)

lunes, 12 de septiembre de 2016

SEMIMUTICAS #CadaDiaUnSinte Synth03


(
//Hear it with headphones
SynthDef(\synth03, {|gate 1|
var sen1, sen2, env;
sen1 = SinOsc.ar(LFNoise2.kr(0.33).range(200,400), LFNoise2.kr(0.3).range(0, 2*pi), 0.5);
sen2 = SinOsc.ar(LFNoise2.kr(0.34).range(200,400), LFNoise2.kr(0.29).range(0, 2*pi), 0.5);
env = EnvGen.kr(Env.asr(0.1, 1.0, 0.1), gate, doneAction:2);
Out.ar(0, sen1*env);
Out.ar(1, sen2*env);
}).add;
)
a=Synth(\synth03);
a.set(\gate, 0);


domingo, 11 de septiembre de 2016

SEMIMUTICAS #CadaDiaUnSinte Synth02


(
SynthDef(\synth02, {|gate 1, frec 1, frecFil 200, rq 0.01, frecPan 3, ampg 0|
var sen, env, pan;
sen = SoundIn.ar(0) * Pulse.kr(frec).range(0,1);
sen = RLPF.ar(sen, frecFil, rq);
env = EnvGen.kr(Env.asr(0.1, 1.0, 0.1), gate, doneAction:2);
pan = Pan2.ar((sen*env)*ampg, LFNoise2.kr(frecPan));
Out.ar(0, pan)
},
metadata: (specs: (
frec:[0.5, 100],
frecFil:[40,5000],
rq:[0.01, 1.0],
frecPan:[0.1,30],
ampg:[0, 1]
))
).store;
SynthDescLib.global[\synth02].makeWindow;
)

viernes, 9 de septiembre de 2016

SEMIMUTICAS #CadaDiaUnSinte Synth01


(
SynthDef(\synth01, {|gate 1, frecPor 220, frecMod 5, ampg 0|
var mod, sen, env, pan;
mod = SinOsc.kr(frecMod).range(-20, 20);
sen = Mix(SinOsc.ar( (1,2..10)*(frecPor+mod), 0, 1/(1,3..30)));
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: (
frecPor:[20, 10000],
frecMod:[0,100],
ampg:[0, 1]
))
).store;
SynthDescLib.global[\synth01].makeWindow;
)

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