Code Immersion

enter the x and y values (ratio is important), then phase, the RGB values
call: (lissajous x y phase R G B)

After the “better draw”, place this!

(define lissajous
  (lambda (Horizontal Vertical phase (Red 0) (Green 0) (Blue 0))
    (show-window)
    (for ((t (in-range 0 1000)))
      (let ((y (+ 230 (* 225 (sin (/ t Vertical)))))
            (x (+ 230 (* 225 (sin (/ (+ t phase ) Horizontal))))))
        (ellipse x y 12 12 Red Green Blue 1)
        (sleep/yield .00001)))))

This entry was posted on October 22, 2009 at 10:00 am and is filed under Uncategorized.