Replace buggy circle seg intersection with a simpler test

src/Dodge/Item/InvSize.hs

@@ -11,8 +11,9 @@ import Linear.V3
 itInvHeight :: Item -> Int
 itInvHeight x = case x ^. itType of
     HELD (MINIGUNX i) -> (i + 3) `div` 2
-    HELD LAUNCHER -> 3
-    HELD LAUNCHERX{} -> 3
+    HELD GLAUNCHER -> 2
+    HELD RLAUNCHER -> 3
+    HELD RLAUNCHERX{} -> 3
     HELD FLATSHIELD -> 3
     HELD (BANGSTICK i) -> max 1 (i `div` 2)
     _ -> 1
@@ -31,7 +32,7 @@ itDim x = case x ^. itType of
     HELD MINIGUNX {} -> did & dimRad .~ 20
         & dimCenter .~ V3 5 0 0
         & dimAttachPos .~ V3 5 (-5) 0
-    HELD LAUNCHER -> did & dimRad .~ 9
+    HELD RLAUNCHER -> did & dimRad .~ 9
         & dimCenter .~ V3 10 0 0
     HELD BANGSTICK{} -> did
         & dimRad .~ 5