Common Lisp
Switch branches/tags
Nothing to show
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
.gitignore
3d-math.lisp
README
anorms.lisp
bounding-box.lisp
cad-view.lisp
gl-texture.lisp
id-md2.lisp
md2-view.asd
md2-view.lisp
package.lisp

README

md2-view is just that, an Id MD2 model viewer. Nothing fancy. I'm in the
process of learning Common Lisp. In other words, don't look for elite Lisp
code here. ;)

Dependencies:
  lispbuilder-sdl
  lispbuilder-sdl-image
  cl-opengl

Running:   
  Load md2-view.lisp.
  The main function is MD2-VIEW:RUN.
  Give it a list of model file names to load.

Interface:
  * Mouse
      Left mouse button to rotate
      Middle button to zoom
      Right button to pan
      Ctrl+Left mouse button to drag a zoom box
  * Keys
      1 - top view
      2 - right view
      3 - front view
      4 - isometric view
      5 - left view
      6 - bottom view
      7 - back view      
      a - toggle animation (animation will not start at the last frame)
      b - toggle bounding boxes (disabled during animation)
      c - cycle line -> point -> face polygon modes
      f - fit all loaded models in the view
      g - toggle gnome (disabled during animation)
      h - print these commands
      i - print loaded models info to stdout
      l - toggle lighting (default OpenGL lighting is implemented)
      n - next frame (disabled during animation)
      p - previous frame (disabled during animation)
      q - exit
      s - cycle smooth -> flat shade models
      t - toggle textures 

TODO:
  * Use Pathnames for all file ops
  * load .tga textures
  * more error checking (catch zoom overflow)