26 lines
693 B
Scheme
26 lines
693 B
Scheme
|
;; (quad-n rate freq a b c xi)
|
||
|
|
;; (quad-l rate freq a b c xi)
|
||
|
|
;; (quad-c rate freq a b c xi)
|
||
|
|
|
||
|
|
;; freq - iteration frequency in Hertz
|
||
|
|
;; a, b, c - equation variables
|
||
|
|
;; xi - initial value of x
|
||
|
|
|
||
|
|
;; General quadratic map chaotic generator. Non-, linear- and cubic-
|
||
|
|
;; interpolating sound generators based on the difference equation:
|
||
|
|
;; xn+1 = axn2 + bxn + c
|
||
|
|
|
||
|
|
(define quad_ quad-c)
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (quad_ ar 4000 1 -1 -0.75 0) 0.2)))
|
||
|
|
|
||
|
|
(let ((r (mouse-x kr 3.5441 4 0 0.1)))
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (quad_ ar 4000.0 (neg r) r 0 0.1) 0.4))))
|
||
|
|
|
||
|
|
(let ((r (mouse-x kr 3.5441 4 0 0.1)))
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (sin-osc ar (mul-add (quad_ ar 4 (neg r) r 0 0.1) 800 900) 0)
|
||
|
|
0.4))))
|