mate ab97

mate97c.scd

/*
// discarded
\fwot <+ "bd r r bd sn r bd sn".pbind(\chan, 8, \dur, 1/4, \amp, 0.8, \stut, [1,[2,4].pshufn(1)].pwrand([0.9,0.1]));
\fwot <+ ("0:10|1:011" << "bd cp cp|ch bd".bjorklund([3,5],8)).pbind(\chan, 8, \dur, 1/4, \amp, 0.8);
\fwot <+ ("0:1001|1:0012|2:0021" <<< "ch*4 rm rm".bjorklund([3,4,7],8,1)).pbind(\chan, 8, \dur, 1/4, \amp, 0.8);
\fwot <+ ("0:1001|1:0012|2:0021" <<< "ch oh").pbind(\chan, 8, \dur, 1/4, \amp, 0.8);
*/

// silence
\piano >> nil;
\fwot >> nil;
\akuma >> nil;
CmdPeriod.run;

// # 1st stage
(
\piano << "c".pbind(
  \chan, 10, \octave, 3, \dur, 1/4,
  \ctranspose, (..25).pyramid.pseq,
  \stut, PifRest(\midinote, 1, [1,1,2,1,1,1,2,2,1,1,2,1,2,1,2,2,2,1,2,2,1,1,2].pyramid.pseq),
)
;
)

// # 2nd stage
\fwot << "bd ch cp".bjorklund(8,16).pbind(\chan, 8, \dur, 1/4, \amp, 0.5);
\fwot << "bd ch cp".bjorklund(8,16).pbind(\chan, 8, \dur, 1/4, \amp, 0.5, \stut, [1,2].pwrand([0.9,0.1]));
\fwot << "bd ch cp".bjorklund(8,16).pbind(\chan, 8, \dur, 1/4, \amp, 0.5, \stut, PifRest(\midinote, 1, [1,2].pwrand([0.9,0.1])));
\fwot << "cp ch cp".bjorklund(8,16).pbind(\chan, 8, \dur, 1/4, \amp, 0.5);
\fwot << "cp ch cp".bjorklund(14,16).pbind(\chan, 8, \dur, 1/4, \amp, 0.5, \stut, PifRest(\midinote, 1, [1,2].pwrand([0.9,0.1])));
\fwot << "cp ch cp lt ch cp bd ch cp".bjorklund(8,16).pbind(\seq, \xrnd, \chan, 8, \dur, 1/4, \amp, 0.5);
\fwot << "cp ch cp lt ch cp bd ch cp".bjorklund(8,16).pbind(\chan, 8, \dur, 1/4, \amp, 0.5, \stut, PifRest(\midinote, 1, [1,2].pwrand([0.9,0.1])));

(
\chpan << Pbind(\type, \cc, \cc, 24, \value, (1..126).mirror.pxrand, \dur, 1);
\kitpik << Pbind(\type, \cc, \cc, 32, \value, (..126).pyramid.pxrand.stutter(4), \dur, 1/4);
\fwot << "bd ch cp".bjorklund(8,16).pbind(\chan, 8, \dur, 1/4, \amp, 0.5);
\amy << "bd".bjorklund(12,16).pbind(
  \seq, \xrnd,
  \tempo, 135/60, \slow, 1,
  \chan, 9, \amp, 0.7, \octave, 3,
  \ctranspose, [0,1,(..17).pxrand,0,(..17).pxrand,2,0,(..17).pxrand,1].pseq,
  \dur, 1/4,  \stut, 1,
  \dur, PifRest(\midinote, 1/4, Pif(Pbinop('>', Pkey(\stut), 3), 1/5, 1/4)) + [0!16,2].flat.pseq,
).collect{ |e| ~bd = e }
;
\piano << "c".pbind(
  \chan, 10, \octave, 3, \dur, 1/4,
  \ctranspose, [0,1,(..17).pxrand,0,(..17).pxrand,2,0,(..17).pxrand,1].pseq,
  \stut, PifRest(\midinote, 1, [1,1,2,1,1,1,2,2,1,1,2,1,2,1,2,2,2,1,2,2,1,1,2].pyramid.pseq),
)
;
)