55 lines
1.7 KiB
Racket
55 lines
1.7 KiB
Racket
|
#lang racket
|
||
|
|
;; status - working as of 20220820
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; slly-walk (rd)
|
||
|
|
|
||
|
|
(define o1
|
||
|
|
(let* ((t (dust kr 2))
|
||
|
|
(e (env-bp-linear (list 0 0 (t-rand 0.05 0.5 t) 1 1 0) 1 1))
|
||
|
|
(d (t-rand 0.15 0.25 t))
|
||
|
|
(a (env-gen kr t (t-rand 0.02 0.04 t) 0 d do-nothing e))
|
||
|
|
(p (env-gen kr t (t-rand 1.0 2.0 t) -1.0 d do-nothing e))
|
||
|
|
(n (t-choose t (mce4 0 2 5 7)))
|
||
|
|
(o 72))
|
||
|
|
(pan2 (sin-osc ar (midi-cps (add n o)) 0) p a)))
|
||
|
|
|
||
|
|
(define shft
|
||
|
|
(lambda ()
|
||
|
|
(let* ((t (impulse kr 12 0))
|
||
|
|
(e (env-bp-linear (list 0 0 (t-rand 0.25 1.0 t) 1 1 0) 1 1))
|
||
|
|
(d (t-rand 0.05 0.125 t))
|
||
|
|
(a (env-gen kr t (t-rand 0.02 0.04 t) 0 d do-nothing e))
|
||
|
|
(p (env-gen kr t (t-rand 1.0 2.0 t) -1.0 d do-nothing e))
|
||
|
|
(n (t-choose t (make-mce (list 0 0 5 7 7 12 12 19))))
|
||
|
|
(o (add 84 (mul (toggle-ff t) 12))))
|
||
|
|
(pan2 (saw ar (midi-cps (add n o))) p a))))
|
||
|
|
|
||
|
|
(define o2
|
||
|
|
(mul (add3 (shft) (shft) (shft)) 0.1))
|
||
|
|
|
||
|
|
(define o3
|
||
|
|
(let* ((t (impulse kr 6 0))
|
||
|
|
(e (env-bp-linear (list 0 0 (t-rand 0.25 1.0 t) 1 1 0) 1 1))
|
||
|
|
(d (t-rand 0.05 0.25 t))
|
||
|
|
(a (env-gen kr t (t-rand 0.01 0.02 t) 0 d do-nothing e))
|
||
|
|
(p (env-gen kr t (t-rand 1.0 2.0 t) -1.0 d do-nothing e))
|
||
|
|
(n (demand t 0 (dibrown dinf 0 7 1)))
|
||
|
|
(o 52))
|
||
|
|
(pan2 (saw ar (midi-cps (degree-to-key 0 (add n o) 12))) p a)))
|
||
|
|
|
||
|
|
(define o4
|
||
|
|
(mul (rlpf (lf-pulse ar (midi-cps (mce2 36 43)) 0.15 0.5)
|
||
|
|
(midi-cps (mul-add (sin-osc kr 0.1 0) 10 36))
|
||
|
|
0.1)
|
||
|
|
0.1))
|
||
|
|
|
||
|
|
(define slly-wlk
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (b-alloc 0 7 1))
|
||
|
|
(send fd (b-setn1 0 0 (list 0 2 3.2 5 7 9 10)))
|
||
|
|
(play fd (out 0 (add4 o1 o2 o3 o4)))))
|
||
|
|
|
||
|
|
(with-sc3 slly-wlk)
|