libraries/Graphics/Color.elm · elk

on 79093ff help sign in

50 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,

10 linear,radial) where

12data Color = Color Int Int Int Float

14rgba = Color

15rgb r g b = Color r g b 1

17red = Color 255 0 0 1

18lime = Color 0 255 0 1

19blue = Color 0 0 255 1

21yellow = Color 255 255 0 1

22cyan = Color 0 255 255 1

23magenta = Color 255 0 255 1

25black = Color 0 0 0 1

26white = Color 255 255 255 1

28gray = Color 128 128 128 1

29grey = Color 128 128 128 1

31maroon = Color 128 0 0 1

32navy = Color 0 0 128 1

33green = Color 0 128 0 1

35teal = Color 0 128 128 1

36purple = Color 128 0 128 1

38forestGreen = Color 34 139 34 1

39violet = Color 238 130 238 1

41complement : Color -> Color

42hsva : Int -> Float -> Float -> Float -> Color

43hsv : Int -> Float -> Float -> Color

45data Gradient

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

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

49linear = Linear

50radial = Radial