I finished a sinewave animation and there's a demonstration page that displays various sinewave videos made during production. The results are surprisingly dynamic. The fun part of this project involved writing a Common Lisp program for generating the sinewaves and this required a few things in addition to writing a sinewave function. There are functions for drawing circles and connecting lines. There's a class for generating exponential curves...
It'll be appearing in a video. Something To Come Undone, dir. Anna Chiaretta Lavatelli, 2010
Here are two tiny code pieces from sinewave.lisp. 'Live on, Common Lisp!
(defmethod coords-to-canvas (coords rgba (canvas image-canvas))
(mapcar #'(lambda (xy)
(pixel-to-canvas xy rgba canvas))
coords))
(defmacro when-inside (frame bgn end &body body)
`(when (and (>= ,frame ,bgn)
(<= ,frame ,end))
,@body))