{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.FloatFunction where

import Data.Aeson
import Data.Aeson.TH

data FloatFloat
    = FloatID
    | FloatFOV Float
    | FloatLessCheck Float
    | FloatDistLinearNearFar Float Float Float
    | FloatAbsCheckGreaterLess Float Float Float
    | FloatConst Float
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

deriveJSON defaultOptions ''FloatFloat