8 lines
235 B
Scheme
8 lines
235 B
Scheme
; hell is busy (jmcc) #1
|
|
(withSc3
|
|
(overlapTextureUgen
|
|
(list 4 4 8 +inf.0)
|
|
(let ((o (FSinOsc (Add 400 (Rand 0 2000)) 0))
|
|
(a (Mul (LFPulse (Add 1 (Rand 0 10.0)) 0 (Rand 0 0.7)) 0.04)))
|
|
(Pan2 (Mul o a) (Rand -1 1) 1))))
|
|
|