Move towards drawing shapes according to location

src/Dodge/Data/ForegroundShape.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.ForegroundShape where
+import Geometry
+import ShapePicture
+import Control.Lens
+
+data ForegroundShape = ForegroundShape
+    { _fsID :: Int
+    , _fsPos :: Point2
+    , _fsRot :: Float
+    , _fsPic :: SPic
+    }
+  deriving (Eq,Show,Ord)
+makeLenses ''ForegroundShape

src/Dodge/Default/World.hs

@@ -92,6 +92,7 @@ defaultWorld = World
 --    , _config       = defaultConfig
     , _sideEffects  = return
     , _foregroundShape = mempty
+    , _shapes = mempty
     , _distortions     = []
     , _gameRooms = []
     , _roomClipping = []