diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks/pst-ovl.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pstricks/pst-ovl.tex | 80 |
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 |