SuperCollider Code

Re: circling transpositions

some playing around with m/c/g-transpose in Pbind. this stops after it has2 transeposed 6 times a semitione ups, but it could start at the beginning and go on forever - just change the last "12" in \ctranspose to inf or however cycles you want. also, it uses a JPverb, so you need sc3_plugins, otherwise change rev line in reverbBus SynthDef to rev = input; or some other selfmade poor-woman's reverb.

( // pure melody experiments SynthDef("plucking", {arg out = 0, amp = 0.1, freq = 440, decay = 5, coef = 0.1; var env, snd; env = EnvGen.kr(Env.linen(0, decay, 0), doneAction: 2); snd = Pluck.ar( in: BrownNoise.ar(amp), trig: Impulse.kr(0), maxdelaytime: 0.1, delaytime: freq.reciprocal, decaytime: decay, coef: coef); snd = LeakDC.ar(snd).clip2; Out.ar(out, snd * env); }).add; b = Bus.audio(s,1); SynthDef("reverbBus", { arg outBus = 0, inBus, wet = 0.1; var input, rev; input = In.ar(inBus,1); rev = JPverb.ar(input * wet, t60:6, damp:0.5); DetectSilence.ar(rev, doneAction: Done.freeSelf); Out.ar(outBus, input + (rev)); }).add; r = Synth("reverbBus", [\inBus, b, \wet, 0.5]); Pbind( \instrument, "plucking", \scale, Scale.major.tuning_(\just), \octave, 4, \degree, Pseq([1, 3, 7, 3,-4,-2, 7, 8], inf)1,-2, //2, four3], main notesf), \mtranspose, Pseq([Pseq([0],3144),Pseq([-50],348),Pseq([3],inf48), // Pswitchedq([4],48)], mode every 3 inotes (*2f), \gtranspose, Pseq([Pseq([0],36),Pseq([4],36),Pseq([[-3]],36),Pseq([2],36)],inf), \ctranspose, Pser([Pseries(-4,1,64) +.x Pseq([0], 144)],12), \coef, Pserq([ Pseq([ Prand([0.2,0.3,0.4,0.5],1), Prand([0.86,0.75],5), Prand([0.2,0.3],1), Prand([0.6,0.5],5) ], 1), Prand([0.7,0.6],12) ], inf), \dur, Pseq([Prand([0.25,0.265,0.24,0.2455,0.255,0.25], 140),0.26,0.3,0.4,0.7], inf) * Pseq([Pseq([0.98],110), Pgeom(0.8,1.002,34)],inf), \decay, Pseq([8, Prand([1,2,3,4],5 4),3,2,1], inf), \out, b, \amp, 0.4, ).play; )

code fork, slow, melodic, melodies, arpeggiato