module Affection.Types
  ( newRGBA
  ) where

data RGBA = RGBA
  { r :: Int
  , g :: Int
  , b :: Int
  , a :: Int
  }

newRGBA :: Int -> Int -> Int -> Int -> RGBA
newRGBA r g b a = RGBA (overflow r) (overflow g) (overflow b) (overflow a)
  where
    overflow x
      | x < 0     = 255 + (x `mod` 255)
      | otherwise = x `mod` 255