Work on mapper item, simpler generation of items from console

src/Dodge/Item/Draw/SPic.hs

@@ -44,6 +44,7 @@ itemSPic it = case it ^. itType of
     ITEMSCAN -> defSPic
     MAPPER -> defSPic
     INTROSCAN {} -> defSPic
+    DETECTOR dt -> noPic (colorSH (detectorColor dt) $ upperPrismPolySU 3 $ rectWH 2 2)
 
 craftItemSPic :: CraftType -> Shape
 craftItemSPic = \case
@@ -251,7 +252,6 @@ heldItemSPic ht it = case ht of
     TIMESTOPPER -> defSPic
     TIMESCROLLER -> defSPic
     SHATTERGUN -> shatterGunSPic
-    DETECTOR dt -> noPic (colorSH (detectorColor dt) $ upperPrismPolySU 3 $ rectWH 2 2)
     KEYCARD _ -> noShape (setDepth 0 $ translate (-5) (-5) $ rotate (pi / 2.5) keyPic)
 
 torchShape :: Shape