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