Add line shadow shader

src/Dodge/Initialisation.hs

@@ -21,8 +21,8 @@ initializeWorld w = w
 
 firstWorld :: IO World
 firstWorld = do
-    i <- randomRIO (0,5000)
---    let i = 2
+--    i <- randomRIO (0,5000)
+    let i = 2
     putStrLn $ "Seed for level generation: " ++ show ( i :: Int)
     return $ generateLevelFromRoomList levx $ initialWorld {_randGen = mkStdGen i}