X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=src%2Fvideo.scm;h=06e263d913c9b29d2b95054cd2183c86c8fde6cf;hp=0b49679605ce0e2082ee15da3cea7b0b8dad442c;hb=f3f295df512f5c2a4668f2d8c38977ea7c650911;hpb=525f2b2cd2b56afe6eca25a67ebb93eed3f69403

diff --git a/src/video.scm b/src/video.scm
index 0b49679..06e263d 100644
--- a/src/video.scm
+++ b/src/video.scm
@@ -138,14 +138,14 @@
 
 (define (set-2d-mode)
   (set! mode '2d)
-  (gl-disable depth-test)
+  (gl-disable (enable-cap depth-test))
   (resize-screen-GL (get-screen-width) (get-screen-height)))
 
 (define (set-3d-mode)
   (set! mode '3d)
-  (sel-gl-clear-depth 1)
-  (gl-enable depth-test)
-  (set-gl-depth-function lequal)
+  (set-gl-clear-depth 1)
+  (gl-enable (enable-cap depth-test))
+  (set-gl-depth-function (depth-function lequal))
   (resize-screen-GL (get-screen-width) (get-screen-height)))
 
 (define (3d-mode?)
@@ -166,11 +166,11 @@
 
 
 (define (init-gl)
-  (set-gl-shade-model GL_SMOOTH)
-  (glClearColor 0 0 0 0)
-  (gl-enable GL_BLEND)
-  (glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA)
-  (glHint GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST))
+  (set-gl-shade-model (shading-model smooth))
+  (set-gl-clear-color 0 0 0 0)
+  (gl-enable (enable-cap blend))
+  (set-gl-blend-function (blending-factor-dest src-alpha) (blending-factor-dest one-minus-src-alpha))
+  (glHint (hint-target perspective-correction-hint) (hint-mode nicest)))
 
 (define (resize-screen-GL width height)
   (glViewport 0 0 width height)