Skip to content
Common Lisp
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
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)
You can’t perform that action at this time.