Move tons of stuff into oldstuff/

2020-06-04 09:54:59 -04:00
parent 49038bb8ef
commit aa1345b6ed
213 changed files with 0 additions and 12 deletions
--- a/oldstuff/sclang-play/tut/ch01.sc
+++ b/oldstuff/sclang-play/tut/ch01.sc
@@ -0,0 +1,121 @@
+(
+  s.boot;
+)
+
+(
+  2 + 2
+)
+
+(
+  "I am SuperCollider 3".speak
+)
+
+(
+  {
+    Pan2.ar(SinOsc.ar(440, 0, 0.1), 0.0)
+  }.play;
+)
+
+(
+  {
+    Pan2.ar(SinOsc.ar(MouseX.kr(440, 880), 0, 0.1), 0.0)
+  }.play;
+)
+
+(
+  {
+    var n = 11;
+
+    Resonz.ar(
+      Mix.fill(n, {
+        var freq = rrand(50, 560.3);
+        var numcps = rrand(2, 20);
+
+        Pan2.ar(
+          Gendy1.ar(
+            6.rand, 6.rand, 1.0.rand, 1.0.rand, freq, freq,
+            1.0.rand, 1.0.rand, numcps,
+            SinOsc.kr(exprand(0.02, 0.2), 0, numcps/2, numcps/2),
+            0.5/(n.sqrt)
+          ),
+          1.0.rand2
+        )
+      }),
+      MouseX.kr(100, 2000),
+      MouseY.kr(0.1, 1.0)
+    );
+  }.play
+)
+
+(
+  {
+    Pan2.ar(
+      SinOsc.ar(440, 0, 0.1),
+      0.0
+    )
+  }.play
+)
+
+(
+  {
+    SinOsc.ar(440, 0, 0.1) + Pulse.ar(443, 0.6, 0.05)
+  }.play;
+)
+
+(
+  if(4 == 4, {
+    if(3 == 3, {
+      "correct!".postln
+    });
+  });
+)
+
+(
+  2.postln;
+
+  Post << [2, 3, 4, 5] << nl;
+)
+
+(
+  var freq;
+  freq = rrand(300, 600);
+
+  {
+    SinOsc.ar(freq, 0, 0.1)
+  }.play;
+)
+
+// :boom:
+(
+  { SinOsc.ar(nil) }.play
+)
+
+// :boom:
+(
+  Array.series(9, 0, 1) + nil
+)
+
+(
+  "ls -l".unixCmd
+)
+
+(
+  var p, l, d = "";
+  p = Pipe.new("ls -l", "r");
+  l = p.getLine;
+  while(
+    { l.notNil },
+    {
+      d = d ++ l ++ "\n";
+      l = p.getLine;
+    }
+  );
+  p.close;
+
+  Post << d << nl;
+  d[0..20]
+)
+
+(
+  Array.browse
+)
--- a/oldstuff/sclang-play/tut/ch02.sc
+++ b/oldstuff/sclang-play/tut/ch02.sc
@@ -0,0 +1,496 @@
+(
+  s.boot;
+)
+
+(
+  FreqScope.new;
+)
+
+(
+  {
+    WhiteNoise.ar(0.1)
+  }.scope
+)
+
+(
+  {
+    LPF.ar(WhiteNoise.ar(0.1), 1000)
+  }.scope
+)
+
+(
+  {
+    HPF.ar(LPF.ar(WhiteNoise.ar(0.1), 1000), 1000)
+  }.scope
+)
+
+(
+  {
+    LPF.ar(WhiteNoise.ar(0.1), Line.kr(10000, 1000, 10))
+  }.scope
+)
+
+(
+  {
+    Resonz.ar(
+      LFNoise0.ar(400),
+      1000,
+      0.1
+    )
+  }.scope
+)
+
+(
+  {
+    Resonz.ar(
+      LFNoise0.ar(400),
+      Line.kr(10000, 1000, 10),
+      0.1
+    )
+  }.scope
+)
+
+(
+  {
+    var source, line, filter;
+
+    source = LFNoise0.ar(400);
+    line = Line.kr(10000, 1000, 10);
+    filter = Resonz.ar(source, line, 0.1);
+
+    filter
+  }.scope;
+)
+
+(
+  {
+    SinOsc.ar
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(400, 0, 0.1) + SinOsc.ar(660, 0, 0.1)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar([400, 660], 0, 0.1)
+  }.scope
+)
+
+(
+  {
+    Pan2.ar(
+      WhiteNoise.ar(0.1),
+      MouseX.kr(-1, 1)
+    )
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar([400], 0, 0.1)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(400, 0, 0.1)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar([400, 660, 870], 0, 0.1)
+  }.scope
+)
+
+(
+  {
+    Mix(
+      SinOsc.ar([400, 660], 0, 0.1)
+    )
+  }.scope
+)
+
+(
+  {
+    Pan2.ar(
+      Mix(
+        SinOsc.ar([400, 660], 0, 0.1)
+      ),
+      MouseX.kr(-1, 1)
+    )
+  }.scope
+)
+
+// sawtooth wave
+(
+  {
+    var n = 10;
+    var wave = Mix.fill(10, { |i|
+      var mult = ((-1) ** i) * (0.5 / ((i + 1)));
+      SinOsc.ar(440 * (i + 1)) * mult
+    });
+
+    Pan2.ar(wave / n, 0.0);
+  }.scope
+)
+
+// square wave
+(
+  {
+    var n = 10;
+    var wave = Mix.fill(10, { |i|
+      var harmonicnumber = 2 * i + 1;
+      SinOsc.ar(440 * harmonicnumber) / harmonicnumber
+    }) * 0.25;
+
+    Pan2.ar(wave, 0.0);
+  }.scope
+)
+
+// triangle wave
+(
+  {
+    var n = 10;
+    var wave = Mix.fill(10, { |i|
+      var harmonicnumber = 2 * i + 1;
+      var mult = ((-1) ** ((harmonicnumber - 1)/2)) * (1.0/(harmonicnumber*harmonicnumber));
+      SinOsc.ar(440 * i) * mult
+    })/n;
+
+    Pan2.ar(wave, 0.0);
+  }.scope
+)
+
+(
+  {
+    Mix(
+      SinOsc.ar(500 * [0.5, 1, 1.19, 1.56, 2.51, 2.66, 3.01, 4.1], 0, 0.1)
+    )
+  }.scope
+)
+
+(
+  {
+    Mix(
+      SinOsc.ar(
+        500 * [0.5, 1, 1.19, 1.56, 2.51, 2.66, 3.01, 4.1],
+        0,
+        0.1 * [0.25, 1, 0.8, 0.5, 0.9, 0.4, 0.3, 0.6, 0.1]
+      )
+    )
+  }.scope
+)
+
+(
+  var n = 10;
+
+  {
+    Mix(SinOsc.ar(250 * (1..n), 0, 1/n))
+  }.scope
+)
+
+// 2.2
+
+(
+  {
+    SinOsc.ar(mul: 0.1)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(mul: 2.0)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(mul: 0.1)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(
+      mul: MouseY.kr(1.0, 0.1)
+    )
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(
+      mul: 0.1, add: MouseY.kr(0.9, -0.9)
+    )
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(
+      mul: MouseX.kr(0.1, 1.0),
+      add: MouseY.kr(0.9, -0.9)
+    )
+  }.scope
+)
+
+(
+  {
+    var cutoff = SinOsc.ar(
+      1,
+      mul: MouseX.kr(0.0, 1700.0),
+      add: 2000.0
+    );
+
+    LPF.ar(
+      WhiteNoise.ar,
+      freq: cutoff
+    );
+  }.scope
+)
+
+(
+  {
+    0.1 * SinOsc.ar
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(mul: 0.1)
+  }.scope
+)
+
+(
+  {
+    0.1 * SinOsc.ar + 0.5
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(mul: 0.1, add: 0.5)
+  }.scope
+)
+
+(
+  {
+    var cutoff = SinOsc.ar(1) * 1700.0 + 2000.0;
+    LPF.ar(WhiteNoise.ar, freq: cutoff)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(440, 0.0, 0.1, 0.0)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(MouseX.kr(440, 880), 0.0, 0.1, 0.0)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(MouseX.kr(440, 880), mul: 0.1)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(440, mul: -20.dbamp)
+  }.scope
+)
+
+(
+  {
+    SinOsc.ar(
+      40 * SinOsc.ar(MouseX.kr(1, 20)) + 440,
+      0,
+      0.1
+    )
+  }.scope
+)
+
+(
+  a = {
+    SinOsc.ar(440) * 0.1
+  }.play;
+)
+
+(
+  a.run(false);
+)
+
+(
+  a.run;
+)
+
+(
+  a.free;
+)
+
+(
+  a = {
+    arg freq=440;
+    SinOsc.ar(freq) * 0.1
+  }.play
+)
+
+(
+  a = {
+    arg freq=440, amp=0.1;
+    SinOsc.ar(freq) * amp;
+  }.play
+)
+
+(
+  a.set(\freq, rrand(220, 440), \amp, rrand(0.05, 0.2));
+)
+
+(
+  {
+    var carrier, modulator, carrfreq, modfreq;
+
+    carrfreq = MouseX.kr(440, 5000, 'exponential');
+    modfreq = MouseY.kr(1, 5000, 'exponential');
+
+    carrier = SinOsc.ar(carrfreq, 0, 0.5);
+    modulator = SinOsc.ar(modfreq, 0, 0.5);
+
+    carrier * modulator;
+  }.scope
+)
+
+(
+  { SinOsc.ar(440, 0, 0.5) }.scope
+)
+
+(
+  { SinOsc.ar(440, 0, 0.5, 0.5) }.scope
+)
+
+(
+  {
+    var carrier, modulator, carrfreq, modfreq;
+
+    carrfreq = MouseX.kr(440, 5000, 'exponential');
+    modfreq = MouseY.kr(1, 5000, 'exponential');
+
+    carrier = SinOsc.ar(carrfreq, 0, 0.5);
+    modulator = SinOsc.ar(modfreq, 0, 0.25, 0.25);
+
+    carrier * modulator;
+  }.scope
+)
+
+(
+  var w, carrfreqslider, modfreqslider, moddepthslider, synth;
+
+  w = Window("frequency modulation", Rect(100, 400, 400, 300));
+  w.view.decorator = FlowLayout(w.view.bounds);
+
+  synth = {
+    arg carrfreq=440, modfreq=1, moddepth=0.1;
+    SinOsc.ar(carrfreq + (moddepth * SinOsc.ar(modfreq)), 0, 0.25)
+  }.scope;
+
+  carrfreqslider = EZSlider(
+    w, 300@50, "carrfreq",
+    ControlSpec(20, 5000, 'exponential', 10, 440),
+    { |ez| synth.set(\carrfreq, ez.value) }
+  );
+  w.view.decorator.nextLine;
+
+  modfreqslider = EZSlider(
+    w, 300@50, "modfreq",
+    ControlSpec(1, 5000, 'exponential', 1, 1),
+    { |ez| synth.set(\modfreq, ez.value) }
+  );
+  w.view.decorator.nextLine;
+
+  moddepthslider = EZSlider(
+    w, 300@50, "moddepth",
+    ControlSpec(0.01, 5000, 'exponential', 0.01, 0.01),
+    { |ez| synth.set(\moddepth, ez.value) }
+  );
+
+  w.front;
+)
+
+// 2.5
+
+(
+  {
+    Mix(Saw.ar([440, 443, 437], 0.1))
+  }.scope
+)
+
+(
+  {
+    Mix(
+      Resonz.ar(
+        Saw.ar([440, 443, 437] + SinOsc.ar(100, 0, 100)),
+        XLine.kr(10000, 10, 10),
+        Line.kr(1, 0.05, 10),
+        mul: LFSaw.kr(
+          Line.kr(3, 17, 3), 0, 0.5, 0.5
+        ) * Line.kr(1, 0, 10)
+      )
+    )
+  }.scope
+)
+
+(
+  b = Buffer.read(s, Platform.resourceDir +/+ "sounds/a11wlk01.wav");
+)
+
+(
+  {
+    var modfreq, modindex, modulator;
+
+    modfreq = MouseX.kr(1, 4400, 'exponential');
+    modindex = MouseY.kr(0.0, 10.0, 'linear');
+
+    modulator = SinOsc.kr(modfreq, 0, modfreq * modindex, 440);
+
+    PlayBuf.ar(1, b, BufRateScale.kr(b) * (modulator/440), 1, 0, 1)
+  }.scope;
+)
+
+(
+  var numpartials, spectrum, amplitudes, modfreqs1, modfreqs2, decaytimes;
+
+  spectrum = [0.5, 1, 1.19, 1.56, 2, 2.51, 2.66, 3.01, 4.1];
+
+  amplitudes = [0.25, 1, 0.8, 0.5, 0.9, 0.4, 0.3, 0.6, 0.1];
+
+  numpartials = spectrum.size;
+
+  modfreqs1 = Array.rand(numpartials, 1, 5.0);
+
+  modfreqs2 = Array.rand(numpartials, 0.1, 3.0);
+
+  decaytimes = Array.fill(numpartials, { |i|
+    rrand(2.5, 2.5 + (5 * (1.0 - (1/numpartials))))
+  });
+
+  {
+    Mix.fill(spectrum.size, { arg i;
+      var amp, freq;
+
+      freq = (spectrum[i] + (SinOsc.kr(modfreqs1[i], 0, 0.005))) * 500;
+      amp = 0.1 * Line.kr(1, 0, decaytimes[i]) *
+                  (SinOsc.ar(modfreqs2[i], 0, 0.1, 0.9) * amplitudes[i]);
+
+      Pan2.ar(SinOsc.ar(freq, 0, amp), 1.0.rand2) }
+    )
+  }.scope
+)
--- a/oldstuff/sclang-play/tut/ch03.sc
+++ b/oldstuff/sclang-play/tut/ch03.sc
@@ -0,0 +1,300 @@
+(
+  s.boot;
+)
+
+(
+  FreqScope.new;
+)
+
+(
+  {SinOsc.ar(440, 0, 0.1)}.scope
+)
+
+(
+  {SinOsc.ar(440, 0, Line.kr(0.1, 0.0, 1.0))}.scope
+)
+
+(
+  {SinOsc.ar(440, 0, Line.kr(0.1, 0, 1, doneAction: 2))}.scope
+)
+
+(
+  Env([1, 0, 1], [1, 1]).plot
+)
+
+(
+  Env([0, 1, 0], [1.0, 0.5]).plot
+)
+
+(
+  Env.linen(0.03, 0.5, 0.1).plot
+)
+
+(
+  Env.adsr(0.01, 0.5, 0.5, 0.1, 1.0, 0).plot
+)
+
+(
+  Env.perc(0.05, 0.5, 1.0, 0).plot
+)
+
+(
+  Env([1, 0], [1.0]).plot
+)
+
+(
+  {EnvGen.ar(Env([1, 0], [1.0]))}.scope
+)
+
+(
+  {SinOsc.ar(440, 0, 0.1) * EnvGen.kr(Env([1, 0], [1.0]))}.scope
+)
+
+(
+  Env([1000, 20], [1.0]).plot
+)
+
+(
+  {Saw.ar(EnvGen.ar(Env([1000, 20], [1.0])), 0.1)}.scope
+)
+
+(
+  {
+    Saw.ar(
+      EnvGen.ar(Env([1000, 20], [0.5])),
+      EnvGen.ar(Env([0.1, 0], [2.0]))
+    )
+  }.scope
+)
+
+(
+  {
+    Saw.ar(
+      EnvGen.kr(Env([1000, 20], [0.5])),
+      EnvGen.kr(Env([0.1, 0], [2.0]))
+    )
+  }.play
+)
+
+(
+  {
+    SinOsc.ar(
+      SinOsc.ar(10, 0, 10, 440),
+      0.0,
+      EnvGen.kr(Env([0.5, 0.0], [1.0]), doneAction: 2)
+    )
+  }.scope
+)
+
+(
+  {
+    Saw.ar(
+      EnvGen.kr(Env([500, 100], [1.0]), doneAction: 2),
+      0.1
+    )
+  }.scope
+)
+
+(
+  {
+    Saw.ar(
+      SinOsc.ar(1, 0, 10, 440),
+      Line.kr(0, 1, 1, doneAction: 2)
+    )
+  }.scope
+)
+
+(
+  {
+    Saw.ar(
+      SinOsc.ar(1, 0, 10, 440),
+      XLine.kr(0.0001, 1, 1, doneAction: 2)
+    )
+  }.scope
+)
+
+(
+  {
+    EnvGen.ar(
+      Env([0, 0.1, 0], [0.1, 0.9]), doneAction: 2
+    ) * SinOsc.ar(330)
+  }.scope
+)
+
+(
+  a = {
+    EnvGen.ar(
+      Env.asr(0.1, 0.1, 1.0), doneAction: 2
+    ) * SinOsc.ar(330)
+  }.play
+)
+
+(
+  a.release(2.0);
+)
+
+(
+  a = {
+    arg gate=1;
+
+    EnvGen.ar(
+      Env.asr(0.1, 0.1, 0.9), gate, doneAction: 2
+    ) * SinOsc.ar(330)
+  }.play
+)
+
+(
+  a.set(\gate, 0)
+)
+
+(
+  e = Env([0.2, 1.0, 0.0], [0.1, 3.0], 0, 1);
+
+  a = {
+    arg gate=1;
+
+    EnvGen.ar(
+      e, gate, doneAction: 2
+    ) * SinOsc.ar(550, 0, 0.1)
+  }.play
+)
+
+(
+  a.set(\gate, 0);
+)
+
+(
+  e = Env([0.0, 0.0, 1.0, 0.0], [0.5, 1.0, 2.0], 0, 2, 0);
+
+  a = {
+    arg gate=1;
+
+    EnvGen.ar(
+      e, gate, doneAction: 2
+    ) * SinOsc.ar(550, 0, 0.1)
+  }.play
+)
+
+(
+  a.set(\gate, 0);
+)
+
+(
+  e = Env(
+    [0.0, 1.0, -1.0, 0.0],
+    [0.01, 0.01, 2.0],
+    0,
+    2, // releaseNode
+    0 // loopNode
+  );
+
+  e.plot;
+
+  a = {
+    arg gate=1;
+
+    EnvGen.ar(
+      e, gate, timeScale: MouseX.kr(0.1, 2.0), doneAction: 2
+    )
+  }.play
+)
+
+(
+  a.set(\gate, 0);
+)
+
+(
+  SynthDef(\sine,
+    {
+      Out.ar(
+        0, SinOsc.ar(
+          Rand(440, 880), 0, 0.1
+        )
+      )
+    }
+  ).add;
+)
+
+(
+  Synth(\sine);
+)
+
+(
+  a = Synth(\sine);
+  a.writeDefFile("synth.out");
+)
+
+(
+  SynthDef(\sine, {
+    arg freq=440, amp=0.1;
+    Out.ar(
+      0,
+      SinOsc.ar(freq, 0, amp)
+    )
+  }).add;
+)
+
+(
+  Synth("sine");
+  Synth("sine", [\freq, 880])
+)
+
+(
+  a = Synth(\sine);
+  b = Synth(\sine, [\freq, 550]);
+  c = Synth(\sine, [\freq, 660, \amp, 0.5]);
+)
+
+(
+  c.set(\freq, 1000);
+  b.set(\amp, 0.3, \freq, 100);
+)
+
+(
+  a.free;
+  b.free;
+  c.free;
+)
+
+(
+  SynthDef(\hum, {
+    arg freq=440;
+    var finaloutput = Mix(
+      [
+        SinOsc.ar(freq, 0, 0.3),
+        SinOsc.ar(freq*2, 0, 0.2),
+        SinOsc.ar(freq*3, 0, 0.1),
+        SinOsc.ar(freq*3.33, 0, 0.01),
+        SinOsc.ar(freq*4, 0, 0.1),
+        SinOsc.ar(freq*4.5, 0, 0.01),
+        SinOsc.ar(freq*4.75, 0, 0.02)
+      ]
+    );
+    Out.ar(0, finaloutput);
+  }).add;
+)
+
+(
+  Synth(\hum, [\freq, 220]);
+)
+
+(
+  Synth(\hum, [\freq, 880]);
+)
+
+(
+  Synth(\hum, [\freq, 440]);
+)
+
+(
+  SynthDescLib.global.synthDescs[\sine].def.func.postcs
+)
+
+(
+  SynthDescLib.global.synthDescs.do { |desc|
+    if(desc.def.notNil) {
+      "\nSynthDef %\n".postf(desc.name.asCompileString);
+      desc.def.func.postcs;
+    };
+  }
+)