core/Graphics/Color.elm · elk

on ea4fe54 help sign in

elk/core/Graphics/Color.elm

49 lines 1.2 kB history raw

2module Graphics.Color (rgba,rgb,hsva,hsv,

3 complement,

4 red,lime,blue,

5 yellow,cyan,magenta,

6 maroon,navy,green,

7 teal,purple,

8 violet,forestGreen,

9 black,white,gray,grey) where

11import Native.Graphics.Color as C

13data Color = Color Int Int Int Float

15rgba = Color

16rgb r g b = Color r g b 1

18red = Color 255 0 0 1

19lime = Color 0 255 0 1

20blue = Color 0 0 255 1

22yellow = Color 255 255 0 1

23cyan = Color 0 255 255 1

24magenta = Color 255 0 255 1

26black = Color 0 0 0 1

27white = Color 255 255 255 1

29gray = Color 128 128 128 1

30grey = Color 128 128 128 1

32maroon = Color 128 0 0 1

33navy = Color 0 0 128 1

34green = Color 0 128 0 1

36teal = Color 0 128 128 1

37purple = Color 128 0 128 1

39forestGreen = Color 34 139 34 1

40violet = Color 238 130 238 1

42complement = C.complement

43hsva = C.hsva

44hsv = C.hsv

46data Gradient

47 = Linear [(Float,Color)] (Float,Float) (Float,Float)

48 | Radial [(Float,Color)] (Float,Float) Float (Float,Float) Float