musicality 0.11.1 → 0.12.0

data/lib/musicality/performance/supercollider/synthdefs/bass.rb

@@ -0,0 +1,211 @@
+module Musicality
+module SuperCollider
+module SynthDefs
+
+MOOG_BASS = SynthDef.new(name: "moogbass", params: { :out => 0, :freq => 440, :amp => 0.8, :gate => 1,
+    :cutoff => 1000, :gain => 2.0, :lagamount => 0.01, :pan => 0.0 },
+  body: <<-SCLANG,
+  var osc, filter, env, filterenv;
+
+  osc = Mix(VarSaw.ar(freq.lag(lagamount)*[1.0,1.001,2.0],Rand(0.0,1.0)!3,Rand(0.5,0.75)!3,0.33));
+  filterenv = EnvGen.ar(Env.adsr(0.2,0.0,1.0,0.2),gate,doneAction:2);
+  filter =  MoogFF.ar(osc,cutoff*(1.0+(0.5*filterenv)),gain);
+  env = EnvGen.ar(Env.adsr(0.001,0.3,0.9,0.2),gate,doneAction:2);
+
+  Out.ar(out,Pan2.ar((0.7*filter+(0.3*filter.distort))*env*amp*1.5,pan));
+SCLANG
+  credit: <<-EOS,
+Sound recipes from:
+Mitchell Sigman (2011) Steal this Sound. Milwaukee, WI: Hal Leonard Books
+adapted for SuperCollider and elaborated by Nick Collins (http://www.sussex.ac.uk/Users/nc81/index.html)
+under GNU GPL 3  as per SuperCollider license
+EOS
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+MOOG_BASS2 = SynthDef.new(name: "moogbass2", params: { :out => 0, :freq => 440, :amp => 0.8, :gate => 1,
+    :attackTime => 0.2, :fenvamount => 0.5, :cutoff => 1000, :gain => 2.0, :pan => 0.0 },
+  body: <<-SCLANG,
+  var osc, filter, env, filterenv;
+
+  //alternative: richer source
+  osc = Mix(Pulse.ar(freq.lag(0.05)*[1.0,1.001,2.0],Rand(0.45,0.5)!3,0.33));
+  filterenv = EnvGen.ar(Env.adsr(attackTime,0.0,1.0,0.2),gate,doneAction:2);
+  filter =  MoogFF.ar(osc,cutoff*(1.0+(fenvamount*filterenv)),gain);
+  env = EnvGen.ar(Env.adsr(0.001,0.3,0.9,0.2),gate,doneAction:2);
+
+  Out.ar(out,Pan2.ar((0.7*filter+(0.3*filter.distort))*env*amp,pan));
+SCLANG
+  credit: <<-EOS,
+Sound recipes from:
+Mitchell Sigman (2011) Steal this Sound. Milwaukee, WI: Hal Leonard Books
+adapted for SuperCollider and elaborated by Nick Collins (http://www.sussex.ac.uk/Users/nc81/index.html)
+under GNU GPL 3  as per SuperCollider license
+EOS
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+BASS_FOUNDATION = SynthDef.new(name: "bassfoundation", params: { :out => 0, :freq => 440, :amp => 0.8, :gate => 1,
+    :cutoff => 1000, :rq => 0.5, :pan => 0.0 },
+  body: <<-SCLANG,
+  var osc, filter, env, filterenv;
+
+  osc = Saw.ar(freq);
+  filterenv = EnvGen.ar(Env.adsr(0.0,0.5,0.2,0.2),gate,doneAction:2);
+  filter =  RLPF.ar(osc,cutoff*filterenv+100,rq);
+  env = EnvGen.ar(Env.adsr(0.01,0.0,0.9,0.05),gate,doneAction:2);
+
+  Out.ar(out,Pan2.ar(filter*env*amp*2,pan));
+SCLANG
+  credit: <<-EOS,
+Sound recipes from:
+Mitchell Sigman (2011) Steal this Sound. Milwaukee, WI: Hal Leonard Books
+adapted for SuperCollider and elaborated by Nick Collins (http://www.sussex.ac.uk/Users/nc81/index.html)
+under GNU GPL 3  as per SuperCollider license
+EOS
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+BASS_HIGHEND = SynthDef.new(name: "basshighend", params: { :out => 0, :freq => 440, :amp => 0.8, :gate => 1,
+    :cutoff => 3000, :rq => 0.1, :drive => 2.0, :pan => 0.0 },
+  body: <<-SCLANG,
+  var osc, filter, env, filterenv;
+  var ab;
+
+  //osc = Mix(VarSaw.ar(freq*[0.25,1,1.5],Rand(0.0,1.0)!3,0.9,[0.5,0.4,0.1]));
+  osc = Mix(Saw.ar(freq*[0.25,1,1.5],[0.5,0.4,0.1]));
+  //osc = Mix(DPW4Saw.ar(freq*[0.25,1,1.5],[0.5,0.4,0.1]));
+  filterenv = EnvGen.ar(Env.adsr(0.0,0.5,0.2,0.2),gate,doneAction:2);
+  filter =  RLPF.ar(osc,cutoff*filterenv+100,rq);
+
+  //distortion
+  //filter = filter.distort.softclip;
+
+  ab = abs(filter);
+  filter = (filter*(ab + drive)/(filter ** 2 + (drive - 1) * ab + 1));
+
+  //remove low end
+  filter = BLowShelf.ar(filter,300,1.0,-12);
+  //dip at 1600Hz
+  filter = BPeakEQ.ar(filter,1600,1.0,-6);
+
+  env = EnvGen.ar(Env.adsr(0.01,0.0,0.9,0.05),gate,doneAction:2);
+
+  Out.ar(out,Pan2.ar(filter*env*amp*2,pan));
+SCLANG
+  credit: <<-EOS,
+Sound recipes from:
+Mitchell Sigman (2011) Steal this Sound. Milwaukee, WI: Hal Leonard Books
+adapted for SuperCollider and elaborated by Nick Collins (http://www.sussex.ac.uk/Users/nc81/index.html)
+under GNU GPL 3  as per SuperCollider license
+EOS
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+FAT_VELOCITY_BASS = SynthDef.new(name: "fatvelocitybass", params: { :out => 0, :freq => 440, :amp => 0.5,
+    :gate => 1, :cutoff => 2000, :rq => 0.15, :lagTime => 0.01, :pan => 0.0 },
+  body: <<-SCLANG,
+  var lfo, osc, filter, env;
+
+  var basefreq =  ((freq.lag(lagTime).cpsmidi)+[0,11.95,31.03]).midicps;
+  osc = Saw.ar(basefreq,[0.5,0.4,0.1]); //+PinkNoise.ar(Line.kr(1.0,0,0.03));
+  env = EnvGen.ar(Env.adsr(0.01,1.0,1.0,0.25),gate,doneAction:2);
+  filter = BLowPass4.ar(osc,100+((amp.squared)*(freq+cutoff)),rq);
+
+  Out.ar(out,Pan2.ar(Mix(filter)*env*amp*0.8,pan));
+SCLANG
+  credit: <<-EOS,
+Sound recipes from:
+Mitchell Sigman (2011) Steal this Sound. Milwaukee, WI: Hal Leonard Books
+adapted for SuperCollider and elaborated by Nick Collins (http://www.sussex.ac.uk/Users/nc81/index.html)
+under GNU GPL 3  as per SuperCollider license
+EOS
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+BASS1 = SynthDef.new(name: "bass1", params: { :out => 0, :freq => 440, :gate => 1, :amp => 0.5, :slideTime => 0.17, :ffreq => 1100, :width => 0.15, :detune => 1.005, :preamp => 4 },
+  body: <<-SCLANG,
+    var sig, env;
+  env = Env.adsr(0.01, 0.3, 0.4, 0.1);
+    freq = Lag.kr(freq, slideTime);
+    sig = Mix(VarSaw.ar([freq, freq * detune], 0, width, preamp)).distort;
+  sig = sig * amp * EnvGen.kr(env, gate, doneAction: 2);
+    sig = LPF.ar(sig, ffreq);
+    Out.ar(out, sig ! 2)
+SCLANG
+  source: "From https://github.com/brunoruviaro/SynthDefs-for-Patterns",
+)
+
+CHORD_BASS = SynthDef.new(name: "chord_bass", params: { :out => 0, :amp => 0.5, :sustain => 0.1, :freq => 90, :filtfreq1 => 7000, :filtfreq2 => 1000, :releaseTime => 0.5, :reverb => 0.1,:rq => 0.99 },
+  body: <<-SCLANG,
+  var env, sound;
+  env=EnvGen.ar(Env.perc(releaseTime:releaseTime),doneAction:2);
+  sound=FreeVerb.ar(RLPF.ar(LFSaw.ar(freq,0,amp),Line.kr(filtfreq1, filtfreq2,0.1),rq), reverb, 0.2, 0.5);
+  Out.ar(out,Pan2.ar(sound*env, 0.0))
+SCLANG
+  source: "https://github.com/willieavendano/SC-SynthDefs/blob/master/DrumMachines",
+)
+
+MY_BASS = SynthDef.new(name: "my_bass", params: { :out => 0, :amp => 1, :sustain => 0.3, :freq => 90, :filtfreq1 => 7000, :filtfreq2 => 1000, :releaseTime => 0.5, :reverb => 0.3, :rq => 0.99 },
+  body: <<-SCLANG,
+  var env, sound;
+  env=EnvGen.ar(Env.perc(releaseTime:releaseTime),doneAction:2);
+  sound=FreeVerb.ar(RLPF.ar(LFTri.ar(freq,0,amp*2),Line.kr(filtfreq1, filtfreq2,0.1),rq) ,reverb, 0.2 ,0.5);
+  Out.ar(out,Pan2.ar(sound*env, 0.0))
+SCLANG
+  source: "https://github.com/willieavendano/SC-SynthDefs/blob/master/DrumMachines",
+)
+
+BASS2 = SynthDef.new(name: "bass2", params: { :out => 0, :freq => 440, :gate => 1, :amp => 1.0, :slideTime => 0.17, :ffreq => 1100, :width => 0.15, :detune => 1.005, :preamp => 4, :dur => 0.2, :length => 0.2 },
+  body: <<-SCLANG,
+  var sig,
+    env = Env.adsr(0.01, 0.3, 0.4, 0.1);
+  freq = Lag.kr(freq, slideTime);
+  sig = Mix(VarSaw.ar([freq, freq * detune], 0, width, preamp)).distort * amp
+    * EnvGen.kr(env, gate * dur * length , doneAction: 2);
+  sig = LPF.ar(sig, ffreq);
+  Out.ar(out, sig ! 2)
+SCLANG
+  source: "https://github.com/mtytel/supersongs/",
+)
+
+BASS_303 = SynthDef.new(name: "bass303", params: { :out => 0, :freq => 440, :gate => 1, :lpf => 1000, :res => 0.8, :width => 0.05, :amp => 1, :vol => 0.5 },
+  body: <<-SCLANG,
+  var sig, env;
+  var sig2, env2;
+
+  // ghetto 303
+  env = Env.adsr(0.05, 2, 0, 0.3, 0.8, -12);
+  sig = LFPulse.ar(freq, width: width) + Pulse.ar(freq, width: 0.9);
+  sig = sig * EnvGen.ar(env, gate, amp, doneAction: 2);
+  sig = RLPF.ar(sig, lpf, res);
+
+  env2 = Env.adsr(0.03, 2, 0, 0.3, 0.8, -13);
+  sig2 = LFPulse.ar(freq, width: width)  + Pulse.ar(freq, width: 0.9);
+  sig2 = FreqShift.ar(sig2, 3);
+  sig2 = sig2 * EnvGen.ar(env2, gate, amp, doneAction: 2);
+  sig2 = RLPF.ar(sig2, lpf, res);
+
+
+  Out.ar(out, [sig * vol, sig2 * vol]);
+
+SCLANG
+  source: "https://github.com/mattvears/supercollider-stuff",
+)
+
+BASS4 = SynthDef.new(name: "bass4", params: { :out => 0, :gate => 1, :freq => 440 },
+  body: <<-SCLANG,
+  var aEnv, fEnv, osc, flt;
+  aEnv = EnvGen.kr(Env.asr(0, 1, 1), gate, doneAction: 2);
+  fEnv = EnvGen.kr(Env.perc(0, 3), levelScale: 6000);
+  osc = Mix([Saw.ar(freq * [1, 1.005]), Pulse.ar(freq / 2, 0.5)]);
+  flt = LPF.ar(osc, fEnv + 100, aEnv);
+  Out.ar(out, flt);
+SCLANG
+  credit: "From the Kraftwerk 'Spacelab' example in SuperCollider/examples by jy",
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+end
+end
+end

data/lib/musicality/performance/supercollider/synthdefs/claps.rb

@@ -0,0 +1,80 @@
+module Musicality
+module SuperCollider
+module SynthDefs
+
+ONECLAP = SynthDef.new(name: "oneclap", params: { :out => 0, :amp => 0.1, :filterfreq => 100, :rq => 0.1, :pan => 0 },
+  body: <<-SCLANG,
+var env, signal, attack, noise, hpf1, hpf2;
+  noise = WhiteNoise.ar(1)+SinOsc.ar([filterfreq/2,filterfreq/2+4 ], pi*0.5, XLine.kr(1,0.01,4));
+  //noise = PinkNoise.ar(1)+SinOsc.ar([(filterfreq)*XLine.kr(1,0.01,3), (filterfreq+4)*XLine.kr(1,0.01,3) ], pi*0.5, XLine.kr(1,0.01,4));
+  //signal = signal * SinOsc.ar(1,0.75);
+  hpf1 = RLPF.ar(noise, filterfreq, rq);
+  hpf2 = RHPF.ar(noise, filterfreq/2, rq/4);
+  env = EnvGen.kr(Env.perc(0.003, 0.00035));
+  signal = (hpf1+hpf2) * env;
+  signal = CombC.ar(signal, 0.5, 0.03, 0.031)+CombC.ar(signal, 0.5, 0.03016, 0.06);
+  //signal = Decay2.ar(signal, 0.5);
+  signal = FreeVerb.ar(signal, 0.23, 0.15, 0.2);
+  Out.ar(out, Pan2.ar(signal * amp, pan));
+  DetectSilence.ar(signal, doneAction:2);
+SCLANG
+  credit: "published on the sc-users list 2009-01-08 by thor",
+  source: "https://github.com/supercollider-quarks/SynthDefPool",
+)
+
+CLAP_OTO_309 = SynthDef.new(name: "clap_oto309", params: { :out => 0, :amp => 0.6, :pan => 0 },
+  body: <<-SCLANG,
+  var env1, env2, son, noise1, noise2;
+
+  env1 = EnvGen.ar(Env.new([0, 1, 0, 1, 0, 1, 0, 1, 0], [0.001, 0.013, 0, 0.01, 0, 0.01, 0, 0.03], [0, -3, 0, -3, 0, -3, 0, -4]));
+  env2 = EnvGen.ar(Env.new([0, 1, 0], [0.02, 0.3], [0, -4]), doneAction:2);
+
+  noise1 = WhiteNoise.ar(env1);
+  noise1 = HPF.ar(noise1, 600);
+  noise1 = BPF.ar(noise1, 2000, 3);
+
+  noise2 = WhiteNoise.ar(env2);
+  noise2 = HPF.ar(noise2, 1000);
+  noise2 = BPF.ar(noise2, 1200, 0.7, 0.7);
+
+  son = noise1 + noise2;
+  son = son * 2;
+  son = son.softclip * amp;
+
+  Out.ar(out, Pan2.ar(son, pan));
+SCLANG
+  credit: "from 08091500Acid309 by_otophilia",
+  source: "https://github.com/supercollider-quarks/SynthDefPool",
+)
+
+CLAP1 = SynthDef.new(name: "clap1", params: { :out => 0, :amp => 0.5 },
+  body: <<-SCLANG,
+  var env1, env2, sig, noise1, noise2;
+
+  env1 = EnvGen.ar(Env(
+    [0, 1, 0, 1, 0, 1, 0, 1, 0],
+    [0.001, 0.013, 0, 0.01, 0, 0.01, 0, 0.03],
+    [0, -3, 0, -3, 0, -3, 0, -4]
+  ));
+  env2 = EnvGen.ar(Env([0, 1, 0], [0.02, 0.3], [0, -4]), doneAction:2);
+
+  noise1 = WhiteNoise.ar(env1);
+  noise1 = HPF.ar(noise1, 600);
+  noise1 = BPF.ar(noise1, 2000, 3);
+
+  noise2 = WhiteNoise.ar(env2);
+  noise2 = HPF.ar(noise2, 1000);
+  noise2 = BPF.ar(noise2, 1200, 0.7, 0.7);
+
+  sig = noise1 + noise2;
+  sig = sig * 2;
+  sig = sig.softclip * amp;
+
+  Out.ar(out, sig.dup);
+SCLANG
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+end
+end
+end

data/lib/musicality/performance/supercollider/synthdefs/cymbals.rb

@@ -0,0 +1,57 @@
+module Musicality
+module SuperCollider
+module SynthDefs
+
+CYMBAL_808 = SynthDef.new(name: "cymbal808", params: { :out => 0, :baseFreq => 300, :time => 250, :amp => 0.1 },
+  body: <<-SCLANG,
+  //var freqs = [baseFreq, baseFreq*1.3420, baseFreq*1.2312, baseFreq*1.6532, baseFreq*1.9523, baseFreq*2.1523];
+  //var freqs = [78.6, 140.44, 123.87, 219.4, 787.5, 531.3];
+  //var freqs = [205.35, 254.29, 294.03, 304.41, 369.64, 522.71];
+  var freqs = [205.35, 304.41, 369.64, 522.71, 540.54, 812.21];
+  var signal, pulseEnv;
+
+  pulseEnv = EnvGen.ar(Env.new([1.0, 0.6], [time], [-0.5]), timeScale:(1/1000));
+  signal = Mix.new(LFPulse.ar(freqs * 4.09));
+  signal = (BinaryOpUGen('==', signal, 6.0) * 0.6) + (BinaryOpUGen('==', signal, 2.0) * 0.2) + (BinaryOpUGen('==', signal, 1.0) * 0.9); // XOR
+  signal = (signal * pulseEnv) + (Mix.new(LFPulse.ar(freqs, width:0.55)) * 0.9);
+  signal = RLPF.ar(signal, 7000, 0.6);
+  signal = RHPF.ar(signal, 6800, 1.5);
+  signal = RHPF.ar(signal, 6800, 1.5);
+  signal = RHPF.ar(signal, 1200, 1.5);
+  signal = signal + FreeVerb.ar(signal);
+  signal = signal * EnvGen.ar(Env.new([0, 1, 0.4, 0, 0], [2, time, 50, 500], [0, -0.5, 0, -50]), timeScale:(1/1000), doneAction:2);
+  signal = [signal, DelayN.ar(signal, 0.005, 0.005)];
+  OffsetOut.ar(out, signal*amp ! 2);
+SCLANG
+  credit: "Published on sc-users 2007-08-25 by Ryan Brown",
+  source: "https://github.com/supercollider-quarks/SynthDefPool",
+)
+
+CYMBALIC_MCLD = SynthDef.new(name: "cymbalic_mcld", params: { :out => 0, :pan => 0, :amp => 0.1,
+  :lo_attack => 0.1, :lo_release => 1, :hi_attack => 0.2, :hi_release => 1 },
+  body: <<-SCLANG,
+  var lodriver, locutoffenv, hidriver, hicutoffenv, freqs, res, thwack;
+
+  locutoffenv = EnvGen.ar(Env.perc(lo_attack, lo_release)) * 20000 + 10;
+  lodriver = LPF.ar(WhiteNoise.ar(0.1), locutoffenv);
+
+  hicutoffenv = 10001 - (EnvGen.ar(Env.perc(hi_attack, hi_release)) * 10000);
+  hidriver = HPF.ar(WhiteNoise.ar(0.1), hicutoffenv);
+  hidriver = hidriver * EnvGen.ar(Env.perc(hi_attack, hi_release * 0.75, 0.25));
+
+  thwack = EnvGen.ar(Env.perc(0.001,0.001,0.5));
+
+  // This bit will regenerate new freqs every time you evaluate the SynthDef!
+  freqs  = {exprand(300, 20000)}.dup(100);
+
+  res    = Ringz.ar(lodriver + hidriver + thwack, freqs).mean;
+
+  Out.ar(out, Pan2.ar(((res * 1) + (lodriver * 2) + thwack) * amp, pan));
+SCLANG
+  credit: "Based on the example at http://www.mcld.co.uk/cymbalsynthesis/ published 2008 by Dan Stowell",
+  source: "https://github.com/supercollider-quarks/SynthDefPool",
+)
+
+end
+end
+end

data/lib/musicality/performance/supercollider/synthdefs/hihats.rb

@@ -0,0 +1,67 @@
+module Musicality
+module SuperCollider
+module SynthDefs
+
+HIHAT1 = SynthDef.new(name: 'hihat1', params: { :out => 0, :pan => 0, :amp => 1, :release => 0.2 },
+  body: <<-SCLANG,
+  var click, clickAmp;
+  var noise, noiseAmp;
+  var snd;
+
+  // noise -> resonance -> expodec envelope
+  noiseAmp = EnvGen.ar(Env.perc(0.001, release, curve: -8), doneAction: 2);
+  noise = Mix(BPF.ar(ClipNoise.ar, [4010, 4151], [0.15, 0.56], [1.0, 0.6])) * 0.7 * noiseAmp;
+
+  snd = noise;
+
+  Out.ar(out, Pan2.ar(snd, pan, amp));
+SCLANG
+  source: "http://sccode.org/1-523"
+)
+
+HAT808 = SynthDef.new(name: "hat808", params: { :out => 0, :freq => 230, :hpf => 6500, :release => 0.15, :amp => 1, :fxb => 0, :fxv => 0, :bbcb => 0, :bbcv => 0 },
+  body: <<-SCLANG,
+  var pulse, sig, env, freqs;
+  freqs = [freq, freq*1.4471, freq*1.617, freq*1.9265, freq*2.5028, freq*2.6637];
+  pulse = Mix.ar(Pulse.ar(freqs, {0.9.rand}!6, mul: 0.15));
+  sig = RHPF.ar(RHPF.ar(pulse, hpf), hpf);
+  env = EnvGen.kr(Env.perc(0,release),doneAction:2);
+  sig = sig*env;
+  Out.ar(out, Pan2.ar(sig*amp,0));
+SCLANG
+  credit: "Christoph Kummerer",
+  source: "http://new-supercollider-mailing-lists-forums-use-these.2681727.n2.nabble.com/High-Hats-td4823993.html"
+)
+
+CLOSED_HAT = SynthDef.new(name: "closedhat", params: { :out => 0, :lpf => 8000, :hpf => 2400, :amp => 1 },
+  body: <<-SCLANG,
+  var hatosc, hatenv, hatnoise, hatoutput;
+
+  hatnoise = {LPF.ar(WhiteNoise.ar(1),lpf)};
+  hatosc = {HPF.ar(hatnoise,hpf)};
+  hatenv = {Line.ar(1, 0, 0.1)};
+  hatoutput = (hatosc * hatenv);
+
+  Out.ar(out, Pan2.ar(hatoutput*amp, 0));
+SCLANG
+  source: "https://github.com/willieavendano/SC-SynthDefs/blob/master/DrumMachines",
+)
+
+OPEN_HAT = SynthDef.new(name: 'openhat', params: { :out => 0, :lpf => 6000, :hpf => 2000, :amp => 1 },
+  body: <<-SCLANG,
+  var hatosc, hatenv, hatnoise, hatoutput;
+
+  hatnoise = {LPF.ar(WhiteNoise.ar(1),lpf)};
+  hatosc = {HPF.ar(hatnoise,hpf)};
+  hatenv = {Line.ar(1, 0, 0.3)};
+  hatoutput = (hatosc * hatenv);
+
+  Out.ar(out, Pan2.ar(hatoutput*amp, 0));
+SCLANG
+  credit: "Rumblesan",
+  source: "http://blog.rumblesan.com/post/53271713518/drum-sounds-in-supercollider-part-1"
+)
+
+end
+end
+end

data/lib/musicality/performance/supercollider/synthdefs/kicks.rb

@@ -0,0 +1,158 @@
+module Musicality
+module SuperCollider
+module SynthDefs
+#
+# KICK808 = SynthDef.new(name: "kick808", params: { :out => 0 },
+#   body: <<-SCLANG,
+#   var sig = LPF.ar(Ringz.ar(Impulse.ar(0), 60, 1), 500);
+#   var cmp = CompanderD.ar(sig, -20.dbamp, 1, 0.3, 0.003, 0.08);
+#
+#   cmp = cmp * (10.dbamp);
+#   Out.ar(out, cmp.dup);
+# SCLANG
+#   source: "https://github.com/acarabott/roundhouse-synth-design-course-2014"
+# )
+
+
+KICK808 = SynthDef.new(name: "kick808", params: { :out => 0, :freq => 440, :amp => 0.1,
+    :ringTime => 10.0, :releaseTime => 1.0, :distortion => 0.1, :pan => -0.1 },
+  body: <<-SCLANG,
+  var impulse, filter, env;
+
+  impulse = Impulse.ar(0);
+  filter = Ringz.ar(impulse,XLine.ar(freq,60,0.1),ringTime);
+  env = EnvGen.ar(Env.perc(0.001,releaseTime),doneAction:2);
+  filter = (1.0-distortion)*filter + (distortion*(filter.distort));
+
+  Out.ar(out,Pan2.ar(filter*env*amp,pan));
+SCLANG
+  credit: <<-EOS,
+Sound recipes from:
+Mitchell Sigman (2011) Steal this Sound. Milwaukee, WI: Hal Leonard Books
+adapted for SuperCollider and elaborated by Nick Collins (http://www.sussex.ac.uk/Users/nc81/index.html)
+under GNU GPL 3  as per SuperCollider license
+EOS
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+KICK2 = SynthDef.new(name: "kick2", params: { :out => 0, :amp => 0.2 },
+  body: <<-SCLANG,
+  var env0, env1, env1m, sig;
+
+  env0 =  EnvGen.ar(
+    Env([0.5, 1, 0.5, 0], [0.005, 0.06, 0.26], [-4, -2, -4]), doneAction:2
+  );
+  env1 = EnvGen.ar(Env([110, 59, 29], [0.005, 0.29], [-4, -5]));
+  env1m = env1.midicps;
+
+  sig = LFPulse.ar(env1m, 0, 0.5, 1, -0.5);
+  sig = sig + WhiteNoise.ar(1);
+  sig = LPF.ar(sig, env1m * 1.5, env0);
+  sig = sig + SinOsc.ar(env1m, 0.5, env0);
+
+  sig = sig * 1.2;
+  sig = sig.clip2(1);
+
+  Out.ar(out, sig.dup * amp);
+SCLANG
+  credit: "Reformatted for the Roundhouse Synth Design course from 08091500Acid309 by otophilia from SuperCollider/examples folder",
+  source: "https://github.com/acarabott/roundhouse-synth-design-course-2014",
+)
+
+KICK3 = SynthDef.new(name: "kick3", params: { :out => 0, :punch => 1, :amp => 1 },
+  body: <<-SCLANG,
+  var freq = EnvGen.kr(Env([400, 66], [0.08], -3)),
+  sig = Normalizer.ar(SinOsc.ar(freq, 0.5pi, punch).distort, 1) * amp
+            * EnvGen.kr(Env([0, 1, 0.8, 0], [0.01, 0.1, 0.2]), doneAction: 2);
+    Out.ar(out, sig ! 2);
+SCLANG
+  source: "From https://github.com/brunoruviaro/SynthDefs-for-Patterns",
+)
+
+RING_KICK = SynthDef.new(name: "ringkick", params: { :out => 0, :freq => 40, :decay => 0.05, :amp => 1 },
+  body: <<-SCLANG,
+  var snd;
+  snd = Ringz.ar(
+    in: LPF.ar(
+      in: Impulse.ar(0),
+      freq: 1000),
+    freq: freq,
+    decaytime: decay,
+    mul: 7 * amp).tanh.sin*2;
+  Out.ar(out, snd!2);
+SCLANG
+  source: "From https://github.com/brunoruviaro/SynthDefs-for-Patterns",
+)
+
+KICK_CHIRP = SynthDef.new(name: "kick_chrp", params: { :out => 0, :amp => 1, :pan => 0 },
+  body: <<-SCLANG,
+  // a kick made using what radio folks would call a "chirp"
+  var ampenv, pitchenv;
+
+  ampenv   = EnvGen.ar(Env.perc(0, 0.2, curve: 0), doneAction: 2);
+  pitchenv = EnvGen.ar(Env.perc(0, 0.1, curve: -20).exprange(0, 1000), doneAction: 0);
+
+  Out.ar(out, Pan2.ar(SinOsc.ar(pitchenv) * amp, pan));
+SCLANG
+  credit: "by dan stowell. public domain",
+  source: "https://github.com/supercollider-quarks/SynthDefPool",
+)
+
+KICK_OTO_309 = SynthDef.new(name: "kick_oto309", params: { :out => 0, :amp => 0.1, :pan => 0 },
+  body: <<-SCLANG,
+  var env0, env1, env1m, son;
+
+  env0 =  EnvGen.ar(Env.new([0.5, 1, 0.5, 0], [0.005, 0.06, 0.26], [-4, -2, -4]), doneAction:2);
+  env1 = EnvGen.ar(Env.new([110, 59, 29], [0.005, 0.29], [-4, -5]));
+  env1m = env1.midicps;
+
+  son = LFPulse.ar(env1m, 0, 0.5, 1, -0.5);
+  son = son + WhiteNoise.ar(1);
+  son = LPF.ar(son, env1m*1.5, env0);
+  son = son + SinOsc.ar(env1m, 0.5, env0);
+
+  son = son * 1.2;
+  son = son.clip2(1);
+
+  Out.ar(out, Pan2.ar(son * amp));
+SCLANG
+  credit: "from 08091500Acid309 by_otophilia",
+  source: "https://github.com/supercollider-quarks/SynthDefPool",
+)
+
+
+# KIK = SynthDef.new(name: "kik", params: { :out => 0, :basefreq => 50, :ratio => 7, :sweeptime => 0.05, :preamp => 1, :amp => 1, :decay1 => 0.3, :decay1L => 0.8, :decay2 => 0.15 },
+#   body: <<-SCLANG,
+#     var fcurve = EnvGen.kr(Env([basefreq * ratio, basefreq], [sweeptime], \exp)),
+#         env = EnvGen.kr(Env([1, decay1L, 0], [decay1, decay2], -4), doneAction: 2),
+#         sig = SinOsc.ar(fcurve, 0.5pi, preamp).distort * env * amp;
+#     Out.ar(out, sig ! 2)
+# SCLANG
+#   source: "From https://github.com/brunoruviaro/SynthDefs-for-Patterns",
+# )
+
+DRUM_KICK = SynthDef.new(name: "drum_kick", params: { :out => 0, :freq => 440, :gate => 1, :amp => 0.8, :source => nil,:pan => 0.0 },
+  body: <<-SCLANG,
+  var x1, x2, x3;
+
+  x1 = SinOsc.ar(EnvGen.kr(Env.perc(0.0001, 1.5, 1, -200), gate, 1000, 45, doneAction:2), 1, 1);
+  x2 = ((BPF.ar([GrayNoise.ar(6),GrayNoise.ar(6)],EnvGen.kr(Env.perc(0.001, 0.3, 1, -200), gate, 6000, 70), 1.5)).distort * Line.kr(0.3,0,0.1));
+  x3 = EnvGen.kr(Env.perc(0.0001, 0.09, amp, 8));
+  source = Pan2.ar(x1 + x2 * x3, 0);
+  Out.ar(out, source);
+SCLANG
+  source: "https://github.com/willieavendano/SC-SynthDefs/blob/master/DrumMachines",
+)
+
+KICK1 = SynthDef.new(name: "kick", params: { :out => 0, :amp => 1, :dur => 0.05 },
+  body: <<-SCLANG,
+var tone;
+tone = SinOsc.ar(XLine.ar(800,2,dur*4, mul: 0.2, doneAction:2));
+Out.ar(out, amp * tone.dup * XLine.ar(2,1/1000,dur*4));
+SCLANG
+  source: "https://github.com/bwestergard/supercollider-experiments",
+)
+
+end
+end
+end

data/lib/musicality/performance/supercollider/synthdefs/mario.rb

@@ -0,0 +1,49 @@
+module Musicality
+module SuperCollider
+module SynthDefs
+
+MARIO = SynthDef.new(name: "mario", params: { :out => 0, :freq => 440, :length => 0.1, :dur => 0.2 },
+  body: <<-SCLANG,
+  var snd, amp;
+  snd = LFPulse.ar(freq)!2;
+  amp = LFTri.ar(freq/50)!2;
+  snd = snd * EnvGen.ar(Env.linen(0.001, length * dur, 0.03), doneAction:2);
+  OffsetOut.ar(out, snd*amp);
+SCLANG
+  source: "https://github.com/mtytel/supersongs/",
+)
+
+MARIO_BASS = SynthDef.new(name: "mariobass", params: { :out => 0, :amp => 1.0, :freq => 440, :length => 0.1, :dur => 0.2 },
+  body: <<-SCLANG,
+  var snd;
+  snd = LFTri.ar(freq)!2;
+  snd = snd * EnvGen.ar(Env.linen(0.001, length * dur, 0.03), doneAction:2);
+  OffsetOut.ar(out, snd*amp);
+SCLANG
+  source: "https://github.com/mtytel/supersongs/",
+)
+
+BEAT = SynthDef.new(name: "beat", params: { :out => 0, :amp => 1.0, :sustain => 0.1, :dur => 0.1 },
+  body: <<-SCLANG,
+  var snd;
+  snd = BrownNoise.ar()!2;
+  snd = HPF.ar(snd, 2000);
+  snd = snd * EnvGen.ar(Env.linen(0.005, dur * sustain, 0.01), doneAction:2);
+  OffsetOut.ar(out, snd*amp);
+SCLANG
+  source: "https://github.com/mtytel/supersongs/",
+)
+
+BOOP = SynthDef.new(name: "boop", params: { :out => 0, :dur => 1.0, :amp => 1.0, :freq => 440 },
+  body: <<-SCLANG,
+  var env, sig;
+  env = EnvGen.ar(Env.new([1, 0.1, 0], [0.06, dur - 0.06]), doneAction: 2);
+  sig = LFTri.ar([freq * 0.995, freq * 1.005], 0, env * amp);
+  Out.ar(out, sig ! 2);
+SCLANG
+  source: "https://github.com/mtytel/supersongs/",
+)
+
+end
+end
+end