libraries/Graphics/Color.elm · elk

on 4af4585 help sign in

52 lines 1.3 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

12import Native.Graphics.Color as C

14data Color = Color Int Int Int Float

16rgba = Color

17rgb r g b = Color r g b 1

19red = Color 255 0 0 1

20lime = Color 0 255 0 1

21blue = Color 0 0 255 1

23yellow = Color 255 255 0 1

24cyan = Color 0 255 255 1

25magenta = Color 255 0 255 1

27black = Color 0 0 0 1

28white = Color 255 255 255 1

30gray = Color 128 128 128 1

31grey = Color 128 128 128 1

33maroon = Color 128 0 0 1

34navy = Color 0 0 128 1

35green = Color 0 128 0 1

37teal = Color 0 128 128 1

38purple = Color 128 0 128 1

40forestGreen = Color 34 139 34 1

41violet = Color 238 130 238 1

43complement : Color -> Color

44hsva : Int -> Float -> Float -> Float -> Color

45hsv : Int -> Float -> Float -> Color

47data Gradient

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

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

51linear = Linear

52radial = Radial