relativeDegreePatterns.scd

// how to make a freq pattern (for instance [ 100, 50, 50, 120] ) relative to transpose*degreePattern*scale

(
~transpose=0;
Pdefn(\degree, Pseq([0,1,2], inf));
~scale = [0,4,11];
)


(
Pdef(\pattern,
	Pbind(
		\scale, Pfunc({~scale}),
		\degree, Pdefn(\degree) + Pfunc({~transpose}),
		\dur, 0.25,
	)
).play;
)
Pdef(\pattern).stop;

(
~transpose=0;
Pdefn(\degree, Pseq([0,1,5], inf));
~scale = [0,4,7,12];
)

(
~transpose = 3;
Pdefn(\degree, Pseq([0,1,5], inf));
~scale = [0,4,7,12];
)

// pick a random scale
(
~transpose = 1;
Pdefn(\degree, Pseq([0,1,5], inf));
~scale = Scale.choose;
)


(
~transpose = 0;
Pdefn(\degree, Pseq((0..7), inf));
~scale = Scale.phrygian;
)

(
~transpose = 0;
Pdefn(\degree, Pseq((0..7), inf));
~scale = Scale.dorian;
)


(
~transpose = 0;
Pdefn(\degree, Pseq((0..7), inf));
~scale = Scale.majorPentatonic;
)

(
~transpose = 0;
Pdefn(\degree, Pseq((0..7), inf));
~scale = Scale.minorPentatonic;
)

(
~transpose = 0;
Pdefn(\degree, Pseq((0..7), inf));
~scale = Scale.spanish;
)

(
~transpose = 0;
Pdefn(\degree, Pseq((0..7), inf));
~scale = Scale.diminished;
)

(
~transpose = 0;
Pdefn(\degree, Pseq((0..7), inf));
~scale = Scale.augmented;
)

// print all scales:
Scale.directory


Pdef(\pattern).stop;
Pdef(\pattern).play;