10 lines
270 B
Scheme
10 lines
270 B
Scheme
|
; saucer base - jmcc
|
||
|
|
(withSc3
|
||
|
|
(overlapTextureUgen
|
||
|
|
(list 2 6 4 dinf)
|
||
|
|
(let* ((b (Rand 0 1000))
|
||
|
|
(c (Rand 0 5000))
|
||
|
|
(o (Add (Mul (SinOsc (Rand 0 20) 0) b) (Mul 1.1 b)))
|
||
|
|
(p (Add (Mul (SinOsc o 0) c) (Mul 1.1 c))))
|
||
|
|
(Pan2 (Mul (SinOsc p 0) 0.1) (Rand -1 1) 1))))
|