The Kyma Language for Sound Design, Version 4.5

cmRatio: 2.0
dur: 0.5 s.
"r0: This time, step backwards through the array. Reset start so that
this group of events begins at 10 seconds."
start := 10 s.
12 to: 1 by: -1 do: [ :i |
start := start + (p0 at: i).
inst
start: start beats
offset: (p0 at: i)
sound: (aPluck left: 1 right: 1)].
"p6: Step forward through the array, and start 5 halfsteps above the
base pitch. Reset start so that this group of events begins 6 beats after
10 seconds."
start := 10 s + 6 beats.
1 to: 12 do: [ :i |
start := start + (p0 at: i).
inst
start: start beats
offset: (p0 at: i) + 5
sound: (aPluck left: 0 right: 1)].
"Step backwards through the array, and add the inverted interval to the
base pitch two octaves lower. Reset start so that this group of events
begins simultaneously with the previous group."
start := 10 seconds inBeats + 6.
12 to: 1 by: -1 do: [ :i |
start := start + (p0 at: i).
inst
start: start beats
offset: (p0 at: i) negated - 24
sound: (aPluck)].
"Play a final low frequency sound at the end."
low
start: start beats
carFreq: 100 hz
cmRatio: 2.0
dur: 0.5 s.
535