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
@@ -3,14 +3,21 @@

 module Dodge.Data.Distortion where

+import Control.Lens
 import Geometry
 import Data.Aeson
 import Data.Aeson.TH

 data Distortion = RadialDistortion 
-    Point2 Point2 Point2 
-    Point2 Point2 Point2 
-    Int
+    { _rdPos :: Point2 
+    , _rdDist1 :: Point2 
+    , _rdDist2 :: Point2 
+    , _rdT1 :: Point2
+    , _rdT2 :: Point2
+    , _rdT3 :: Point2
+    , _rdTime :: Int
+    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

+makeLenses ''Distortion
 deriveJSON defaultOptions ''Distortion