Work on distortion shader

2025-11-15 23:17:44 +00:00
parent d436b853eb
commit 1205823ddb
12 changed files with 108 additions and 119 deletions
@@ -10,5 +10,6 @@ testEvent :: World -> World
 testEvent w = fromMaybe w $ do
    cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos . _xy
    let distR = 50
-        distortionBulge = RadialDistortion cpos (V2 distR 0) (cpos + V2 0 distR) 1.9
+        distortionBulge = RadialDistortion cpos (V2 (0.5*distR) (-0.5*distR)) (V2 0 distR) 
+            (V2 (0.5* distR) 0) 20
    return $ w & cWorld . lWorld . distortions .~ [distortionBulge]