2012-10-05 02:01:20 +00:00
|
|
|
|
2013-02-10 11:58:40 +00:00
|
|
|
module Graphics.Color (rgba,rgb,hsva,hsv,
|
|
|
|
complement,
|
|
|
|
red,lime,blue,
|
|
|
|
yellow,cyan,magenta,
|
|
|
|
maroon,navy,green,
|
|
|
|
teal,purple,
|
|
|
|
violet,forestGreen,
|
|
|
|
black,white,gray,grey) where
|
|
|
|
|
2013-03-05 18:06:52 +00:00
|
|
|
import Native.Graphics.Color as C
|
2012-10-05 02:01:20 +00:00
|
|
|
|
|
|
|
data Color = Color Int Int Int Float
|
|
|
|
|
|
|
|
rgba = Color
|
|
|
|
rgb r g b = Color r g b 1
|
|
|
|
|
|
|
|
red = Color 255 0 0 1
|
2013-02-10 11:58:40 +00:00
|
|
|
lime = Color 0 255 0 1
|
2012-10-05 02:01:20 +00:00
|
|
|
blue = Color 0 0 255 1
|
2013-02-10 11:58:40 +00:00
|
|
|
|
2012-10-05 02:01:20 +00:00
|
|
|
yellow = Color 255 255 0 1
|
|
|
|
cyan = Color 0 255 255 1
|
|
|
|
magenta = Color 255 0 255 1
|
2013-02-10 11:58:40 +00:00
|
|
|
|
2012-10-05 02:01:20 +00:00
|
|
|
black = Color 0 0 0 1
|
|
|
|
white = Color 255 255 255 1
|
2013-02-10 11:58:40 +00:00
|
|
|
|
2012-10-05 02:01:20 +00:00
|
|
|
gray = Color 128 128 128 1
|
|
|
|
grey = Color 128 128 128 1
|
2013-02-10 11:58:40 +00:00
|
|
|
|
|
|
|
maroon = Color 128 0 0 1
|
|
|
|
navy = Color 0 0 128 1
|
|
|
|
green = Color 0 128 0 1
|
|
|
|
|
|
|
|
teal = Color 0 128 128 1
|
|
|
|
purple = Color 128 0 128 1
|
|
|
|
|
|
|
|
forestGreen = Color 34 139 34 1
|
|
|
|
violet = Color 238 130 238 1
|
|
|
|
|
2013-03-05 18:06:52 +00:00
|
|
|
complement = C.complement
|
|
|
|
hsva = C.hsva
|
2013-03-06 03:46:35 +00:00
|
|
|
hsv = C.hsv
|
|
|
|
|
|
|
|
data Gradient
|
|
|
|
= Linear [(Float,Color)] (Float,Float) (Float,Float)
|
|
|
|
| Radial [(Float,Color)] (Float,Float) Float (Float,Float) Float
|
|
|
|
|