diff options
Diffstat (limited to 'Master/texmf-dist/source/generic/xypic/xyps-pro.doc')
-rw-r--r-- | Master/texmf-dist/source/generic/xypic/xyps-pro.doc | 253 |
1 files changed, 0 insertions, 253 deletions
diff --git a/Master/texmf-dist/source/generic/xypic/xyps-pro.doc b/Master/texmf-dist/source/generic/xypic/xyps-pro.doc deleted file mode 100644 index 165e601261f..00000000000 --- a/Master/texmf-dist/source/generic/xypic/xyps-pro.doc +++ /dev/null @@ -1,253 +0,0 @@ -%% $Id: xyps-pro.doc,v 3.7 1999/02/16 15:12:50 krisrose Exp $ -%% -%% Xy-pic ``PostScript Prolog'' for PostScript support. -%% Copyright (c) 1993-1996 Ross Moore <ross@mpce.mq.edu.au> -%% -%% This file is part of the Xy-pic package for graphs and diagrams in TeX. -%% See the companion README and INSTALL files for further information. -%% Copyright (c) 1991-1996 Kristoffer H. Rose <krisrose@ens-lyon.fr> -%% -%% The Xy-pic package is free software; you can redistribute it and/or modify -%% it under the terms of the GNU General Public License as published by the -%% Free Software Foundation; either version 2 of the License, or (at your -%% option) any later version. -%% -%% The Xy-pic package is distributed in the hope that it will be useful, but -%% WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -%% or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -%% for more details. -%% -%% You should have received a copy of the GNU General Public License along -%% with this package; if not, write to the Free Software Foundation, Inc., -%% 675 Mass Ave, Cambridge, MA 02139, USA. -%% -%% As a special exception, you may use this file and all files derived -%% from it without restrictions. This special exception was added with -%% version 3.7 of Xy-pic. - -%\expandafter\let\csname xyps-proloaded\endcsname=\empty % - -\DOCMODE3%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -This included file (version \stripRCS$Revision: 3.7 $) provides the \PS\ prolog -file. This contains the definitions of the main \PS\ programming structures -required to support the \PS\ effects available in \Xy-pic. A separate file -|xypsdict.doc| describes the extra \PS\ needed to support the \PS\ back-end. - -\DOCMODE2%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\paragraph*{Header:}\leavevmode -\DOCHEADER - -\paragraph*{\PS\ Prolog} - -This creates the \PS\ dictionary called |XYdict| within the usual |userdict| -or any other dictionary supplied by the specific driver. -Commands loaded here are ones which may by used by extensions other than the -\PS\ back-end, which loads many more commands into this dictionary using -the code to be found in |xypsdict.tex|. - -\DOCMODE( -\begingroup \xycatcodes% - \count@=\xydashl@\relax \count@@=\xydashw@\relax% - \let\firstPS@@=\relax% - \xyPSobeylines@@% -% -\PSspecialdict@@{% -/XYdict where not{250 dict /XYdict exch def - /xy{mark exch XYdict begin countdictstack /xylevel exch def - xyopen xycolor mark xypatt xypattern stopped xyclose end - cleartomark}def /xyg{gsave xy}def - /xyf{currentfont exch xy grestore setfont}def - /xycc{{xychgcol}xy}def /xyc{XYdict begin xycolstore end}def - /xyx{/xyYpos exch def /xyXpos exch def}def - /xyp{currentpoint xyx}def %/xycp{currentpoint xyx}def - /xyd{setupDirection XYdirection 2 mul}def - /xyct{currentpoint xyt 2 copy 6 2 roll}def - /xyt{xyXpos xyYpos 2 copy translate}def /xyr{neg rotate xynt}def - /xyrs{neg rotate 3 -1 roll sub neg 3 1 roll sub exch moveto xynt}def - /xynt{neg exch neg exch translate}def /xys{scale xynt}def - /xyss{scale 3 -1 roll sub neg 3 1 roll sub exch moveto xynt}def - /xyi{0 0 transform grestore gsave itransform}def - }if}% -% -\tmp@false\def\do#1{\DN@{#1}\ifx\next@\nextii@\tmp@true\fi}% -\DNii@{17oztex}\xydriversselected@@\iftmp@\PSspecialdict@@{% - /@boxy{prespecialVM restore grestore}def - /@eoxy{gsave /prespecialVM save def}def - }% -\else \DNii@{oztex}\xydriversselected@@\iftmp@\PSspecialdict@@{% - /@oxy{prespecialVM restore grestore}def - /@oxy{gsave /prespecialVM save def}def - }\fi\fi% -% -\PSdict@@{/XYdict where pop begin XYdict begin}% -% -%\PSspecialdict@@{% -\PSdict@@{% - /xyopen{currentdict /XYddict known{XYddict null eq{} - {XYddict begin xyopen}ifelse}if}def - /xyclose{countdictstack -1 xylevel 1 add{pop end}for}def - /xychgcol{/xycolor exch def}def /xysetcol{xypush xychgcol}def -}% -\PSdict@@{% - /xypush{16 dict /XYddict exch def XYddict begin}def - /undef where - {pop /xypop{countdictstack xylevel eq{}{end}ifelse - currentdict /XYddict undef}def} - {/xypop{countdictstack xylevel eq{}{end}ifelse - /XYddict null def}def}ifelse - /pu /xypush load def /pp /xypop load def}% -% -\PSdict@@{% - /xypspt{72 72.27 div dup scale}bind def /pscorrect{.85 mul}bind def - /gstartxy{gsave xypspt xywidth xycap xyjoin xymiter newpath 0 0 moveto}def -% /grulexy{gsave xyrulth newpath 0 0 moveto}def - /xypath{gstartxy rmoveto counttomark 2 idiv -1 1{pop lineto}for}def - /xystroke{stroke grestore}bind def - /xyfill{closepath fill grestore}bind def - /xystfil{closepath gsave fill grestore 0 setgray - 0 setlinewidth xystroke}bind def - /xyeofill{closepath eofill grestore}bind def -% /xyclip{closepath fill grestore}bind def -% /xyeoclip{closepath eofill grestore}bind def -}% -\PSdict@@{% - /xypolyline{xypath xystroke}def /xypolyfill{xypath xyfill}def - /xydotsep{/@ currentlinewidth 2 mul def}def - /xypolydot{xypath xydotsep [xydt @] 0 setdash xystroke}def - /xypolydash{xypath xydotsep [@ @] 0 setdash xystroke}def - /xypolyeofill{xypath xyeofill}def /pe /xypolyeofill load def - /pl /xypolyline load def /pf /xypolyfill load def - /pt /xypolydot load def /pd /xypolydash load def }% -% -\PSdict@@{% - /arc4pop{arcto 4{pop}repeat}bind def - /xyoval{gstartxy oval closepath xystroke}def -% /xycircle{gstartxy dup dup neg dup dup neg oval xystroke}def - /xycircle{gstartxy circle xystroke}def - /circle{dup 0 moveto 0 0 3 -1 roll 0 360 arc}def - /oval{newpath 2 copy exch 5 index add 2 div exch 3 copy 10 3 roll - moveto 1 index dup 5 1 roll 3 index 7 index arc4pop - dup dup 4 1 roll 4 index exch 6 index arc4pop - 1 index dup 8 1 roll 4 index 4 index arc4pop - arc4pop closepath}def - /xyellipse{gstartxy counttomark 1 gt{squarify pop pop 1}if - circle xystroke}def - /ov /xyoval load def /ox /xyellipse load def }% -% -\PSdict@@{% - /dotit{dup currentlinewidth 6 mul div round div - /@ exch def [xydt @] 0 setdash}def - /elldash{dup 4 -1 roll 10 exch div dashit}def - /ovdash{dup 10 dashit}def - /dashit{div round 2 mul div /@ exch def [@ @] 0 setdash}def - /dotcirc{gstartxy cirlen dotit circle xystroke}def - /dashcirc{gstartxy cirlen dashit circle xystroke}def - /dotoval{gstartxy 5 copy ovlen dotit oval xystroke}def - /dashoval{gstartxy 5 copy ovlen ovdash oval xystroke}def - /cirlen{dup 6.283185 mul}bind def - /ovlen{3 -1 roll sub 3 1 roll sub add exch 1.716815 mul sub}def - /dotellipse{gstartxy counttomark 1 gt{squarify pop pop 1}if - cirlen dotit circle closepath xystroke}def - /dashellipse{gstartxy counttomark 1 gt{squarify add 2 div 1} - {1 exch 1 exch}ifelse cirlen elldash circle xystroke}def - /ot /dotellipse load def /od /dashellipse load def - /vt /dotoval load def /vd /dashoval load def }% -% -\PSdict@@{% - /filloval{gstartxy oval xyfill}def - /stfiloval{gstartxy oval xystfil}def - /fillcircle{gstartxy circle xyfill}def - /stfilcircle{gstartxy circle xystfil}def - /fillellipse{gstartxy squarify pop pop 1 circle xyfill}def - /stfilellipse{gstartxy squarify pop pop 1 circle xystfil}def - /squarify{4 copy sub 2 div 3 1 roll sub 2 div translate - add 2 div 3 1 roll add 2 div 2 copy scale - 2 copy add 2 div currentlinewidth exch div setlinewidth - newpath}def - /fe /fillellipse load def /sfe /stfilellipse load def - /fo /filloval load def /sfo /stfiloval load def - /fc /fillcircle load def /sfc /stfilcircle load def }% -% -\PSdict@@{% - /xywidth{.4 pscorrect setlinewidth}bind def - /xydash{[] 0 setdash}bind def /xycap{1 setlinecap}bind def - /xyjoin{1 setlinejoin}bind def /xymiter{10 setmiterlimit}bind def -}% -\PSdict@@{% - /cc{dup exec xychgcol}def - /lw{dup setlinewidth /@l exch def - /xywidth{@l setlinewidth}bind def}def - /lc{dup setlinecap /@c exch def - /xycap{@c setlinecap}bind def}def - /lj{dup setlinejoin /@j exch def - /xyjoin{@j setlinejoin}bind def}def - /ml{dup setmitrelimit /@m exch def - /xymiter{@m setmitrelimit}bind def}def -}% -\PSdict@@{% - /setupDirection{dup -2048 lt{3072 add neg 1024 exch} - {dup 0 lt{1024 add neg -1024}{dup 2048 lt{1024 sub -1024 exch} - {3072 sub 1024}ifelse}ifelse}ifelse atan - dup 180 gt{360 sub}if dup /XYdirection exch def rotate}def - }% -\PSdict@@{% - userdict begin - /gray{setgray}bind def /gray@{setgray}bind def - /rgb{setrgbcolor}bind def /rgb@{setrgbcolor}bind def - /hsb{sethsbcolor}bind def /hsb@{sethsbcolor}bind def - /setcmykcolor where{pop}{/setcmykcolor{dup 3 1 roll dup 5 1 roll - exch sub 1 add 5 1 roll exch sub 1 add 4 1 roll - exch sub 1 add 3 1 roll setrgbcolor}bind def}ifelse - /cmyk{setcmykcolor}bind def /cmyk@{setcmykcolor}bind def - /sethalftone where{/sethalftone load /tone exch def}if - /xycolarray 3 array def /xycolstore{currentrgbcolor 2 -1 0 - {exch xycolarray 3 1 roll put}for}def xycolstore - /xycolor{0 1 2{xycolarray exch get}for setrgbcolor}def - /xypatt{}def /xypattern{cleartomark}bind def - end}% -% -\PSdict@@{end end}% -% -\endgroup% -\DOCMODE) - -\DOCMODE2%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -\paragraph*{The end \& Log}\leavevmode - -\DOCMODE( -\endinput - -% $Log: xyps-pro.doc,v $ -% Revision 3.7 1999/02/16 15:12:50 krisrose -% Interim release (Y&Y fonts now free). -% -% Revision 3.6 1998/03/06 01:28:05 krisrose -% Releasing (with Y&Y fonts). -% -% Revision 3.3 1996/12/18 10:00:34 ross -% requires larger PostScript dictionary -% uses \xydriversselected@@ for optional loading with OzTeX -% -% Revision 3.1 1995/09/05 20:28:57 ross -% Releasing version 3.1! -% -% Revision 3.0 1995/07/07 20:13:19 ross -% Major release w/new User's Guide! -% -% Revision 2.13 1995/07/04 15:04:51 ross -% Ready for release of v3. -% -% -% NEW for version 3.1 by by Ross Moore. -\DOCMODE) - -\DOCMODE3%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -% Tell Emacs that this is a LaTeX document and how it is formatted: -% Local Variables: -% mode:latex -% fill-column:77 -% fill-prefix:"" -% End: |