X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=617ad3ccd76185f18473dd2bc489962601917fe4;hb=b4bb1b1a7180f521bceb564003d906308f93b5b7;hp=62594b53508a1a15d7aa6fa1cc1672e929c955b3;hpb=678a1561ca858c34fecf04792831caf68559c2ac;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index 62594b5..617ad3c 100644
--- 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)