Submit
Browse
Anonymous
Login
RSS
SuperCollider Code
Fork Code: RaggaTek-000001
name
code content
// Raggatek track in SuperCollider TempoClock.default.tempo = 190/60; // Set the tempo to 190 BPM // Define the bassline ( SynthDef(\bassline, { arg gate = 1, freq = 60, cutoff = 80, resonance = 0.9, dist = 0.8, amp = 1; var env, sound; env = Env.adsr(0.01, 0.2, 0.6, 0.2, 0.1); sound = Saw.ar(freq) * env; sound = LPF.ar(sound, cutoff, resonance); sound = Distortion.ar(sound, dist, 0.1); sound = sound * amp * gate; Out.ar(0, sound); }).add; ) // Define the drums ( SynthDef(\drums, { arg gate = 1; var sound, env, amp; sound = PlayBuf.ar(1, BufRateScale.ir(BufRd.ar(1, Impulse.kr(0.5), 1)), loop: 1, doneAction: 2); sound = HPF.ar(sound, 50); env = EnvGen.kr(Env.linen(0, 0.05, 0.2, 0.1), gate, doneAction: 2); amp = EnvGen.kr(Env.new([0, 1, 0.6, 0], [0.1, 0.1, 0.8], [2, -3, -3]), doneAction: 2); sound = sound * env * amp; Out.ar(0, sound!2); }).add; ) // Play the bassline and drums ( Pbind( \instrument, \bassline, \degree, Pseq([0, 0, 7, 7, 9, 9, 7, 5, 5, 4, 4, 2, 2], inf), \dur, Pseq([0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5], inf), \gate, Pseq([1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1], inf), \cutoff, Pseq([80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80], inf), \resonance, 0.9, \dist, 0.8, \amp, 1 ).play; ) ( Pbind( \instrument, \drums, \gate, Pseq([1, 1, 1, 1, 1, 1, 1, 1], inf), ).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
signup to submit public code without captcha
comment of change