Remove item picture field, handled by outside function

src/Dodge/Item/PassKey.hs

@@ -2,10 +2,7 @@ module Dodge.Item.PassKey where
 import Dodge.Data
 import Dodge.Default
 import Picture
-import Geometry.Data
 import LensHelp
-import ShapePicture
-import Shape
 keyCard :: Int -> Item
 keyCard n = defaultEquipment
     { _itEffect = NoItEffect
@@ -14,15 +11,6 @@ keyCard n = defaultEquipment
     , _itInvColor = aquamarine
     }
     & itType . iyBase .~ KEYCARD n
-    & itDimension . dimSPic .~  (const . noShape) 
-        (setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) keyPic)
-
-keyPic :: Picture
-keyPic = color green $
-              pictures [translate (-4) 0 $ thickCircle 4 2
-                       ,thickLine 2 $ map toV2 [(0,0),(8,0),(8,-4)]
-                       ,thickLine 2 $ map toV2 [(4,0),(4,-4)]
-                       ]
 
 latchkey :: Int -> Item
 latchkey _ = defaultEquipment
@@ -31,11 +19,3 @@ latchkey _ = defaultEquipment
 --    , _itZoom = defaultItZoom
     , _itInvColor = yellow
     }
-    & itDimension . dimSPic .~ ( \_ -> (,) emptySH $ setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
-            )
-latchkeyPic :: Picture
-latchkeyPic = color yellow $
-              pictures [translate (-4) 0 $ thickCircle 4 2
-                       ,thickLine 2 $ map toV2 [(0,0),(8,0),(8,-4)]
-                       ,thickLine 2 $ map toV2 [(4,0),(4,-4)]
-                       ]