Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Hud is now transparent pink.

Browse Source
This commit is contained in:
Nicole Dresselhaus 2014-04-05 22:02:48 +02:00
parent 189f9f84fa
commit 4811b65a0a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main.hs
View File

@ -468,7 +468,9 @@ adjustWindow = do
let hudtexid = state ^. gl.glHud.hudTexture let hudtexid = state ^. gl.glHud.hudTexture
maptexid = state ^. gl.glMap.mapTexture maptexid = state ^. gl.glMap.mapTexture
allocaBytes (fbWidth*fbHeight*4) $ \ptr -> do 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 --putStrLn $ show imData
pokeArray ptr imData pokeArray ptr imData
-- HUD -- HUD