summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2006-11-27 00:18:34 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2006-11-27 00:18:34 +0000
commit6925c2312bf64d643e674ffb79bd5d7f842f6d76 (patch)
tree0ec7270d17a631fba856b492225d46af93aaa83a /Master/texmf-dist/tex/generic
parentc588c9533b6b61c3234451e8c1bc2dd7aa69b00b (diff)
update pstricks.
git-svn-id: svn://tug.org/texlive/trunk@2547 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-char.tex91
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-coil.tex136
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-eps.tex251
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-fill.tex471
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-grad.tex112
-rw-r--r--Master/texmf-dist/tex/generic/pstricks/pst-text.tex98
6 files changed, 0 insertions, 1159 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
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex b/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex
deleted file mode 100644
index aeac0179afd..00000000000
--- a/Master/texmf-dist/tex/generic/pstricks/pst-coil.tex
+++ /dev/null
@@ -1,136 +0,0 @@
-%% BEGIN pst-coil.tex
-%%
-%% Coils and zigzags with PSTricks 97.
-%% See the PSTricks User's Guide for documentation.
-%% For use with the PostScript header file `pst-coil.pro'.
-%%
-\def\fileversion{97 patch 2}
-\def\filedate{1998/03/19}
-%%
-%% 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 PSTcoilsLoaded\endcsname
-\let\PSTcoilsLoaded\endinput
-\ifx\PSTricksLoaded\endinput\else
-\def\next{\input pstricks.tex}\expandafter\next
-\fi
-\edef\TheAtCode{\the\catcode`\@}
-\catcode`\@=11
-\pstheader{pst-coil.pro}
-\edef\pst@theheaders{\pst@theheaders,pst-coil.pro}
-\def\pst@coildict{tx@CoilDict begin }
-\def\psset@coilwidth#1{\pst@getlength{#1}\psk@coilwidth}
-\psset@coilwidth{1cm}
-\def\psset@coilheight#1{\pst@checknum{#1}\pscoilheight}
-\psset@coilheight{1}
-\def\psset@coilarmA#1{\pst@getlength{#1}\psk@coilarmA}
-\def\psset@coilarmB#1{\pst@getlength{#1}\psk@coilarmB}
-\def\psset@coilarm#1{%
-\pst@getlength{#1}\psk@coilarmA
-\let\psk@coilarmB\psk@coilarmA}
-\psset@coilarm{.5cm}
-\def\psset@coilaspect#1{\pst@getangle{#1}\psk@coilaspect}
-\psset@coilaspect{45}
-\def\psset@coilinc#1{\pst@getangle{#1}\psk@coilinc}
-\psset@coilinc{10}
-\def\pscoil{\def\pst@par{}\pst@object{pscoil}}
-\def\pscoil@i{\pst@getarrows\pscoil@ii}
-\def\pscoil@ii(#1){%
-\@ifnextchar(%
-{\pscoil@iii{1}(#1)}%
-{\pscoil@iii{\z@}(0,0)(#1)}}
-\def\pscoil@iii#1(#2)(#3){%
-\begin@OpenObj
-\pst@getcoor{#2}\pst@tempa
-\pst@getcoor{#3}\pst@tempb
-\pst@optcp{#1}\pst@tempa
-\addto@pscode{%
-\pst@tempa \pst@tempb
-\psk@coilwidth \pscoilheight
-\psk@coilarmA \psk@coilarmB
-\psk@coilaspect \psk@coilinc
-\pst@coildict \tx@Coil end}%
-\showpointsfalse
-\end@OpenObj}
-\def\tx@CoilLoop{CoilLoop }
-\def\tx@Coil{Coil }
-\def\psCoil{\def\pst@par{}\pst@object{psCoil}}
-\def\psCoil@i#1#2{%
-\begin@AltOpenObj
-\showpointsfalse
-\pst@getangle{#1}\pst@tempa
-\pst@getangle{#2}\pst@tempb
-\addto@pscode{%
-\pst@tempa
-\pst@tempb
-\psk@coilwidth
-\pscoilheight
-\psk@coilaspect
-\psk@coilinc
-\pst@coildict \tx@AltCoil end
-\@nameuse{psls@\pslinestyle}}%
-\end@OpenObj}
-\def\tx@AltCoil{AltCoil }
-\def\pszigzag{\def\pst@par{}\pst@object{pszigzag}}
-\def\pszigzag@i{\pst@getarrows\pszigzag@ii}
-\def\pszigzag@ii(#1){%
-\@ifnextchar({\pszigzag@iii{1}(#1)}{\pszigzag@iii{\z@}(0,0)(#1)}}
-\def\pszigzag@iii#1(#2)(#3){%
-\begin@OpenObj
-\pst@getcoor{#2}\pst@tempa
-\pst@getcoor{#3}\pst@tempb
-\pst@optcp{#1}\pst@tempa
-\addto@pscode{%
-\pst@tempa
-\pst@tempb
-\pscoilheight
-\psk@coilwidth
-\psk@coilarmA
-\psk@coilarmB
-\pst@coildict \tx@ZigZag end
-\psline@iii
-\tx@Line}%
-\end@OpenObj}
-\def\tx@ZigZag{ZigZag }
-\def\nccoil{\pst@object{nccoil}}
-\def\nccoil@i{\check@arrow{\nccoil@ii}}
-\def\nccoil@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{%
-\tx@NCCoor
-tx@Dict begin
-% DG/SR modification begin - Mar. 19, 1998 - Patch 2
-4 2 roll
-% DG/SR modification end
-\psk@coilwidth \pscoilheight
-\psk@coilarmA \psk@coilarmB
-\psk@coilaspect \psk@coilinc
-\pst@coildict \tx@Coil end
-end}}
-\def\pccoil{\def\pst@par{}\pst@object{pccoil}}
-\def\pccoil@i{\pc@object\nccoil@ii}
-\def\nczigzag{\pst@object{nczigzag}}
-\def\nczigzag@i{\check@arrow{\nczigzag@ii}}
-\def\nczigzag@ii#1#2{\nc@object{Open}{#1}{#2}{.5}{%
-\tx@NCCoor
-tx@Dict begin
-% DG/SR modification begin - Mar. 19, 1998 - Patch 2
-4 2 roll
-% DG/SR modification end
-\pscoilheight
-\psk@coilwidth
-\psk@coilarmA
-\psk@coilarmB
-\pst@coildict \tx@ZigZag end
-\psline@iii
-\tx@Line
-end}}
-\def\pczigzag{\def\pst@par{}\pst@object{pczigzag}}
-\def\pczigzag@i{\pc@object\nczigzag@ii}
-\catcode`\@=\TheAtCode\relax
-\endinput
-%%
-%% END pst-coil.tex
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-eps.tex b/Master/texmf-dist/tex/generic/pstricks/pst-eps.tex
deleted file mode 100644
index b38ec5973dd..00000000000
--- a/Master/texmf-dist/tex/generic/pstricks/pst-eps.tex
+++ /dev/null
@@ -1,251 +0,0 @@
-%% BEGIN pst-eps.tex
-%%
-%% Writing EPS files with PSTricks 97.
-%% See the PSTricks User's Guide for description.
-%%
-\def\fileversion{97 patch 1}
-\def\filedate{1997/05/05}
-%%
-%% 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 PSTfilesLoaded\endcsname
-\let\PSTfilesLoaded\endinput
-
-\ifx\PSTricksLoaded\endinput\else
- \def\next{\input pstricks.tex}
- \expandafter\next
-\fi
-
-\edef\TheAtCode{\the\catcode`\@}
-\catcode`\@=11
-
-% Exporting PostScript files
-
-% DG/SR modification begin - May 5, 1997 - Patch 1
-% With LaTeX 2e, we must force now inclusion of header files
-%\def\TeXtoEPS{\begingroup\pst@makebox{}\bgroup\ignorespaces}
-\def\TeXtoEPS{%
-\ifx\documentclass\@undefined\else\@begindvi\fi
-\begingroup\pst@makebox{}\bgroup\ignorespaces}
-% DG/SR modification end
-\def\endTeXtoEPS{%
- \egroup
-% Get contents of page, in case it contains special's:
- \begingroup
- \global\setbox\pst@boxg\box\voidb@x
- \output{\global\setbox\pst@boxg\box\@cclv}%
- \par\hbox{}\penalty-10000
- \endgroup
- \dp\pst@boxg\z@
- \ht\pst@boxg\z@
- \wd\pst@boxg\z@
- \pst@dimg=3pt
- \shipout\hbox{%
- \box\pst@boxg
- \pst@Verb{gsave CM \tx@STV CP newpath moveto
- \pst@number\pst@dimg neg 0 rmoveto clip setmatrix}%
- \vrule width \wd\pst@hbox height \ht\pst@hbox depth \dp\pst@hbox
- \pstVerb{currentpoint grestore moveto}%
- \kern -\wd\pst@hbox
- \unhbox\pst@hbox}%
- \endgroup
- \typeout{PSTricks: Converting TeX box to EPS.}%
- \typeout{\@spaces\@spaces\space\space With dvips, use -E option.}}
-
-
-% Writing PSTricks graphics to EPS files
-
-\newwrite\pst@epsout
-\newwrite\pst@tempout
-
-\def\pst@getbp#1#2#3{%
- \csname psset#1length\endcsname\pst@dimg{#2}%
- \advance\pst@dimg .49bp
- \pst@cntg=\pst@dimg
- \multiply\pst@cntg 5
- \divide\pst@cntg 328909
- \edef#3{\the\pst@cntg}}
-
-\def\psset@bbllx#1{\pst@getbp{x}{#1}\psk@bbllx}
-\psset@bbllx{-1pt}
-
-\def\psset@bblly#1{\pst@getbp{y}{#1}\psk@bblly}
-\psset@bblly{-1pt}
-
-\def\psset@bburx#1{\pst@getbp{x}{#1}\psk@bburx}
-\psset@bburx{1pt}
-
-\def\psset@bbury#1{\pst@getbp{y}{#1}\psk@bbury}
-\psset@bbury{1pt}
-
-\def\pst@getboolean#1#2{%
- \def\pst@tempg##1##2\@nil{%
- \ifx t##1\relax\def#2{1\relax}\else\def#2{\z@}\fi}
- \pst@expandafter\pst@tempg{#1}\relax\@nil}
-
-\def\psset@headers#1{%
- \def\pst@tempg##1##2\@nil{%
- \ifx u##1\relax
- \def\psk@headers{1\relax}%
- \else
- \ifx a#1\relax
- \def\psk@headers{2\relax}%
- \else
- \def\psk@headers{\z@}%
- \fi
- \fi}%
- \pst@expandafter\pst@tempg{#1}\relax\@nil}
-\psset@headers{none}
-
-\def\psset@checkfile#1{\pst@getboolean{#1}\psk@checkfile}
-\psset@checkfile{true}
-
-\def\psset@makeeps#1{%
- \def\pst@tempg{#1}%
- \ifx\pst@tempg\@none
- \def\psk@makeeps{\z@}%
- \else
- \def\pst@temph{all}%
- \ifx\pst@tempg\pst@temph
- \def\psk@makeeps{3\relax}%
- \else
- \def\pst@temph{all*}%
- \ifx\pst@tempg\pst@temph
- \def\psk@makeeps{2\relax}%
- \else
- \def\psk@makeeps{1\relax}%
- \fi
- \fi
- \fi}
-\psset@makeeps{new}
-
-\def\psset@headerfile#1{\def\psk@headerfile{#1}}
-\psset@headerfile{}
-
-\def\pst@checkfile#1{%
- \ifcase\psk@makeeps
- \@pstfalse
- \or
- \immediate\openin1=#1
- \ifeof1\relax\@psttrue\else\@pstfalse\fi
- \immediate\closein1
- \or
- \immediate\openin1=#1
- \ifeof1
- \@psttrue
- \else
- \typeout{^^J%
- PSTricks warning:^^J%
- !! File `#1' exists and will be erased if in current directory!^^J%
- !! Make `#1'? (y=yes; n=no)}
- \read16 to \pst@tempg
- \if y\pst@tempg\relax\@psttrue\else\@pstfalse\fi
- \fi
- \immediate\closein1=#1
- \or
- \@psttrue
- \fi}
-
-\def\PSTtoEPS{\def\pst@par{}\pst@object{PSTtoEPS}}
-\begingroup
-\catcode`\%=12
-\catcode`\"=14
-\long\gdef\PSTtoEPS@i#1#2{"
- \begingroup
- \use@par
- \newlinechar`\^^J"
- \pst@checkfile{#1}"
- \if@pst
- \immediate\openout\pst@epsout=#1
- \def\write@eps##1{\immediate\write\pst@epsout{##1}}"
- \def\addto@pscode##1{"
- \begingroup
- \newlinechar`\ "
- \write@eps{##1}"
- \endgroup}
- \write@eps{"
- %!PS-Adobe-3.0 EPSF-3.0^^J"
- %%Creator: PSTricks^^J"
- %%Title: #1^^J"
- %%CreationDate: \the\year/\the\month/\the\day^^J"
- %%BoundingBox:
- \psk@bbllx\space\psk@bblly\space\psk@bburx\space\psk@bbury^^J"
- %%EndComments}"
- \ifcase\psk@headers
- \def\pst@tempg{}"
- \or
- \let\pst@tempg\psk@headerfile
- \or
- \edef\pst@tempg{\pst@theheaders,\psk@headerfile}"
- \fi
- \ifx\pst@tempg\@empty\else
- \expandafter\pst@writeheaders\pst@tempg,\@nil
- \fi
- \write@eps{%%BeginSetup}"
- \addto@pscode\pst@dict
- \write@eps{%%EndSetup}"
- \ifdim\pstunit=1bp\else
- \pst@dimg=\pstunit\relax
- \write@eps{\number\pst@dimg\space 65781.8 div dup scale}"
- \fi
- \addto@pscode{"
- \tx@STP
- 0 setlinecap
- 0 setlinejoin
- 10 setmiterlimit
- [] 0 setdash
- newpath}"
- \setbox\pst@hbox=\hbox{"
- \def\init@pscode{"
- \write@eps{"
- gsave
- \psk@origin
- \psk@swapaxes
- \pst@number\pslinewidth SLW
- \pst@usecolor\pslinecolor}}"
- \def\use@pscode{\write@eps{grestore}}"
- \let\pst@rawfile\pst@filetoeps
- \def\psclip#1{\pst@misplaced\psclip}"
- \let\endpsclip\relax
- \def\pstextpath@@@[##1](##2,##3)##4{\pst@misplaced\pstextpath}"
- \def\nc@object##1##2##3##4{\pst@misplaced{node connection}}"
- \def\PSTtoEPS@i##1##2{\pst@misplaced\PSTtoEPS}"
- #2}"
- \write@eps{"
- %%Trailer^^J"
- end^^J"
- %%EOF}"
- \immediate\closeout\pst@epsout
- \fi
- \endgroup
- \ignorespaces}
-
-\gdef\pst@writeheaders#1,{"
- \def\pst@tempg{#1}"
- \ifx\pst@tempg\@empty\else
- \write@eps{%%BeginProcSet: #1}"
- \pst@filetoeps{#1}"
- \write@eps{%%EndProcSet}"
- \fi
- \@ifnextchar\@nil{\let\pst@tempg}{\pst@writeheaders}}
-\endgroup
-
-\def\pst@filetoeps#1{%
- \begingroup
- \def\do##1{\catcode`##1=12\relax}%
- \dospecials
- \def\addto@pscode##1{\write@eps{##1}}%
- \pst@@rawfile{#1}%
- \endgroup}
-
-\catcode`\@=\TheAtCode\relax
-
-\endinput
-%%
-%% END pst-eps.tex
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-fill.tex b/Master/texmf-dist/tex/generic/pstricks/pst-fill.tex
deleted file mode 100644
index bf980598931..00000000000
--- a/Master/texmf-dist/tex/generic/pstricks/pst-fill.tex
+++ /dev/null
@@ -1,471 +0,0 @@
-%% BEGIN pst-fill.tex
-%%
-%% Filling and tiling with PSTricks 97.
-%%
-%%
-%% 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.
-%%
-%%
-%% Note (hv - August 17, 04 ):
-%% merge the VTeX and TeX versions (patch 4)
-%% Note (hv - June 22, 04 ):
-%% * delete the Pst@Debug option and use the
-%% the one from pstricks to prevent a clash with pst-gr3d
-%% * Patched by MV 09-10-2001 to make it work with VTeX.
-%% Note (D.G. - April 8, 97 and November / December 97):
-%% * With a \PstTiling macro defined (or "tiling" optional parameter
-%% on \usepackage[tiling]{pst-fill}), this file run exactly as
-%% the original boxfill.tex file from Timothy, version 0.94,
-%% except a correction in \pst@ManualFillCycle to avoid a division by 0.
-%% It's the default.
-%% * With a \PstTiling macro defined (or "tiling" optional parameter
-%% on \usepackage[tiling]{pst-fill}) there are several add-ons
-%% and changes to do `tiling' rather than `filling' in "automatic" mode :
-%% - we fix the position of the beginning of tiling,
-%% - we allow normally the framing of the area as expected, using
-%% the line.... parameters
-%% - we define move parameters fillmovex, fillmovey and fillmove,
-%% - we define fillcyclex as previous fillcycle parameter, and add the
-%% fillcycley and fillcycle (both fillcyclex and fillcycley) ones
-%% - we can extend the tiling area using fillloopaddx, fillloopaddy and
-%% fillloopadd parameters,
-%% - we can debug and see the whole tiling area without clipping using
-%% PstDebug parameter,
-%% - for names consistancy, we can use fillangle in place of boxfillangle
-%% and fillsize in place of boxfillsize,
-%% - default value for fillsep is 0 and for fillsize is auto.
-
-% Preliminaries:
-
-\csname PSTboxfillLoaded\endcsname
-\let\PSTboxfillLoaded\endinput
-
-\ifx\PSTricksLoaded\endinput\else
- \def\next{\input pstricks.tex}
- \expandafter\next
-\fi
-
-\def\fileversion{97 patch 4}
-\def\filedate{2004/08/18}
-\message{ v\fileversion, \filedate}
-
-\edef\TheAtCode{\the\catcode`\@}
-\catcode`\@=11
-
-% The box:
-
-\newbox\pst@fillbox
-\def\psboxfill{\pst@killglue\pst@makebox\psboxfill@i}
-\def\psboxfill@i{\setbox\pst@fillbox\box\pst@hbox\ignorespaces}
-
-% Parameters:
-
-\def\psset@boxfillsize#1{%
- \def\pst@tempg{#1}\def\pst@temph{auto}%
- \ifx\pst@tempg\pst@temph
- \let\psk@boxfillsize\relax
- \else
- \psset@@boxfillsize#1(\z@,\z@)\@empty(\z@,\z@)(\@nil
- \fi}
-\def\psset@@boxfillsize#1(#2,#3)#4(#5,#6)#7(#8\@nil{%
- \begingroup
- \ifx\@empty#7\relax
- \pst@dima\z@
- \pst@dimb\z@
- \pssetxlength\pst@dimc{#2}%
- \pssetylength\pst@dimd{#3}%
- \else
- \pssetxlength\pst@dima{#2}%
- \pssetylength\pst@dimb{#3}%
- \pssetxlength\pst@dimc{#5}%
- \pssetylength\pst@dimd{#6}%
- \fi
- \xdef\pst@tempg{%
- \pst@dima=\number\pst@dima sp
- \pst@dimb=\number\pst@dimb sp
- \pst@dimc=\number\pst@dimc sp
- \pst@dimd=\number\pst@dimd sp }%
- \endgroup
- \let\psk@boxfillsize\pst@tempg}
-
-\psset{boxfillsize={(-15cm,-15cm)(15cm,15cm)}}
-
-\def\psset@boxfillcolor#1{\pst@getcolor{#1}\psboxfillcolor}
-%\def\psboxfillcolor{\black}
-\psset@boxfillcolor{black}% hv
-
-\def\psset@boxfillangle#1{\pst@getangle{#1}\psk@boxfillangle}
-\psset@boxfillangle{0}
-
-\def\psset@fillsepx#1{\pst@getlength{#1}\psk@fillsepx}
-\def\psset@fillsepy#1{\pst@getlength{#1}\psk@fillsepy}
-\def\psset@fillsep#1{\psset@fillsepx{#1}\let\psk@fillsepy\psk@fillsepx}
-\psset@fillsep{2pt}
-
-% DG addition begin - Apr. 8, 1997 and Nov. 1997 - Patch 2
-\ifx\PstTiling\@undefined
- \def\psset@fillcycle#1{\pst@getint{#1}\psk@fillcycle}
- \psset@fillcycle{0}
-\else
-% For consistancy, use "fill" as prefix for angle and size
- \def\psset@fillangle#1{\psset@boxfillangle{#1}}
- \def\psset@fillsize#1{\psset{boxfillsize={#1}}}
-% Change some default values with better ones for tilings
- \psset@fillsep{0}
- \psset{fillsize=auto}
-% Define fillcyclex (previously fillcycle), fillcycley and fillcycle for both
- \def\psset@fillcyclex#1{\pst@getint{#1}\psk@fillcyclex}
- \def\psset@fillcycley#1{\pst@getint{#1}\psk@fillcycley}
- \def\psset@fillcycle#1{%
- \psset@fillcyclex{#1}\let\psk@fillcycley\psk@fillcyclex}
- \psset@fillcycle{0}
-% Define fillmove, fillmovex and fillmovey parameters
- \def\psset@fillmovex#1{\pst@getlength{#1}\psk@fillmovex}
- \def\psset@fillmovey#1{\pst@getlength{#1}\psk@fillmovey}
- \def\psset@fillmove#1{\psset@fillmovex{#1}\psset@fillmovey{#1}}
- \psset@fillmove{0pt}
-% Define fillloopaddx, fillloopaddy and fillloopadd parameters
-% if tiling is not complete
- \def\psset@fillloopaddx#1{\pst@getint{#1}\psk@fillloopaddx}
- \def\psset@fillloopaddy#1{\pst@getint{#1}\psk@fillloopaddy}
- \def\psset@fillloopadd#1{%
- \psset@fillloopaddx{#1}\let\psk@fillloopaddy\psk@fillloopaddx}
- \psset@fillloopadd{0}
-% For debugging (to debug, set PstDebug=1)
-% we now use the one from pstricks to prevent a clash with package
-% pst-gr3d 2004-06-22
-% \def\psset@PstDebug#1{\pst@getint{#1}\psk@PstDebug}
- \psset@PstDebug{0}
-\fi
-% DG addition end
-
-% Main macro:
-
-\def\psfs@boxfill{%
- \ifvoid\pst@fillbox
- \@pstrickserr{Fill box is empty. Use \string\psboxfill\space first.}\@ehpa
- \else
- \ifx\psk@boxfillsize\relax
- \pst@AutoBoxFill
- \else
- \pst@ManualBoxFill
- \fi
- \fi}
-
-% Manual box fill:
-
-\def\pst@ManualBoxFill{%
- \leavevmode
- \begingroup
- \pst@FlushCode
- \begin@psclip
- \pstVerb{clip}%
- \expandafter\pst@AddFillBox\psk@boxfillsize
- \end@psclip
- \endgroup}
-
-\def\pst@FlushCode{%
- \pst@Verb{%
- /mtrxc CM def
- CP CP T
- \tx@STV
- \psk@origin
- \psk@swapaxes
- \pst@newpath
- \pst@code
- mtrxc setmatrix
- moveto
- 0 setgray}%
- \gdef\pst@code{}}
-
-\def\pst@AddFillBox#1 #2 #3 #4 {%
- \begingroup
- \setbox\pst@fillbox=\vbox{%
- \hbox{\unhcopy\pst@fillbox\kern\psk@fillsepx\p@}%
- \vskip\psk@fillsepy\p@}%
- \psk@boxfillsize
- \pst@cnta=\pst@dimc
- \advance\pst@cnta-\pst@dima
- \divide\pst@cnta\wd\pst@fillbox
- \pst@cntb=\pst@dimd
- \advance\pst@cntb-\pst@dimb
- \pst@dimd=\ht\pst@fillbox
- \divide\pst@cntb\pst@dimd
- \def\pst@tempa{%
- \pst@tempg
- \copy\pst@fillbox
- \advance\pst@cntc\@ne
- \ifnum\pst@cntc<\pst@cntd\expandafter\pst@tempa\fi}%
- \let\pst@tempg\relax
- \pst@cntc-\tw@
- \pst@cntd\pst@cnta
- \setbox\pst@fillbox=\hbox to \z@{%
- \kern\pst@dima
- \kern-\wd\pst@fillbox
- \pst@tempa
- \hss}%
- \pst@cntd\pst@cntb
-% DG modification begin - Dec. 11, 1997 - Patch 2
- \ifx\PstTiling\@undefined
- \ifnum\psk@fillcycle=\z@\pst@ManualFillCycle\fi
- \else
- \ifnum\psk@fillcyclex=\z@\pst@ManualFillCycle\fi
- \fi
-% DG modification end
- \global\setbox\pst@boxg=\vbox to\z@{%
- \offinterlineskip
- \vss
- \pst@tempa
- \vskip\pst@dimb}%
- \endgroup
- \setbox\pst@fillbox\box\pst@boxg
- \pst@rotate\psk@boxfillangle\pst@fillbox
- \box\pst@fillbox}
-
-\def\pst@ManualFillCycle{%
-% DG modification begin - Dec. 11, 1997 - Patch 2
- \ifx\PstTiling\@undefined
- \pst@cntg=\psk@fillcycle
- \else
- \pst@cntg=\psk@fillcyclex
- \fi
-% DG modification end
- \pst@dimg=\wd\pst@fillbox
-% DG modification begin - Mar. 20, 1997 - Patch 1 (to avoid division by 0)
-% \divide\pst@dimg\pst@cntg
- \ifnum\pst@cntg=\z@
- \else
- \divide\pst@dimg\pst@cntg
- \fi
-% DG modification end
- \ifnum\pst@cntg<\z@\pst@cntg=-\pst@cntg\fi
- \advance\pst@cntg\m@ne
- \pst@cnth=\pst@cntg
- \def\pst@tempg{%
- \ifnum\pst@cnth<\pst@cntg\advance\pst@cnth\@ne\else\pst@cnth\z@\fi
- \moveright\pst@cnth\pst@dimg}}
-
-% Auto box fill: !! Fix dictionary
-
-% DG addition begin - Apr. 8, 1997 and Dec. 1997 - Patch 2
-\ifx\PstTiling\@undefined
-% DG addition end
-% Original version
-\pst@def{AutoFillCycle}<%
- /c ED
- /n 0 def
- /s {
- /x x w c div n mul add def
- /n n c abs 1 sub lt { n 1 add } { 0 } ifelse def
- } def>
-
-\pst@def{BoxFill}<%
- gsave
- gsave \tx@STV CM grestore dtransform CM idtransform
- abs /h ED abs /w ED
- pathbbox
- h div round 2 add cvi /y2 ED
- w div round 2 add cvi /x2 ED
- h div round 2 sub cvi /y1 ED
- w div round 2 sub cvi /x1 ED
- /y2 y2 y1 sub def
- /x2 x2 x1 sub def
- CP
- y1 h mul sub neg /y1 ED
- x1 w mul sub neg /x1 ED
- clip
- y2 {
- /x x1 def
- s
- x2 {
- save CP x y1
-% patch 4 hv --------------
- \ifx\VTeXversion\undefined
- \else
-%============ mv: 09-10-01 ??? this is likely to be a right change
- neg
-%============
- \fi
-% end patch 4
- T moveto Box restore
- /x x w add def
- } repeat
- /y1 y1 h add def
- } repeat
- % Next line not useful... To see that, suppress clipping (DG)
- CP x y1 T moveto Box
- currentpoint currentfont grestore setfont moveto>
-\else
-% DG modification begin - Apr. 8, 1997 and Nov. / Dec. 1997 - Patch 2
-\pst@def{AutoFillCycleX}<%
- /cX ED
- /nX 0 def
- /CycleX {
- /x x w cX div nX mul add def
- /nX nX cX abs 1 sub lt { nX 1 add } { 0 } ifelse def
- } def>
-\pst@def{AutoFillCycleY}<%
- /cY ED
- /mY 0 def
- /nY 0 def
- /CycleY {
- /y1 y1 h cY div mY mul sub def
- nY cY abs 1 sub lt { /nY nY 1 add def /mY 1 def }
- { /nY 0 def /mY cY abs 1 sub neg def } ifelse
- } def>
-
-\pst@def{BoxFill}<%
- gsave
- gsave \tx@STV CM grestore dtransform CM idtransform
- abs /h ED abs /w ED
- pathbbox
- h div round 2 add cvi /y2 ED
- w div round 2 add cvi /x2 ED
- h div round 2 sub cvi /y1 ED
- w div round 2 sub cvi /x1 ED
-% We must enlarge the area if fillangle, fillcycle, fillmove or fillsep are used
- /CoefLoopX 0 def
- /CoefLoopY 0 def
- /CoefMoveX 0 def
- /CoefMoveY 0 def
- \psk@boxfillangle 0 ne {/CoefLoopX 8 def /CoefLoopY 8 def} if
- \psk@fillcyclex 0 ne {/CoefLoopX CoefLoopX 1 add def} if
- \psk@fillcycley 0 ne {/CoefLoopY CoefLoopY 1 add def} if
- \psk@fillmovex 0 ne
- {/CoefLoopX CoefLoopX 2 add def
- \psk@fillmovex 0 gt {/CoefMoveX CoefLoopX def}
- {/CoefMoveX CoefLoopX neg def} ifelse} if
- \psk@fillmovey 0 ne
- {/CoefLoopY CoefLoopY 2 add def
- \psk@fillmovey 0 gt {/CoefMoveY CoefLoopY def}
- {/CoefMoveY CoefLoopY neg def} ifelse} if
- \psk@fillsepx 0 ne {/CoefLoopX CoefLoopX 1 add def} if
- \psk@fillsepy 0 ne {/CoefLoopY CoefLoopY 1 add def} if
- /CoefLoopX CoefLoopX \psk@fillloopaddx add def
- /CoefLoopY CoefLoopY \psk@fillloopaddy add def
-%
- /x2 x2 x1 sub 4 sub CoefLoopX 2 mul add def
- /y2 y2 y1 sub 4 sub CoefLoopY 2 mul add def
-% We must fix the origin of tiling, as it must not vary according other stuff
-% in the page!
- w x1 CoefLoopX add CoefMoveX add mul
- h y1 y2 add 1 sub CoefLoopY sub CoefMoveY sub mul moveto
-%
- CP
- y1 h mul sub neg /y1 ED
- x1 w mul sub neg /x1 ED
-% hv 2004-06-22 to prevent clash with pst-gr3d
-% \psk@PstDebug 0 eq {clip} if
- \Pst@Debug 0 eq {clip} if
-% end hv
- \psk@fillmovex \psk@fillmovey
- gsave \tx@STV CM grestore dtransform CM idtransform
- /hmove ED /wmove ED
-%
- /row 0 def
- y2 {
- /row row 1 add def
- /column 0 def
- /x x1 def
- CycleX
- save
- x2 {
- /column column 1 add def
- CycleY
- save CP x y1
-% patch 4 hv --------------
- \ifx\VTeXversion\undefined
- \else
-%============ mv: 09-10-01 ??? this is likely to be a right change
- neg
-%============
- \fi
-% end patch 4
- T moveto Box restore
- /x x w add def
- 0 hmove translate
- } repeat
- restore
- /y1 y1 h add def
- wmove 0 translate
- } repeat
- currentpoint currentfont grestore setfont moveto>
-\fi
-% DG modification end
-
-\def\pst@AutoBoxFill{%
- \leavevmode
- \begingroup
-% DG addition begin - Dec. 2, 1997 - Patch 2
- \pst@stroke
-% DG addition end
- \pst@FlushCode
- \pst@Verb{\psk@boxfillangle \tx@RotBegin}%
- \pstVerb{\pst@dict /Box \pslbrace end}%
-% DG addition begin - Apr. 8, 1997 and Nov. 5, 1997 - Patch 2
-% Useful when the starting point is not (0,0)
- \ifx\PstTiling\@undefined
- \else
- \ifx\pst@tempa\@undefined % Undefined for instance for \pscharpath
- \else
- \def\pst@temph{0}%
- \ifx\pst@tempa\pst@temph
- \else
- \pstVerb{/TR {pop pop currentpoint translate \pst@tempa\space translate } def}%
- \fi
- \fi
- \fi
-% DG addition end
- \hbox to \z@{\vbox to\z@{\vss\copy\pst@fillbox\vskip-\dp\pst@fillbox}\hss}%
-% DG addition begin - Dec. 8, 1997 - Patch 2
- \ifx\PstTiling\@undefined
-% DG addition end
- \pstVerb{%
- tx@Dict begin \psrbrace def
- \ifnum\psk@fillcycle=\z@
- /s {} def
- \else
- \psk@fillcycle \tx@AutoFillCycle
- \fi
- \pst@number{\wd\pst@fillbox}%
- \psk@fillsepx add
- \pst@number{\ht\pst@fillbox}%
- \pst@number{\dp\pst@fillbox}%
- \psk@fillsepy add add
- \tx@BoxFill
- end}%
-% DG modification begin - Dec. 8, 1997 - Patch 2
- \else
- \pstVerb{%
- tx@Dict begin \psrbrace def
- \ifnum\psk@fillcyclex=\z@
- /CycleX {} def
- \else
- \psk@fillcyclex \tx@AutoFillCycleX
- \fi
- \ifnum\psk@fillcycley=\z@
- /CycleY {} def
- \else
- \psk@fillcycley \tx@AutoFillCycleY
- \fi
- \pst@number{\wd\pst@fillbox}%
- \psk@fillsepx add
- \pst@number{\ht\pst@fillbox}%
- \pst@number{\dp\pst@fillbox}%
- \psk@fillsepy add add
- \tx@BoxFill
- end}%
- \fi
-% DG modification end
- \pst@Verb{\tx@RotEnd}%
- \endgroup}
-
-\catcode`\@=\TheAtCode\relax
-
-\endinput
-%%
-%% END pst-fill.tex
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-grad.tex b/Master/texmf-dist/tex/generic/pstricks/pst-grad.tex
deleted file mode 100644
index 279b11c26ed..00000000000
--- a/Master/texmf-dist/tex/generic/pstricks/pst-grad.tex
+++ /dev/null
@@ -1,112 +0,0 @@
-%% BEGIN pst-grad.tex
-%%
-%% Gradient fillstyle with PSTricks.
-%% See the PSTricks User's Guide for description.
-%% This uses the header file `pst-grad.pro'.
-%%
-%% Based on some EPS files by leeweyr!bill@nuchat.sccsi.com (W. R. Lee).
-%%
-\def\fileversion{1.04}
-\def\filedate{2004/06/24}
-%%
-%% 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.
-%%
-%% version 1.04 prepared by Herbert Voss <voss _at_ pstricks.de>
-%%
-%% This defines a new fill style, "gradient", for use with PSTricks,
-%% which has gradiated color. The following parameters are used:
-%%
-%% gradbegin=color : Beginning color.
-%% gradend=color : Final color.
-%% gradlines=int : Number of lines to use. The higher the number,
-%% the slower the rendering.
-%% gradmidpoint=num : Gradient color goes from gradbegin to gradend,
-%% and then back to beginning. Midpoint (point
-%% where "gradend" color appears, is gradmidpoint
-%% from the top. (0 <= Gmidpoint <= 1).
-%% gradangle=angle : Rotate image by angle.
-%% GradientCircle=true : Instead of a linear a circled gradient is build.
-%% (version 1.04)
-%% GradientPos=(x,y) : the center of the circled gradient
-%% (version 1.04)
-%% GradientScale=float : scaling factor of the circled gradient
-%% (version 1.04)
-%%
-\message{ v\fileversion, \filedate}
-
-\csname GradientLoaded\endcsname
-\let\GradientLoaded\endinput
-
-\ifx\PSTricksLoaded\endinput\else
- \def\next{\input pstricks.tex }\expandafter\next
-\fi
-
-\edef\TheAtCode{\the\catcode`\@}
-\catcode`\@=11
-
-\pstheader{pst-grad.pro}
-
-\newrgbcolor{gradbegin}{0 .1 .95}
-\def\psset@gradbegin#1{\pst@getcolor{#1}\psgradbegin}
-\psset@gradbegin{gradbegin}
-
-\newrgbcolor{gradend}{0 1 1}
-\def\psset@gradend#1{\pst@getcolor{#1}\psgradend}
-\psset@gradend{gradend}
-
-\def\psset@gradlines#1{%
- \pst@getint{#1}\psgradlines
- \ifnum\psgradlines<2
- \@pstrickserr{gradlines must be at least 2}\@epha
- \def\psgradlines{2 }%
- \fi}
-\psset@gradlines{300}
-
-\def\psset@gradmidpoint#1{\pst@checknum{#1}\psgradmidpoint}
-\psset@gradmidpoint{.9}
-
-\def\psset@gradangle#1{\pst@getangle{#1}\psk@gradangle}
-\psset@gradangle{0}
-
-% Denis Girou - April 1998 ------- patch 2 (hv)
-% To define the gradient as linear or as circle
-\newif\ifGradientCircle
-\def\psset@GradientCircle#1{\@nameuse{GradientCircle#1}}
-\psset@GradientCircle{false}
-
-% Position of the center of the gradient
-\def\psset@GradientPos#1{\psset@@GradientPos#1}
-\def\psset@@GradientPos(#1){\edef\ps@GradientPos{#1}}
-\psset@GradientPos{(0,0)}
-
-% Scale factor
-\def\psset@GradientScale#1{\edef\ps@GradientScale{#1}}
-\psset@GradientScale{1}
-
-\def\psfs@gradient{%
-% D.G. modification begin - Apr. 9, 1998
- %\addto@pscode{gsave
- \pst@getcoor{\ps@GradientPos}{\pst@tempa}% <- "%" hv 2004-06-23
- \addto@pscode{gsave
- \ifGradientCircle true \else false \fi
- \ps@GradientScale\space
- \pst@tempa
-% D.G. modification end
- gsave \pst@usecolor\psgradbegin currentrgbcolor grestore
- gsave \pst@usecolor\psgradend currentrgbcolor grestore
- \psgradlines
- \psgradmidpoint
- \psk@gradangle
- tx@GradientDict begin GradientFill end grestore
- }%
-}
-
-\catcode`\@=\TheAtCode\relax
-
-\endinput
-%%
-%% END pst-grad.tex
diff --git a/Master/texmf-dist/tex/generic/pstricks/pst-text.tex b/Master/texmf-dist/tex/generic/pstricks/pst-text.tex
deleted file mode 100644
index b0a7b5c5afe..00000000000
--- a/Master/texmf-dist/tex/generic/pstricks/pst-text.tex
+++ /dev/null
@@ -1,98 +0,0 @@
-%% BEGIN pst-text.tex
-%%
-%% Placing text on a path with PSTricks 97.
-%% See the PSTricks User's Guide for description.
-%% See tp-test.tex for sample input and tp-test.ps for sample output.
-%% This uses the header file `pst-text.pro'.
-%%
-\def\fileversion{97}
-\def\filedate{1997/03/25}
-%%
-%% 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 PSTextPathLoaded\endcsname
-\let\PSTextPathLoaded\endinput
-
-\ifx\PSTricksLoaded\endinput\else
- \def\next{\input pstricks.tex}\expandafter\next
-\fi
-
-\edef\TheAtCode{\the\catcode`\@}
-\catcode`\@=11
-
-\pstheader{pst-text.pro}
-
-\def\pstextpath{\@ifnextchar[{\pstextpath@}{\pstextpath@[l]}}
-\def\pstextpath@[#1]{%
- \@ifnextchar({\pstextpath@@[#1]}{\pstextpath@@[#1](0,\TPoffset)}}
-\def\pstextpath@@[#1](#2)#3{\pst@makebox{\pstextpath@@@[#1](#2){#3}}}
-\def\pstextpath@@@[#1](#2,#3)#4{%
- \pst@killglue
- \begingroup
- \ifx c#1\relax
- \def\pst@tempa{.5}%
- \else
- \ifx r#1\relax
- \def\pst@tempa{1}%
- \else
- \def\pst@tempa{0}%
- \fi
- \fi
- \def\use@pscode{%
- \pst@Verb{%
- /mtrxc CM def
- \tx@STV
- CP translate
- newpath
- \pst@code\space
- mtrxc setmatrix
- 0 setgray}%
- \gdef\pst@code{}}%
- \def\psclip#1{\pst@misplaced\psclip}%
- \let\endpsclip\relax
- \def\@multips(##1)(##2)##3##4{\pst@misplaced\multips}%
- \def\nc@object##1##2##3##4{\pst@misplaced{node connection}}%
- \def\PSTtoEPS@i##1##2{\pst@misplaced\PSTtoEPS}%
- \pssetlength\pst@dima{#2}%
- \pssetlength\pst@dimb{#3}%
- \setbox\pst@hbox\hbox{%
- \hbox to\z@{%
- \kern -\wd\pst@hbox
- % BoxWidth = CurrX - Hoffset.
- \pstVerb{tx@TextPathDict begin
- currentpoint pop /Hoffset exch def end}%
- \kern\pst@dima
- % XOffset = Voffset - Hoffset (extra horizontal skip)
- \pstVerb{tx@TextPathDict begin
- currentpoint pop /Voffset exch def end}%
- \hss
- \pstVerb{%
- /tx@TextPathSavedShow /show load def
- \pst@dict \tx@PathLength end
- dup 0 gt
- { tx@TextPathDict begin \pst@tempa\space InitTextPath end
- /show { tx@TextPathDict begin TextPathShow end } def
- }
- { pop }
- ifelse}}%
- \raise\pst@dimb\box\pst@hbox
- \pstVerb{%
- currentpoint newpath moveto
- /show /tx@TextPathSavedShow load def}}%
- \wd\pst@hbox=\z@ \dp\pst@hbox=\z@ \ht\pst@hbox=\z@
- \leavevmode
- \hbox{{#4}\box\pst@hbox}%
- \endgroup\ignorespaces}
-\def\TPoffset{-.7ex}
-
-\catcode`\@=\TheAtCode\relax
-
-\endinput
-%%
-%% END pst-text.tex