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)