rzewski improv at machine

120729_machine/_x.scd

@@ -1,5 +1,5 @@
 ~basepath = "/Users/e/scm/cotccm/120729_machine/";
- x = { |p| this.executeFile(~basepath++p); };
+x = { |p| this.executeFile(~basepath++p); };
 
 s = Server.default;
 

120823_machine/.emacs.desktop

@@ -0,0 +1,62 @@
+;; -*- mode: emacs-lisp; coding: emacs-mule; -*-
+;; --------------------------------------------------------------------------
+;; Desktop File for Emacs
+;; --------------------------------------------------------------------------
+;; Created Wed Aug 22 23:37:43 2012
+;; Desktop file format version 206
+;; Emacs version 23.3.1
+
+;; Global section:
+(setq desktop-missing-file-warning nil)
+(setq tags-file-name nil)
+(setq tags-table-list nil)
+(setq search-ring nil)
+(setq regexp-search-ring nil)
+(setq register-alist nil)
+(setq file-name-history '("~/sc/pad.scd" "~/.sclang.sc" "~/.sclang.sc~" "~/sc/guit.scd" "test"))
+
+;; Buffer section -- buffers listed in same order as in buffer list:
+(desktop-create-buffer 206
+  "/home/emb/.sclang.sc"
+  ".sclang.sc"
+  'sclang-mode
+  nil
+  569
+  '(545 nil)
+  nil
+  nil
+  '((tab-width . 4) (indent-tabs-mode . t) (buffer-file-coding-system . undecided-unix)))
+
+(desktop-create-buffer 206
+  "/home/emb/sc/pad.scd"
+  "pad.scd"
+  'sclang-mode
+  nil
+  1
+  '(nil nil)
+  nil
+  nil
+  '((tab-width . 4) (indent-tabs-mode . t) (buffer-file-coding-system . undecided-unix)))
+
+(desktop-create-buffer 206
+  "/home/emb/sc/guit.scd"
+  "guit.scd"
+  'sclang-mode
+  nil
+  1193
+  '(1152 nil)
+  nil
+  nil
+  '((tab-width . 4) (indent-tabs-mode . t) (buffer-file-coding-system . undecided-unix)))
+
+(desktop-create-buffer 206
+  "/home/emb/sc/cotccm/120823_machine/x.scd"
+  "x.scd"
+  'sclang-mode
+  nil
+  1
+  '(nil nil)
+  nil
+  nil
+  '((tab-width . 4) (indent-tabs-mode . t) (buffer-file-coding-system . undecided-unix)))
+

120823_machine/_defs.scd

@@ -0,0 +1,219 @@
+SynthDef.new(\adc, {arg in=0, out=0, amp=1, amplag = 0.01;
+	var sig;
+	amp = Lag.kr(amp, amplag);
+	sig = SoundIn.ar(in);
+	Out.ar(out, sig * amp);
+}).send(s);
+
+SynthDef.new(\rec, {
+	arg in=0, buf=0,
+		reclevel=1.0, prelevel=0.0, offset=0.0, trig=1.0, loop=0, run=1,
+		atk=0.01, rel=0.01, gate=1;
+
+	RecordBuf.ar(In.ar(in, 1),
+		bufnum: buf, 
+		offset:0,
+		recLevel:reclevel,
+		preLevel:prelevel,
+		run:run,
+		loop:loop,
+		trigger:trig
+	);
+}).send(s);
+
+
+SynthDef.new(\rec_loop, {
+	arg in=0, buf=0,
+		reclevel=1.0, prelevel=0.0, offset=0.0, loop=0, run=1,
+		atk=0.01, rel=0.01, gate=1,
+		looptime=2.0;
+	var trig;
+	trig = Impulse.ar(1.0/looptime);
+	RecordBuf.ar(In.ar(in, 1),
+		bufnum: buf, 
+		offset:0,
+		recLevel:reclevel,
+		preLevel:prelevel,
+		run:run,
+		loop:loop,
+		trigger:trig
+	);
+}).send(s);
+
+SynthDef.new(\play, {arg out=0, buf=0, trig=0, pos=0.0, rate=1.0, loop=0, atk=0.01, rel=0.01, gate=1, doneaction=2;
+	var sig, amp, env;
+	env = Env.asr(atk, 1.0, rel);
+	amp = EnvGen.ar(env, gate, doneAction:doneaction);
+	sig = PlayBuf.ar(1, buf, rate, trig, pos, loop:loop);
+	Out.ar(out, sig * amp);
+}).send(s);
+
+
+SynthDef.new(\play_loop, {
+	arg out=0, buf=0, level=1.0,
+	pos=0.0, rate=1.0, loop=0,
+	atk=0.01, dur=10.0, rel=0.01, gate=1, doneaction=2,
+	looptime=2.0;
+	var sig, amp, env, trig;
+	env = Env.asr(atk, 1.0, rel);
+	amp = EnvGen.ar(env, gate, doneAction:doneaction);
+	trig = Impulse.kr(1.0 / looptime);
+	sig = PlayBuf.ar(1, buf, rate, trig, pos, loop:loop);
+	Out.ar(out, sig * amp * level);
+}).send(s);
+
+
+SynthDef.new(\chopgrain, {
+	arg buf, out=0, level=1.0,
+	rate=1.0, choprate=1.0, posrate=0.25,
+	atk=1.0, rel=1.0, gate=1,
+	minframes=0, maxframes=44100;
+
+	var ampenv, pos, trig, phase, read,
+	sr, frames, ratescale, framediff;
+
+	sr = SampleRate.ir;
+	frames = BufFrames.kr(buf);
+	ratescale = BufRateScale.kr(buf);
+	framediff = maxframes - minframes;
+
+	ampenv = EnvGen.ar(Env.asr(atk, 1.0, rel), gate:gate, doneAction:2);
+
+	trig = Impulse.ar(choprate);
+
+	pos = LFSaw.kr(posrate / framediff * sr, 0, framediff, minframes).wrap(minframes, maxframes - (sr / choprate));
+	read = PlayBuf.ar(1, buf, rate, trig, pos, loop:1);
+
+	Out.ar(out, read * ampenv * level);
+}).send(s);
+
+
+SynthDef.new(\chopgrain_1shot, {
+	arg buf, out=0, level=1.0,
+	rate=1.0, choprate=1.0, posrate=0.25,
+	atk=1.0, rel=1.0, gate=1,
+	minframes=0, maxframes=44100,
+	dur=4.0, posphase=0.0;
+
+	var ampenv, pos, trig, phase, read,
+	sr, frames, ratescale, framediff;
+
+	sr = SampleRate.ir;
+	frames = BufFrames.kr(buf);
+	ratescale = BufRateScale.kr(buf);
+	framediff = maxframes - minframes;
+
+	ampenv = EnvGen.ar(Env.linen(atk, dur, rel), gate:gate, doneAction:2);
+
+	trig = Impulse.ar(choprate);
+
+	pos = LFSaw.kr(posrate / framediff * sr, posphase, framediff, minframes).wrap(minframes, maxframes - (sr / choprate));
+	read = PlayBuf.ar(1, buf, rate, trig, pos, loop:1);
+
+	Out.ar(out, (read * ampenv * level * 0.6).dup);
+}).send(s);
+
+
+SynthDef.new(\chopgrain_1shot_rez_dist, {
+	arg buf, out=0, level=1.0,
+	hz=(440 * 8/9), rq=0.4,
+	rate=1.0, choprate=1.0, posrate=0.25,
+	atk=1.0, rel=1.0, gate=1,
+	minframes=0, maxframes=44100,
+	dur=4.0, posphase=0.0, insideout=0.0;
+
+	var ampenv, pos, trig, phase, read,
+	sr, frames, ratescale, framediff;
+
+	sr = SampleRate.ir;
+	frames = BufFrames.kr(buf);
+	ratescale = BufRateScale.kr(buf);
+	framediff = maxframes - minframes;
+
+	ampenv = EnvGen.ar(Env.linen(atk, dur, rel), gate:gate, doneAction:2);
+
+	trig = Impulse.ar(choprate);
+
+	pos = LFSaw.kr(posrate / framediff * sr, posphase, framediff, minframes).wrap(minframes, maxframes - (sr / choprate));
+	read = PlayBuf.ar(1, buf, rate, trig, pos, loop:1);
+
+	//	read = read + InsideOut.ar(read, insideout);
+
+	//	read = Resonz.ar(read, hz, rq);
+
+	Out.ar(out, (read * ampenv * level * 0.6).dup);
+}).send(s);
+
+
+
+SynthDef.new(\grain_1shot_rez_dist, {
+	arg buf, out=0, level=1.0,
+	hz=(440 * 8/9), rq=0.4, rezmix=1.0,
+	rate=1.0, pos=0.0,
+	atk=1.0, rel=1.0, gate=1,
+	minframes=0, maxframes=44100,
+	dur=4.0, insideout=0.0,
+	trigrate = 1;
+
+	var ampenv, trig, phase, read,
+	sr, frames, ratescale, framediff;
+
+	sr = SampleRate.ir;
+	frames = BufFrames.kr(buf);
+	ratescale = BufRateScale.kr(buf);
+	framediff = maxframes - minframes;
+
+	trig = LFPulse.ar(trigrate);
+
+	ampenv = EnvGen.ar(Env.linen(atk, dur, rel), gate:gate, doneAction:2);
+	read = PlayBuf.ar(1, buf, rate, trig, pos, loop:0);
+	//	read = read + InsideOut.ar(read, insideout);
+	//	read = Resonz.ar(read, hz, rq) * rezmix;
+//	read = BPF.ar(read, hz, rq) * rezmix;
+	Out.ar(out, (read * ampenv * level * 0.6).dup);
+}).send(s);
+
+
+
+
+	SynthDef.new(\echo, {
+	arg in, out, time, maxtime=1.0, amp=1.0;
+	Out.ar(out, DelayL.ar(In.ar(in), maxtime, time) * amp);
+}).send(s);
+
+SynthDef.new(\echo_buf, {
+	arg buf, in, out, time, amp=1.0;
+	Out.ar(out, BufDelayL.ar(buf, In.ar(in), time, amp));
+}).send(s);
+
+
+SynthDef.new(\cmpcho, {
+	arg in, out, time, maxtime=1.0, amp=1.0,
+		thresh=0.125, slopebelow=4.0, slopeabove=1.0, clamp=0.7, relax=0.3;
+	var input, del;
+	input = In.ar(in);
+	del =  DelayL.ar(input, maxtime, time);
+	del = Compander.ar(del, input, thresh, slopebelow, slopeabove, clamp, relax);
+	Out.ar(out, del * amp);
+}).send(s);
+
+
+SynthDef.new(\bufdelay_fb, {
+	arg in=6, 
+		out=0,
+		buf=0,
+		buflength = 1.0,
+		amp = 1.0,
+		amplag = 10.0,
+		inputamp = 1.0,
+		delaytime= 1.0,
+		feedback = 0.0;
+	var delay, fb;
+
+	delay = BufDelayL.ar(buf, (In.ar(in) * inputamp) + (LocalIn.ar(1)), delaytime) * amp;
+	amp = Lag.kr(amp, amplag);
+	LocalOut.ar(delay * feedback);
+	Out.ar(out, (delay * amp).dup );
+
+}).send(s);
+