91 lines
1.9 KiB
Scheme
91 lines
1.9 KiB
Scheme
|
; fm-kltr (rd)
|
||
|
|
|
||
|
|
(define fm-instr
|
||
|
|
(letc ((trig 0)
|
||
|
|
(amp 0.1)
|
||
|
|
(dur 0.1)
|
||
|
|
(freq 400)
|
||
|
|
(index 40)
|
||
|
|
(pan 0)
|
||
|
|
(freq2 600))
|
||
|
|
(let* ((p (EnvPerc 0.01 dur 1 (replicate 2 -4)))
|
||
|
|
(e (EnvGen 1 amp 0 1 removeSynth p))
|
||
|
|
(x (XLine freq (Mul freq (s:rand 0.975 1.025)) dur 0))
|
||
|
|
(o (SinOsc x 0))
|
||
|
|
(l (Line index (Mul freq (s:rand 0.5 1.5)) dur 0))
|
||
|
|
(x2 (XLine freq2 (Mul freq2 (s:rand 0.975 1.025)) dur 0))
|
||
|
|
(m (MulAdd o l x2)))
|
||
|
|
(Pan2
|
||
|
|
(SinOsc m 0)
|
||
|
|
(Line pan (Mul pan (s:rand 0.75 1.25)) dur 0)
|
||
|
|
e))))
|
||
|
|
|
||
|
|
(define fm
|
||
|
|
(lambda (fd f ff a d i)
|
||
|
|
(sendMessage
|
||
|
|
fd
|
||
|
|
(s_new "fm" -1 1 1
|
||
|
|
(list "freq" (s:midi-cps f)
|
||
|
|
"freq2" (+ (s:midi-cps ff) (s:rand -1 1))
|
||
|
|
"amp" a
|
||
|
|
"dur" d
|
||
|
|
"index" i)))))
|
||
|
|
|
||
|
|
(define r-note
|
||
|
|
(lambda (o p)
|
||
|
|
(+ (* (s:l-choose o) 12) (s:l-choose p))))
|
||
|
|
|
||
|
|
(define low-f
|
||
|
|
(lambda (fd)
|
||
|
|
(fm
|
||
|
|
fd
|
||
|
|
(r-note (list 3 5) (list 0 3 7 8))
|
||
|
|
(s:rand 36 72)
|
||
|
|
(s:rand 0.0 0.2)
|
||
|
|
(s:rand 1.2 7.2)
|
||
|
|
(s:rand 240 1480))))
|
||
|
|
|
||
|
|
(define high-f
|
||
|
|
(lambda (fd)
|
||
|
|
(fm
|
||
|
|
fd
|
||
|
|
(r-note (list 7 10) (list 0 2 5 10))
|
||
|
|
(s:rand 84 120)
|
||
|
|
(s:rand 0.1 0.6)
|
||
|
|
(s:rand 0.2 1.2)
|
||
|
|
(s:rand 240 1480))))
|
||
|
|
|
||
|
|
(define cmp-f
|
||
|
|
(lambda (a b)
|
||
|
|
(compare (car a) (car b))))
|
||
|
|
|
||
|
|
(define low-t
|
||
|
|
(integrate
|
||
|
|
(cons
|
||
|
|
0
|
||
|
|
(replicateM
|
||
|
|
36
|
||
|
|
(lambda () (s:l-choose (list 0.25 0.5 0.75 1.0 1.5)))))))
|
||
|
|
|
||
|
|
(define high-t
|
||
|
|
(integrate
|
||
|
|
(cons
|
||
|
|
0
|
||
|
|
(replicateM
|
||
|
|
36
|
||
|
|
(lambda () (s:l-choose (list 0.05 0.15 0.25 0.5 0.75)))))))
|
||
|
|
|
||
|
|
(define fm-kltr
|
||
|
|
(lambda (fd)
|
||
|
|
(sendSynth fd "fm" (Out 0 fm-instr))
|
||
|
|
(map
|
||
|
|
(lambda (x)
|
||
|
|
((cadr x) fd)
|
||
|
|
(thread-sleep (car x)))
|
||
|
|
(sortBy
|
||
|
|
cmp-f
|
||
|
|
(append (map (lambda (x) (list x low-f)) low-t)
|
||
|
|
(map (lambda (x) (list x high-f)) high-t))))))
|
||
|
|
|
||
|
|
(withSc3 fm-kltr)
|