Clarify number of distortions, play with distorting bullets

2025-11-19 21:49:20 +00:00
parent 610936a5fa
commit 10dbb238c8
7 changed files with 93 additions and 72 deletions
@@ -12,15 +12,18 @@ data Distortion = RadialDistortion
    { _rdPos :: Point2 
    , _rdDist1 :: Point2 
    , _rdDist2 :: Point2 
-    , _rdT1R :: Point2
-    , _rdT2R :: Point2
-    , _rdT3R :: Point2
-    , _rdT1G :: Point2
-    , _rdT2G :: Point2
-    , _rdT3G :: Point2
-    , _rdT1B :: Point2
-    , _rdT2B :: Point2
-    , _rdT3B :: Point2
+    , _rdTR :: V3 Point2
+    , _rdTB :: V3 Point2
+    , _rdTG :: V3 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)