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.
120 lines
3.8 KiB
120 lines
3.8 KiB
%%
|
|
%% This is file `pctexps.def',
|
|
%% generated with the docstrip utility.
|
|
%%
|
|
%% The original source files were:
|
|
%%
|
|
%% drivers.dtx (with options: `pctexps,color3,colorfix')
|
|
%%
|
|
%% drivers.dtx Copyright (C) 1994 David Carlisle Sebastian Rahtz
|
|
%% Copyright (C) 1995 1996 1997 1998 1999 David Carlisle
|
|
%% Copyright (C) 2000-2020 David Carlisle, LaTeX3 Project
|
|
%%
|
|
%% This file is part of the Standard LaTeX `Graphics Bundle'.
|
|
%% It may be distributed under the terms of the LaTeX Project Public
|
|
%% License, as described in lppl.txt in the base LaTeX distribution.
|
|
%% Either version 1.3 or, at your option, any later version.
|
|
%%
|
|
\ProvidesFile{pctexps.def}
|
|
[2016/06/17 v3.0m Driver-dependent file (DPC,SPQR)]
|
|
\def\c@lor@arg#1{%
|
|
\dimen@#1\p@
|
|
\ifdim\dimen@<\z@\dimen@\maxdimen\fi
|
|
\ifdim\dimen@>\p@
|
|
\PackageError{color}{Argument `#1' not in range [0,1]}\@ehd
|
|
\fi}
|
|
\def\color@gray#1#2{%
|
|
\c@lor@arg{#2}%
|
|
\edef#1{#2 setgray}%
|
|
}
|
|
\def\color@cmyk#1#2{\c@lor@@cmyk#2\@@#1}
|
|
\def\c@lor@@cmyk#1,#2,#3,#4\@@#5{%
|
|
\c@lor@arg{#4}%
|
|
\c@lor@arg{#1}%
|
|
\c@lor@arg{#2}%
|
|
\c@lor@arg{#3}%
|
|
\edef#5{#1 #2 #3 #4 setcmykcolor}%
|
|
}
|
|
\def\color@rgb#1#2{\c@lor@@rgb#2\@@#1}
|
|
\def\c@lor@@rgb#1,#2,#3\@@#4{%
|
|
\c@lor@arg{#1}%
|
|
\c@lor@arg{#2}%
|
|
\c@lor@arg{#3}%
|
|
\edef#4{#1 #2 #3 setrgbcolor}%
|
|
}
|
|
\def\color@RGB#1#2{\c@lor@@RGB#2\@@#1}
|
|
\def\c@lor@@RGB#1,#2,#3\@@#4{%
|
|
\c@lor@RGB@rgb{#1}\@tempa
|
|
\c@lor@RGB@rgb{#2}\@tempb
|
|
\c@lor@RGB@rgb{#3}\@tempc
|
|
\c@lor@@rgb\@tempa,\@tempb,\@tempc\@@#4%
|
|
}
|
|
\def\c@lor@RGB@rgb#1#2{%
|
|
\dimen@#1\p@
|
|
\divide\dimen@\@cclv
|
|
\edef#2{\strip@pt\dimen@}}
|
|
\def\color@hsb#1#2{\c@lor@@hsb#2\@@#1}
|
|
\def\c@lor@@hsb#1,#2,#3\@@#4{%
|
|
\c@lor@arg{#1}%
|
|
\c@lor@arg{#2}%
|
|
\c@lor@arg{#3}%
|
|
\edef#4{#1 #2 #3 sethsbcolor}%
|
|
}
|
|
\def\color@named#1#2{\c@lor@@named#2,,\@@#1}
|
|
\def\c@lor@@named#1,#2,#3\@@#4{%
|
|
\@ifundefined{col@#1}%
|
|
{\PackageError{color}{Undefined color `#1'}\@ehd}%
|
|
{\edef#4{\csname col@#1\endcsname}}%
|
|
}
|
|
\def\c@lor@to@ps#1\@@{#1}
|
|
\def\current@color{0 setgray}
|
|
\def\set@color{%
|
|
\Gin@PS@raw{\current@color}\aftergroup\reset@color}
|
|
\def\reset@color{\Gin@PS@raw{\current@color}}
|
|
\def\set@page@color{%
|
|
\c@lor@special\sixt@@n{background color ignored: \current@color}}
|
|
\def\define@color@named#1#2{%
|
|
\expandafter\edef\csname col@#1\endcsname{#2}}
|
|
\AtBeginDocument{%
|
|
\let\@ldc@l@r\color
|
|
\def\color{\if@inlabel\leavevmode\fi\@ldc@l@r}%
|
|
\let\@lduseb@x\usebox
|
|
\def\usebox#1{\@lduseb@x{#1}\set@color}}
|
|
\def\Ginclude@eps#1{%
|
|
\message{<#1>}%
|
|
\ifGin@clip
|
|
\typeout{no clipping support in pctexps}%
|
|
\fi
|
|
\Gin@req@width.03515\Gin@req@width
|
|
\Gin@req@height.03515\Gin@req@height
|
|
\special{ps:#1\space x=\strip@pt\Gin@req@width cm,
|
|
y=\strip@pt\Gin@req@height cm}}
|
|
\def\Ginclude@ps#1{%
|
|
\message{<#1>}%
|
|
\ifGin@clip
|
|
\typeout{no clipping support in pctexps}%
|
|
\fi
|
|
\hbox{\kern-\Gin@llx bp\raise-\Gin@lly bp\hbox{\special{ps:#1}}}%
|
|
\typeout{^^J%
|
|
---------------------------------------------------------^^J%
|
|
.ps graphics without bounding box information cannot be^^J%
|
|
scaled. If the file actually contains the information,^^J%
|
|
please rename the file to .eps file extension.^^J%
|
|
---------------------------------------------------------^^J}}
|
|
\def\Gin@extensions{.eps,.ps}
|
|
\@namedef{Gin@rule@.ps}#1{{ps}{.ps}{#1}}
|
|
\@namedef{Gin@rule@.eps}#1{{eps}{.eps}{#1}}
|
|
\def\Gin@PS@raw#1{\special{ps::#1}}
|
|
\def\Grot@start{%
|
|
\special{ps::gsave currentpoint
|
|
currentpoint translate \Grot@angle\space
|
|
rotate neg exch neg exch translate}}
|
|
\def\Grot@end{\special{ps:: currentpoint grestore moveto}}
|
|
\def\Gscale@start{\special{ps:: currentpoint currentpoint translate
|
|
\Gscale@x\space \Gscale@y\space scale neg exch neg exch translate}}
|
|
\def\Gscale@end{\special{ps:: currentpoint currentpoint translate
|
|
1 \Gscale@x\space div 1 \Gscale@y\space div scale
|
|
neg exch neg exch translate}}
|
|
\endinput
|
|
%%
|
|
%% End of file `pctexps.def'.
|
|
|