Reify press plates

src/Dodge/Data/PressPlate.hs

@@ -0,0 +1,19 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.PressPlate
+    where
+import Geometry.Data
+import Picture
+import Control.Lens
+data PressPlateEvent = PressPlateId
+    | PPLevelReset
+  deriving (Eq,Ord,Show,Read)
+data PressPlate = PressPlate 
+    { _ppPict :: Picture
+    , _ppPos :: Point2
+    , _ppRot :: Float
+    , _ppEvent :: PressPlateEvent
+    , _ppID :: Int
+    , _ppText :: String
+    }
+makeLenses ''PressPlate