summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pstricks/pst-char.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks/pst-char.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-char.tex91
1 files changed, 0 insertions, 91 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-char.tex b/Master/texmf-dist/tex/generic/pstricks/pst-char.tex
deleted file mode 100644
index 3ffe88d2ed6..00000000000
--- a/Master/texmf-dist/tex/generic/pstricks/pst-char.tex
+++ /dev/null
@@ -1,91 +0,0 @@
-%% BEGIN pst-char.tex
-%%
-%% Stroking and filling characters with line and fill styles with PSTricks 97.
-%% See the PSTricks User's Guide for description.
-%% See chartest.tex for sample input.
-%%
-\def\fileversion{97 patch 3}
-\def\filedate{1999/03/11}
-%%
-%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu.
-%%
-%% 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.
-%%
-\message{ v\fileversion, \filedate}
-
-\csname PSTcharpathLoaded\endcsname
-\let\PSTcharpathLoaded\endinput
-
-\ifx\PSTricksLoaded\endinput\else
- \def\next{\input pstricks.tex}
- \expandafter\next
-\fi
-
-\edef\TheAtCode{\the\catcode`\@}
-\catcode`\@=11
-
-\def\tx@CharPathShow{%
- /tx@CharPathSavedShow /show load def
- /show {
- % These 3 lines check whether charpath yields anything interesting.
- dup gsave newpath 0 0 moveto
- true charpath pathbbox grestore
- 3 -1 roll eq 3 1 roll eq and
- % If not, just use show.
- { tx@CharPathSavedShow }
- % Otherwise, use charpath.
- { true charpath }
- ifelse }
- def }
-
-\def\pscharpath{\def\pst@par{}\pst@object{pscharpath}}
-\def\pscharpath@i{\pst@makebox\pscharpath@ii}
-\def\pscharpath@ii{%
- \leavevmode\hbox{%
- \pstVerb{\tx@CharPathShow}%
- \box\pst@hbox
- \pstVerb{/show /tx@CharPathSavedShow load def}%
-% DG/SR modification begin - Nov. 26, 1998 - Patch 2
-% \if@star is true but \solid@star must not be executed in \begin@ClosedObj !
-% \begin@ClosedObj
- \let\solid@starOLD\solid@star
- \let\solid@star\relax
- \begin@ClosedObj
- \let\solid@star\solid@starOLD
-% DG/SR modification end
- \def\pst@linetype{1}%
- \psdashadjustfalse
- \showpointsfalse
- \let\pst@newpath\@empty
- \def\use@pscode{%
- \pst@Verb{%
- gsave
- \tx@STV
- \pst@code
- grestore
-% DG/SR modification begin - Jul. 3, 1998 / Mar. 11, 1999 - Patches 1 and 3
-% \if@star\else CP newpath moveto \fi}}%
- \if@star\else CP newpath moveto \fi}%
- \gdef\pst@code{}}%
-% DG/SR modification end
- \end@ClosedObj}}
-
-\def\pscharclip{\def\pst@par{}\pst@object{pscharclip}}
-\def\pscharclip@i{\pst@makebox\pscharclip@ii}
-\def\pscharclip@ii{%
- \leavevmode
- \begingroup
- \begin@psclip
- {\@startrue\pscharpath@ii}%
- \pstVerb{clip \if@star\else currentpoint newpath moveto\fi}%
- \def\endpscharclip{\end@psclip\endgroup}%
- \ignorespaces}
-\def\endpscharclip{\pst@misplaced\endpscharclip}
-
-\catcode`\@=\TheAtCode\relax
-
-\endinput
-%%
-%% END pst-char.tex