diff options
author | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
commit | ad547a6b5986815fda458221149728d9d9ab1d87 (patch) | |
tree | 16296910eb3eca724371474ea9aea3994dc69614 /Build/tests/largefile/pdfimage.tex | |
parent | 947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff) |
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/tests/largefile/pdfimage.tex')
-rw-r--r-- | Build/tests/largefile/pdfimage.tex | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/Build/tests/largefile/pdfimage.tex b/Build/tests/largefile/pdfimage.tex new file mode 100644 index 00000000000..e410ec8540c --- /dev/null +++ b/Build/tests/largefile/pdfimage.tex @@ -0,0 +1,52 @@ +% Copyright (C) 2012 Peter Breitenlohner <tex-live@tug.org> +% You may freely use, modify and/or distribute this file. +% +%% copied from plain.tex {{ +\catcode`\{=1 % left brace is begin-group character +\catcode`\}=2 % right brace is end-group character +\catcode`\$=3 % dollar sign is math shift +\catcode`\&=4 % ampersand is alignment tab +\catcode`\#=6 % hash mark is macro parameter character +\catcode`\^=7 \catcode`\^^K=7 % circumflex and uparrow are for superscripts +% \catcode`\_=8 \catcode`\^^A=8 % underline and downarrow are for subscripts +\catcode`\^^I=10 % ascii tab is a blank space +\chardef\active=13 \catcode`\~=\active % tilde is active +\catcode`\^^L=\active \outer\def^^L{\par} % ascii form-feed is "\outer\par" +\parfillskip=0pt plus 1fil +\def\loop#1\repeat{\def\body{#1}\iterate} +\def\iterate{\body \let\next\iterate \else\let\next\relax\fi \next} +\let\repeat=\fi % this makes \loop...\if...\repeat skippable +%% }} + +\everyjob={\expandafter\doIt\jobname ---\relax} + +\def\doIt #1-#2-#3-#4-#5-#6\relax { + \if A#6A + \includeImage #1 #2 #3 + \else + \includeImage #1-#2-#3 #4 #5 + \fi + \end +} +\def\includeImage #1 #2 #3 { + \count1=0 + \count2=#2 + \count3=#3 + \loop + \shipout\vbox{ + \count0=0 + \hsize=20cm + \noindent + \loop + \immediate\pdfximage width 1cm height 1cm {#1} + \hbox{\pdfrefximage\pdflastximage} + \hskip 0pt plus \hsize + \advance\count0 1 + \ifnum\count0 < \count2 \repeat + } + \advance\count1 1 + \ifnum\count1 < \count3 \repeat +} +\pdfoutput=1 +\errorstopmode +\dump |