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

module Data.Wright.RGB.Model.EktaSpacePS5 (ektaSpacePS5) where

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

ektaSpacePS5 :: Model
ektaSpacePS5 = d50
  { gamma = Gamma 2.2
  , red   = Primary 0.6950 0.3050 0.260629
  , green = Primary 0.2600 0.7000 0.734946
  , blue  = Primary 0.1100 0.0050 0.004425
  }