blob: b6267dde1b406e6bfa2928a3fab783e18eef846e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
% epsf-dvipdfmx.tex - \input after epsf.tex when using dvipdfmx
% Originally written by Akira Kakuto, 2014. Public domain.
%
% (x)dvipdfmx patch for epsf.tex - translate bounding box to have (0,0) LL.
%
\newdimen\epsfdpxtexdimen
%
% from latex.ltx
%
\begingroup
\catcode`P=12
\catcode`T=12
\lowercase{\def\x{\def\rempt##1.##2PT{##1\ifnum##2>0pt.##2\fi}}}
\expandafter\endgroup\x
\def\strippt{\expandafter\rempt\the}
%
\def \epsfspecial #1{%
\epsftmp=10\epsfxsize
\divide \epsftmp by \pspoints
\ifnum \epsfrsize = 0%
\relax
\epsfdpxtexdimen=\epsfurx pt
\advance\epsfdpxtexdimen -\epsfllx pt
\edef\epsfurxx{\strippt\epsfdpxtexdimen}%
\epsfdpxtexdimen=\epsfury pt
\advance\epsfdpxtexdimen -\epsflly pt
\edef\epsfuryy{\strippt\epsfdpxtexdimen}%
\special{PSfile=\ifepsfdraft psdraft.ps\else#1\fi\space
llx=0\space
lly=0\space
urx=\epsfurxx\space
ury=\epsfuryy\space
rwi=\number\epsftmp
\epsfclipstring
}%
\else
\epsfrsize=10\epsfysize
\divide \epsfrsize by \pspoints
\epsfdpxtexdimen=\epsfurx pt
\advance\epsfdpxtexdimen -\epsfllx pt
\edef\epsfurxx{\strippt\epsfdpxtexdimen}%
\epsfdpxtexdimen=\epsfury pt
\advance\epsfdpxtexdimen -\epsflly pt
\edef\epsfuryy{\strippt\epsfdpxtexdimen}%
\special{PSfile=\ifepsfdraft psdraft.ps\else#1\fi\space
llx=0\space
lly=0\space
urx=\epsfurxx\space
ury=\epsfuryy\space
rwi=\number\epsftmp
rhi=\number\epsfrsize
\epsfclipstring
}%
\fi
}%
\endinput
|
