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

module Data.Wright.RGB.Model.WideGamutRGB (wideGamutRGB) where

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

wideGamutRGB :: Model
wideGamutRGB = d50
  { gamma = Gamma 2.2
  , red   = Primary 0.7350 0.2650 0.258187
  , green = Primary 0.1150 0.8260 0.724938
  , blue  = Primary 0.1570 0.0180 0.016875
  }