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