14 lines
353 B
Racket
14 lines
353 B
Racket
#lang racket
|
|
;; status - working as of 20220820
|
|
|
|
(require rsc3)
|
|
|
|
;; one-line (lance putnam)
|
|
|
|
(define one-line
|
|
(let* ((lfs (mul-add (lf-saw ar (mce2 1 0.99) (mce2 0 0.6)) 2000 2000))
|
|
(lfs-t (mul (trunc lfs (mce2 400 600)) (mce2 1 -1)))
|
|
(f (one-pole (mix lfs-t) 0.98)))
|
|
(pan2 (sin-osc ar f 0) 0 0.1)))
|
|
|
|
(audition (out 0 one-line))
|