{-# LINE 1 "src/SFML/Graphics/Color.hsc" #-}
module SFML.Graphics.Color
{-# LINE 2 "src/SFML/Graphics/Color.hsc" #-}
(
    Color(..)
,   black
,   white
,   red
,   green
,   blue
,   yellow
,   magenta
,   cyan
,   transparent
)
where


import Data.Word (Word8)
import Foreign.Storable


{-# LINE 21 "src/SFML/Graphics/Color.hsc" #-}


-- | Utility data type for manpulating RGBA colors.
data Color = Color
    { r :: Word8
    , g :: Word8
    , b :: Word8
    , a :: Word8
    }
    deriving (Eq, Show)


instance Storable Color where
    sizeOf _ = 4 * sizeOf (undefined :: Word8)
    alignment _ = alignment (undefined :: Word8)
    
    peek ptr = do
        r <- (\hsc_ptr -> peekByteOff hsc_ptr 0) ptr
{-# LINE 39 "src/SFML/Graphics/Color.hsc" #-}
        g <- (\hsc_ptr -> peekByteOff hsc_ptr 1) ptr
{-# LINE 40 "src/SFML/Graphics/Color.hsc" #-}
        b <- (\hsc_ptr -> peekByteOff hsc_ptr 2) ptr
{-# LINE 41 "src/SFML/Graphics/Color.hsc" #-}
        a <- (\hsc_ptr -> peekByteOff hsc_ptr 3) ptr
{-# LINE 42 "src/SFML/Graphics/Color.hsc" #-}
        return $ Color r g b a
    
    poke ptr (Color r g b a) = do
        (\hsc_ptr -> pokeByteOff hsc_ptr 0) ptr r
{-# LINE 46 "src/SFML/Graphics/Color.hsc" #-}
        (\hsc_ptr -> pokeByteOff hsc_ptr 1) ptr g
{-# LINE 47 "src/SFML/Graphics/Color.hsc" #-}
        (\hsc_ptr -> pokeByteOff hsc_ptr 2) ptr b
{-# LINE 48 "src/SFML/Graphics/Color.hsc" #-}
        (\hsc_ptr -> pokeByteOff hsc_ptr 3) ptr a
{-# LINE 49 "src/SFML/Graphics/Color.hsc" #-}


black       = Color   0   0   0 255
white       = Color 255 255 255 255
red         = Color 255   0   0 255
green       = Color   0 255   0 255
blue        = Color   0   0 255 255
yellow      = Color 255 255   0 255
magenta     = Color 255   0 255 255
cyan        = Color   0 255 255 255
transparent = Color   0   0   0 0


instance Num Color where
    
    (Color r1 g1 b1 a1) + (Color r2 g2 b2 a2) = Color (r1+r2) (g1+g2) (b1+b2) (a1+a2)
    (Color r1 g1 b1 a1) - (Color r2 g2 b2 a2) = Color (r1-r2) (g1-g2) (b1-b2) (a1-a2)
    (Color r1 g1 b1 a1) * (Color r2 g2 b2 a2) = Color (r1*r2) (g1*g2) (b1*b2) (a1*a2)
    negate (Color r g b a) = Color (-r) (-g) (-b) (-a)
    abs (Color r g b a) = Color (abs r) (abs g) (abs b) (abs a)
    signum (Color r g b a) = Color (signum r) (signum g) (signum b) (signum a)
    fromInteger i = let i' = fromIntegral i in Color i' i' i' i'