module Rendering.Picture.Color
    where
import Geometry.Data

type RGBA = (Float,Float,Float,Float)

black,red,green,blue,yellow,cyan,magenta,rose,violet,azure,aquamarine,chartreuse,orange,white::RGBA
black     = (0,0,0,1)
red       = (1,0,0,1) 
green     = (0,1,0,1) 
blue      = (0,0,1,1) 
yellow    = (1,1,0,1)  
cyan      = (0,1,1,1) 
magenta   = (1,0,1,1)  
rose      = (1,0,0.5,1) 
violet    = (0.5,0,1,1)  
azure     = (0,0.5,1,1) 
aquamarine= (0,1,0.5,1) 
chartreuse= (0.5,1,0,1)
orange    = (1,0.5,0,1)  
white     = (1,1,1,1)