16 lines
351 B
Racket
16 lines
351 B
Racket
|
#lang racket
|
||
|
|
;; status - working as of 20220819
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; analog bubbles (jmcc)
|
||
|
|
|
||
|
|
(define analog-bubbles
|
||
|
|
(let* ((o (mul-add (lf-saw kr (mce2 8 7.23) 0) 3 80))
|
||
|
|
(f (mul-add (lf-saw kr 0.4 0) 24 o))
|
||
|
|
(s (mul (sin-osc ar (midi-cps f) 0) 0.04)))
|
||
|
|
(comb-n s 0.2 0.2 4)))
|
||
|
|
|
||
|
|
(audition (out 0 analog-bubbles))
|
||
|
|
|
||
|
|
;; (with-sc3 reset)
|