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

Fixed bug with non-exhaustive tile matching

Browse Source
This commit is contained in:
jbetzend 2014-03-28 14:05:28 +01:00
parent 3760d77cbb
commit 4ffab54d04
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Map/Graphics.hs
View File

@ -188,10 +188,13 @@ colorLookup hs t = if inRange (bounds hs) t then c else (0.0, 0.0, 0.0)
where where
(_,tp) = hs ! t (_,tp) = hs ! t
c = case tp of c = case tp of
Ocean -> (0.5, 0.5, 1) Ocean -> (0.50, 0.50, 1.00)
Beach -> (0.9, 0.85, 0.7) Lake -> (0.40, 0.87 ,1.00)
Grass -> (0.3, 0.9, 0.1) Beach -> (0.90, 0.85, 0.70)
Mountain -> (0.5, 0.5, 0.5) Desert -> (1.00, 0.87, 0.39)
Grass -> (0.30, 0.90, 0.10)
Hill -> (0.80, 0.80, 0.80)
Mountain -> (0.50, 0.50, 0.50)
coordLookup :: (Int,Int) -> GLfloat -> V3 GLfloat coordLookup :: (Int,Int) -> GLfloat -> V3 GLfloat
coordLookup (x,z) y = coordLookup (x,z) y =