summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-ovl/tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/pstricks/contrib/pst-ovl/tex
Initial commit
Diffstat (limited to 'graphics/pstricks/contrib/pst-ovl/tex')
-rw-r--r--graphics/pstricks/contrib/pst-ovl/tex/pst-ovl.tex83
1 files changed, 83 insertions, 0 deletions
diff --git a/graphics/pstricks/contrib/pst-ovl/tex/pst-ovl.tex b/graphics/pstricks/contrib/pst-ovl/tex/pst-ovl.tex
new file mode 100644
index 0000000000..e0d7910586
--- /dev/null
+++ b/graphics/pstricks/contrib/pst-ovl/tex/pst-ovl.tex
@@ -0,0 +1,83 @@
+%% $Id: pst-ovl.tex 859 2013-12-21 16:51:58Z herbert $
+%%
+%%
+%% This is file `pst-ovl.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-ovl.tex'
+%%
+%% 2015 -- Timothy Van Zandt
+%% 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 PostScript related package for
+%% overlay support
+%%
+\csname PSTovlloaded\endcsname
+\let\PSTovlloaded\endinput
+%
+%% Requires main PSTricks
+\ifx\PSTricksLoaded\endinput\else\input pstricks \fi
+%
+\def\fileversion{0.07a}
+\def\filedate{2017/10/09}
+\message{`pst-ovl' v\fileversion, \filedate\space (tvz,hv)}
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+%
+\def\tx@BeginOL{ tx@ovlDict begin BeginOL }
+\def\tx@InitOL{ tx@ovlDict begin InitOL }
+\def\tx@BOLend{ tx@ovlDict begin BOL end }
+%
+\pstheader{pst-ovl.pro}
+%
+\def\pst@initoverlay#1{\pst@Verb{ \tx@InitOL end /TheOL #1 def }}
+%
+\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}%
+ \expandafter\pst@Verb\expandafter{ #1 \tx@BOLend }%
+ \aftergroup\pst@endoverlay}
+%
+\def\pst@endoverlay{\expandafter\pst@Verb\expandafter{\curr@overlay \space \tx@BOLend }}
+\def\curr@overlay{-1}
+%
+\newbox\thepsoverlaybox
+%
+\def\psoverlaybox{%
+ \global\setbox\thepsoverlaybox=\hbox\bgroup
+ \begingroup
+ \let\psoverlay\pst@overlay
+ \def\psoverlaybox{%
+ \@pstrickserr{Overlays cannot be nested}\@eha}%
+ \def\psputoverlaybox{%
+ \@pstrickserr{You must end the overlay box
+ before using \string\psputoverlaybox}}%
+ \psoverlay{0}%
+ \ignorespaces}
+%
+\def\endpsoverlaybox{\endgroup\egroup}
+\def\psputoverlaybox#1{%
+ \hbox{\expandafter\pst@initoverlay\expandafter{#1}\copy\thepsoverlaybox}}
+%
+\def\psoverlay{\@pstrickserr{\string\psoverlay\space
+ can only be used after \string\overlaybox}}
+%
+\catcode`\@=\PstAtCode\relax
+%
+%% END: pst-ovl.tex
+\endinput