Replace buggy circle seg intersection with a simpler test

src/Dodge/Item/Draw/SPic.hs

@@ -237,8 +237,9 @@ heldItemSPic ht it = case ht of
     TESLAGUN -> teslaGunPic
     LASER -> lasGunPic it
     TRACTORGUN -> tractorGunPic it
-    LAUNCHER -> launcherPic it
-    LAUNCHERX _ -> launcherPic it
+    RLAUNCHER -> rlauncherPic it
+    RLAUNCHERX _ -> rlauncherPic it
+    GLAUNCHER -> glauncherPic it
     POISONSPRAYER -> flamerPic it
     BLINKER -> defSPic
     BLINKERUNSAFE -> defSPic
@@ -367,8 +368,11 @@ baseSMGShape = colorSH green $ xCylinderST 3 20
 flamerPic :: Item -> SPic
 flamerPic _ = noPic . colorSH yellow $ xCylinderST 5 18
 
-launcherPic :: Item -> SPic
-launcherPic _ = noPic . colorSH cyan $ xCylinderST 5 20
+rlauncherPic :: Item -> SPic
+rlauncherPic _ = noPic . colorSH cyan $ xCylinderST 5 20
+
+glauncherPic :: Item -> SPic
+glauncherPic _ = noPic . colorSH green $ xCylinderST 5 20
 
 --launcherPic _ = noPic . colorSH cyan $ xCylinder 4 5 20
 --    ( colorSH cyan $