module Dodge.Distortion where
import Dodge.Distortion.Data

updateDistortion :: Distortion -> Maybe Distortion
updateDistortion  dt = case dt of
  RadialDistortion a b c v 
    | v > 1 -> Just $ RadialDistortion a b c $ max 1 (v - 0.05)
    | v < 1 -> Just $ RadialDistortion a b c $ min 1 (v + 0.05) 
    | otherwise -> Nothing