///////////////////////////////////////////////////
// History, as it was on Mon Aug 28 23:44:10 2006.
///////////////////////////////////////////////////

// - 0:0:0 -  
//consonance and dissonance?

// - 0:0:25.52 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=SinOsc.ar(freq,0,amp)*env;

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:0:42.79 -  
~s1=Synth(\lcsynth1, [\freq, 440]);

// - 0:0:53.56 -  
~s1.free

// - 0:1:14.37 -  
Tdef(\lctask1,{

inf.do {

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0]);
1.0.wait;
};

}).play;

// - 0:1:28.59 -  
Tdef(\lctask1,{

inf.do {

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:3:4.72 -  
Tdef(\lctask1,{
var ratio, numsource;

ratio=3/5;

numsource= (1:31);

inf.do {

if(0.5.coin,
{
ratio=3/5;
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:4:58.94 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1:31);

inf.do {

if(0.5.coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(1,tmp-1)]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:5:20.26 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(0.5.coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(1,tmp-1)]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:5:24.5 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(0.5.coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(1,tmp-1)]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:5:31.68 -  
Tdef(\lctask1).stop	

// - 0:5:33.2 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(0.5.coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(1,tmp-1)]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:6:37.25 -  
Tdef(\lctask1).stop	

// - 0:7:9.56 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand-1);

ratio=(numsource[tmp])/(numsource[rrand(1,tmp-1)]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:8:31.4 -  
Tdef(\lctask1).stop	

// - 0:8:32.78 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand-1);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:8:49.2 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand-1);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 225, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 225*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:9:4 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand-1);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 225, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 225*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:9:21.96 -  
Tdef(\lctask1).stop	

// - 0:9:24.15 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand-1);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:10:39.76 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand-1);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
0.25.wait;
};

}).play;

// - 0:11:57.05 -  
Tdef(\lctask1).stop	

// - 0:11:58.71 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
0.25.wait;
};

}).play;

// - 0:12:8.29 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 225, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 225*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:12:17.89 -  
	Tdef(\lctask2).stop	

// - 0:12:22.93 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 225, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 225*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
1.0.wait;
};

}).play;

// - 0:13:34.22 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 725, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
Synth(\lcsynth1, [\freq, 725*ratio, \sustain, 1.0, \amp, rrand(0.1,0.5)]);
(ratio/2).max(0.125).min(1).wait;
};

}).play;

// - 0:13:53.32 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 725, \sustain, 1.0, \amp, rrand(0.05,0.2)]);
Synth(\lcsynth1, [\freq, 725*ratio, \sustain, 1.0, \amp, rrand(0.05,0.2)]);
(ratio/2).max(0.125).min(1).wait;
};

}).play;

// - 0:14:5.9 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 225, \sustain, 1.0, \amp, rrand(0.05,0.25)]);
Synth(\lcsynth1, [\freq, 225*ratio, \sustain, 1.0, \amp, rrand(0.05,0.25)]);
1.0.wait;
};

}).play;

// - 0:14:12.41 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.25)]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.25)]);
0.25.wait;
};

}).play;

// - 0:14:31.95 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 1.0, \amp, rrand(0.1,0.25),\pan,1]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 1.0, \amp, rrand(0.1,0.25),\pan,1]);
0.25.wait;
};

}).play;

// - 0:14:47.99 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 725, \sustain, 1.0, \amp, rrand(0.05,0.2),\pan,-0.5]);
Synth(\lcsynth1, [\freq, 725*ratio, \sustain, 1.0, \amp, rrand(0.05,0.2),\pan, -0.75]);
(ratio/2).max(0.125).min(1).wait;
};

}).play;

// - 0:14:59.32 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 1725, \sustain, 1.0, \amp, rrand(0.05,0.2),\pan,-0.5]);
Synth(\lcsynth1, [\freq, 1725*ratio, \sustain, 1.0, \amp, rrand(0.05,0.2),\pan, -0.75]);
(ratio/2).max(0.125).min(1).wait;
};

}).play;

// - 0:15:13.73 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

0.1.wait;
inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 1725, \sustain, 4.0, \amp, rrand(0.05,0.2),\pan,-0.5]);
Synth(\lcsynth1, [\freq, 1725*ratio, \sustain, 4.0, \amp, rrand(0.05,0.2),\pan, -0.75]);
(ratio/2).max(0.125).min(1).wait;
};

}).play;

// - 0:15:54.86 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=SinOsc.ar(XLine.kr(freq,freq*0.5,0.1),0,amp)*env;

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:16:9.73 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 225, \sustain, 1.0, \amp, rrand(0.05,0.25)]);
Synth(\lcsynth1, [\freq, 225*ratio, \sustain, 1.0, \amp, rrand(0.05,0.25)]);
1.0.wait;
};

}).play;

