Replace buggy circle seg intersection with a simpler test

2024-12-26 21:53:18 +00:00
parent 91ba6ee148
commit 0ef28c132e
29 changed files with 528 additions and 332 deletions
@@ -20,7 +20,7 @@ drawProjectile prj = case _prjDraw prj of
 drawShell :: Projectile -> SPic
 drawShell pj =
    noPic
-        . translateSHz 18
+        . translateSHz (_prjZ pj)
        . uncurryV translateSHxy (_prjPos pj)
        $ rotateSH (argV $ _prjAcc pj) shellShape