{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Color.Data where

import Data.Aeson
import Data.Aeson.TH
import Data.Word
import Geometry

data PaletteColor
    = RED
    | GREEN
    | BLUE
    | YELLOW
    | CYAN
    | MAGENTA
    | ROSE
    | VIOLET
    | AZURE
    | AQUAMARINE
    | CHARTREUSE
    | ORANGE
    | WHITE
    | BLACK
    deriving (Eq, Ord, Enum, Show, Read) --Generic, Flat)

type RGBA = Point4

type Color = Point4

type Color8 = V4 Word8

deriveJSON defaultOptions ''PaletteColor