// facenet

(
TempoClock.tempo = 60/60;

~master = Pbind(
    \type, \midi,
    \midiout, m,
    \scale, Scale.minor,
    \root, -3,
    \octave, Pseq([5,6], inf),
    \amp, 0.5,
    \legato, 1
);

~notes1 = Pstep(Pseq([8b,8,9,9s]), 7*5/2, inf);
~notes2 = 4;
~notes3 = Pstep(Pseq([2,2s,3], offset: 2), 7*5/2, inf);
~notes4 = 0;

~rhythm1 = Pseq([5]*8.reciprocal*4, 10*7+1);
~rhythm2 = Pseq([7]*8.reciprocal*4, 10*5+1);
)

(
var voice1, voice2, voice3, voice4;

voice1 = Pbindf(
    ~master,
    \degree, ~notes1,
    \dur, ~rhythm1
);

voice2 = Pbindf(
    ~master,
    \degree, ~notes2,
    \dur, ~rhythm1
);

voice3 = Pbindf(
    ~master,
    \degree, ~notes3,
    \dur, ~rhythm2
);

voice4 = Pbindf(
    ~master,
    \degree, ~notes4,
    \dur, ~rhythm2
);

Ppar([voice1, voice2, voice3, voice4]).play
)