Allow for multiple distortions at once

2025-11-18 22:49:51 +00:00
parent 8428f08ebd
commit b633b9d55f
5 changed files with 41 additions and 31 deletions
@@ -16,8 +16,10 @@ testEvent w = fromMaybe w $ do
                cpos
                (V2 distR 0)
                (V2 0 distR)
-                (V2 2 0)
-                (V2 0 0.5)
-                (V2 0 0)
+                (V2 1 (-1))
+                (V2 1 1)
+                (V2 distR 0)
                20
-    return $ w & cWorld . lWorld . distortions .~ [distortionBulge]
+    return $ w & cWorld . lWorld . distortions .~ [distortionBulge
+        , distortionBulge & rdPos +~ 50
+        ]