Refactor item drawing

src/Dodge/Room/Placement.hs

@@ -4,6 +4,7 @@ module Dodge.Room.Placement
 import Dodge.Data
 import Dodge.Default.Wall
 import Dodge.LevelGen.Data
+import Dodge.LevelGen.Switch
 import Dodge.Room.Data
 import Dodge.Creature.Inanimate
 import Picture
@@ -11,6 +12,7 @@ import Geometry
 
 import Data.List
 import Control.Lens
+import qualified Data.IntMap.Strict as IM
 
 putColorLamp :: Point3 -> PSType
 putColorLamp col = PutCrit (colorLamp col 90)
@@ -178,3 +180,11 @@ putBlockN a x b y = [ blockLine (V2 a b) (V2 a y)
                     , blockLine (V2 x b) (V2 a b)
                     , blockLine (V2 x y) (V2 x b)
                     ]
+
+switchDoor :: Point2 -> Float -> Point2 -> Point2 -> Color -> Placement
+switchDoor btpos btrot dra drb col = Placement (PS btpos btrot $ PutButton $ makeSwitch col red id id)
+    $ \btid -> jsps0J (PutSingleDoor col (cond btid) dra drc 2)
+    $          sps0   (PutSingleDoor col (cond btid) drb drc 2)
+  where
+    drc = 0.5 *.* (dra +.+ drb)
+    cond btid w' = _btState (_buttons w' IM.! btid) == BtOn