Supercollider: Scale Rotations (Modes)

rotation.sc

~scaleA = [0,2,4,5,7,9,11];
~scaleB = ~scaleA.rotate(3);

(
a = Pbind(*[
	scale: Pn( Pstep([
		~scaleA,
		~scaleA.rotate(1),
		~scaleA.rotate(2),
		~scaleA.rotate(2),
		
		~scaleA.rotate(5),
		~scaleA.rotate(4),
		~scaleA.rotate(3),
		~scaleA.rotate(2),
	], 2 ) )
]);

b = Pbind(*[
	degree: Pseq([3,2,1,0, 4,3,2,1],inf),
	dur: Pstep([1,2,3,2],4,inf) / 8,
	legato: 1/8,
	octave: 6
]);

c = Pbind(*[
	degree: [0,2,4-7,6],
	dur: Pseq([3,3,2], inf) / 8,
	legato: 1/4,
	db: -30
]);

q = Pbind(*[
	degree: Pseq([0,0,4,\rest,0,4,\rest,0], inf),
	octave: 3,
	legato: 3/4,
	dur: 1 / 8,
	db: -20
]);

d=Pchain(Ppar([b,c,q]), a);
d.play;
)