progress

.gitmodules

@@ -0,0 +1,3 @@
+[submodule "Musical-Design-in-Supercollider"]
+	path = Musical-Design-in-Supercollider
+	url = https://github.com/alikthename/Musical-Design-in-Supercollider

Musical-Design-in-Supercollider

@@ -0,0 +1 @@
+Subproject commit 038bfe78162b1ae84221bea1b2de7c64543762e6

design/wind.scd

@@ -0,0 +1,19 @@
+// Wind
+
+{LPF.ar(Latoocarfian2DC.ar(SampleRate.ir/4, 1000, 20, 0.01, 0.4, 0.4, 1, 1), 800)!2}.play;
+
+// Phone
+
+{LPF.ar(Latoocarfian2DC.ar(SampleRate.ir/4, 8, 1, 4 + Line.kr(0.0, 0.01), 0.4, 0.4, 1, 1), 200)!2}.play;
+
+// Currents
+
+{LPF.ar(Latoocarfian2DC.ar(SampleRate.ir/4, 0.1, 1, 1, 0.1, 8, 10, 0.1), 200 + SinOsc.ar(20.0))!2}.play;
+
+// Falling Down Stairs (repeat x3)
+
+{Out.ar(0,0.5*DoubleNestedAllpassN.ar(SpruceBudworm.ar(Impulse.kr(20), rate: 0.1, k1:27.9))!2)}.play
+
+// Jesus Christ this sound made it feel like I was dying for a phenomenological eternity
+
+{Out.ar(0,0.5*DoubleNestedAllpassN.ar(SpruceBudworm.ar(Impulse.kr(40), rate: 0.1, k1:27.9, k2:1.5, alpha:6), 0.0047, 0.01))}.play

foot_disc.scd

@@ -0,0 +1,18 @@
+b = Buffer.read(s, "/Users/lcoogan/snd/releases/desolation.mountain/foot_disc.wav");
+b = Buffer.read(s, "/Users/lcoogan/Music/SuperCollider Recordings/SC_250817_220452.wav");
+
+(
+SynthDef(\help_PlayBuf, { |out = 0, bufnum = 0|
+	var sig = PlayBuf.ar(1, bufnum, BufRateScale.kr(bufnum)*0.5 + Impulse.ar(20), loop: 1.0);
+	sig = AllpassN.ar(sig, 0.01, 0.5, 2.0);
+	sig = DoubleNestedAllpassN.ar(sig, 0.1, 0.1, 0.15, 0.1, 0.4, 0.25, 0.001, 0.01, 0.8);
+	sig = BPF.ar(sig, 800 + SinOsc.ar(20, 1.0 + SinOsc.ar(10)), 1.0);
+	sig = CombFormlet.ar(sig, 20 + SinOsc.ar(1, 2);, 0.1, 0.5, 1.0, 0.0, 20);
+	sig = DelayN.ar(sig, 0.5, 0.01);
+	// sig = GrainBuf.ar(1, Impulse.ar(2), 2, sig, 1, 0.03 + SinOsc.ar(0.1), 2, 0, -1, 512);
+	// sig = GrainBuf.ar(numChannels:1, trigger:Impulse.ar(1), dur:1, sndbuf:sig, rate:0.4, pos:0 + SinOsc.ar(0.1, 0.0 + SinOsc.ar(10)), interp:2, maxGrains:256);
+	// sig = Feedback.ar(sig, 0.01, 0.001, -1);
+	Out.ar(out, sig!2);
+}).play(s, [\out, 0, \bufnum, b]);
+)
+