Refactoring, add screen when generating level

src/Dodge/LevelGen/LineBlock.hs

@@ -17,7 +17,14 @@ import qualified Data.IntMap as IM
 evenOddSplit = foldr f ([],[])
     where f a (ls,rs) = (rs, a : ls)
 
-putLineBlock :: Wall -> Float -> Float -> Point2 -> Point2 -> World -> World
+putLineBlock 
+    :: Wall     -- Base pane
+    -> Float    -- Block width
+    -> Float    -- Block depth
+    -> Point2   -- Start point (symmetric)
+    -> Point2   -- End point (symmetric)
+    -> World 
+    -> World
 putLineBlock basePane blockWidth depth a b w = removePathsCrossing a b $ foldr insertBlock w listBlocks
   where 
     d = dist a b