Hud is now transparent pink.

2014-04-05 22:02:48 +02:00 · 2014-04-05 22:02:48 +02:00 · 4811b65a0a
commit 4811b65a0a
parent 189f9f84fa
1 changed files with 3 additions and 1 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -468,7 +468,9 @@ adjustWindow = do
                   let hudtexid = state ^. gl.glHud.hudTexture
                       maptexid = state ^. gl.glMap.mapTexture
                   allocaBytes (fbWidth*fbHeight*4) $ \ptr -> do
-                        let imData = take (fbWidth*fbHeight*4) (cycle [255,0,0,64] :: [Int8])
+                                                               --default to ugly pink to see if
+                                                               --somethings go wrong.
+                        let imData = take (fbWidth*fbHeight*4) (cycle [255,0,255,0] :: [Int8])
                        --putStrLn $ show imData
                        pokeArray ptr imData
                        -- HUD