Work on distortions

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

-data Distortion = RadialDistortion Point2 Point2 Point2 Point2 Int
+data Distortion = RadialDistortion 
+    Point2 Point2 Point2 
+    Point2 Point2 Point2 
+    Int
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 deriveJSON defaultOptions ''Distortion