Brian's brain implementation in Common Lisp, as described on my blog (with minor tweaks, like system and package names).

After loading, use the following code for an endless movie:

(brians-brain:run 160 100 640 400)