Clarify number of distortions, play with distorting bullets

2025-11-19 21:49:20 +00:00
parent 610936a5fa
commit 10dbb238c8
7 changed files with 93 additions and 72 deletions
@@ -14,14 +14,15 @@ testEvent w = fromMaybe w $ do
        t1 = (V2 1 (-1))
        t2 = (V2 1 1)
        t3 = (V2 distR 0)
+        v3 = V3 t1 t2 t3
        distortionBulge =
            RadialDistortion
                cpos
                (V2 distR 0)
                (V2 0 distR)
-                t1 t2 t3 t1 t2 t3 t1 t2 t3
+                v3 v3 v3
                20
    return $ w & cWorld . lWorld . distortions .~ [distortionBulge
-        , distortionBulge & rdPos +~ 50 & rdT1R +~ V2 (-1) 1
+        , distortionBulge & rdPos +~ 50 & rdTR . _1 +~ V2 (-1) 1
        , distortionBulge & rdPos +~ (-50)
        ]