Refactor, try to limit dependencies

src/Dodge/Event/Test.hs

@@ -1,15 +1,9 @@
-module Dodge.Event.Test
-    ( testEvent
-    )
-  where
-import Dodge.Data
---import Dodge.Base
---import Dodge.Default
---import Picture
---import Geometry
---
---import qualified IntMapHelp as IM
---import Control.Lens
+module Dodge.Event.Test (
+    testEvent,
+) where
+
+import Dodge.Data.World
+
 testEvent :: World -> World
 testEvent w = w
 
@@ -21,17 +15,17 @@ testEvent w = w
 --
 --    testWalls = IM.fromList $ zip [k..] $ setKeys (startWalls ++ errorWalls ++ (errorWall : polyWalls) ++ endWalls)
 --
---    polyPairs = makeLoopPairs 
+--    polyPairs = makeLoopPairs
 --        $ reverse [(-340.0,59.999996),(-374.64102,79.99999),(-340.0,100.0)]
 ----        [(4172.5835,2597.1892),(3855.1414,2597.1895),(3855.141,2324.7563),(4172.5835,2324.756)]
 --    polyWalls = map (wallWithCol red . flat2) polyPairs
--- 
---    errorWallPair = 
+--
+--    errorWallPair =
 --        (9,[(-340.0,60.0),(-320.0,60.0)])
 ----        (48,[(3855.1414,2587.1892),(3855.141,2324.7563)])
 --    errorWall = wallWithCol green $ snd errorWallPair
 --
---    errorWallPairs = 
+--    errorWallPairs =
 --        [(1,[(-400.0,59.999996),(-340.0,60.0)])
 --        ,(12,[(-340.0,60.0),(-340.0,59.999996)])
 --        ]
@@ -39,8 +33,8 @@ testEvent w = w
 ----        ,(49,[(3855.1414,2597.1895),(3855.1414,2587.1892)])
 ----        ]
 --    errorWalls = map (wallWithCol blue . snd) errorWallPairs
---    
---    startWallPairs = 
+--
+--    startWallPairs =
 --        [(0,[(-320.0,60.0),(-320.0,100.0)])
 --        ,(1,[(-400.0,59.999996),(-320.0,60.0)])
 --        ,(2,[(-400.0,100.0),(-400.0,59.999996)])
@@ -61,9 +55,9 @@ testEvent w = w
 ----        ,(40,[(3895.1414,2647.1892),(3895.1414,2667.1892)])
 ----        ]
 --    startWalls = map (wallWithCol yellow . snd) startWallPairs
---    
+--
 --    endWalls = map (wallWithCol (withAlpha 0.2 orange) . snd) endWallPairs
---    endWallPairs = 
+--    endWallPairs =
 --        [(0,[(-320.0,60.0),(-320.0,100.0)])
 --        ,(1,[(-400.0,59.999996),(-340.0,60.0)])
 --        ,(2,[(-400.0,100.0),(-400.0,59.999996)])