Work towards duct taping torch

src/Dodge/Item/Draw/SPic.hs

@@ -11,7 +11,7 @@ import Geometry
 import Data.Maybe
 
 itemSPic :: Item -> SPic
-itemSPic it = modulesSPic it <> case it ^. itType . iyBase of
+itemSPic it = foldMap (modulesSPic it) (_iyModules $ _itType it) $ case it ^. itType . iyBase of
     HELD ht -> heldItemSPic ht it
     LEFT lt -> leftItemSPic lt it
     EQUIP et -> equipItemSPic et it
@@ -116,8 +116,10 @@ torchShape =  colorSH blue
     back = upperPrismPoly 3 $ rectXH 1 2
 
 
-modulesSPic :: Item -> SPic
-modulesSPic _ = mempty
+modulesSPic :: Item -> ItemModuleType -> SPic -> SPic
+modulesSPic it imt = case imt of
+    ATTACHTORCH -> (<> noPic (overPosSH (+.+.+ _heldAttachPos (_itUse it)) torchShape))
+    _ -> id
 
 baseStickShapeX :: Item -> Int -> Shape
 baseStickShapeX it i = foldMap f [0..i-1]