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
@@ -5,7 +5,6 @@ import Dodge.Data.Distortion

 updateDistortion :: Distortion -> Maybe Distortion
 updateDistortion = \case
-    RadialDistortion a b c v
-        | v > 1 -> Just $ RadialDistortion a b c $ max 1 (v - 0.05)
-        | v < 1 -> Just $ RadialDistortion a b c $ min 1 (v + 0.05)
+    RadialDistortion a b c d t
+        | t > 0 -> Just $ RadialDistortion a b c d $ t-1
        | otherwise -> Nothing