---------------------------------------------------------
-- |
-- Copyright   : (c) 2006-2016, alpheccar.org
-- License     : BSD-style
--
-- Maintainer  : misc@NOSPAMalpheccar.org
-- Stability   : experimental
-- Portability : portable
--
-- Colors for a PDF document
---------------------------------------------------------
module Graphics.PDF.Colors(
  -- * Colors
  -- ** Types
    Color(..)
  -- ** Functions
  , setRGBColorSpace
  , fillColor
  , strokeColor
  , setStrokeAlpha
  , setFillAlpha
  , hsvToRgb
  -- ** Some colors
  , 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
            

       
-- | Set alpha value for transparency
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"
                     ]
        
-- | Set alpha value for transparency
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"
                     ]
    
-- | Init the PDF color space to RGB.
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"



-- | Select the filling color
fillColor :: MonadPath m => Color -- ^ Filling 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" 
                         ]

-- | Select the drawing color
strokeColor :: MonadPath m => Color -- ^ Drawing 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" 
                     ]