summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/epsf-dvipdfmx/epsf-dvipdfmx.tex
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