(no commit message)

[gacela.git] / gacela.lisp

diff --git a/gacela.lisp b/gacela.lisp
index 62594b53508a1a15d7aa6fa1cc1672e929c955b3..617ad3ccd76185f18473dd2bc489962601917fe4 100644 (file)
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -112,6 +112,8 @@
     (glViewPort 0 0 width height)
     (glMatrixMode GL_PROJECTION)
     (glLoadIdentity)
+    (let* ((w (/ width 2)) (-w (neg w)) (h (/ height 2)) (-h (neg h)))
+      (glOrtho -w w -h h 0 1))
     (gluPerspective 45 ratio 0.1 100)
     (glMatrixMode GL_MODELVIEW)
     (glLoadIdentity)