Remove CreatureTargeting, start making shapes for crafts

src/Dodge/Item/Draw/SPic.hs

@@ -33,7 +33,7 @@ itemRotTreeSPic par (il, t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeS
 
 itemSPic :: Item -> SPic
 itemSPic it = case it ^. itType of
-    CRAFT _ -> defSPic
+    CRAFT ct -> noPic $ craftItemSPic ct
     HELD ht -> heldItemSPic ht it
     EQUIP et -> equipItemSPic et it
     ATTACH{} -> defSPic
@@ -41,6 +41,54 @@ itemSPic it = case it ^. itType of
     TARGETING{} -> defSPic
     BULLETMOD{} -> defSPic
 
+craftItemSPic :: CraftType -> Shape
+craftItemSPic = \case
+    PIPE -> colorSH green $ xCylinderST 3 10
+--    TUBE
+--    HARDWARE
+--    SPRING
+--    HOSE
+--    TAPE
+--    CAN
+--    TIN
+--    STEELDRUM
+--    PLANK
+--    GLASSSHARD
+--    SCRAPMETAL
+--    PUMP
+--    MOTOR
+--    TRANSFORMER
+--    PRISM
+--    LIGHTER
+--    MAGNET
+--    ANTIMATTER
+--    PLATE
+--    TRANSMITTER
+--    MICROCHIP
+--    HARDDRIVE
+--    RAM
+--    AIUNIT
+--    CAMERA
+--    MINIDISPLAY -- visual display unit
+--    LED
+--    NAILBOX
+--    IRONBAR
+--    LIGHTSENSOR
+--    SOUNDSENSOR
+--    HEATSENSOR
+--    MICROPHONE
+--    THERMOMETER
+--    CREATURESENSOR
+--    WIRE
+--    FUELCELL
+--    PORTABLEFUSION
+--    FRAGMODULE
+--    FLASHMODULE
+--    GASINJECTOR
+--    FLAKCRAFT
+--    FRAGCRAFT
+    _ -> mempty
+
 ammoMagSPic :: Item -> AmmoMagType -> SPic
 ammoMagSPic it = \case
     TINMAG -> noPic $ upperPrismPolyTS 1 (rectNSWE 0 (- (am * 5)) (-1) 1)
@@ -186,7 +234,6 @@ heldItemSPic ht it = case ht of
     AMR -> noPic baseAMRShape
     AUTOAMR -> noPic baseAMRShape
     SNIPERRIFLE -> noPic baseAMRShape -- <> addBullets it
-    --    MACHINEGUN -> noPic $ baseAMRShape <> addTinClip it
     FLAMESPITTER -> flamerPic it
     FLAMETHROWER -> flamerPic it
     FLAMETORRENT -> flamerPic it