Hello Excds,
Sorry for the looong delay,
Here is a little piece of code for you to play with, I'm not a SuperCollider Kung-fu master so you can go here
http://sccode.org/ you'll find a lot lot of nice sounding and well written examples and there is also a good documentation system.
I tell you again this code is sounding nice, but it's soooo uuugglllyy
Code: Select all
(
s.waitForBoot(
{
Ndef(\waveOut).ar(2);
Ndef(\wave).ar(2);
Ndef(\wave,{
Splay.ar({
(4*BLowPass4.ar(
AllpassL.ar(
SinOsc.ar(XLine.kr(99,800,120)+(
SinOsc.ar( // FM modulation
100+SinOsc.ar(1,0,2) // FM modulation 2
,Ndef(\wave).ar*0.1 // FeedBack + PhaseMod
,LFNoise1.ar(1/4).range(100,XLine.kr(100,3000,60)))+((Ndef(\wave).ar)*LFNoise1.ar(0.25).exprange(0.1,30))) // FM mod 1 Amplitude
,0
,LFNoise1.kr(4.rrand(16).reciprocal).exprange(0.01,4)),0.5,0.01.rrand(0.05) //Sin amplitude
)
,LFNoise0.kr(4.rrand(8).reciprocal!4).exprange(90,4000).lag(3) // Four channels expanded freq filter
,0.5)
); // Don't remove the tanh thing it's a wave shaper to stay below 0dB with a nice distortion
}).tanh;
});
Ndef(\waveOut,{
var base = 0.5;
(FreeVerb.ar(Ndef(\wave).ar*Line.kr(0,1,30),0.3,Amplitude.kr(Ndef(\wave).ar)*0.3)*0.3).tanh*0.3;
}).play;
}
)
)
Here is a screamy version :
Code: Select all
(
s.waitForBoot(
{
Ndef(\waveOut).ar(2);
Ndef(\wave).ar(2);
Ndef(\wave,{
Splay.ar({
(16*BLowPass4.ar( // <== Signal x16
AllpassL.ar(
SinOsc.ar(XLine.kr(99,800,120)+(
SinOsc.ar( // FM modulation
100+SinOsc.ar(1,0,2) // FM modulation 2
,Ndef(\wave).ar*0.1 // FeedBack + PhaseMod
,LFNoise1.ar(1/4).range(100,XLine.kr(100,3000,60)))+((Ndef(\wave).ar)*LFNoise1.ar(0.25).exprange(0.1,30))) // FM mod 1 Amplitude
,0
,LFNoise1.kr(4.rrand(16).reciprocal).exprange(0.01,4)),0.5,0.01.rrand(0.05) //Sin amplitude
)
,LFNoise0.kr(4.rrand(8).reciprocal).exprange(90,4000).lag(3) // Freq filter (Not expanded)
,0.5)
); // Don't remove the tanh thing it's a wave shaper to stay below 0dB with a nice distortion
}).tanh;
});
Ndef(\waveOut,{
var base = 0.5;
(FreeVerb.ar(Ndef(\wave).ar*Line.kr(0,1,30),0.6,Amplitude.kr(Ndef(\wave).ar)*0.3)*0.3).tanh*0.3;
}).play;
}
)
)
You can hear it in action here
http://soundcloud.com/sadeden/war-in-my ... am-at-50hz
Hope this helped ! Enjoy
[edi] Thanks to you I found some mistakes in my code linked to channel expansion
Thx !!