;; (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)))