module Graphics.Blank.Style
(
strokeStyle
, fillStyle
, shadowColor
, addColorStop
, Style(..)
, CanvasColor
, Alpha
, Percentage
, rgb
, rgbPercent
, rgba
, rgbaPercent
, hsl
, hsla
, readColourName
, aliceblue
, antiquewhite
, aqua
, aquamarine
, azure
, beige
, bisque
, black
, blanchedalmond
, blue
, blueviolet
, brown
, burlywood
, cadetblue
, chartreuse
, chocolate
, coral
, cornflowerblue
, cornsilk
, crimson
, cyan
, darkblue
, darkcyan
, darkgoldenrod
, darkgray
, darkgreen
, darkgrey
, darkkhaki
, darkmagenta
, darkolivegreen
, darkorange
, darkorchid
, darkred
, darksalmon
, darkseagreen
, darkslateblue
, darkslategray
, darkslategrey
, darkturquoise
, darkviolet
, deeppink
, deepskyblue
, dimgray
, dimgrey
, dodgerblue
, firebrick
, floralwhite
, forestgreen
, fuchsia
, gainsboro
, ghostwhite
, gold
, goldenrod
, gray
, green
, grey
, greenyellow
, honeydew
, hotpink
, indianred
, indigo
, ivory
, khaki
, lavender
, lavenderblush
, lawngreen
, lemonchiffon
, lightblue
, lightcoral
, lightcyan
, lightgoldenrodyellow
, lightgray
, lightgreen
, lightgrey
, lightpink
, lightsalmon
, lightseagreen
, lightskyblue
, lightslategray
, lightslategrey
, lightsteelblue
, lightyellow
, lime
, limegreen
, linen
, magenta
, maroon
, mediumaquamarine
, mediumblue
, mediumorchid
, mediumpurple
, mediumseagreen
, mediumslateblue
, mediumspringgreen
, mediumturquoise
, mediumvioletred
, midnightblue
, mintcream
, mistyrose
, moccasin
, navajowhite
, navy
, oldlace
, olive
, olivedrab
, orange
, orangered
, orchid
, palegoldenrod
, palegreen
, paleturquoise
, palevioletred
, papayawhip
, peachpuff
, peru
, pink
, plum
, powderblue
, purple
, red
, rosybrown
, royalblue
, saddlebrown
, salmon
, sandybrown
, seagreen
, seashell
, sienna
, silver
, skyblue
, slateblue
, slategray
, slategrey
, snow
, springgreen
, steelblue
, tan
, teal
, thistle
, tomato
, turquoise
, violet
, wheat
, white
, whitesmoke
, yellow
, yellowgreen
, rebeccapurple
, transparent
) where
import qualified Data.Colour as Colour
import Data.Colour hiding (black, transparent)
import qualified Data.Colour.Names as Names
import Data.Colour.RGBSpace
import qualified Data.Colour.RGBSpace.HSL as HSL
import Data.Colour.SRGB
import Data.Word
import Graphics.Blank.Canvas
import Graphics.Blank.Generated
import Graphics.Blank.JavaScript
import Prelude hiding (tan)
type Alpha = Double
type Percentage = Double
rgb :: Word8 -> Word8 -> Word8 -> Colour Double
rgb = sRGB24
rgbPercent :: Percentage -> Percentage -> Percentage -> Colour Double
rgbPercent r g b = sRGB (r/100) (g/100) (b/100)
rgba :: Word8 -> Word8 -> Word8 -> Alpha -> AlphaColour Double
rgba r g b = withOpacity $ rgb r g b
rgbaPercent :: Percentage -> Percentage -> Percentage -> Alpha -> AlphaColour Double
rgbaPercent r g b = withOpacity $ rgbPercent r g b
hsl :: Int -> Percentage -> Percentage -> Colour Double
hsl h s l = uncurryRGB sRGB $ HSL.hsl (realToFrac h) (s/100) (l/100)
hsla :: Int -> Percentage -> Percentage -> Alpha -> AlphaColour Double
hsla h s l = withOpacity $ hsl h s l
readColourName :: Monad m => String -> m (Colour Double)
readColourName "rebeccapurple" = return rebeccapurple
readColourName name = Names.readColourName name
aliceblue :: Colour Double
aliceblue = Names.aliceblue
antiquewhite :: Colour Double
antiquewhite = Names.antiquewhite
aqua :: Colour Double
aqua = Names.aqua
aquamarine :: Colour Double
aquamarine = Names.aquamarine
azure :: Colour Double
azure = Names.azure
beige :: Colour Double
beige = Names.beige
bisque :: Colour Double
bisque = Names.bisque
black :: Colour Double
black = Colour.black
blanchedalmond :: Colour Double
blanchedalmond = Names.blanchedalmond
blue :: Colour Double
blue = Names.blue
blueviolet :: Colour Double
blueviolet = Names.blueviolet
brown :: Colour Double
brown = Names.brown
burlywood :: Colour Double
burlywood = Names.burlywood
cadetblue :: Colour Double
cadetblue = Names.cadetblue
chartreuse :: Colour Double
chartreuse = Names.chartreuse
chocolate :: Colour Double
chocolate = Names.chocolate
coral :: Colour Double
coral = Names.coral
cornflowerblue :: Colour Double
cornflowerblue = Names.cornflowerblue
cornsilk :: Colour Double
cornsilk = Names.cornsilk
crimson :: Colour Double
crimson = Names.crimson
cyan :: Colour Double
cyan = Names.cyan
darkblue :: Colour Double
darkblue = Names.darkblue
darkcyan :: Colour Double
darkcyan = Names.darkcyan
darkgoldenrod :: Colour Double
darkgoldenrod = Names.darkgoldenrod
darkgray :: Colour Double
darkgray = Names.darkgray
darkgreen :: Colour Double
darkgreen = Names.darkgreen
darkgrey :: Colour Double
darkgrey = Names.darkgrey
darkkhaki :: Colour Double
darkkhaki = Names.darkkhaki
darkmagenta :: Colour Double
darkmagenta = Names.darkmagenta
darkolivegreen :: Colour Double
darkolivegreen = Names.darkolivegreen
darkorange :: Colour Double
darkorange = Names.darkorange
darkorchid :: Colour Double
darkorchid = Names.darkorchid
darkred :: Colour Double
darkred = Names.darkred
darksalmon :: Colour Double
darksalmon = Names.darksalmon
darkseagreen :: Colour Double
darkseagreen = Names.darkseagreen
darkslateblue :: Colour Double
darkslateblue = Names.darkslateblue
darkslategray :: Colour Double
darkslategray = Names.darkslategray
darkslategrey :: Colour Double
darkslategrey = Names.darkslategrey
darkturquoise :: Colour Double
darkturquoise = Names.darkturquoise
darkviolet :: Colour Double
darkviolet = Names.darkviolet
deeppink :: Colour Double
deeppink = Names.deeppink
deepskyblue :: Colour Double
deepskyblue = Names.deepskyblue
dimgray :: Colour Double
dimgray = Names.dimgray
dimgrey :: Colour Double
dimgrey = Names.dimgrey
dodgerblue :: Colour Double
dodgerblue = Names.dodgerblue
firebrick :: Colour Double
firebrick = Names.firebrick
floralwhite :: Colour Double
floralwhite = Names.floralwhite
forestgreen :: Colour Double
forestgreen = Names.forestgreen
fuchsia :: Colour Double
fuchsia = Names.fuchsia
gainsboro :: Colour Double
gainsboro = Names.gainsboro
ghostwhite :: Colour Double
ghostwhite = Names.ghostwhite
gold :: Colour Double
gold = Names.gold
goldenrod :: Colour Double
goldenrod = Names.goldenrod
gray :: Colour Double
gray = Names.gray
green :: Colour Double
green = Names.green
grey :: Colour Double
grey = Names.grey
greenyellow :: Colour Double
greenyellow = Names.greenyellow
honeydew :: Colour Double
honeydew = Names.honeydew
hotpink :: Colour Double
hotpink = Names.hotpink
indianred :: Colour Double
indianred = Names.indianred
indigo :: Colour Double
indigo = Names.indigo
ivory :: Colour Double
ivory = Names.ivory
khaki :: Colour Double
khaki = Names.khaki
lavender :: Colour Double
lavender = Names.lavender
lavenderblush :: Colour Double
lavenderblush = Names.lavenderblush
lawngreen :: Colour Double
lawngreen = Names.lawngreen
lemonchiffon :: Colour Double
lemonchiffon = Names.lemonchiffon
lightblue :: Colour Double
lightblue = Names.lightblue
lightcoral :: Colour Double
lightcoral = Names.lightcoral
lightcyan :: Colour Double
lightcyan = Names.lightcyan
lightgoldenrodyellow :: Colour Double
lightgoldenrodyellow = Names.lightgoldenrodyellow
lightgray :: Colour Double
lightgray = Names.lightgray
lightgreen :: Colour Double
lightgreen = Names.lightgreen
lightgrey :: Colour Double
lightgrey = Names.lightgrey
lightpink :: Colour Double
lightpink = Names.lightpink
lightsalmon :: Colour Double
lightsalmon = Names.lightsalmon
lightseagreen :: Colour Double
lightseagreen = Names.lightseagreen
lightskyblue :: Colour Double
lightskyblue = Names.lightskyblue
lightslategray :: Colour Double
lightslategray = Names.lightslategray
lightslategrey :: Colour Double
lightslategrey = Names.lightslategrey
lightsteelblue :: Colour Double
lightsteelblue = Names.lightsteelblue
lightyellow :: Colour Double
lightyellow = Names.lightyellow
lime :: Colour Double
lime = Names.lime
limegreen :: Colour Double
limegreen = Names.limegreen
linen :: Colour Double
linen = Names.linen
magenta :: Colour Double
magenta = Names.magenta
maroon :: Colour Double
maroon = Names.maroon
mediumaquamarine :: Colour Double
mediumaquamarine = Names.mediumaquamarine
mediumblue :: Colour Double
mediumblue = Names.mediumblue
mediumorchid :: Colour Double
mediumorchid = Names.mediumorchid
mediumpurple :: Colour Double
mediumpurple = Names.mediumpurple
mediumseagreen :: Colour Double
mediumseagreen = Names.mediumseagreen
mediumslateblue :: Colour Double
mediumslateblue = Names.mediumslateblue
mediumspringgreen :: Colour Double
mediumspringgreen = Names.mediumspringgreen
mediumturquoise :: Colour Double
mediumturquoise = Names.turquoise
mediumvioletred :: Colour Double
mediumvioletred = Names.mediumvioletred
midnightblue :: Colour Double
midnightblue = Names.midnightblue
mintcream :: Colour Double
mintcream = Names.mintcream
mistyrose :: Colour Double
mistyrose = Names.mistyrose
moccasin :: Colour Double
moccasin = Names.moccasin
navajowhite :: Colour Double
navajowhite = Names.navajowhite
navy :: Colour Double
navy = Names.navy
oldlace :: Colour Double
oldlace = Names.oldlace
olive :: Colour Double
olive = Names.olive
olivedrab :: Colour Double
olivedrab = Names.olivedrab
orange :: Colour Double
orange = Names.orange
orangered :: Colour Double
orangered = Names.orangered
orchid :: Colour Double
orchid = Names.orchid
palegoldenrod :: Colour Double
palegoldenrod = Names.palegoldenrod
palegreen :: Colour Double
palegreen = Names.palegreen
paleturquoise :: Colour Double
paleturquoise = Names.paleturquoise
palevioletred :: Colour Double
palevioletred = Names.palevioletred
papayawhip :: Colour Double
papayawhip = Names.papayawhip
peachpuff :: Colour Double
peachpuff = Names.peachpuff
peru :: Colour Double
peru = Names.peru
pink :: Colour Double
pink = Names.pink
plum :: Colour Double
plum = Names.plum
powderblue :: Colour Double
powderblue = Names.powderblue
purple :: Colour Double
purple = Names.purple
red :: Colour Double
red = Names.red
rosybrown :: Colour Double
rosybrown = Names.rosybrown
royalblue :: Colour Double
royalblue = Names.royalblue
saddlebrown :: Colour Double
saddlebrown = Names.saddlebrown
salmon :: Colour Double
salmon = Names.salmon
sandybrown :: Colour Double
sandybrown = Names.sandybrown
seagreen :: Colour Double
seagreen = Names.seagreen
seashell :: Colour Double
seashell = Names.seashell
sienna :: Colour Double
sienna = Names.sienna
silver :: Colour Double
silver = Names.silver
skyblue :: Colour Double
skyblue = Names.skyblue
slateblue :: Colour Double
slateblue = Names.slateblue
slategray :: Colour Double
slategray = Names.slategray
slategrey :: Colour Double
slategrey = Names.slategrey
snow :: Colour Double
snow = Names.snow
springgreen :: Colour Double
springgreen = Names.springgreen
steelblue :: Colour Double
steelblue = Names.steelblue
tan :: Colour Double
tan = Names.tan
teal :: Colour Double
teal = Names.teal
thistle :: Colour Double
thistle = Names.thistle
tomato :: Colour Double
tomato = Names.tomato
turquoise :: Colour Double
turquoise = Names.turquoise
violet :: Colour Double
violet = Names.violet
wheat :: Colour Double
wheat = Names.wheat
white :: Colour Double
white = Names.white
whitesmoke :: Colour Double
whitesmoke = Names.whitesmoke
yellow :: Colour Double
yellow = Names.yellow
yellowgreen :: Colour Double
yellowgreen = Names.yellowgreen
rebeccapurple :: Colour Double
rebeccapurple = sRGB24 102 51 153
transparent :: AlphaColour Double
transparent = Colour.transparent