module Constants where

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

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

refY :: Double
refY :: Double
refY = Double
1.0

refU :: Double
refU :: Double
refU = Double
0.19783000664283

refV :: Double
refV :: Double
refV = Double
0.46831999493879

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

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