diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pgf/systemlayer/pgfsys-common-postscript.def')
-rw-r--r-- | Master/texmf-dist/tex/generic/pgf/systemlayer/pgfsys-common-postscript.def | 389 |
1 files changed, 0 insertions, 389 deletions
diff --git a/Master/texmf-dist/tex/generic/pgf/systemlayer/pgfsys-common-postscript.def b/Master/texmf-dist/tex/generic/pgf/systemlayer/pgfsys-common-postscript.def deleted file mode 100644 index bb9dde9ea85..00000000000 --- a/Master/texmf-dist/tex/generic/pgf/systemlayer/pgfsys-common-postscript.def +++ /dev/null @@ -1,389 +0,0 @@ -% Copyright 2006 by Till Tantau -% -% This file may be distributed and/or modified -% -% 1. under the LaTeX Project Public License and/or -% 2. under the GNU Public License. -% -% See the file doc/generic/pgf/licenses/LICENSE for more details. - -\ProvidesFileRCS $Header: /cvsroot/pgf/pgf/generic/pgf/systemlayer/pgfsys-common-postscript.def,v 1.16 2007/06/07 07:41:11 tantau Exp $ - - -% Driver commands for postscript - -\newif\ifpgf@fillcolor -\newif\ifpgf@strokecolor -\newif\ifpgfsys@@clipnext - -% Path construction: -\def\pgfsys@lineto#1#2{\pgf@sys@bp{#1}\pgf@sys@bp{#2}\pgfsysprotocol@literal{lineto}} -\def\pgfsys@moveto#1#2{\pgf@sys@bp{#1}\pgf@sys@bp{#2}\pgfsysprotocol@literal{moveto}} -\def\pgfsys@curveto#1#2#3#4#5#6{% - \pgf@sys@bp{#1}\pgf@sys@bp{#2}\pgf@sys@bp{#3}\pgf@sys@bp{#4}\pgf@sys@bp{#5}\pgf@sys@bp{#6}\pgfsysprotocol@literal{curveto}} -\def\pgfsys@rect#1#2#3#4{\pgf@sys@bp{#4}\pgf@sys@bp{#3}\pgf@sys@bp{#1}\pgf@sys@bp{#2}\pgfsysprotocol@literal{pgfe}} -\def\pgfsys@closepath{\pgfsysprotocol@literal{closepath}} - -% Path usage: -\def\pgfsys@stroke{% - \ifpgfsys@@clipnext% - \ifpgfsys@eorule% - \pgfsysprotocol@literal{gsave pgfsc pgfstr grestore eoclip newpath}% - \else% - \pgfsysprotocol@literal{gsave pgfsc pgfstr grestore clip newpath}% - \fi% - \pgfsys@@clipnextfalse% - \else% - \ifpgf@strokecolor% - \pgfsysprotocol@literal{gsave pgfsc pgfstr grestore newpath}% - \else% - \pgfsysprotocol@literal{pgfstr}% - \fi% - \fi} -\def\pgfsys@fill{% - \ifpgfsys@@clipnext% - \ifpgfsys@eorule% - \pgfsysprotocol@literal{gsave pgffc pgfeofill grestore eoclip newpath}% - \else% - \pgfsysprotocol@literal{gsave pgffc pgffill grestore clip newpath}% - \fi% - \pgfsys@@clipnextfalse% - \else% - \ifpgf@fillcolor% - \ifpgfsys@eorule% - \pgfsysprotocol@literal{gsave pgffc pgfeofill grestore newpath}% - \else% - \pgfsysprotocol@literal{gsave pgffc pgffill grestore newpath}% - \fi% - \else% - \ifpgfsys@eorule% - \pgfsysprotocol@literal{pgfeofill}% - \else% - \pgfsysprotocol@literal{pgffill}% - \fi% - \fi% - \fi} -\def\pgfsys@fillstroke{% - \ifpgfsys@eorule% - \pgfsysprotocol@literal{gsave pgffc pgfeofill grestore gsave pgfsc pgfstr grestore}% - \else% - \pgfsysprotocol@literal{gsave pgffc pgffill grestore gsave pgfsc pgfstr grestore}% - \fi% - \ifpgfsys@@clipnext% - \ifpgfsys@eorule% - \pgfsysprotocol@literal{eoclip}% - \else% - \pgfsysprotocol@literal{clip}% - \fi% - \pgfsys@@clipnextfalse% - \fi% - \pgfsysprotocol@literal{newpath}} -\def\pgfsys@clipnext{\pgfsys@@clipnexttrue} -\def\pgfsys@discardpath{% - \ifpgfsys@@clipnext% - \ifpgfsys@eorule% - \pgfsysprotocol@literal{eoclip}% - \else% - \pgfsysprotocol@literal{clip}% - \fi% - \pgfsys@@clipnextfalse% - \fi% - \pgfsysprotocol@literal{newpath}} - -% Transformation: -\def\pgfsys@transformshift#1#2{\pgf@sys@bp{#1}\pgf@sys@bp{#2}\pgfsysprotocol@literal{translate}} -\def\pgfsys@transformxyscale#1#2{\pgfsysprotocol@literal{#1 #2 scale}} -\def\pgfsys@transformcm#1#2#3#4#5#6{% - \pgfsysprotocol@literalbuffered{[#1 #2 #3 #4}\pgf@sys@bp{#5}\pgf@sys@bp{#6}\pgfsysprotocol@literal{] concat}} - -% Scopes -\def\pgfsys@beginscope{\pgfsysprotocol@literal{save}} -\def\pgfsys@endscope{\pgfsysprotocol@literal{restore}} - -% Graphics state -\def\pgfsys@setdash#1#2{% - \pgfsysprotocol@literalbuffered{[}% - \pgfutil@for\pgf@sys@temp:={#1}\do{\pgf@sys@bp{\pgf@sys@temp}}% - \pgfsysprotocol@literalbuffered{]}% - \pgf@sys@bp{#2}\pgfsysprotocol@literal{setdash}} -\def\pgfsys@setlinewidth#1{\pgf@sys@bp{#1}\pgfsysprotocol@literal{pgfw}} -\def\pgfsys@setmiterlimit#1{\pgfsysprotocol@literal{#1 setmiterlimit}} -\def\pgfsys@buttcap{\pgfsysprotocol@literal{0 setlinecap}} -\def\pgfsys@roundcap{\pgfsysprotocol@literal{1 setlinecap}} -\def\pgfsys@rectcap{\pgfsysprotocol@literal{2 setlinecap}} -\def\pgfsys@miterjoin{\pgfsysprotocol@literal{0 setlinejoin}} -\def\pgfsys@roundjoin{\pgfsysprotocol@literal{1 setlinejoin}} -\def\pgfsys@beveljoin{\pgfsysprotocol@literal{2 setlinejoin}} -\def\pgfsys@color@rgb@stroke#1#2#3{\pgfsysprotocol@literal{/pgfsc{#1 #2 #3 setrgbcolor}def}\pgf@strokecolortrue} -\def\pgfsys@color@rgb@fill#1#2#3{\pgfsysprotocol@literal{/pgffc{#1 #2 #3 setrgbcolor}def}\pgf@fillcolortrue} -\def\pgfsys@color@rgb#1#2#3{\pgfsys@color@reset\pgfsysprotocol@literal{#1 #2 #3 setrgbcolor}} -\def\pgfsys@color@cmyk@stroke#1#2#3#4{\pgfsysprotocol@literal{/pgfsc{#1 #2 #3 #4 setcmykcolor}def}\pgf@strokecolortrue} -\def\pgfsys@color@cmyk@fill#1#2#3#4{\pgfsysprotocol@literal{/pgffc{#1 #2 #3 #4 setcmykcolor}def}\pgf@fillcolortrue} -\def\pgfsys@color@cmyk#1#2#3#4{\pgfsys@color@reset\pgfsysprotocol@literal{#1 #2 #3 #4 setcmykcolor}} -\def\pgfsys@color@cmy@stroke#1#2#3{\pgfsysprotocol@literal{/pgfsc{#1 #2 #3 0 setcmykcolor}def}\pgf@strokecolortrue} -\def\pgfsys@color@cmy@fill#1#2#3{\pgfsysprotocol@literal{/pgffc{#1 #2 #3 0 setcmykcolor}def}\pgf@fillcolortrue} -\def\pgfsys@color@cmy#1#2#3{\pgfsys@color@reset\pgfsysprotocol@literal{#1 #2 #3 0 setcmykcolor}} -\def\pgfsys@color@gray@stroke#1{\pgfsysprotocol@literal{/pgfsc{#1 setgray}def}\pgf@strokecolortrue} -\def\pgfsys@color@gray@fill#1{\pgfsysprotocol@literal{/pgffc{#1 setgray}def}\pgf@fillcolortrue} -\def\pgfsys@color@gray#1{\pgfsys@color@reset\pgfsysprotocol@literal{#1 setgray}} -\def\pgfsysps@color@resetnow{\pgfsysprotocol@literal{/pgfsc{}def/pgffc{}def}\pgf@strokecolorfalse\pgf@fillcolorfalse}% -\def\pgfsys@color@reset{% - \ifpgfsys@color@reset@inorder% - \ifpgf@strokecolor% - \pgfsysps@color@resetnow% - \else% - \ifpgf@fillcolor% - \pgfsysps@color@resetnow% - \fi% - \fi% - \else% - \pgfsysps@color@resetnow% - \fi} - - -% Opacity - -\def\pgfsys@fill@opacity#1{% - \pgfsysprotocol@literal{#1 .pgfsetfillopacityalpha} -} -\def\pgfsys@stroke@opacity#1{% - \pgfsysprotocol@literal{#1 .pgfsetstrokeopacityalpha} -} - -% Objects -\newcount\pgf@objectcount -\def\pgfsys@defobject#1#2#3#4{% - \global\advance\pgf@objectcount by 1% - \expandafter\xdef\csname#1\endcsname{\the\pgf@objectcount}% - \pgfsysprotocol@getcurrentprotocol\pgfsys@temp% - {% - \pgfsysprotocol@setcurrentprotocol\pgfutil@empty% - \pgfsysprotocol@bufferedtrue% - #4% - \pgfsysprotocol@getcurrentprotocol\pgfsys@@temp% - \pgf@sys@postscript@object{/pgf\csname#1\endcsname{gsave exec \pgfsys@@temp\space grestore} bind def}% - }% - \pgfsysprotocol@setcurrentprotocol\pgfsys@temp% -} -\def\pgfsys@useobject#1#2{% - \pgfsysprotocol@getcurrentprotocol\pgfsys@temp% - {% - \pgfsysprotocol@setcurrentprotocol\pgfutil@empty% - \pgfsysprotocol@bufferedfalse% - #2% - \pgfsysprotocol@invokecurrentprotocol% - \pgfsys@invoke{pgf\csname#1\endcsname}% - }% - \pgfsysprotocol@setcurrentprotocol\pgfsys@temp} - -% Shadings - -\def\pgfsys@horishading#1#2#3{% - {% - \pgf@parsefunc{#3}% - \pgfmathsetlength\pgf@x{#2}% - \pgf@xa=\pgf@x% - \pgf@sys@bp@correct{\pgf@x}% - \pgf@y=\pgf@max% - \pgf@sys@bp@correct{\pgf@y}% - \expandafter\xdef\csname @pgfshading#1!\endcsname{\hbox to \the\pgf@max{% - \noexpand\vrule width0pt height\the\pgf@xa% - \noexpand\pgfsys@beginpurepicture% - \noexpand\pgfsys@rect{0pt}{0pt}{\the\pgf@max}{\the\pgf@xa}% - \noexpand\pgfsys@clipnext% - \noexpand\pgfsys@discardpath% - \noexpand\pgfsys@invoke{\pgf@domb\space \pgf@sys@tonumber{\pgf@x} pgfH \pgf@psfuncs\space pop}% - \hss% - \noexpand\pgfsys@endpurepicture}}% - }% -} -\def\pgfsys@vertshading#1#2#3{% - {% - \pgf@parsefunc{#3}% - \pgfmathsetlength\pgf@x{#2}% - \pgf@xa=\pgf@x% - \pgf@sys@bp@correct{\pgf@x}% - \pgf@y=\pgf@max% - \pgf@sys@bp@correct{\pgf@y}% - \expandafter\xdef\csname @pgfshading#1!\endcsname{\hbox to\the\pgf@xa{% - \noexpand\vrule width0pt height\the\pgf@max% - \noexpand\pgfsys@beginpurepicture% - \noexpand\pgfsys@rect{0pt}{0pt}{\the\pgf@xa}{\the\pgf@max}% - \noexpand\pgfsys@clipnext% - \noexpand\pgfsys@discardpath% - \noexpand\pgfsys@invoke{\pgf@domb\space \pgf@sys@tonumber{\pgf@x} pgfV \pgf@psfuncs\space pop}% - \hss% - \noexpand\pgfsys@endpurepicture}}% - }% -} -\def\pgfsys@radialshading#1#2#3{% - {% - \pgf@parsefunc{#3}% - \pgf@process{#2}% - \pgf@sys@bp@correct{\pgf@x}% - \pgf@sys@bp@correct{\pgf@y}% - \pgf@xa=2\pgf@max% - \pgf@sys@bp@correct{\pgf@max}% - \advance\pgf@x by \pgf@max% - \advance\pgf@y by \pgf@max% - \expandafter\xdef\csname @pgfshading#1!\endcsname{\hbox to \the\pgf@xa{% - \noexpand\vrule width0pt height\the\pgf@xa% - \noexpand\pgfsys@beginpurepicture% - \noexpand\pgfsys@invoke{% - \pgf@domb\space \pgf@sys@tonumber{\pgf@y} \pgf@sys@tonumber{\pgf@x} \pgf@sys@tonumber{\pgf@max} pgfR1 - \pgf@psfuncs\space \pgf@firstcolor\space \pgf@doma\space pgfR2}% - \hss% - \noexpand\pgfsys@endpurepicture}}% - }% -} - -% -% Patterns -% - - -\def\pgfsys@declarepattern#1#2#3#4#5#6#7#8#9{% - % Start building the pattern dictionary: - \pgf@xa=#2\relax% - \pgf@ya=#3\relax% - \pgf@xb=#4\relax% - \pgf@yb=#5\relax% - \pgf@xc=#6\relax% - \pgf@yc=#7\relax% - \pgf@sys@bp@correct\pgf@xa% - \pgf@sys@bp@correct\pgf@ya% - \pgf@sys@bp@correct\pgf@xb% - \pgf@sys@bp@correct\pgf@yb% - \pgf@sys@bp@correct\pgf@xc% - \pgf@sys@bp@correct\pgf@yc% - \pgfsys@outerinvoke{ - save true setglobal globaldict begin /pgfpat#1 - { - \ifnum#9=0 [/Pattern /DeviceRGB] \else /Pattern \fi\space - setcolorspace - gsave - initgraphics - << - /Type /Pattern - /PatternType 1 - /PaintType \ifnum#9=0 2 \else 1 \fi - /TilingType 1 - /BBox [\pgf@sys@tonumber\pgf@xa\space\pgf@sys@tonumber\pgf@ya\space\pgf@sys@tonumber\pgf@xb\space\pgf@sys@tonumber\pgf@yb] - /XStep \pgf@sys@tonumber\pgf@xc\space - /YStep \pgf@sys@tonumber\pgf@yc\space - /PaintProc - { begin 2 dict begin #8\space end end } bind - >> - matrix - makepattern - %/pgfpat#1\space exch def - grestore - setcolor - } bind def end restore - }% -} - -\def\pgfsys@setpatternuncolored#1#2#3#4{% - \pgfsysprotocol@literal{/pgffc{#2 #3 #4 pgfpat#1}def}% -% [/Pattern /DeviceRGB] setcolorspace -% #2 #3 #4 pgfpat#1\space setcolor -% }def}% - \pgf@fillcolortrue% -} - -\def\pgfsys@setpatterncolored#1{% - \pgfsysprotocol@literal{/pgffc{pgfpat#1}def}%/Pattern setcolorspace -% pgfpat#1\space setcolor}def}% - \pgf@fillcolortrue% -} - - - -\def\pgfsys@atbegindocument{% - % Parameters to horizontal pre axishade: \pgf@domb x - \pgf@sys@postscript@header{/pgfH{% - /pgfheight exch def 0.75 setlinewidth [] 0 setdash - /pgfshade {pgfA} def /pgfdir { dup 0 moveto - dup 5 index lineto } bind def} bind def}% - - % Parameters to vertical pre axishade: \pgf@domb x - \pgf@sys@postscript@header{/pgfV{% - /pgfheight exch def 0.75 setlinewidth [] 0 setdash - /pgfshade {pgfA} def /pgfdir { dup 0 exch moveto dup 5 index - exch lineto } bind def} bind def}% - - % Parameters to axishade: end x, start x, r-, g-, b- of first color, r-, g-, b- of second color - % Stack afterwards: end x - \pgf@sys@postscript@header{/pgfA{ - /pgfdiff 8 index round cvi 8 index round cvi sub 2 mul 1 add def - 2 index 6 index sub pgfdiff div % put red-step on stack - 2 index 6 index sub pgfdiff div % put green-step on stack - 2 index 6 index sub pgfdiff div % put green-step on stack - pgfheight 9 index 9 index 9 index 14 index - pgfdiff { - 3 index 3 index 3 index setrgbcolor % Set color - pgfdir - stroke - 4 -1 roll 7 index add % red += incred - 4 -1 roll 6 index add % green += incgreen - 4 -1 roll 5 index add % blue += incblue - 4 -1 roll .5 sub % x += 0.5 - } repeat - mark 15 1 roll cleartomark exch pop % leave only start x on stack - }bind def } - - % Parameters to radialshade pre: \pgf@domb y x max - \pgf@sys@postscript@header{/pgfR1{ - newpath dup dup dup 0 360 arc clip newpath - dup /pgfendx exch def - /pgfendy exch def - 0.875 setlinewidth - [] 0 setdash - /pgfshade {pgfR} def - /pgfstartx exch def - /pgfstarty exch def - /pgfdiffx pgfendx pgfstartx sub def - /pgfdiffy pgfendy pgfstarty sub def - dup /pgfdomb exch def - }bind def } - - % Parameters to radialshade post: \pgf@firstcolor \pgf@doma - \pgf@sys@postscript@header{/pgfR2{ - newpath 0.5 add pgfcircx pgfcircy 3 2 roll 0 360 arc - setrgbcolor fill pop}bind def }% - - % Parameters to radialshade: end x, start x, r-, g-, b- of first color, r-, g-, b- of second color - % Stack afterwards: end x - \pgf@sys@postscript@header{/pgfR{ - /pgfdiff 8 index round cvi 8 index round cvi sub 4 mul 1 add def - /pgfcircx pgfstartx 9 index pgfdiffx pgfdomb div mul add def - /pgfcircy pgfstarty 9 index pgfdiffy pgfdomb div mul add def - /pgfcircxe pgfstartx 8 index pgfdiffx pgfdomb div mul add def - /pgfcircye pgfstarty 8 index pgfdiffy pgfdomb div mul add def - /pgfxstep pgfcircxe pgfcircx sub pgfdiff div def - /pgfystep pgfcircye pgfcircy sub pgfdiff div def - 2 index 6 index sub pgfdiff div % put red-step on stack - 2 index 6 index sub pgfdiff div % put green-step on stack - 2 index 6 index sub pgfdiff div % put green-step on stack - 8 index 8 index 8 index 13 index - pgfdiff { - 3 index 3 index 3 index setrgbcolor % Set color - pgfcircx pgfcircy 2 index 0 360 arc closepath - stroke - 4 -1 roll 6 index add % red += incred - 4 -1 roll 5 index add % green += incgreen - 4 -1 roll 4 index add % blue += incblue - 4 -1 roll .25 sub % x += 0.25 - /pgfcircx pgfcircx pgfxstep add def - /pgfcircy pgfcircy pgfystep add def - } repeat - mark 14 1 roll cleartomark exch pop % leave only start x on stack - }bind def} -} - - -\endinput - -%%% Local Variables: -%%% mode: latex -%%% End: |