Submit
Browse
Anonymous
Login
RSS
SuperCollider Code
Fork Code: Vanguard - A1: Karplus-Strong Synthesis (musc-115-pluck)
name
code content
/******************************************/ // Jonathan Coon // A1: Karplus-Strong Synthesis // MUSC 115 - Experimental Sound Design // Santa Clara University // 10/29/2014 /******************************************/ // This piece is a remix of my previous piece called "Avant Garde" in which a plucking // synthesizer is used. In this piece, I have modified the plucking synth and have added // more functionality, including reverb and vibrato control. /************************/ // SYNTH DEFINITION /************************/ ( SynthDef("plucking2.0", {arg amp = 0.1, freq = 440, decay = 5, coef = 0.1, verbMix = 0.9, verbSize = 0.9, verbDamp = 0.0001, vibratoRate = 7, vibratoMul = 10, pan = 0; var env, snd, vibrato; env = Env.linen(0, decay, 0).kr(doneAction: 2); vibrato = SinOsc.kr(freq: vibratoRate, mul: freq/vibratoMul); snd = Pluck.ar( in: GrayNoise.ar(amp), trig: Impulse.kr(0), maxdelaytime: 0.1, delaytime: freq.reciprocal, decaytime: decay, coef: coef); snd = FreeVerb.ar(in: snd, mix: verbMix, room: verbSize, damp: verbDamp); snd = Pan2.ar(snd, pan); Out.ar(0, Splay.ar(snd, spread: 0.75, level: SinOsc.kr(freq: vibrato), center: 0)); }).add; ) /************************/ // ARRANGEMENT /************************/ s.record("/Users/jdcoon/SCU/Fall 2014/MUSC 115/A1/Pluck-Jonathan_Coon.wav"); s.stopRecording; ( Pseq( [ ~twinkle, Ppar([~phaser, ~accent, Pn(~twinkle, 2)], 1), Ppar([~melody, ~drums], 2), Pn(~romanianMinor, 2), ~spanish, ~mixolydian, ~egyptian2, Ppar([Pn(~egyptian1,2), ~egyptian2]), ~egyptian3, Ppar([Pn(~egyptian1,2), ~egyptian2, Pn(~egyptian3,2)]), ~freq1, Ppar([~freq1, ~siren2], 1), ~freq3, Ppar([~freq2, ~siren1], 1), Ppar([~up, ~down], 1), ~twinkle ] ).play; ) /************************/ // PATTERNS /************************/ // Twinkle ( ~twinkle = Pbind( \instrument, "plucking2.0", \scale, Scale.major, \degree, Pwhite(0,12), \ctranspose, 36, \amp, Pwhite(0.5, 0.9), \decay, Pwhite(7, 12), \coef, Pwhite(0.01, 0.1), \verbMix, 0.5, \verbSize, 0.9, \verbDamp, 0.2, \vibratoRate, 0.1, \vibratoMul, 10, \dur, Prand([3/16, 3/8, 1/8, 1/16], 50); ); ) // Phaser ( ~phaser = Pbind( \instrument, "plucking2.0", \freq, 40, \amp, 0.8, \decay, Pseg(Pseq((0.1, 0.5 .. 7)), Pgeom(7,0.8)), \coef, 0.1, \verbMix, Pgeom(0, 1.1), \verbSize, Pgeom(0, 1.1), \verbDamp, Pgeom(0, 1.1), \vibratoRate, 7, \vibratoMul, 10, \dur, Pseq([0.25/2], inf), \pan, Pseq([-1, 1], inf) ); ) // Accent ( ~accent = Pbind( \instrument, "plucking2.0", \degree, 0, \ctranspose, 24, \amp, 3.3, \decay, 1, \coef, 0.1, \verbMix, 0.5, \verbSize, 0.9, \verbDamp, 0.5, \vibratoRate, 1, \vibratoMul, 1, \dur, Pseq([3/8, 3/8, 1.25], 20), \pan, Pseq([Pn(-1, 3), Pn(1, 3), Pn(-0.7, 3), Pn(0.7, 3), Pn(-0.1, 3), Pn(0.1, 3)], inf) ); ) // Romanian Minor Scale ( ~romanianMinor = Pbind( \instrument, "plucking2.0", \scale, Scale.romanianMinor, \degree, Pwhite(0, 15), \amp, Pwhite(0.3, 0.7) * 2, \decay, Pwhite(7, 12), \coef, Pwhite(0.01, 0.1), \verbMix, 0.5, \verbSize, 0.1, \verbDamp, 0.3, \vibratoRate, 0.2, \vibratoMul, 0.02, \dur, Prand([0.1, 0.2, 0.4, 0.27, 0.13, 0.38], 50) ); ) // Melody ( ~melody = Pbind( \instrument, "plucking2.0", \degree, Pwhite(0,5), \ctranspose, -12/2, \amp, 1.8, \decay, 1, \coef, 0.1, \verbMix, 0.5, \verbSize, 0.5, \verbDamp, 0.5, \vibratoRate, 7, \vibratoMul, 0.01, \dur, Pseq([3/8, 3/8, 1, 1/16, 1/16, 1/16], 5), ); ) // Drums ( ~drums = Pbind( \instrument, "plucking2.0", \degree, Pwhite(0,5), \ctranspose, -12*4, \amp, 1.8, \decay, 1, \coef, 0.5, \verbMix, 0.5, \verbSize, 0.5, \verbDamp, 0.5, \vibratoRate, 2, \vibratoMul, 0.01, \dur, Pseq([3/8, 3/8, 1, 1/16, 1/16, 1/16], 5), ); ) // Spanish ( ~spanish = Pbind( \instrument, "plucking2.0", \scale, Scale.spanish, \degree, Pseq([Pwhite([-7, -3, 1, 5], [-4, 0, 4, 8]), Pwhite([5, 1, -3, -7], [8, 4, 0, -4])], inf), \ctranspose, 12, \strum, 0.03, \amp, 1.2, \decay, 4, \coef, 0.2, \verbMix, 0.5, \verbSize, 0.1, \verbDamp, 0.5, \vibratoRate, 0.2, \vibratoMul, 100, \dur, Pseq([3/4, 1/4, 1/2, 1/2], 3), ); ) // Mixolydian ( ~mixolydian = Pbind( \instrument, "plucking2.0", \scale, Scale.mixolydian, \degree, Pwhite(0, 15), \ctranspose, -12, \amp, 2, \decay, 7, \coef, 0.4, \verbMix, 0.5, \verbSize, 0.9, \verbDamp, 0.5, \vibratoRate, 0.1, \vibratoMul, 100, \dur, Pxrand([1/3, 1/2, 1], 128/2), ); ) // Egyptian ( ~egyptian1 = Pbind( \instrument, "plucking2.0", \scale, Scale.egyptian, \degree, Pseq([Pwhite([-7, -3, 1, 5], [-4, 0, 4, 8]), Pwhite([5, 1, -3, -7], [8, 4, 0, -4])], inf), \ctranspose, 12, \strum, 0.04, \amp, 1.8, \decay, 1, \coef, 0.25, \verbMix, 0.5, \verbSize, 0.9, \verbDamp, 0.5, \vibratoRate, 0.1, \vibratoMul, 100, \dur, Pn(1/8, 32), ); ) ( ~egyptian2 = Pbind( \instrument, "plucking2.0", \scale, Scale.egyptian, \degree, Pseq([Pwhite([-7, -3, 1, 5], [-4, 0, 4, 8]), Pwhite([5, 1, -3, -7], [8, 4, 0, -4])], inf), \ctranspose, 12, \strum, 0.06, \amp, 12, \decay, 0.1, \coef, 0.25, \verbMix, 0.5, \verbSize, 0.9, \verbDamp, 0.5, \vibratoRate, 1, \vibratoMul, 100, \dur, Pn(1/4, 32), ); ) ( ~egyptian3 = Pbind( \instrument, "plucking2.0", \scale, Scale.egyptian, \degree, Pseq([Pwhite([-7, -3, 1, 5], [-4, 0, 4, 8]), Pwhite([5, 1, -3, -7], [8, 4, 0, -4])], inf), \ctranspose, 12, \strum, 0.02, \amp, 2.3, \decay, 0.1, \coef, 0.1, \verbMix, 0.3, \verbSize, 0.9, \verbDamp, 0.5, \vibratoRate, 2, \vibratoMul, 0.1, \dur, Pn(1/8, 32), ); ) // Freq1 ( ~freq1 = Pbind( \instrument, "plucking2.0", \freq, Pwhite(0, 880), \amp, 0.4, \decay, 50, \coef, 0.1, \vibratoRate, Ppoisson(7.0), \dur, Pseq([Prand([0.51, 0.1, 0.1], 4), Pwhite(0, 4, 4), Pwhite(0, 1, 4)], 2), \pan, Pwhite(-1, 1) ); ) // Freq2 ( ~freq2 = Pbind( \instrument, "plucking2.0", \freq, Pwhite(0, 880), \amp, 0.35, \decay, 50, \coef, 0.1, \vibratoRate, Pgauss(0.0, 1.0), \dur, Pwrand([Prand([0.51, 0.1, 0.1], 4), Pwhite(0, 4, 8), Pwhite(0, 1, 4)], [0.9, 0.05, 0.05] , 4), \pan, Pwhite(-1, 1) ); ) // Freq3 ( ~freq3 = Pbind( \instrument, "plucking2.0", \freq, Pwhite(0, 880), \amp, 0.5, \decay, 50, \coef, 0.1, \vibratoRate, Pgauss(0.0, 100.0), \dur, Pwrand([Prand([0.51, 0.1, 0.1], 4), Pwhite(0, 4, 1), Pwhite(0, 1, 1)], [0.5, 0.25, 0.25] , 10), \pan, Pwhite(-1, 1) ); ) // Siren1 ( ~siren1 = Pbind( \instrument, "plucking2.0", \freq, Pseq([Pseries(600, -4, 100), Pseries(100, 4, 1000)], 1), \amp, 0.5, \decay, 0.7, \coef, 0, \verbMix, 1, \verbSize, 1, \verbDamp, 0.01, \dur, 0.04, \pan, Pseq((1, 0.99 .. -1) ++ (-1, -0.99 .. 1), inf) ); ) // Siren2 ( ~siren2 = Pbind( \instrument, "plucking2.0", \freq, Pseq([Pseries(600, 4, 100), Pseries(1000, -4, 100)], 1), \amp, 6.4, \decay, 0.1, \coef, 0, \verbMix, 1, \verbSize, 0.8, \verbDamp, 0.5, \vibratoRate, 0.01, \vibratoMul, 0.01, \dur, 0.04 ); ) // Ending ( ~up = Pbind( \instrument, "plucking2.0", \degree, 0, \ctranspose, Pseries(24, 0.1), \amp, Pseq([Pseries(0.7,0.1,3), Pseries(0.9,-0.1,3)], 24), \decay, 1, \coef, Pseq([Pseries(0.1,0.1,3), Pseries(0.9,-0.1,3)], 24), \verbMix, 1, \verbSize, 1, \verbDamp, 0.9, \vibratoRate, 1, \vibroatoMul, 0.1, \dur, 1/16 ); ~down = Pbind( \instrument, "plucking2.0", \degree, 0, \ctranspose, Pseries(24, -1), \amp, Pseq([Pseries(0.7,0.1,1), Pseries(0.9,-0.1,1)], 64), \decay, 1, \coef, Pseq([Pseries(0.1,0.1,1), Pseries(0.9,-0.1,1)], 64), \verbMix, 1, \verbSize, 1, \verbDamp, 0.9, \vibratoRate, 10, \vibroatoMul, 0.1, \dur, 1/16 ); )
code description
This piece is a remix of my previous piece called "Avant Garde" in which a plucking synthesizer is used. In this piece, I have modified the plucking synth and have added more functionality, including reverb and vibrato control. Listen to the piece here: https://soundcloud.com/jonathan-coon/vanguard-musc-115-pluck
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