From bda01964ee540d9c66951d067722d46bfa6e50bf Mon Sep 17 00:00:00 2001
From: Naoki-Hiraoka <hiraoka@jsk.imi.i.u-tokyo.ac.jp>
Date: Sat, 29 Sep 2018 02:47:35 +0900
Subject: [PATCH] [glview.l]fix :3d-mode, :2d-mode

---
 lisp/opengl/src/glview.l | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/opengl/src/glview.l b/lisp/opengl/src/glview.l
index abdc39faa..b72a82a4e 100644
--- a/lisp/opengl/src/glview.l
+++ b/lisp/opengl/src/glview.l
@@ -286,6 +286,7 @@
 					  0.0 0.0 500.0
 					  0.0 0.0 1.0))
 	    |#
+	    (glPopMatrix)
 	    (glEnable GL_DEPTH_TEST)
 	    (glEnable GL_LIGHTING)
 	    (glMatrixMode GL_MODELVIEW)
@@ -293,6 +294,7 @@
   (:2d-mode ()
 	    (glViewport 0 0 x::width x::height)
 	    (glMatrixMode GL_PROJECTION)
+	    (glPushMatrix)
 	    (glLoadIdentity)
 	    (glorthofv (float-vector 0 x::width 0 x::height -1.0 1.0))
 	    (glDisable GL_DEPTH_TEST)