27 lines
770 B
Racket
27 lines
770 B
Racket
|
#lang racket
|
||
|
|
;; status - not working as of 20220820 -> (udp-send-to* s h p b)
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; tsort (jmcc)
|
||
|
|
|
||
|
|
;; This simple graph tests the topological sort of the unit generator
|
||
|
|
;; graph, it ought only to use a minimal number of interconnect buffers.
|
||
|
|
|
||
|
|
;; The below 369 node graph works with 'scsynth -u 57110 -w 2'.
|
||
|
|
|
||
|
|
;; (Note that graphs loaded from disk during startup will grow the number
|
||
|
|
;; of interconnect buffers, so to test this we must delete all graphs that
|
||
|
|
;; would otherwise be loaded.)
|
||
|
|
|
||
|
|
|
||
|
|
(define tsort
|
||
|
|
(let* ((n 122)
|
||
|
|
(c (env-bp '(0 0 0.15 1 6 0) 1 1 '(1 1 1)))
|
||
|
|
(e (env-gen kr 1 1 0 1 remove-synth c))
|
||
|
|
(f (lambda (o) (mul (sin-osc ar (add 440 o) 0) 0.001)))
|
||
|
|
(s (mix-fill n f)))
|
||
|
|
(mul s e)))
|
||
|
|
|
||
|
|
(audition (out 0 tsort))
|