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 = []