最も単純なランダム音楽

粒度が荒いのが良く分かる。。。

[b := SoundBuffer streamContents: [:s |
    p := 40 atRandom.
    1000 // p timesRepeat: [
        p timesRepeat: [s nextPut: 2000].
        p timesRepeat: [s nextPut: -2000] ] ].
    (SampledSound  samples: b samplingRate: 22050) play.
    (Delay forSeconds: 0.2) wait.
] repeat.