summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pstricks/pst-ovl.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks/pst-ovl.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-ovl.tex80
1 files changed, 80 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-ovl.tex b/Master/texmf-dist/tex/generic/pstricks/pst-ovl.tex
new file mode 100644
index 00000000000..7470510f962
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/pst-ovl.tex
@@ -0,0 +1,80 @@
+%% $Id: pst-ovl.tex 803 2013-07-09 20:34:57Z herbert $
+%%
+%%
+%% This is file `pst-ovl.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-ovl.tex'
+%%
+%% Herbert Voss <hvoss@tug.org>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-ovl' is a PSTricks related package for
+%% overlay support
+%%
+\csname PSTovlloaded\endcsname
+\let\PSTovlloaded\endinput
+%
+% Requires main PSTricks
+\ifx\PSTricksLoaded\endinput\else\input pstricks \fi
+%
+\def\fileversion{0.01}
+\def\filedate{2013/07/08}
+\message{`pst-ovl' v\fileversion, \filedate\space (hv)}
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+%
+\pstheader{pst-ovl.pro}
+%
+\def\tx@BeginOL{tx@ovl begin BeginOL }
+\def\tx@InitOL{tx@ovl begin InitOL }
+%
+\def\pst@initoverlay#1{\pst@Verb{\tx@InitOL /TheOL (#1) def end}}
+\def\AltOverlayMode{%
+ \def\pst@initoverlay##1{%
+ \pst@Verb{%
+ \tx@InitOL
+ /Visible { initclip } def
+ /Invisible {
+ CP newpath OLUnit itransform moveto clip newpath moveto
+ } def
+ /TheOL (##1) def end }}}
+%
+\def\pst@overlay#1{%
+ \edef\curr@overlay{#1}%
+ \pst@Verb{tx@ovl begin (#1) BOL end}%
+ \aftergroup\pst@endoverlay}
+%
+\def\pst@endoverlay{\pst@Verb{tx@ovl begin (\curr@overlay) BOL end}}
+\def\curr@overlay{all}
+%
+\newbox\theoverlaybox
+%
+\def\overlaybox{%
+ \global\setbox\theoverlaybox=\hbox\bgroup
+ \begingroup
+ \let\psoverlay\pst@overlay
+ \def\overlaybox{%
+ \@pstrickserr{Overlays cannot be nested}\@eha}%
+ \def\putoverlaybox{%
+ \@pstrickserr{You must end the overlay box
+ before using \string\putoverlaybox}}%
+ \psoverlay{main}%
+ \ignorespaces}
+%
+\def\endoverlaybox{\endgroup\egroup}
+\def\putoverlaybox#1{%
+ \hbox{\pst@initoverlay{#1}\copy\theoverlaybox}}
+%
+\def\psoverlay{\@pstrickserr{\string\psoverlay\space
+ can only be used after \string\overlaybox}}
+%
+\catcode`\@=\PstAtCode\relax
+%
+%% END: pst-ovl.tex
+\endinput