From a60702dd882768e7f5b7fcadd39253ac8de9114f Mon Sep 17 00:00:00 2001 From: Joshua Rahm Date: Tue, 29 Apr 2014 03:57:40 -0600 Subject: added cheesey snow --- Final.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Final.hs') diff --git a/Final.hs b/Final.hs index 3b3e2c4..8676b13 100644 --- a/Final.hs +++ b/Final.hs @@ -122,6 +122,7 @@ colorArray marr = do - 2 things: - A map of water bodies ids to elevations (to detect if you are under water - A builder that will generate all of the quads for the water. -} + getWaterQuads :: Array (Int,Int) Tile -> IOArray (Int,Int) Int -> IO ( Map.Map Int GLfloat, BuilderM GLfloat () ) getWaterQuads marr arr = do let (_,(w,h)) = bounds marr -- cgit