28 lines
686 B
Scheme
28 lines
686 B
Scheme
; nharm (rd)
|
|
|
|
(define nharm
|
|
(lambda (n f)
|
|
(if (<= n 0)
|
|
(list)
|
|
(cons f (nharm (- n 1) (Add f f))))))
|
|
|
|
(define klg
|
|
(lambda (m u)
|
|
(let* ((n (s:irand 4 u))
|
|
(d (s:irand 9 12))
|
|
(a 0.5)
|
|
(e (EnvGen 1 0.9 0 1 removeSynth (EnvSine d a)))
|
|
(s (klangData
|
|
(nharm n (MidiCps (s:rand m (+ m 2))))
|
|
(replicateM n (lambda () (s:rand 0.01 0.02)))
|
|
(replicate n 0))))
|
|
(Pan2 (Klang 1 0 s) (s:rand -1 1) e))))
|
|
|
|
(define pattern
|
|
(lambda (fd)
|
|
(begin
|
|
(play fd (Out 0 (klg (s:rand 32 92) (s:irand 9 24))))
|
|
(thread-sleep (s:rand 0.25 0.75))
|
|
(pattern fd))))
|
|
|
|
(withSc3 pattern)
|