Cleanup, split itemToBreakLists

src/Dodge/Item/Draw/SPic.hs

@@ -141,12 +141,6 @@ craftItemSPic = \case
             . upperCylinder Small Typical 1
             $ polyCirc 3 4
 
---    FRAGMODULE
---    FLASHMODULE
---    GASINJECTOR
---    FLAKCRAFT
---    FRAGCRAFT
-
 ammoMagSPic :: Item -> AmmoMagType -> SPic
 ammoMagSPic it = \case
     TINMAG -> noPic $ upperPrismPolyTS 1 (rectNSWE 0 (- (am * 5)) (-1) 1)
@@ -385,10 +379,7 @@ volleyGunShape i =
 
 -- to get this rotating should probably add extra state to the minigun
 miniGunXPictItem :: Int -> Item -> SPic
-miniGunXPictItem i it = miniGunXPict i spin
-  where
-    --spin = (-10) + _warmTime (_heldDelay $ _itUse it)
-    spin = (-10) + _wTime (_itParams it)
+miniGunXPictItem i it = miniGunXPict i (_wTime (_itParams it) - 10)
 
 miniGunXPict :: Int -> Int -> SPic
 miniGunXPict i spin =
@@ -421,14 +412,6 @@ rlauncherPic _ = noPic . colorSH cyan $ xCylinderST 5 20
 glauncherPic :: Item -> SPic
 glauncherPic _ = noPic . colorSH green $ xCylinderST 5 20
 
---launcherPic _ = noPic . colorSH cyan $ xCylinder 4 5 20
---    ( colorSH cyan $
---        prismPoly
---            (map (+.+.+ V3 20 0 5) $ polyCircx 4 5)
---            (map (+.+.+ V3 0 0 5) $ polyCircx 4 5)
---    , mempty
---    )
-
 baseRodShape :: Shape
 baseRodShape = colorSH orange $ xCylinderST 3 20
 
@@ -494,14 +477,5 @@ keyPic =
             , thickLine 2 $ map toV2 [(4, 0), (4, -4)]
             ]
 
---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)]
---            ]
-
 legsSPic :: Color -> SPic
 legsSPic col = noPic $ translateSH (V3 0 4 0) $ colorSH col $ upperPrismPolyST 3 $ rectWH 2 2