module Calamity.Utils.Colour
( colourToWord64
, colourFromWord64
, blurple
, greyple ) where
import Calamity.Internal.IntColour
import Data.Colour
import Data.Colour.SRGB ( sRGB24 )
blurple :: (Ord a, Floating a) => Colour a
blurple :: Colour a
blurple = Word8 -> Word8 -> Word8 -> Colour a
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 0x72 0x89 0xda
greyple :: (Ord a, Floating a) => Colour a
greyple :: Colour a
greyple = Word8 -> Word8 -> Word8 -> Colour a
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 0x99 0xaa 0xb5