Internal.hs

{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE MultiParamTypeClasses #-}
-- |
-- Module      : Graphics.Color.Standard.Internal
-- Copyright   : (c) Alexey Kuleshevich 2019-2021
-- License     : BSD3
-- Maintainer  : Alexey Kuleshevich <lehins@yandex.ru>
-- Stability   : experimental
-- Portability : non-portable
--
module Graphics.Color.Standard.Internal
  ( StandardColor(..)
  ) where

import Graphics.Color.Space


-- | Get a specific colors from a standard:
--
-- >>> import Graphics.Color.Standard
-- >>> color (RAL :: RAL 9003) :: Color (SRGB 'NonLinear) Float
-- <SRGB 'NonLinear:( 0.92477065, 0.92470974, 0.90498060)>
-- >>> color (RAL :: RAL "Signal white") :: Color (SRGB 'NonLinear) Float
-- <SRGB 'NonLinear:( 0.92477065, 0.92470974, 0.90498060)>
--
class StandardColor std (code :: k) where
  color :: ColorSpace cs i e => std code -> Color cs e