From: jsancho <devnull@localhost>
Date: Wed, 2 Dec 2009 19:34:02 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=41c9fd5f4de137f599da657390fd53372ee06b05;p=gacela.git

---

diff --git a/gacela.lisp b/gacela.lisp
index d5d2852..a7045ce 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -86,16 +86,16 @@
   (glEnable GL_LIGHTING))
 
 (defun resize-screen-GL (width height)
-  (let ((ratio (if (= height 0) width (/ width height))))
-;    (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)
-    t))
+  (cond ((3d-mode?) (glViewPort 0 0 width height)))
+  (glMatrixMode GL_PROJECTION)
+  (glLoadIdentity)
+  (cond ((3d-mode?) (let ((ratio (if (= height 0) width (/ width height))))
+		      (gluPerspective 45 ratio 0.1 100)))
+	(t (let* ((w (/ width 2)) (-w (neg w)) (h (/ height 2)) (-h (neg h)))
+	     (glOrtho -w w -h h 0 1))))
+  (glMatrixMode GL_MODELVIEW)
+  (glLoadIdentity)
+  t))
 
 (let ((current-color '(1 1 1 1)))
   (defun get-current-color ()