posted 04 January 2014 17:00            

| pat pat3 pat2 pat1 |

pat := EventCollection events: (Array
with: (Note frequency: 3 d durationInBeats: 1)
with: (Note frequency: 3 f durationInBeats: 1)
with: (Note frequency: 3 a sharp durationInBeats: 1)
with: (Note frequency: 3 b sharp durationInBeats: 1)).

pat1 :=
pat
randomizeUsing: (Random new seed: 92)
totalBeats: 64
quantizeTo: 0.5
maxSpacing: 1.

pat2 :=
pat
randomizeUsing: (Random new seed: 456)
totalBeats: 64
quantizeTo: 0.333
maxSpacing: 1.

pat3 :=
pat
randomizeUsing: (Random new seed: 32)
totalBeats: 64
quantizeTo: 0.333
maxSpacing: 1.5.

(EventSequence events: (Array with: pat1 with: (pat2 trsp: 2) with: pat2 with: (pat1 trsp: 5) with: pat3)) playOnVoice: self bpm: 20.

I had thought of doing this by changing the last line as follows

8 timesRepeat: [ (EventSequence events: (Array with: pat1 with: (pat2 trsp: 2) with: pat2 with: (pat1 trsp: 5) with: pat3)) playOnVoice: self bpm: 20.].

But I am not convinced this is working - could the collective wisdom give me some guidance on this - thanks

posted 04 January 2014 17:15            

You could give this a try (basically doing the repeat8 on the collection before you pass it to the EventSequence):

| seq8 |

seq8 := OrderedCollection new.
8 timesRepeat: [seq8 addAll: (Array with: pat1 with: (pat2 trsp: 2) with: pat2 with: (pat1 trsp: 5) with: pat3)].

posted 04 January 2014 18:39            

Is there any reason the other approach should not work?

posted 05 January 2014 12:29            

I wonder if there is some slight difference between the Scripts? When I try it, the result just sounds like the sequence being played very slowly. Here is the full script that you could try copying and pasting into the Script field of your MIDIVoice just to make sure:

code:

---

| pat pat3 pat2 pat1 seq8 |
pat := EventCollection events: (Array
with: (Note frequency: 3 d durationInBeats: 1)
with: (Note frequency: 3 f durationInBeats: 1)
with: (Note frequency: 3 a sharp durationInBeats: 1)
with: (Note frequency: 3 b sharp durationInBeats: 1)).
pat1 :=
pat
randomizeUsing: (Random new seed: 92)
totalBeats: 64
quantizeTo: 0.5
maxSpacing: 1.
pat2 :=
pat
randomizeUsing: (Random new seed: 456)
totalBeats: 64
quantizeTo: 0.333
maxSpacing: 1.
pat3 :=
pat
randomizeUsing: (Random new seed: 32)
totalBeats: 64
quantizeTo: 0.333
maxSpacing: 1.5.
seq8 := OrderedCollection new.
8 timesRepeat: [seq8 addAll: (Array with: pat1 with: (pat2 trsp: 2) with: pat2 with: (pat1 trsp: 5) with: pat3)].
(EventSequence events: seq8 asArray) playOnVoice: self bpm: 20.

---