CommonLISPからOpenGLを動かす.

動かすのはもちろん,X11から.「ターミナル」から動かすとsbclごと落ちるので注意.

$ sbcl   
This is SBCL 1.0.2, an implementation of ANSI Common Lisp.
More information about SBCL is available at http://www.sbcl.org/.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
 * (require :asdf)

("ASDF")
 * (asdf:oos 'asdf:load-op :cl-glut-examples)
............(メッセージがいっぱい出てくる)............
NIL

読み込み完了.あとは実行するのみ

 * (cl-glut-examples:gears)
26397 frames in 5.0 seconds = 5279.400 FPS
26636 frames in 5.0 seconds = 5327.200 FPS
26666 frames in 5.0 seconds = 5333.200 FPS
26683 frames in 5.0 seconds = 5336.600 FPS
26531 frames in 5.0 seconds = 5306.200 FPS

という具合.ポリゴン数が少ないせいか,ちょっと信じられない数値ではあるが..

スクリーンショットがうまくとれないほど,高速で回転している?

さらにrun-examplesでどこかでみたことがあるようなデモをみることができる.

 * (cl-glut-examples:run-examples)