55 lines
1.3 KiB
Scheme
55 lines
1.3 KiB
Scheme
|
;; (henon-n rate freq a b x0 x1)
|
||
|
|
;; (henon-l rate freq a b x0 x1)
|
||
|
|
;; (henon-c rate freq a b x0 x1)
|
||
|
|
|
||
|
|
;; Henon map chaotic generator.
|
||
|
|
|
||
|
|
;; freq - iteration frequency in Hertz -- 22050
|
||
|
|
;; a, b - equation variables -- 1.4, 0.3
|
||
|
|
;; x0, x1 - initial and second values of x -- 0, 0
|
||
|
|
|
||
|
|
;; A non-interpolating sound generator based on the difference
|
||
|
|
;; equation:
|
||
|
|
|
||
|
|
;; xn + 2 = 1 - axn + 12 + bxn
|
||
|
|
|
||
|
|
;; This equation was discovered by French astronomer Michel Henon
|
||
|
|
;; while studying the orbits of stars in globular clusters.
|
||
|
|
|
||
|
|
;; With default initial parameters.
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (henon-n ar (mouse-x kr 20 sample-rate 0 0.1) 1.4 0.3 0 0)
|
||
|
|
0.1)))
|
||
|
|
|
||
|
|
;; With mouse-control of parameters.
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (henon-n ar
|
||
|
|
(fdiv sample-rate 4)
|
||
|
|
(mouse-x kr 1 1.4 0 0.1)
|
||
|
|
(mouse-y kr 0 0.3 0 0.1)
|
||
|
|
0
|
||
|
|
0)
|
||
|
|
0.1)))
|
||
|
|
|
||
|
|
;; With randomly modulate parameters.
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (henon-n ar
|
||
|
|
(fdiv sample-rate 8)
|
||
|
|
(mul-add (lf-noise2 kr 1) 0.20 1.20)
|
||
|
|
(mul-add (lf-noise2 kr 1) 0.15 0.15)
|
||
|
|
0
|
||
|
|
0)
|
||
|
|
0.1)))
|
||
|
|
|
||
|
|
;; As a frequency control.
|
||
|
|
|
||
|
|
(let ((x (mouse-x kr 1 1.4 0 0.1))
|
||
|
|
(y (mouse-y kr 0 0.3 0 0.1))
|
||
|
|
(f 40))
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (sin-osc ar (mul-add (henon-n ar f x y 0 0) 800 900) 0)
|
||
|
|
0.4))))
|