wright-0.1.0.2: src/Data/Wright/RGB/Model/ColorMatchRGB.hs

module Data.Wright.RGB.Model.ColorMatchRGB (colorMatchRGB) where

import Data.Wright.Types (Model(..), Primary(..), Gamma(..))
import Data.Wright.CIE.Illuminant.D50 (d50)

colorMatchRGB :: Model
colorMatchRGB = d50
  { gamma = Gamma 1.8
  , red   = Primary 0.6300 0.3400 0.274884
  , green = Primary 0.2950 0.6050 0.658132
  , blue  = Primary 0.1500 0.0750 0.066985
  }