From 6395be334796d55b018171552e71c0abfbfd8955 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 22 Nov 2009 20:26:21 +0000
Subject: [PATCH] work around GL drawing problem that appears in Snow Leopard
 (merge to 4.2.3)

svn: r16966
---
 collects/games/jewel/jewel.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/collects/games/jewel/jewel.scm b/collects/games/jewel/jewel.scm
index 3caf466e3c..b976b0d3c2 100644
--- a/collects/games/jewel/jewel.scm
+++ b/collects/games/jewel/jewel.scm
@@ -1431,7 +1431,12 @@
         (counter 0)
 		   
       )
-    
+
+      ;; This shouldnt do anything, but it fixes drawing in 
+      ;; Snow Leopard. Bug in the game or in Snow Leopard?
+      (glEnable GL_LIGHT2)
+      (glDisable GL_LIGHT2)
+              
       (glEnable  GL_BLEND)
       (do ((iy 0 (+ iy 1))) ((= iy ey))
         (set! x (* (- t) (- (/ ex 2.0) 0.5)))
@@ -1461,7 +1466,7 @@
           (set! xt nx)
           (set! yt ny)
           (set! zt nz)
-          
+
           (if (and (equal? gamestate 'PLAYING)
                    (= cposx ix) (= cposy iy))
             (begin