13 lines
449 B
Scheme
13 lines
449 B
Scheme
; deep-trip (jmcc) #9
|
|
(withSc3
|
|
(overlapTextureUgen
|
|
(list 4 12 4 dinf)
|
|
(let* ((f (MidiCps (Add (Mul (LFNoise1 (Rand 0 0.3)) 60) 70)))
|
|
(a2 (Mul (SinOsc (Rand 0 40) 0) 0.1))
|
|
(a1 (Max 0 (Mul (LFNoise1 (Rand 0 8)) a2)))
|
|
(a (Mul (LFNoise2 (Mul f (Rand 0 0.5))) a1))
|
|
(z (Mul (SinOsc f 0) a))
|
|
(s (Pan2 z (LFNoise1 (Rand 0 5)) 1))
|
|
(c0 (CombN s 0.5 (RandN 2 0.3 0.5) 20))
|
|
(c1 (CombN s 0.5 (RandN 2 0.3 0.5) 20)))
|
|
(Add (Add s c0) c1))))
|