Fork Code: wiard noise ring, language implementation (task-based)

name

code content

q = ();

q.registerSize = 7; // max 64
q.rbuf = ((2**q.registerSize).asInteger).rand;

// parameters, can be changed while playing

// The higher change, the greater the chance for a new value
q.change = 0.1;

// The higher chance, the greater the chance the new value is HIGH
q.chance = 0.5;

q.waitTime = 0.01; // in seconds

(
q.ror = {|q, x, shift, numBits| 
	// shift right by m bits, input x is a number with numBits bits:
	var lsbs = x & ((1 << shift) - 1);
	(x >> shift) | (lsbs << (numBits-shift));
};

// do one step
q.step = {|q, rbuf, change, chance|

	// rotate
	rbuf = q.ror(rbuf, 1, q.registerSize);
//	rbuf.asBinaryDigits(7).postln;

	(change.coin).if{
		// swap bit
		//rbuf = rbuf.bitXor(1);
		
		rbuf = rbuf.setBit(0, chance.coin.postln);
		"+++++++ change!>>".postln;
	};

	rbuf; // return (altered) item
};

(
Tdef(\steppr, {
	loop{
		q.rbuf = q.step(q.rbuf, q.change, q.chance); 
		
		// debug output
		// q.rbuf.asArray.postln;
		
		// play the current note, can be basically everything
		(
			midinote: q.rbuf, 
			sustain:  0.01, 
			dur:      0.2, 
			amp:      0.2
		).play;
		
		q.waitTime.wait;
	}
})
);
)

// start
Tdef(\steppr).play

// stop
Tdef(\steppr).stop

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change