Replace buggy circle seg intersection with a simpler test

src/Dodge/Item/Held.hs

@@ -65,9 +65,9 @@ itemFromHeldType ht = case ht of
 --    DUALBEAM -> dualBeam
 --    LASWIDE i -> lasWide i
     TRACTORGUN -> tractorGun
-    LAUNCHER -> launcher
-    LAUNCHERX i -> launcherX i
---    REMOTELAUNCHER -> remoteLauncher
+    RLAUNCHER -> rLauncher
+    GLAUNCHER -> gLauncher
+    RLAUNCHERX i -> rLauncherX i
     POISONSPRAYER -> poisonSprayer
     DETECTOR d -> detector d
     FLATSHIELD -> flatShield