parent
1111ab6855
commit
4e86f02566
1 changed files with 115 additions and 0 deletions
@ -0,0 +1,115 @@ |
||||
// ===================================================================== |
||||
// SuperCollider Workspace 20.FEB 2021 |
||||
// ===================================================================== |
||||
|
||||
( |
||||
|
||||
Server.default.waitForBoot { fork { |
||||
|
||||
~revBus.free; |
||||
~revFx.free; |
||||
|
||||
s.sync; |
||||
|
||||
~revBus = Bus.audio(s, 2); |
||||
|
||||
SynthDef(\bet, { |gate = 1, freq = 234, out = 0, pan = 0, amp = 0.1, cutoff = 4000 | |
||||
var snd, env, fenv; |
||||
freq = [freq, freq * 1.01] * Rand(0.995, 1.0); |
||||
freq = freq * SinOsc.kr(5).range(0.99, 1.01); |
||||
env = EnvGen.ar(Env.asr(0, 1, 3), gate, doneAction:2); |
||||
fenv = EnvGen.ar(Env.adsr(0.05, 0.5, 0.4, 2), gate); |
||||
snd = SinOsc.ar(freq); |
||||
snd = snd + Pulse.ar(freq * 0.5, mul:0.8); |
||||
snd = snd + LFTri.ar(freq * [1,2].choose * 1.01, mul:1); |
||||
snd = LPF.ar(snd, cutoff * fenv + 100); |
||||
snd = snd * env * amp; |
||||
snd = Balance2.ar(snd[0], snd[1], pan, 0.7); |
||||
Out.ar(out, snd); |
||||
}).add; |
||||
|
||||
SynthDef(\revfx, { |inBus, outBus = 0, wet = 0.3, amp = 0.2| |
||||
var snd, rev; |
||||
|
||||
snd = In.ar(inBus, 2); |
||||
snd = BHiShelf.ar(snd, 5000, db:-3); |
||||
rev = GVerb.ar(snd, 100, taillevel:wet); |
||||
rev = rev * amp; |
||||
|
||||
Out.ar(outBus, rev); |
||||
}).add; |
||||
|
||||
s.sync; |
||||
|
||||
~revFx = Synth(\revfx, [\inBus, ~revBus, \amp, 0.4, \wet, 0.4], addAction:\addAfter); |
||||
|
||||
s.sync; |
||||
|
||||
Pbindef(\betP, *[ |
||||
instrument: \bet, |
||||
dur: Prand((1..10), inf) * 0.03 + 1/4 * 0.8, |
||||
|
||||
note: Pseq([ |
||||
-3, 13, 15, 20, 16, Rest(), // Dbm(add9)/A |
||||
-3, 12, 18, 23, 16, Rest(), // Am69 |
||||
-4, 6, 11, 15, 16, Rest(), // EM9/Ab |
||||
-4, 6, 13, 15, 16, Rest(), // Ab7sus4(-13( |
||||
-6, 6, 9, 13, 20, Rest(), // Gbm(add9) |
||||
-4, 8, 12, 18, 16, Rest(), // Abaug7 |
||||
|
||||
1, 13, 15, 20, 16, Rest(), // Dbm(add9) |
||||
-1, 11, 15, 20, 16, Rest(), // EM7/B |
||||
-3, 13, 15, 20, 16, Rest(), // Dbm(add9)/A |
||||
-3, 12, 18, 23, 25, Rest(), // Gbsus4(+11)/A |
||||
-6, 6, 9, 13, 20, Rest(), // Gbm(add9) |
||||
-4, 3, 6, 11, 15, 20, // Abm7 // 12*6 |
||||
], inf), |
||||
|
||||
octave: Pseq([ |
||||
Prand([[5,4],[5,6],[4,5,6]]), |
||||
Pn(Pwrand([5,6],[0.7,0.3]), 5) |
||||
], inf), |
||||
|
||||
legato: Pseq([4, Pn(Prand((2..5)*0.2),5)],inf), |
||||
cutoff: Prand((1..4),inf) * |
||||
Pseg([50, 1000, 1000, 50, 10], [60, 60, 30, 20], \cub), |
||||
amp: Pseg([0, 0.1, 0.1, 0.01, 0], [10, 120, 30, 10], \cub), |
||||
out: ~revBus, |
||||
pan: Prand((0..10)-5*0.1, inf) |
||||
]).play |
||||
|
||||
}} |
||||
) |
||||
|
||||
|
||||
// notes: |
||||
/* |
||||
// Db Eb Fb E# Gb Ab Bb Cb |
||||
// C C# D D# E F F# G G# A A# B C |
||||
// 0 1 2 3 4 5 6 7 8 9 10 11 12 |
||||
|
||||
// guitar strings |
||||
// E A D G B E |
||||
// -8 -3 2 7 11 16 |
||||
|
||||
// guitar strings |
||||
// E A D G B E |
||||
// -8, -3, 2, 7, 11, 16 |
||||
|
||||
// taken from Ichika Nito - Arpeggio |
||||
|
||||
-3, 2+11, 7+8, 11+9, 16, Rest(), // Dbm(add9)/A |
||||
-3, 2+10, 7+11, 11+12, 16, Rest(), // Am69 |
||||
-8+4, 2+4, 7+4, 11+4, 16 , Rest(), // EM9/Ab |
||||
-8+4, 2+4, 7+6, 11+4, 16 , Rest(), // Ab7sus4(-13( |
||||
|
||||
-8+2, 2+4, 7+2, 11+2, 16+4, Rest(), // Gbm(add9) |
||||
-8+4, 2+6, 7+5, 11+7, 16, Rest(), // Abaug7 |
||||
-8+9, 2+11, 7+8, 11+9, 16, Rest(), // Dbm(add9) |
||||
-8+7, 2+9, 7+8, 11+9, 16, Rest(), // EM7/B |
||||
-3, 2+11, 7+8, 11+9, 16, Rest(), // Dbm(add9)/A |
||||
-3, 2+10, 7+11, 11+12, 16+9, Rest(), // Gbsus4(+11)/A |
||||
-8+4, -3+6, 2+4, 7+4, 11+4, 16+4, // Abm7 |
||||
|
||||
*/ |
||||
|
Loading…
Reference in new issue