40 lines
1.3 KiB
Scheme
40 lines
1.3 KiB
Scheme
;; (latoocarfian-c rate freq a b c d xi yi)
|
|
;; (latoocarfian-l rate freq a b c d xi yi)
|
|
;; (latoocarfian-n rate freq a b c d xi yi)
|
|
|
|
;; This is a function given in Clifford Pickover's book Chaos in
|
|
;; Wonderland, pg 26. The function has four parameters a, b, c, and
|
|
;; d. The function is:
|
|
|
|
;; xnew = sin(y * b) + c * sin(x * b);
|
|
;; ynew = sin(x * a) + d * sin(y * a);
|
|
;; x = xnew;
|
|
;; y = ynew;
|
|
;; output = x;
|
|
|
|
;; According to Pickover, parameters a and b should be in the range
|
|
;; from -3 to +3, and parameters c and d should be in the range from
|
|
;; 0.5 to 1.5. The function can, depending on the parameters given,
|
|
;; give continuous chaotic output, converge to a single value
|
|
;; (silence) or oscillate in a cycle (tone). This UGen is
|
|
;; experimental and not optimized currently, so is rather hoggish of
|
|
;; CPU.
|
|
|
|
;; Default initial parameters.
|
|
|
|
(let ((x (mouse-x kr 20 sample-rate 0 0.1)))
|
|
(audition
|
|
(out 0 (mul (latoocarfian-c ar x 1 3 0.5 0.5 0.5 0.5) 0.2))))
|
|
|
|
;; randomly modulate all parameters.
|
|
|
|
(audition
|
|
(out 0 (mul (latoocarfian-c ar
|
|
(fdiv sample-rate 4)
|
|
(mul-add (lf-noise2 kr 2) 1.5 1.5)
|
|
(mul-add (lf-noise2 kr 2) 1.5 1.5)
|
|
(mul-add (lf-noise2 kr 2) 0.5 1.5)
|
|
(mul-add (lf-noise2 kr 2) 0.5 1.5)
|
|
0.5
|
|
0.5)
|
|
0.2)))
|