You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
91 lines
2.7 KiB
91 lines
2.7 KiB
% 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{pgfsys-textures.def}
|
|
|
|
|
|
% Driver commands for textures driver
|
|
|
|
|
|
\def\pgfsys@invoke#1{\special{rawpostscript #1}}
|
|
\def\pgf@sys@postscript@header#1{\special{prepostscript #1}}
|
|
\def\pgf@sys@postscript@object#1{\special{rawpostscript #1}}
|
|
|
|
|
|
%
|
|
% Load common postscript commands:
|
|
%
|
|
\input pgfsys-common-postscript.def
|
|
|
|
|
|
%
|
|
% textures-specific stuff:
|
|
%
|
|
|
|
\def\pgfsys@beginpicture{%
|
|
\special{rawpostscript save}%
|
|
\special{rawpostscript save pgfgetcoords}%
|
|
\special{postscript}% here come the coordinates
|
|
\special{rawpostscript restore}%
|
|
\special{rawpostscript pgfbeginpicture}}
|
|
\def\pgfsys@endpicture{\special{rawpostscript restore}}
|
|
\def\pgfsys@hbox#1{%
|
|
\pgfsys@begin@idscope%
|
|
\pgfsys@invoke{save pgfbeginhbox}%
|
|
\wd#1=0pt%
|
|
\ht#1=0pt%
|
|
\dp#1=0pt%
|
|
\box#1%
|
|
\pgfsys@invoke{restore}%
|
|
\pgfsys@end@idscope%
|
|
}
|
|
\def\pgfsys@begininvisible{%
|
|
\special{rawpostscript gsave nulldevice}%
|
|
}
|
|
\def\pgfsys@endinvisible{%
|
|
\special{rawpostscript grestore}%
|
|
}
|
|
\def\pgfsys@color@unstacked#1{\special{rawpostscript \XC@usecolor{#1}}}
|
|
|
|
\def\pgfsys@imagesuffixlist{.epsi:.eps:.ps:}
|
|
|
|
\AtBeginDocument{
|
|
% Always present specials.
|
|
\special{prepostscript
|
|
/pgfsc{}bind def% stroke color is empty by default
|
|
/pgffc{}bind def% fill color is empty by default
|
|
/pgfe{moveto dup 0 rlineto exch 0 exch rlineto neg 0 rlineto closepath}bind def% rectangle
|
|
/pgfstr{stroke}bind def%
|
|
/pgffill{fill}bind def%
|
|
/pgfeofill{eofill}bind def%
|
|
/pgfw{setlinewidth}bind def% setlinewidth
|
|
/pgfgetcoords{/sps{globaldict begin /pgfgy exch def /pgfgx exch def
|
|
end pop pop}def/eps{}def userdict begin}bind def
|
|
/pgfbeginpicture{/pgfx pgfgx def /pgfy pgfgy def pgfx pgfy translate 1 1 72.27 72 div mul2 neg scale}bind def
|
|
/pgfbeginhbox{1 1 72 72.27 div mul2 neg scale
|
|
pgfx neg pgfy neg translate
|
|
pgffoa .setopacityalpha}bind def% save
|
|
/.setopacityalpha where {pop} {/.setopacityalpha{pop}def} ifelse % install .setopacityalpha
|
|
/.pgfsetfillopacityalpha{/pgffoa exch def
|
|
/pgffill{gsave pgffoa .setopacityalpha fill 1 .setopacityalpha
|
|
newpath fill grestore newpath}bind def
|
|
/pgfeofill{gsave pgffoa .setopacityalpha eofill1
|
|
.setopacityalpha newpath eofill grestore newpath}bind def}bind def
|
|
/.pgfsetstrokeopacityalpha{/pgfsoa exch def
|
|
/pgfstr{gsave pgfsoa .setopacityalpha stroke grestore newpath}bind def}bind def
|
|
/pgffoa 1 def
|
|
/pgfsoa 1 def
|
|
}
|
|
}
|
|
|
|
\endinput
|
|
|
|
%%% Local Variables:
|
|
%%% mode: latex
|
|
%%% End:
|
|
|