box-o-sand/sclang-play/tutorial.sc

(
  s.boot;
)

(
  s.reboot;
)

(
  s.quit;
)

(
  s.scope;
)

(
  {
    var pitchOsc;
    var ampOsc;
    pitchOsc = { 300 + SinOsc.kr(0.1, 1.5pi, 20, 20); };
    ampOsc = SinOsc.kr(0.5, 1.5pi, 1.0, 1.0);
    SinOsc.ar([pitchOsc, pitchOsc], 0, ampOsc);
  }.play;
)

(
  { [SinOsc.ar(440, 0, 0.2), SinOsc.ar(442, 0, 0.2)] }.play;
)

(
  {
    var freq;
    freq = [[600, 880], [400, 660], 1320, 880].choose;
    SinOsc.ar(freq, 0, 0.2);
  }.play;
)

(
  {
    Pan2.ar(PinkNoise.ar(0.2), SinOsc.kr(0.5));
  }.play;
)

(
  {
    Pan2.ar(SinOsc.ar(440, 0, 0.2), SinOsc.kr(0.5));
  }.play;
)

(
  {
    Pan2.ar(PinkNoise.ar(0.2), -0.3);
  }.play;
)

(
  {
    PinkNoise.ar(0.2) + SinOsc.ar([440, 442], 0, 0.2) + Saw.ar([660, 662], 0.2);
  }.play;
)

(
  {
    var a, b;
    a = [
      SinOsc.ar(440, 0, 0.2),
      Saw.ar(662, 0.2)
    ];
    b = [
      SinOsc.ar(442, 0, 0.2),
      Saw.ar(660, 0.2)
    ];

    Mix([a, b]).postln;
  }.play;
)

(
  var n = 8;
  {
    Mix.fill(n, { SinOsc.ar([220, 500 + 500.0.rand], 0, 1 / n) });
  }.play;
)

(
  var n = 8;
  {
    Mix.fill(n, { |index|
      var freq;
      index.postln;
      freq = 440 + index;
      freq.postln;
      SinOsc.ar(freq, 0, 1 / n)
    });
  }.play;
)

(
  {
    PinkNoise.ar(0.2) + SinOsc.ar(440, 0, 0.2) + Saw.ar(660, 0.2)
  }.plot;
)

(
  {
    PinkNoise.ar(0.2) + SinOsc.ar(440, 0, 0.2) + Saw.ar(660, 0.2)
  }.plot(1);
)

(
  {
    PinkNoise.ar(0.2) + SinOsc.ar(440, 0, 0.2) + Saw.ar(660, 0.2)
  }.scope;
)

(
  {
    [
      SinOsc.ar(440, 0, 0.2),
      SinOsc.ar(442, 0, 0.2)
    ]
  }.scope;
)

(
  {
    [
      SinOsc.ar(440, 0, 0.2),
      SinOsc.ar(442, 0, 0.2)
    ]
  }.scope(zoom: 10);
)

(
  SynthDef.new(
    "tutorial-SinOsc",
    {
      Out.ar(0, SinOsc.ar(440, 0, 0.2))
    }
  ).play;
)

(
  SynthDef.new(
    "tutorial-SinOsc-stereo",
    {
      var outArray;
      outArray = [
        SinOsc.ar(440, 0, 0.2),
        SinOsc.ar(442, 0, 0.2)
      ];
      Out.ar(0, outArray)
    }
  ).play;
)

(
  x = { SinOsc.ar(660, 0, 0.2) }.play;
  y = SynthDef.new(
    "tutorial-SinOsc",
    {
      Out.ar(0, SinOsc.ar(440, 0, 0.2))
    }
  ).play;
)

(
  x.free;
  y.free;
)


(
  SynthDef.new(
    "tutorial-PinkNoise",
    {
      Out.ar(0, PinkNoise.ar(0.3))
    }
  ).add;

  x = Synth.new("tutorial-PinkNoise");
  y = Synth.new("tutorial-PinkNoise");
)

