Cleanup, split CWorld into separate file

src/Dodge/Default/World.hs

@@ -19,6 +19,14 @@ defaultWorld = World
     , _mouseButtons     = mempty
     , _mousePos = V2 0 0
     , _hammers = defaultWorldHammers
+    , _testFloat = 0
+    , _lLine  = (0,0)
+    , _rLine  = (0,0)
+    , _lSelect   = 0
+    , _rSelect   = 0
+    , _backspaceTimer = 0
+    , _timeFlow = NormalTimeFlow
+    , _rbOptions        = NoRightButtonOptions
     }
 
 defaultCWorld :: CWorld
@@ -95,7 +103,6 @@ defaultCWorld = CWorld
     , _lightSources = IM.empty
     , _tempLightSources = []
     , _closeObjects     = []
-    , _rbOptions        = NoRightButtonOptions
     , _seenLocations        = IM.fromList 
         [(0, (WdYouPos, "CURRENT POSITION"))
         ,(1, (WdP2Const (V2 0 0) , "START POSITION"))
@@ -109,19 +116,12 @@ defaultCWorld = CWorld
     , _worldBounds = defaultBounds
     , _maybeWorld = Nothing'
     , _rewindWorlds = []
-    , _timeFlow = NormalTimeFlow
-    , _backspaceTimer = 0
     , _genParams = GenParams M.empty
 --    , _genPlacements = IM.empty
 --    , _genRooms = IM.empty
     , _deathDelay = Nothing
-    , _testFloat = 0
     , _boundBox = square 100
     , _boundDist = (100,-100,100,-100)
-    , _lLine  = (0,0)
-    , _rLine  = (0,0)
-    , _lSelect   = 0
-    , _rSelect   = 0
     }
 defaultWorldHammers :: M.Map WorldHammer HammerPosition
 defaultWorldHammers = M.fromSet (const HammerUp) $ S.fromList [minBound.. maxBound]