Work on distortions

2025-11-18 10:55:46 +00:00
parent 1205823ddb
commit 8428f08ebd
6 changed files with 86 additions and 47 deletions
@@ -5,6 +5,6 @@ import Dodge.Data.Distortion

 updateDistortion :: Distortion -> Maybe Distortion
 updateDistortion = \case
-    RadialDistortion a b c d t
-        | t > 0 -> Just $ RadialDistortion a b c d $ t-1
+    RadialDistortion a b c d e f t
+        | t > 0 -> Just $ RadialDistortion a b c d e f $ t-1
        | otherwise -> Nothing