The Kyma Language for Sound Design, Version 4.5

The first example is called Kurt’s Rhythmic Pulsation. It uses a Sound called thump that has variables
?frequency and ?cycles.
"Set the metronome to 300 beats per minute."
MM := 300.
"Set i to the values 0, 1, … 200 on each iteration."
0 to: 200 do: [ :i |
"If i mod 4 is 0 (i.e. if i is a multiple of 4), then start the instrument
called thump at i beats with a frequency of 100 hertz and 25
cycles within each envelope."
i \\ 4 = 0 ifTrue: [
thump start: i beats
"etc…" i \\ 2 = 0 ifTrue: [
frequency: 100 hz
cycles: 25].
thump start: i beats
frequency: 250 hz
cycles: 25].
i \\ 3 = 0 ifTrue: [
thump start: i beats
frequency: 150 hz
cycles: 25].
"If i is less than 50 AND i is a multiple of 5, then start the instrument
called thump at i beats with a frequency of 400 hertz and 25
cycles within each envelope."
(i < 50 and: [i \\ 5 = 0]) ifTrue: [
thump start: i beats
frequency: 400 hz
cycles: 25].
i \\ 13 = 0 ifTrue: [
thump start: i beats
frequency: 700 hz
cycles: 25].
i \\ 7 = 0 ifTrue: [
thump start: i beats
frequency: 50 hz
cycles: 50].
"If i is greater than 50 AND i is not a multiple of 7, 5 or 3, then
start the instrument called thump at i beats with a frequency of 1000
hertz and 100 cycles within each envelope."
(i > 50 and: [i \\ 7 ~= 0
and: [i \\ 5 ~= 0 and: [i \\ 3 ~= 0]]])
ifTrue: [
thump start: i beats
frequency: 1000 hz
cycles: 100].
"End of 0 to: 200 do: loop."
].
533