32 lines
756 B
Racket
32 lines
756 B
Racket
|
#lang racket
|
||
|
|
;; status - not working as of 20220820
|
||
|
|
|
||
|
|
#|
|
||
|
|
string-append: contract violation
|
||
|
|
expected: string?
|
||
|
|
given: 5474
|
||
|
|
|#
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; chrd (rd)
|
||
|
|
|
||
|
|
(define chrd
|
||
|
|
(lambda (_)
|
||
|
|
(let* ((m (make-mce (list 60 65 72 77 79 84)))
|
||
|
|
(ds 3)
|
||
|
|
(d (make-mce (map (lambda (x) (* x ds)) (list 5 4 5 7 4 5))))
|
||
|
|
(l (x-line kr m (add m (rand-float 0.05 0.5)) d do-nothing))
|
||
|
|
(f (midi-cps l))
|
||
|
|
(z (env-trapezoid 0 (rand 0.15 0.35) d (rand 0.005 0.01)))
|
||
|
|
(e (env-gen kr 1 1 0 1 do-nothing z))
|
||
|
|
(p (x-line kr (rand -1 1) (rand -1 1) d do-nothing))
|
||
|
|
(o (f-sin-osc ar f 0)))
|
||
|
|
(mix (pan2 o p e)))))
|
||
|
|
|
||
|
|
(define chrdn
|
||
|
|
(lambda (n)
|
||
|
|
(mix-fill n chrd)))
|
||
|
|
|
||
|
|
(audition (out 0 (chrdn 5)))
|