Another option from PSx is PSdup. To ensure order I’d take Ptpar in this case:
a = Pbind(\dur, d = PS(Prand([0.5, 1], inf)));
b = Pbind(\dur, PSdup(d), \degree, 3);
Ptpar([0, a, 0.001, b]).play
1 Like