Allow independent distortion of rgb channels

2025-11-19 10:38:30 +00:00
parent 8759431fec
commit 610936a5fa
6 changed files with 72 additions and 31 deletions
@@ -12,9 +12,15 @@ data Distortion = RadialDistortion
    { _rdPos :: Point2 
    , _rdDist1 :: Point2 
    , _rdDist2 :: Point2 
-    , _rdT1 :: Point2
-    , _rdT2 :: Point2
-    , _rdT3 :: Point2
+    , _rdT1R :: Point2
+    , _rdT2R :: Point2
+    , _rdT3R :: Point2
+    , _rdT1G :: Point2
+    , _rdT2G :: Point2
+    , _rdT3G :: Point2
+    , _rdT1B :: Point2
+    , _rdT2B :: Point2
+    , _rdT3B :: Point2
    , _rdTime :: Int
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)