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

module Data.Wright.RGB where

import Control.Applicative ((<$>))
import Data.Wright.Colour (Colour(..))
import Data.Wright.RGB.Matrix (m)
import Data.Wright.Types
import qualified Numeric.Matrix as M (map)
import Data.Matrix
import Data.Wright.RGB.Compand (uncompand)

instance Colour RGB where
  toRGB _ = id
  toXYZ model@(Model γ _ _ _ _) rgb = fromMatrix
                                    $ m model * toMatrix (uncompand γ <$> rgb)