Anitalux Session

Money Youngle

me.arg(0) => string filename;
SndBuf buf => Envelope adsr => dac;
buf => Gain g => JCRev r => Chorus c => Pan2 pan => dac;

pan.pan(-.8);

g.gain(0);
r.mix(.1);
r.gain(.4);
c.modFreq(.5);
c.modDepth(.5);
c.mix(0);


SinOsc sin;

sin.freq(1);



buf.read(filename);
buf.interp(1);
buf.gain(1);


96 => int beats;
buf.length() => dur beat;
<<<beat/2>>>;
0 => int i;


int fb;
int pos;
int measures;


while(true) {
	i % beats => int count;
	Math.floor(i / beats) $ int => measures; 
	
	if(measures == 8) {
		me.exit();
		}
	
	
	[2.0,1.0,2.0,.5,1.0,4] @=> float subds[];
	
	
	
	
	subds[Std.rand2(0,subds.size() - 1)] => float subdiv;
	
	if(Std.rand2(0,70) == 0) {
		//.125 => subdiv;
		}
	if(Std.rand2(0,40) == 0) {
		.25 => subdiv;
		}
	
	if((i % 3) == 0) {
		1 => subdiv;
		}
	if((i % 16) == 0 && measures >= 5) {
		.5 => subdiv;
		}
	
	if((i % 32) == 0 && measures >= 6) {
		.25 => subdiv;
		<<<"bam">>>;
		} 
	
	
	
	if(subdiv < 1) {
		g.gain(1);
		} else {
		g.gain(0);
		}
	
	//1 => float subdiv;
	//((count/beats $ float) * buf.samples() ) $ int  => buf.pos;
	.1/(Math.log(subdiv+1)) => buf.gain;
	
	//Std.rand2(0,2) => fb;
	i % 2 => fb;
	
	((count/beats $ float) * buf.samples() ) $ int => pos;
	//0 => fb;
	
	
	if (fb==0) {
		-1 => fb;
		(pos + ((1/beats $ float) * buf.samples())/subdiv) $ int => pos;
		} else {
		1 => fb;
		}	
	
	
	subdiv * fb => buf.rate;
	//1 => buf.rate;
	0 => int s;
	
	subdiv => float ep;
	while(s < subdiv) {
		if(subdiv < 1) {
			5 => ep;
			}		
		adsr.duration(((
			buf.length()/beats)/ep)/16
			);
		
		adsr.keyOn();
		s++;
		//((count/beats $ float) * buf.samples() ) $ int  => buf.pos;
		//<<<buf.pos()>>>;
		pos => buf.pos;
		((buf.length()/beats)/subdiv)/2 => now;
		adsr.duration(((buf.length()/beats)/subdiv)/2);
		adsr.keyOff();
		((buf.length()/beats)/subdiv)/2=> now;
		}
	
	
	//buf.length()/beats => now;
	
	if(subdiv > 1) {
		i++;
	} else {
		i + (1/subdiv) $int => i;
	}
	}


Haggai Kill Brush

Popular tracks