Enable duct taping torches to rifles

src/Dodge/Item/Draw/SPic.hs

@@ -54,7 +54,7 @@ heldItemSPic :: HeldItemType -> Item -> SPic
 heldItemSPic ht it = case ht of
     FLATSHIELD -> flatShieldEquipSPic
     FORCEFIELDGUN   -> defSPic
-    TORCH   -> noPic $ torchShape
+    TORCH   -> noPic torchShape
     BANGSTICK i     -> noPic $ baseStickShapeX it i <> stickClip it
     PISTOL          -> noPic $ baseStickShape <> makeTinClipAt pi (V3 5 2 0) it
     REVOLVER        -> noPic $ baseStickShape <> revolverClip it
@@ -108,7 +108,7 @@ torchShape =  colorSH blue
     <> translateSHf 0 (-1.5) side
     <> translateSHz 2.5 top
     <> translateSHz (-0.5) bot
-    <> translateSHf (-3) 0 back
+    <> back
   where
     side = upperPrismPoly 3 $ rectXH 10 0.5
     top  = upperPrismPoly 0.5 $ rectXH 10 2
@@ -118,7 +118,7 @@ torchShape =  colorSH blue
 
 modulesSPic :: Item -> ItemModuleType -> SPic -> SPic
 modulesSPic it imt = case imt of
-    ATTACHTORCH -> (<> noPic (overPosSH (+.+.+ _heldAttachPos (_itUse it)) torchShape))
+    ATTACHTORCH -> (<> noPic (overPosSH (+.+.+ _dimAttachPos (_itDimension it)) torchShape))
     _ -> id
 
 baseStickShapeX :: Item -> Int -> Shape