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.