14 lines
505 B
Scheme
14 lines
505 B
Scheme
; swept resonant noise (jmcc) #2
|
|
(withSc3
|
|
(overlapTextureUgen
|
|
(list 4 4 5 +inf.0)
|
|
(let* ((p 10)
|
|
(n (Mul (WhiteNoise) 0.007))
|
|
(f (MidiCps (MulAdd (FSinOsc (Rand 0.1 0.3) 0) (Rand 0 24) (Rand 36 84))))
|
|
(sweep (Resonz n f 0.1))
|
|
(spec-f (lambda ()
|
|
(klankDataMce
|
|
(LinRandN p 80 10080 0)
|
|
(asMce (replicate p 1))
|
|
(RandN p 0.5 2.5)))))
|
|
(asMce (replicateM 2 (lambda () (Klank sweep 1 0 1 (spec-f))))))))
|