// - 0:16:22 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 1725, \sustain, 4.0, \amp, rrand(0.05,0.2),\pan,-0.5]);
Synth(\lcsynth1, [\freq, 1725*ratio, \sustain, 4.0, \amp, rrand(0.05,0.2),\pan, -0.75]);
(ratio/4).max(0.125).min(1).wait;
};

}).play;

// - 0:16:36.36 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 1725, \sustain, 2.0, \amp, rrand(0.05,0.2),\pan,-0.5]);
Synth(\lcsynth1, [\freq, 1725*ratio, \sustain, 2.0, \amp, rrand(0.05,0.2),\pan, -0.75]);
(ratio/4).max(0.125).min(1).wait;
};

}).play;

// - 0:17:15.32 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*0.5,0.1),0,amp)*env,1000+(amp*1000),0.1);

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:17:24.46 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*0.25,0.1),0,amp)*env,1000+(amp*1000),0.1);

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:17:38.76 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*0.25,sustain*0.25),0,amp)*env,1000+(amp*1000),0.1);

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:17:48.5 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*0.25,sustain*0.25),0,amp)*env,1000+(amp*5000),0.1);

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:18:6.87 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*0.25,sustain*0.25),0,amp)*env,1000+(amp*5000),XLine.kr(0.5,0.1,sustain*0.1));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:18:18.99 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*0.99,sustain*0.25),0,amp)*env,1000+(amp*5000),XLine.kr(0.5,0.1,sustain*0.1));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:18:32.28 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*Rand(0.98,1.01),sustain*0.5),0,amp)*env,1000+(amp*5000),XLine.kr(0.5,0.1,sustain*0.1));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:18:50.59 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([1,0],[sustain],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*Rand(0.95,1.03),sustain),0,amp)*env,1000+(amp*5000),XLine.kr(0.5,0.1,sustain*0.1));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:19:11.44 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
0.5.wait;
};

}).play;

// - 0:19:30.22 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 225, \sustain, 3.0, \amp, rrand(0.05,0.25)]);
Synth(\lcsynth1, [\freq, 225*ratio, \sustain, 3.0, \amp, rrand(0.05,0.25)]);
1.0.wait;
};

}).play;

// - 0:19:52.29 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([0,1,1,0],sustain*[0.2,0.6,0.2],'lin'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*Rand(0.95,1.03),sustain),0,amp)*env,1000+(amp*5000),XLine.kr(0.5,0.1,sustain*0.1));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:20:10.4 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, 440, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
Synth(\lcsynth1, [\freq, 440*ratio, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
0.25.wait;
};

}).play;

// - 0:20:25.66 -  
~freq=440;

// - 0:20:32.44 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, ~freq, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
Synth(\lcsynth1, [\freq, ~freq*ratio, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
0.25.wait;
};

}).play;

// - 0:20:48.29 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, (~freq*0.51), \sustain, 3.0, \amp, rrand(0.05,0.25)]);
Synth(\lcsynth1, [\freq, (~freq*0.51)*ratio, \sustain, 3.0, \amp, rrand(0.05,0.25)]);
1.0.wait;
};

}).play;

// - 0:21:3.33 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, (~freq*2.52), \sustain, 2.0, \amp, rrand(0.05,0.2),\pan,-0.5]);
Synth(\lcsynth1, [\freq, ((~freq*2.52))*ratio, \sustain, 2.0, \amp, rrand(0.05,0.2),\pan, -0.75]);
(ratio/4).max(0.125).min(1).wait;
};

}).play;

// - 0:21:54.19 -  
Tdef(\lctask4,{

inf.do {

if(0.5.coin,{~freq= [1,1.1,1.2,1.3,1.4,1.5,1.7,1.8,1.9].choose*440;});
1.0.wait;
};

}).play;

// - 0:22:25.44 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([0,1,1,0],sustain*[0.4,0.5,0.1],'sine'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*Rand(0.95,1.03),sustain),0,amp)*env,1000+(amp*5000),XLine.kr(0.5,0.1,sustain*0.1));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:22:43.26 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([0,1,1,0],sustain*[0.4,0.5,0.1],'sine'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(XLine.kr(freq,freq*Rand(0.95,1.03),sustain),0,amp)*env,1000+(amp*5000),XLine.kr(0.1,0.5,sustain*0.4));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:24:2.56 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([0,1,1,0],sustain*[0.4,0.5,0.1],'sine'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(SinOsc.kr(Rand(4,14),0,freq*0.1)+XLine.kr(freq,freq*Rand(0.95,1.03),sustain),0,amp)*env,1000+(amp*5000),XLine.kr(0.1,0.5,sustain*0.4));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:24:18.45 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([0,1,1,0],sustain*[0.4,0.5,0.1],'sine'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(SinOsc.kr(Rand(4,14),0,freq*(amp))+XLine.kr(freq,freq*Rand(0.95,1.03),sustain),0,amp)*env,1000+(amp*5000),XLine.kr(0.1,0.5,sustain*0.4));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:24:30.88 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([0,1,1,0],sustain*[0.4,0.5,0.1],'sine'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(SinOsc.kr(Rand(4,14),0,freq*(amp*0.1))+XLine.kr(freq,freq*Rand(0.95,1.03),sustain),0,amp)*env,1000+(amp*5000),XLine.kr(0.1,0.5,sustain*0.4));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:25:6.41 -  
Tdef(\lctask4,{

inf.do {

if(0.5.coin,{~freq= ([1,1.1,1.2,1.3,1.4,1.5,1.7,1.8,1.9]+2).choose*440;});
1.0.wait;
};

}).play;

