diff options
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/tests/pdforigin.tex')
-rw-r--r-- | Build/source/texk/web2c/eptexdir/tests/pdforigin.tex | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdforigin.tex b/Build/source/texk/web2c/eptexdir/tests/pdforigin.tex new file mode 100644 index 00000000000..ab64ac932b9 --- /dev/null +++ b/Build/source/texk/web2c/eptexdir/tests/pdforigin.tex @@ -0,0 +1,40 @@ +\mag=3000 + +\newdimen\XPOS\newdimen\YPOS\newread\TMP +\openin\TMP=\jobname.tmp +\ifeof\TMP\else\closein\TMP\input \jobname.tmp\fi +\immediate\openout\TMP=\jobname.tmp +\topskip0pt +\ifdefined\pagewidth + \pagewidth=10truein\pageheight=10truein +\else\ifdefined\pdfpagewidth + \pdfpagewidth=10truein\pdfpageheight=10truein +\fi\fi + +\shipout\hbox{% + \special{papersize=10truein,10truein}% + \pdfsavepos% + \write\TMP{\noexpand\XPOS=\the\pdflastxpos sp\noexpand\YPOS=\the\pdflastypos sp}% + \smash{% + \llap{\hss\vrule height 1pt depth 0pt width \XPOS}% + \llap{\hss\vrule height 2.4pt depth -2pt width 1in}% + \llap{\hss\vrule height 4pt depth -3.2pt width 1truein}% + \llap{\vrule height 1in depth 0pt width 0.4pt\kern.8pt% + \vrule height 1truein depth 0pt width 0.8pt}% + \rlap{% + \vrule height 0pt depth \dimexpr\YPOS+5truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS+4truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS+3truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS+2truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS+1truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS width .8pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS-1truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS-2truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS-3truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS-4truept width .4pt\kern.8pt + \vrule height 0pt depth \dimexpr\YPOS-5truept width .4pt\kern.8pt% + }% + }% +} +\end + |