19 lines
628 B
Scheme
19 lines
628 B
Scheme
; reso-pulse (jmcc) #1
|
|
(withSc3List
|
|
(list
|
|
(postProcessUgen
|
|
1
|
|
(lambda (z)
|
|
(let* ((lfo-freq 6)
|
|
(lfo (MulAdd (LFNoise0 lfo-freq) 1000 1200))
|
|
(x (MouseX 0.2 0.02 exponential 0.2))
|
|
(left (RLPF z lfo x))
|
|
(delay-time (Fdiv 2 lfo-freq))
|
|
(right (DelayN left delay-time delay-time)))
|
|
(Mce2 left right))))
|
|
(overlapTexture
|
|
(list 4 2 4 +inf.0)
|
|
(lambda ()
|
|
(let* ((f (MidiCps (s:l-choose (list 25 30 34 37 41 42 46 49 53 54 58 61 63 66))))
|
|
(f* (MulAdd 2 f (Rand2 0.5))))
|
|
(Mul (Add (LFPulse f 0 0.2) (LFPulse f* 0 0.2)) 0.02))))))
|