From 4811b65a0a2c4fbb24f8a1120b19fb2993e19ff9 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Sat, 5 Apr 2014 22:02:48 +0200
Subject: [PATCH] Hud is now transparent pink.

---
 src/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 6083381..548ed70 100644
--- 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