Cleanup

src/Dodge/Render/ShapePicture.hs

@@ -109,7 +109,6 @@ extraPics cfig u =
         <> foldMap drawBlip (_radarBlips lw)
         <> _flares lw
         <> foldMap drawLightSource (_lightSources lw)
-        <> foldMap ppDraw (_pressPlates lw)
         <> viewClipBounds cfig w
         <> showEnabledDebugs cfig
         <> foldMap _debugPic (_uvDebug u) -- debug messages are in fixed coord pics
@@ -117,9 +116,6 @@ extraPics cfig u =
     w = u ^. uvWorld
     lw = w ^. cWorld . lWorld
 
-ppDraw :: PressPlate -> Picture
-ppDraw c = uncurryV translate (_ppPos c) $ rotate (_ppRot c) (_ppPict c)
-
 floorItemSPic :: Item -> FloorItem -> SPic
 floorItemSPic itm flit =
     uncurryV translateSPxy (_flItPos flit) $