10 lines
333 B
Scheme
10 lines
333 B
Scheme
; random pulsations (jmcc #1)
|
|
(withSc3
|
|
(spawnUgen
|
|
(list (/ 9 8) +inf.0)
|
|
(let* ((e (EnvLinen 2 5 2 0.02 (list)))
|
|
(o1 (Mul (FSinOsc (Rand 0 2000) 0) (EnvGen 1 1 0 1 doNothing e)))
|
|
(o2 (SinOsc (LinRand 8 88 0) 0))
|
|
(o3 (Mul (SinOsc (Rand 0.3 0.8) (Rand 0 twoPi)) 0.7)))
|
|
(Pan2 (AmClip o1 o2) o3 1))))
|
|
|