30 lines
920 B
Racket
30 lines
920 B
Racket
|
#lang racket
|
||
|
|
;; status - working as of 20220820
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; trkl (rd)
|
||
|
|
|
||
|
|
(define trkl
|
||
|
|
(lambda (d ul fu dy la fy)
|
||
|
|
(let* ((tf (x-line kr 1 ul d remove-synth))
|
||
|
|
(st (impulse ar (mul tf 8) 0))
|
||
|
|
(t (impulse ar tf 0))
|
||
|
|
(a (db-amp (line kr 12 la d remove-synth)))
|
||
|
|
(f (x-line kr fu 900 d remove-synth))
|
||
|
|
(p (line kr (rand -1 1) (rand -1 1) d remove-synth))
|
||
|
|
(fh (t-rand 1.75 2.25 t)))
|
||
|
|
(pan2 (add (mix (ringz (decay2 t 0.01 dy) (mce2 f (mul f fh)) fy))
|
||
|
|
(mix (mul3 (saw ar (mce2 f (mul f fh)))
|
||
|
|
(decay2 t 0.1 (t-rand 0.05 1.0 t))
|
||
|
|
(t-exp-rand 0.001 0.25 st))))
|
||
|
|
p a))))
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (trkl (rand 0.5 16)
|
||
|
|
(rand 16 64)
|
||
|
|
(rand 1200 9000)
|
||
|
|
(rand 0.005 0.175)
|
||
|
|
(rand -60 -25)
|
||
|
|
(rand 0.015 0.125))))
|