howtoripoff.scd

(
r = Repetition.new;
m = r.initMIDI("LoopBe Internal MIDI", "LoopBe Internal MIDI");
MidiEvents(m);
)

(
var rou = Routine({
  loop {
    var pbd = (tempo: Pseq([1,1,1/2,1,1/2,1].pyramid,inf), type: \md, amp: 0.9, );
    var kk = [5, 2, 3, 7].choose;
    var nn = [\c, \d, \e,\g].choose;
    var abc = "bd".asBjorklund(kk,8).parseRepetitionPattern;
    ~z = abc.at(0).asPbind( pbd.blend( (chan: 9, stut: 1, stretch: 1, cb: \asPerc) ) );
    ~z1 = abc.at(0).asPbind( pbd.blend( (chan: 6, stut: 1, stretch: 1, octave: 4, cb: \asFn, fn: { |x| if (x.isRest) { \r } { ChordProg.getChord(nn, \maj) } },) ) );
    4.wait;
  }
}).play;
)

(
~xx = Pbind(\type, \cc, \dur, 1, \control, Pseq([0.25].midiRange,inf) ).play;
// ~z2 = "rm".asBjorklund(8,16).parseRepetitionPattern.at(0).asPbind( (type: \md, amp: 0.9, chan: 9, stut: 1, stretch: 2, cb: \asPerc) );
// ~z4 = "cp".asBjorklund(2,16,4).parseRepetitionPattern.at(0).asPbind( (type: \md, amp: 0.9, chan: 9, stut: Pxrand([1,2,1,1],inf), stretch: 2, cb: \asPerc) );
~z2 = nil;~z4 = nil;
)