The Kyma Language for Sound Design, Version 4.5

The next example is called Serial Example. In this example, inst takes two arguments: offset and
sound. The argument sound must be another Sound; in this case it is called aPluck. The Sound aPluck
also takes two arguments: left and right. Notice that whenever aPluck is provided as the argument to
inst, aPluck is not assigned a start time.
inst looks at the pitch of its Sound argument and adds the value of offset to that pitch. For instance, if
the frequency of aPluck were 4 a and the offset were 3, the result would be a copy of aPluck whose
frequency was 5 c.
In this example, p0 is an array of intervals that determines the sequence of pitches and the start times of
aPluck.
| p0 start |
MM := 480.
"Set p0 to an array of 12 intervals, expressed as the number of half
steps to be added to the pitch of aPluck."
p0 := #(0 1 11 5 2 4 3 9 10 6 8 7).
start := 0 beats.
"Step forward through p0 by setting i to 1, 2,.., 12 successively and
using it as the index into the array. Each copy of inst starts (p0 at:
i) beats after the previous one. The pitch of each copy of inst is the
pitch of aPluck plus the offset (p0 at: i) halfsteps. For example, on
the third time through the loop, (p0 at: i) = 5. Thus, a copy of inst
will start 5 beats after the previous copy and its pitch will be the
pitch of aPluck plus 5 halfsteps."
1 to: 12 do: [ :i |
start := start + (p0 at: i).
inst
start: start beats
offset: (p0 at: i)
sound: (aPluck left: 1 right: 1)].
"r5: This time, step backwards through the array, and start 5 halfsteps
above the base pitch. Reset start so that these events overlap some of
the previously scheduled events."
start := 6.
12 to: 1 by: -1 do: [ :i |
start := start + (p0 at: i).
inst start:
start beats
offset: (p0 at: i) + 5
sound: (aPluck left: 0 right: 1)].
"ri0: This time, go through the array backwards, negate each of the
offsets, and subtract 24 (i.e. transpose them two octaves down). Reset
start so that these events occur simultaneously with the events of r5."
start := 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 left: 0.6 right: 0)].
"Play a low frequency sound starting at 9 seconds."
low
start: 9 s
carFreq: 100 hz
534