{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.Distortion where
import Data.Aeson
import Data.Aeson.TH
import Geometry

data Distortion 
    = RadialDistortion Point2 Point2 Point2 Float
  deriving (Eq,Ord,Show,Read)

deriveJSON defaultOptions ''Distortion