Tweak pillar room

src/Dodge/Default.hs

@@ -199,7 +199,7 @@ defaultIt = Consumable
     , _itMaxStack = 3
     , _itAmount = 2
     , _cnEffect = const return
-    , _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
+    , _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ polygon $ square 3
     , _itEquipPict = \_ _ -> (,) emptySH blank
     , _itID = Nothing
     , _itInvDisplay = _itName
@@ -209,15 +209,15 @@ defaultIt = Consumable
     , _itAimStance = LeaveHolstered
     }
 defaultDrawButton :: Color -> Button -> SPic
-defaultDrawButton col bt
-    | _btState bt == BtOff = 
-        ( translateSHz 15 . colorSH col $ upperPrismPoly 5 $ rectNSEW 5 (-5) 10 (-10)
-        , mempty
-        )
-    | otherwise = 
-        ( translateSHz 15 . colorSH red $ upperPrismPoly 5 $ rectNSEW (-3) (-5) 10 (-10)
-        , mempty
-        )
+defaultDrawButton col bt =
+    ( translateSHz 15 . colorSH col $ upperPrismPoly 5 buttonGeometry
+    , mempty
+    )
+  where
+    buttonGeometry
+        | _btState bt == BtOff = rectWH width 5
+        | otherwise = rectNSEW (-3) (-5) width (-width)
+    width = 8
 defaultButton :: Button
 defaultButton = Button
     { _btPict = defaultDrawButton (dark red)
@@ -240,7 +240,7 @@ defaultPT = Projectile
     }
 defaultPP :: PressPlate
 defaultPP = PressPlate
-    { _ppPict = onLayer PressPlateLayer $ color (dim $ dim $ bright blue) $ circleSolid 5
+    { _ppPict = onLayer PressPlateLayer . color (dim . dim $ bright blue) $ circleSolid 5
     , _ppPos = V2 0 0
     , _ppRot = 0
     , _ppEvent = const id
@@ -257,6 +257,5 @@ defaultTLS = TLS
     }
   where
     f _ t 
-        | _tlsTime t <= 0 
-                    = Nothing
-        | otherwise = Just $ t & tlsTime -~ 1
+        | _tlsTime t <= 0 = Nothing
+        | otherwise       = Just $ t & tlsTime -~ 1