From 3de90e7618e8f446f6a96bd94346871de8a1191a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Renaud=20Casenave-P=C3=A9r=C3=A9?= <renaud@casenave-pere.fr>
Date: Wed, 22 Oct 2014 10:43:42 +0900
Subject: [PATCH] Add opengl's one time settings in the initialize process

---
 src/render/render.lisp | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/render/render.lisp b/src/render/render.lisp
index 7a37889..c84079e 100644
--- a/src/render/render.lisp
+++ b/src/render/render.lisp
@@ -13,6 +13,15 @@
 
 (defvar *window* nil)
 
+(defun initialize-renderer ()
+  (gl:enable :cull-face)
+  (gl:cull-face :back)
+  (gl:front-face :cw)
+  (gl:enable :depth-test)
+  (gl:depth-mask :true)
+  (gl:depth-func :lequal)
+  (gl:depth-range 0.0 1.0))
+
 (defun initialize (&optional argv)
   "Initialize the render module.
 Create an opengl context attached to a window and initialize the shader system."
@@ -30,7 +39,8 @@ Create an opengl context attached to a window and initialize the shader system."
         (progn
           (setf *window* (glop:create-window title width height))
           (gl-utils:initialize 0)))
-    (shader:compile-all-shaders)))
+    (shader:compile-all-shaders))
+  (initialize-renderer))
 
 (defun finalize ()
   "Finalize the render module.