module Graphics.PDF.Shading(
PDFShading(..)
, paintWithShading
, applyShading
) where
import Graphics.PDF.Draw
import Graphics.PDF.LowLevel.Types
import Control.Monad.State(gets)
import Graphics.PDF.Shapes(setAsClipPath)
import Control.Monad.Writer
import Graphics.PDF.LowLevel.Serializer
applyShading :: PDFShading -> Draw ()
applyShading :: PDFShading -> Draw ()
applyShading PDFShading
shade = do
Map PDFShading String
shadingMap <- (DrawState -> Map PDFShading String)
-> Draw (Map PDFShading String)
forall s (m :: * -> *) a. MonadState s m => (s -> a) -> m a
gets DrawState -> Map PDFShading String
shadings
(String
newName,Map PDFShading String
newMap) <- String
-> PDFShading
-> Map PDFShading String
-> Draw (String, Map PDFShading String)
forall a.
(Ord a, PdfResourceObject a) =>
String -> a -> Map a String -> Draw (String, Map a String)
setResource String
"Shading" PDFShading
shade Map PDFShading String
shadingMap
(DrawState -> DrawState) -> Draw ()
forall s (m :: * -> *). MonadState s m => (s -> s) -> m ()
modifyStrict ((DrawState -> DrawState) -> Draw ())
-> (DrawState -> DrawState) -> Draw ()
forall a b. (a -> b) -> a -> b
$ \DrawState
s -> DrawState
s { shadings :: Map PDFShading String
shadings = Map PDFShading String
newMap }
Builder -> Draw ()
forall w (m :: * -> *). MonadWriter w m => w -> m ()
tell (Builder -> Draw ())
-> ([Builder] -> Builder) -> [Builder] -> Draw ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Builder] -> Builder
forall a. Monoid a => [a] -> a
mconcat ([Builder] -> Draw ()) -> [Builder] -> Draw ()
forall a b. (a -> b) -> a -> b
$[ String -> Builder
forall s a. SerializeValue s a => a -> s
serialize String
"\n/"
, String -> Builder
forall s a. SerializeValue s a => a -> s
serialize String
newName
, String -> Builder
forall s a. SerializeValue s a => a -> s
serialize String
" sh"
]
paintWithShading :: PDFShading
-> Draw a
-> Draw ()
paintWithShading :: PDFShading -> Draw a -> Draw ()
paintWithShading PDFShading
shade Draw a
d = do
Draw () -> Draw ()
forall a. Draw a -> Draw a
withNewContext (Draw () -> Draw ()) -> Draw () -> Draw ()
forall a b. (a -> b) -> a -> b
$ do
a
_ <- Draw a
d
Draw ()
setAsClipPath
PDFShading -> Draw ()
applyShading PDFShading
shade