1 files changed, 91 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-char.tex b/Master/texmf-dist/tex/generic/pstricks/pst-char.tex
new file mode 100644
index 00000000000..3ffe88d2ed6
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pstricks/pst-char.tex
@@ -0,0 +1,91 @@
+%% 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