// - 0:25:11.9 -  
Tdef(\lctask4,{

inf.do {

if(0.5.coin,{~freq= ([1,1.1,1.2,1.3,1.4,1.5,1.7,1.8,1.9]+2).choose*440;});
0.25.wait;
};

}).play;

// - 0:25:20.13 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, (~freq*0.51), \sustain, 3.0, \amp, rrand(0.05,0.25)]);
Synth(\lcsynth1, [\freq, (~freq*0.51)*ratio, \sustain, 3.0, \amp, rrand(0.05,0.25)]);
0.25.wait;
};

}).play;

// - 0:25:26.49 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, ~freq, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
Synth(\lcsynth1, [\freq, ~freq*ratio, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
0.125.wait;
};

}).play;

// - 0:25:37.83 -  
Tdef(\lctask4,{

inf.do {

if(0.5.coin,{~freq= ([1,1.1,1.2,1.3,1.4,1.5,1.7,1.8,1.9]-1).choose*440;});
0.25.wait;
};

}).play;

// - 0:25:47.09 -  
Tdef(\lctask4,{

inf.do {

if(0.5.coin,{~freq= ([1,1.1,1.2,1.3,1.4,1.5,1.7,1.8,1.9]-0.5).choose*440;});
0.25.wait;
};

}).play;

// - 0:26:1.25 -  
Tdef(\lctask4,{

inf.do {

if(0.5.coin,{~freq= ([1,1.1,1.2,1.3,1.4,1.5,1.7,1.8,1.9]+7).choose*440;});
0.25.wait;
};

}).play;

// - 0:26:24.04 -  
SynthDef(\lcsynth1, {arg out=0, amp=0.1, pan=0.0, freq=440, sustain=0.1; 
var sound, env;

env=EnvGen.ar(Env([0,1,1,0],sustain*[0.4,0.5,0.1],'sine'),doneAction:2);

sound=Resonz.ar(LFSaw.ar(SinOsc.kr(Rand(4,14),0,freq*(amp*XLine.kr(0.01,0.5,sustain)))+XLine.kr(freq,freq*Rand(0.95,1.03),sustain),0,amp)*env,1000+(amp*5000),XLine.kr(0.1,0.5,sustain*0.4));

Out.ar(out, Pan2.ar(sound,pan))
}).store;

// - 0:26:34.88 -  
Tdef(\lctask4,{

inf.do {

if(0.5.coin,{~freq= ([1,1.1,1.2,1.3,1.4,1.5,1.7,1.8,1.9]+2).choose*440;});
0.25.wait;
};

}).play;

// - 0:26:48.79 -  
Tdef(\lctask3,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..41);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, (~freq*2.52), \sustain, 2.0, \amp, rrand(0.05,0.2),\pan,-0.5]);
Synth(\lcsynth1, [\freq, ((~freq*2.52))*ratio, \sustain, 2.0, \amp, rrand(0.05,0.2),\pan, -0.75]);
(ratio/4).max(0.25).min(1).wait;
};

}).play;

// - 0:26:52.86 -  
Tdef(\lctask2,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..53);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, (~freq*0.51), \sustain, 3.0, \amp, rrand(0.05,0.25)]);
Synth(\lcsynth1, [\freq, (~freq*0.51)*ratio, \sustain, 3.0, \amp, rrand(0.05,0.25)]);
1.25.wait;
};

}).play;

// - 0:26:56.76 -  
Tdef(\lctask1,{
var ratio, numsource, tmp;

ratio=3/5;

numsource= (1..31);

inf.do {

if(((ratio-1).max(0.1).min(1)).coin,
{
tmp= rrand(0,numsource.size.rand);

tmp.postln;

ratio=(numsource[tmp])/(numsource[rrand(0,(tmp-1).max(0))]);
});

Synth(\lcsynth1, [\freq, ~freq, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
Synth(\lcsynth1, [\freq, ~freq*ratio, \sustain, 2.0, \amp, rrand(0.1,0.25),\pan,1]);
1.125.wait;
};

}).play;

// - 0:27:4.59 -  
Tdef(\lctask3).stop	

// - 0:27:15.93 -  
Tdef(\lctask1).stop	

// - 0:27:20.79 -  
Tdef(\lctask2).stop