lvm

// https://soundcloud.com/1vm/sc-170424-234237
// also clone this: http://github.com/lvm/BALC

(
~revBus = Bus.audio(s, 2);
~wahBus = Bus.audio(s, 2);
)

(
Pdef(\k,

lvm

TempoClock.default.tempo_(120/60);

b = Buffer.alloc(s,44100);

(
~samplesDir = thisProcess.nowExecutingPath.dirname ++ "/samples";
~samples = Array.fill(32, {
  |i, str|
  str=(~samplesDir++"/amen/"++(i)++".wav".asString);
  str;

lvm

~chan = Array.fill(9, { Bus.audio(s, 2) });

(
Ndef(\x, {
	var level = 2;
	var distortion = 5;
	var reverbFeedback = 0.1;
	var all = ~chan.collect { |each| InBus.ar(each, each.numChannels) };
	var mix = all.sum { |x|
		var d = { 0.01.rand } ! x.size;

lvm

cps 0.5

solo $
do
  let bassPats =
        do ae <- iter 2 $ listToPat [toScale Scales.hexAeolian, toScale Scales.aeolian];
           ur 8 "0 1 2 0" [
             n "0(16,16)"
             # n (ae "[c f c d] [f e e d] [c a f e] [b a b e]"),
             n "0(9,16)"

lvm

// to install BALCQuark:
// Quarks.install("http://github.com/lvm/BALCQuark")

BALC.init("superdirt");
BALC.loadSynthDefs("superdirt");

lvm

Installation

1. put foxdot-cli.py in the same directory as the FoxDot installaton (in case you're using virtualenv, otherwise comment from lines 5 to 7)
2. copy foxdot-mode.el to ~/.emacs.d/lisp
3. add (defvar foxdot-cli-path "/path/to/foxdot-cli/") in your ~/.emacs file
4. in Emacs M-x load-library and complete with foxdot-mode
5. Type C-c C-f or M-x foxdot-start to start
6. Type C-c C-e or M-x foxdot-execute to evaluate a line or a block of code

lvm

//Quarks.install("https://github.com/Qirky/FoxDotQuark.git")
FoxDot.start

(
SynthDef.new(\kick, {|out=0, freq=0, afreq=180, attack=0.001, sus=0.125, amp=1, pan=0|
  var osc = SinOsc.ar(freq * XLine.ar(0.5, 0.125, 0.0125));
  var env = EnvGen.ar(Env.perc(attack, sus), doneAction:0);
  osc = osc*env;
  osc = osc * [min(1, (1-pan)/2), min(1, (pan+1)/2)];
  Out.ar(out, osc*amp);

lvm

cps 0.5

solo $ 
do
  let runnow d p = do now <- getNow
                      d $ (nextSam now) ~> p
      adsr = grp [attack_p, decay_p, sustain_p, release_p]
      hctf = (# hcutoff "100") 
      sctf = (# cutoff (scale 400 1500 (slow 16 $ sine1)))

lvm

cps 0.45

solo $
do
  let runnow d p = do now <- getNow
                      d $ (nextSam now) ~> p
      oneshot d p = runnow d $ seqP [(0, 1, p)]
      mute = const silence
      hctf = (# hcutoff "100")
      habi r s o = (# room r) . (# size s) . (# orbit o)

lvm

cps 0.45

do
  let runnow d p = do now <- getNow
                      d $ (nextSam now) ~> p
      oneshot d p = runnow d $ seqP [(0, 1, p)]
      hctf = (# hcutoff "100")
      tS s' = toScale s'
      habi r s o = (# room r) . (# size s) . (# orbit o)
  runnow d4 $