%% 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
|