(
  f = {
    SinOsc.ar(440 + 200.rand, 0, 0.2)
  };
  x = f.play;
  y = f.play;
  z = f.play;
)

(
  SynthDef(
    "tutorial-NoRand",
    {
      Out.ar(0, SinOsc.ar(440 + 200.rand, 0, 0.2))
    }
  ).add;
  x = Synth("tutorial-NoRand");
  y = Synth("tutorial-NoRand");
  z = Synth("tutorial-NoRand");
)

(
  SynthDef(
    "tutorial-Rand",
    {
      Out.ar(0, SinOsc.ar(Rand(440, 660), 0, 0.2))
    }
  ).add;
  x = Synth("tutorial-Rand");
  y = Synth("tutorial-Rand");
  z = Synth("tutorial-Rand");
)

(
  SynthDef(
    "tutorial-args",
    {
      |freq = 440, out = 0|
      Out.ar(out, SinOsc.ar(freq, 0, 0.2))
    }
  ).add;
  Task({
    x = Synth("tutorial-args");
    1.wait;
    y = Synth("tutorial-args", ["freq", 660]);
    1.wait;
    z = Synth("tutorial-args", ["freq", 880, "out", 1]);
    1.wait;
    //x.free; y.free; z.free;
  }).play;
)

(
  SynthDef.new(
    \tutorialargs,
    {
      |freq = 440, out = 0|
      Out.ar(out, SinOsc.ar(freq, 0, 0.2));
    }
  ).add;
  Task({
    x = Synth(\tutorialargs);
    1.wait;
    x.set(\freq, 660);
    1.wait;
    x.set(\freq, 880, \out, 1);
    1.wait;
    //x.free;
  }).play;
)

(
  In.ar(0, 1);
  In.ar(0, 4);
)

(
  {
    Out.ar(0, SinOsc.kr)
  }.play;
)

(
  {
    Out.kr(0, SinOsc.ar)
  }.scope;
)

(
  SynthDef(
    "tutorial-args",
    {
      |freq = 440, out = 0|
      Out.ar(out, SinOsc.ar(freq, 0, 0.2));
    }
  ).add;

  x = Synth("tutorial-args", ["out", 1, "freq", 660]);
  y = Synth("tutorial-args", ["out", 1, "freq", 770]);
)

(
  b = Bus.control(s, 2);
  c = Bus.audio(s);
)

(
  b = Bus.control(s, 2);
  b.index.postln;
  b.numChannels.postln;

  c = Bus.control(s);
  c.index.postln;
  c.numChannels.postln;
)

(
  SynthDef(
    "tutorial-Infreq",
    {
      |bus, freqOffset = 0|
      Out.ar(0, SinOsc.ar(In.kr(bus) + freqOffset, 0, 0.5));
    }
  ).add;

  SynthDef(
    "tutorial-Outfreq",
    {
      |freq = 400, bus|
      Out.kr(bus, SinOsc.kr(1, 0, freq/40, freq));
    }
  ).add;

  b = Bus.control(s, 1);

  x = Synth("tutorial-Outfreq", [\bus, b]);
  y = Synth.after(x, "tutorial-Infreq", [\bus, b]);
  z = Synth.after(x, "tutorial-Infreq", [\bus, b, \freqOffset, 200]);
)

