module Constants where

m :: [(Double, Double, Double)]
m =
  [ (3.240969941904521, -1.537383177570093, -0.498610760293)
  , (-0.96924363628087, 1.87596750150772, 0.041555057407175)
  , (0.055630079696993, -0.20397695888897, 1.056971514242878)
  ]

minv :: [(Double, Double, Double)]
minv =
  [ (0.41239079926595, 0.35758433938387, 0.18048078840183)
  , (0.21263900587151, 0.71516867876775, 0.072192315360733)
  , (0.019330818715591, 0.11919477979462, 0.95053215224966)
  ]

refY :: Double
refY = 1.0

refU :: Double
refU = 0.19783000664283

refV :: Double
refV = 0.46831999493879

-- | CIELUV constant
kappa :: Double
kappa = 903.2962962

-- | CIELUV constant
epsilon :: Double
epsilon = 0.0088564516