From 56b9b2dd9eef0a435913b9f54d8f5f4448e0c0cd Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Thu, 23 Jun 2022 14:53:08 +0100
Subject: [PATCH] Move towards drawing shapes according to location

---
 src/Dodge/Data/ForegroundShape.hs | 15 +++++++++++++++
 src/Dodge/Default/World.hs        |  1 +
 2 files changed, 16 insertions(+)
 create mode 100644 src/Dodge/Data/ForegroundShape.hs

diff --git a/src/Dodge/Data/ForegroundShape.hs b/src/Dodge/Data/ForegroundShape.hs
new file mode 100644
index 000000000..a95fcc380
--- /dev/null
+++ b/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
diff --git a/src/Dodge/Default/World.hs b/src/Dodge/Default/World.hs
index 146e83891..eaada9b1b 100644
--- a/src/Dodge/Default/World.hs
+++ b/src/Dodge/Default/World.hs
@@ -92,6 +92,7 @@ defaultWorld = World
 --    , _config       = defaultConfig
     , _sideEffects  = return
     , _foregroundShape = mempty
+    , _shapes = mempty
     , _distortions     = []
     , _gameRooms = []
     , _roomClipping = []