(
  SynthDef(
    "tutorial-DecayPink",
    {
      |outBus = 0, effectBus, direct = 0.5|
      var source;
      source = Decay2.ar(Impulse.ar(1, 0.25), 0.01, 0.2, PinkNoise.ar);
      Out.ar(outBus, source * direct);
      Out.ar(effectBus, source * (1 - direct));
    }
  ).add;

  SynthDef(
    "tutorial-DecaySin",
    {
      |outBus = 0, effectBus, direct = 0.5|
      var source;
      source = Decay2.ar(
        Impulse.ar(1, 0.25),
        0.3,
        1,
        SinOsc.ar(
          SinOsc.kr(0.2, 0, 110, 440)
        )
      );

      Out.ar(outBus, source * direct);
      Out.ar(effectBus, source * (1 - direct));
    }
  ).add;

  SynthDef(
    "tutorial-Reverb",
    {
      |outBus = 0, inBus|
      var input;

      input = In.ar(inBus, 1);

      16.do({
        input = AllpassC.ar(
          input,
          0.04,
          {
            Rand(0.001, 0.04);
          }.dup,
          3
        )
      });

      Out.ar(outBus, input);
    }
  ).add;

  b = Bus.audio(s, 1);

  x = Synth("tutorial-Reverb", [\inBus, b]);
  y = Synth.before(x, "tutorial-DecayPink", [\effectBus, b]);
  z = Synth.before(x, "tutorial-DecaySin", [\effectBus, b, \outBus, 1]);

  y.set(\direct, 1);
  z.set(\direct, 1);
  y.set(\direct, 0);
  z.set(\direct, 0);
)

(
  b = Bus.control(s, 1);
  b.set(880);

  c = Bus.control(s, 1);
  c.set(884);

  x = SynthDef(
    "tutorial-map",
    {
      |freq1 = 440, freq2 = 440|
      Out.ar(0, SinOsc.ar([freq1, freq2], 0, 0.2));
    }
  ).play(s);

  // x.map(\freq1, b, \freq2, c);

  /*
  y = {
    Out.kr(b, SinOsc.kr(1, 0, 50, 880));
  }.play(addAction: \addToHead);
  */

  // y.free;

  // b.get({ |val| val.postln; f = val; });

  // x.set(\freq2, f / 2);

  // c.set(200);

  // x.free;
  // b.free;
  // c.free;
)

(
  SynthDef(
    \tutorial_DecaySin2,
    {
      |outBus = 0, effectBus, direct = 0.5, freq = 440|
      var source;
      source = Pan2.ar(
        Decay2.ar(
          Impulse.ar(
            Rand(0.3, 1),
            0,
            0.125
          ),
          0.3,
          1,
          SinOsc.ar(
            SinOsc.kr(0.2, 0, 110, freq)
          )
        ),
        Rand(-1.0, 1.0)
      );
      Out.ar(outBus, source * direct);
      Out.ar(effectBus, source * (1 - direct));
    }
  ).add;

  SynthDef(
    \tutorial_Reverb2,
    {
      |outBus = 0, inBus|
      var input;
      input = In.ar(inBus, 2);
      16.do({
        input = AllpassC.ar(input, 0.04, Rand(0.001, 0.04), 3)
      });
      Out.ar(outBus, input);
    }
  ).add;

  ~sources = Group.new;
  ~effects = Group.after(~sources);
  ~bus = Bus.audio(s, 2);

  x = Synth(
    \tutorial_Reverb2,
    [\inBus, b],
    ~effects
  );

  y = Synth(
    \tutorial_DecaySin2,
    [\effectBus, ~bus, \outBus, 0],
    ~sources
  );

  z = Synth(
    \tutorial_DecaySin2,
    [\effectBus, ~bus, \outBus, 0, \freq, 660],
    ~sources
  );

  /*
  ~sources.free;
  ~effects.free;
  ~bus.free;

  currentEnvironment.clear;
  */
)

(
  g = Group.new;
  h = Group.head(g);
  x = Synth.tail(h, \default);
  s.queryAllNodes;
)

(
  Server.default.boot;
  a = Synth.new(\default);
  a.group;
)

(
  {
    SinOsc.ar(mul: 0.2)
  }.scope(1);

  s.queryAllNodes;
)

(
  g = Group.new;

  4.do({
    {
      |amp = 0.1|
      Pan2.ar(
        SinOsc.ar(440 + 110.rand, 0, amp),
        1.0.rand2
      )
    }.play(g);
  });

  g.set(\amp, 0.005);
  // g.free;
)

(
  "--- haaaay ---".postln;
  Group.superclass.postln;
  // Group.superclass.help;
  Group.findRespondingMethodFor('set').postln;
  Group.findRespondingMethodFor('postln').postln;
  // Group.findHelpForMethod('postln');
)