module Graphics.PDF.Colors(
Color(..)
, setRGBColorSpace
, fillColor
, strokeColor
, setStrokeAlpha
, setFillAlpha
, hsvToRgb
, black
, white
, red
, blue
, green
) where
import Graphics.PDF.Draw
import Graphics.PDF.LowLevel.Types
import Control.Monad.State(gets)
import Graphics.PDF.Resources
import Control.Monad.Writer
import Graphics.PDF.LowLevel.Serializer
black :: Color
black :: Color
black = Double -> Double -> Double -> Color
Rgb Double
0 Double
0 Double
0
white :: Color
white :: Color
white = Double -> Double -> Double -> Color
Rgb Double
1 Double
1 Double
1
red :: Color
red :: Color
red = Double -> Double -> Double -> Color
Rgb Double
1 Double
0 Double
0
green :: Color
green :: Color
green = Double -> Double -> Double -> Color
Rgb Double
0 Double
1 Double
0
blue :: Color
blue :: Color
blue = Double -> Double -> Double -> Color
Rgb Double
0 Double
0 Double
1
setStrokeAlpha :: Double -> Draw ()
setStrokeAlpha :: Double -> Draw ()
setStrokeAlpha Double
alpha = do
Map StrokeAlpha String
alphaMap <- forall s (m :: * -> *) a. MonadState s m => (s -> a) -> m a
gets DrawState -> Map StrokeAlpha String
strokeAlphas
(String
newName,Map StrokeAlpha String
newMap) <- forall a.
(Ord a, PdfResourceObject a) =>
String -> a -> Map a String -> Draw (String, Map a String)
setResource String
"ExtGState" (Double -> StrokeAlpha
StrokeAlpha Double
alpha) Map StrokeAlpha String
alphaMap
forall s (m :: * -> *). MonadState s m => (s -> s) -> m ()
modifyStrict forall a b. (a -> b) -> a -> b
$ \DrawState
s -> DrawState
s { strokeAlphas :: Map StrokeAlpha String
strokeAlphas = Map StrokeAlpha String
newMap }
forall w (m :: * -> *). MonadWriter w m => w -> m ()
tell forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Monoid a => [a] -> a
mconcat forall a b. (a -> b) -> a -> b
$ [ forall s a. SerializeValue s a => a -> s
serialize String
"\n/"
, forall s a. SerializeValue s a => a -> s
serialize String
newName
, forall s a. SerializeValue s a => a -> s
serialize String
" gs"
]
setFillAlpha :: Double -> Draw ()
setFillAlpha :: Double -> Draw ()
setFillAlpha Double
alpha = do
Map FillAlpha String
alphaMap <- forall s (m :: * -> *) a. MonadState s m => (s -> a) -> m a
gets DrawState -> Map FillAlpha String
fillAlphas
(String
newName,Map FillAlpha String
newMap) <- forall a.
(Ord a, PdfResourceObject a) =>
String -> a -> Map a String -> Draw (String, Map a String)
setResource String
"ExtGState" (Double -> FillAlpha
FillAlpha Double
alpha) Map FillAlpha String
alphaMap
forall s (m :: * -> *). MonadState s m => (s -> s) -> m ()
modifyStrict forall a b. (a -> b) -> a -> b
$ \DrawState
s -> DrawState
s { fillAlphas :: Map FillAlpha String
fillAlphas = Map FillAlpha String
newMap }
forall w (m :: * -> *). MonadWriter w m => w -> m ()
tell forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Monoid a => [a] -> a
mconcat forall a b. (a -> b) -> a -> b
$ [ forall s a. SerializeValue s a => a -> s
serialize String
"\n/"
, forall s a. SerializeValue s a => a -> s
serialize String
newName
, forall s a. SerializeValue s a => a -> s
serialize String
" gs"
]
setRGBColorSpace :: Draw ()
setRGBColorSpace :: Draw ()
setRGBColorSpace = forall w (m :: * -> *). MonadWriter w m => w -> m ()
tell forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall s a. SerializeValue s a => a -> s
serialize forall a b. (a -> b) -> a -> b
$ String
"\n/DeviceRGB CS\n/DeviceRGB cs\n"
fillColor :: MonadPath m => Color
-> m ()
fillColor :: forall (m :: * -> *). MonadPath m => Color -> m ()
fillColor (Rgb Double
r Double
g Double
b) = do
forall w (m :: * -> *). MonadWriter w m => w -> m ()
tell forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Monoid a => [a] -> a
mconcat forall a b. (a -> b) -> a -> b
$ [ forall s a. SerializeValue s a => a -> s
serialize String
"\n"
, forall a. PdfObject a => a -> Builder
toPDF Double
r
, forall s a. SerializeValue s a => a -> s
serialize Char
' '
, forall a. PdfObject a => a -> Builder
toPDF Double
g
, forall s a. SerializeValue s a => a -> s
serialize Char
' '
, forall a. PdfObject a => a -> Builder
toPDF Double
b
, forall s a. SerializeValue s a => a -> s
serialize String
" rg"
]
fillColor (Hsv Double
h Double
s Double
v) = do
let (Double
r,Double
g,Double
b) = (Double, Double, Double) -> (Double, Double, Double)
hsvToRgb (Double
h,Double
s,Double
v)
forall w (m :: * -> *). MonadWriter w m => w -> m ()
tell forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Monoid a => [a] -> a
mconcat forall a b. (a -> b) -> a -> b
$ [ forall s a. SerializeValue s a => a -> s
serialize String
"\n"
, forall a. PdfObject a => a -> Builder
toPDF Double
r
, forall s a. SerializeValue s a => a -> s
serialize Char
' '
, forall a. PdfObject a => a -> Builder
toPDF Double
g
, forall s a. SerializeValue s a => a -> s
serialize Char
' '
, forall a. PdfObject a => a -> Builder
toPDF Double
b
, forall s a. SerializeValue s a => a -> s
serialize String
" rg"
]
strokeColor :: MonadPath m => Color
-> m ()
strokeColor :: forall (m :: * -> *). MonadPath m => Color -> m ()
strokeColor (Rgb Double
r Double
g Double
b) = do
forall w (m :: * -> *). MonadWriter w m => w -> m ()
tell forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Monoid a => [a] -> a
mconcat forall a b. (a -> b) -> a -> b
$ [ forall s a. SerializeValue s a => a -> s
serialize String
"\n"
, forall a. PdfObject a => a -> Builder
toPDF Double
r
, forall s a. SerializeValue s a => a -> s
serialize Char
' '
, forall a. PdfObject a => a -> Builder
toPDF Double
g
, forall s a. SerializeValue s a => a -> s
serialize Char
' '
, forall a. PdfObject a => a -> Builder
toPDF Double
b
, forall s a. SerializeValue s a => a -> s
serialize String
" RG"
]
strokeColor (Hsv Double
h Double
s Double
v) = do
let (Double
r,Double
g,Double
b) = (Double, Double, Double) -> (Double, Double, Double)
hsvToRgb (Double
h,Double
s,Double
v)
forall w (m :: * -> *). MonadWriter w m => w -> m ()
tell forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Monoid a => [a] -> a
mconcat forall a b. (a -> b) -> a -> b
$ [ forall s a. SerializeValue s a => a -> s
serialize String
"\n"
, forall a. PdfObject a => a -> Builder
toPDF Double
r
, forall s a. SerializeValue s a => a -> s
serialize Char
' '
, forall a. PdfObject a => a -> Builder
toPDF Double
g
, forall s a. SerializeValue s a => a -> s
serialize Char
' '
, forall a. PdfObject a => a -> Builder
toPDF Double
b
, forall s a. SerializeValue s a => a -> s
serialize String
" RG"
]