Use constructed laser as targeting scope

src/Dodge/Item/Draw/SPic.hs

@@ -200,7 +200,7 @@ heldItemSPic ht it = case ht of
     BLOWTORCH -> flamerPic it
     SPARKGUN -> teslaGunPic
     TESLAGUN -> teslaGunPic
-    LASGUN -> lasGunPic it
+    LASER -> lasGunPic it
     TRACTORGUN -> tractorGunPic it
     LAUNCHER -> launcherPic it
     LAUNCHERX _ -> launcherPic it
@@ -349,14 +349,14 @@ teslaGunPic :: SPic
 teslaGunPic = shatterGunSPic
 
 lasGunPic :: Item -> SPic
-lasGunPic _ =
-    colorSH
-        blue
-        ( upperBoxST 4 (rectNSWE 3 1 0 30)
-            <> upperBoxSU 4 (rectNSWE (-1) (-3) 0 30)
-            <> upperBoxSU 1 (rectNSWE 3 (-3) 0 30)
-        )
-        :!: mempty
+lasGunPic _ = noPic $ colorSH blue $ upperPrismPolyST 3 $ square 4
+--    colorSH
+--        blue
+--        ( upperBoxST 4 (rectNSWE 3 1 0 30)
+--            <> upperBoxSU 4 (rectNSWE (-1) (-3) 0 30)
+--            <> upperBoxSU 1 (rectNSWE 3 (-3) 0 30)
+--        )
+--        :!: mempty
 
 --dualBeamPic :: Item -> SPic
 --dualBeamPic it =