]> git.jsancho.org Git - gacela.git/commitdiff
(no commit message)
authorjsancho <devnull@localhost>
Fri, 28 Aug 2009 15:41:08 +0000 (15:41 +0000)
committerjsancho <devnull@localhost>
Fri, 28 Aug 2009 15:41:08 +0000 (15:41 +0000)
gacela.lisp
gacela_draw.lisp

index efdeb60e95d68f58d411ad69e086fe967a25ac70..aea2df64dba8740354591c7a2f061ebf239f969c 100644 (file)
 
 
 (defun init-GL ()
+  (2d-mode)
   (glShadeModel GL_SMOOTH)
   (glClearColor 0 0 0 0)
   (glClearDepth 1)
-  (glDisable GL_DEPTH_TEST)
   (glDepthFunc GL_LEQUAL)
 ;  (glEnable GL_BLEND)
 ;  (glBlendFunc GL_SRC_ALPHA GL_ONE)
 
 (defun resize-screen-GL (width height)
   (let ((ratio (if (= height 0) width (/ width height))))
-    (glViewPort 0 0 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)
+;    (gluPerspective 45 ratio 0.1 100)
     (glMatrixMode GL_MODELVIEW)
     (glLoadIdentity)
     t))
index d957cd77e5a51a15789fc65fa01d476bce8f7278..40a6c4ccf0a5e7bbab41da7f4a01f587f000b267 100644 (file)
 
 (let ((mode '2d))
   (defun 2d-mode ()
+    (glDisable GL_DEPTH_TEST)
     (setq mode '2d))
 
   (defun 3d-mode ()
+    (glEnable GL_DEPTH_TEST)
     (setq mode '3d))
 
   (defun 3d-mode? ()