module Draw.Color.Schemes.Internal.Haskell (
    logo
) where



import           Data.Vector (Vector)
import qualified Data.Vector as V

import Draw.Color.Schemes.Internal.Common



-- | Official Haskell colors, as extracted from the SVG logo on haskell.org.
logo :: Vector RGB
logo :: Vector RGB
logo = [RGB] -> Vector RGB
forall a. [a] -> Vector a
V.fromList [RGB
dark, RGB
medium, RGB
bright]
  where
    dark :: RGB
dark   = Int -> Int -> Int -> RGB
rgbFF Int
0x45 Int
0x3a Int
0x62
    medium :: RGB
medium = Int -> Int -> Int -> RGB
rgbFF Int
0x5e Int
0x50 Int
0x86
    bright :: RGB
bright = Int -> Int -> Int -> RGB
rgbFF Int
0x8f Int
0x4e Int
0x8b