Work on distortion shader

2025-11-15 23:17:44 +00:00
parent d436b853eb
commit 1205823ddb
12 changed files with 108 additions and 119 deletions
@@ -7,7 +7,7 @@ import Geometry
 import Data.Aeson
 import Data.Aeson.TH

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

 deriveJSON defaultOptions ''Distortion