From 000818f10ed9129bc36bd9b55b4e2ea63c223dbf Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 18 Dec 2020 22:11:58 +0000 Subject: pdfxup (18dec20) git-svn-id: svn://tug.org/texlive/trunk@57166 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/pdfxup/beamer2.xup | 31 +++ Master/texmf-dist/tex/latex/pdfxup/beamer4.xup | 31 +++ .../tex/latex/pdfxup/pdfxup-template.tex | 278 +++++++++++++++++++++ 3 files changed, 340 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/pdfxup/beamer2.xup create mode 100644 Master/texmf-dist/tex/latex/pdfxup/beamer4.xup create mode 100644 Master/texmf-dist/tex/latex/pdfxup/pdfxup-template.tex (limited to 'Master/texmf-dist/tex/latex/pdfxup') diff --git a/Master/texmf-dist/tex/latex/pdfxup/beamer2.xup b/Master/texmf-dist/tex/latex/pdfxup/beamer2.xup new file mode 100644 index 00000000000..c414b039181 --- /dev/null +++ b/Master/texmf-dist/tex/latex/pdfxup/beamer2.xup @@ -0,0 +1,31 @@ +# +# pdfxup configuration for beamer slides (2-up, portrait) +# +## (c) 2020/12/17 Nicolas Markey +## +## This work may be distributed and/or modified under the conditions of +## the LaTeX Project Public License, either version 1.3 of this license +## or (at your option) any later version. The latest version of this +## license is in +## +## http://www.latex-project.org/lppl.txt +## +## and version 1.3 or later is part of all distributions of LaTeX version +## 2005/12/01 or later. +## +## This work has the LPPL maintenance status `maintained'. +## The Current Maintainer of this work is Nicolas Markey. + + +# number of rows +NB_COLUMNS=1 +# number of columns +NB_ROWS=2 +# orientation (1=landscape, 0=portrait) +LANDSCAPE=0 +# do not crop margins +KEEP_ORIG_BBOX=1 +# tight frame around each slide +TIGHT_FRAME=1 +# frame width +FRAME_WIDTH=.4pt diff --git a/Master/texmf-dist/tex/latex/pdfxup/beamer4.xup b/Master/texmf-dist/tex/latex/pdfxup/beamer4.xup new file mode 100644 index 00000000000..6337d349a36 --- /dev/null +++ b/Master/texmf-dist/tex/latex/pdfxup/beamer4.xup @@ -0,0 +1,31 @@ +# +# pdfxup configuration for beamer slides (2x2-up, landscape) +# +## (c) 2020/12/17 Nicolas Markey +## +## This work may be distributed and/or modified under the conditions of +## the LaTeX Project Public License, either version 1.3 of this license +## or (at your option) any later version. The latest version of this +## license is in +## +## http://www.latex-project.org/lppl.txt +## +## and version 1.3 or later is part of all distributions of LaTeX version +## 2005/12/01 or later. +## +## This work has the LPPL maintenance status `maintained'. +## The Current Maintainer of this work is Nicolas Markey. + + +# number of rows +NB_COLUMNS=2 +# number of columns +NB_ROWS=2 +# orientation (1=landscape, 0=portrait) +LANDSCAPE=1 +# do not crop margins +KEEP_ORIG_BBOX=1 +# tight frame around each slide +TIGHT_FRAME=1 +# frame width +FRAME_WIDTH=.4pt diff --git a/Master/texmf-dist/tex/latex/pdfxup/pdfxup-template.tex b/Master/texmf-dist/tex/latex/pdfxup/pdfxup-template.tex new file mode 100644 index 00000000000..f5b6839f312 --- /dev/null +++ b/Master/texmf-dist/tex/latex/pdfxup/pdfxup-template.tex @@ -0,0 +1,278 @@ +\expandafter\ifx\csname pdfxupfile\endcsname\relax +\PackageError{pdfxup}{This file should not be compiled alone} + {File pdfxup-template.pdf is not meant to be compiled alone. + \MessageBreak + It should only be used via the 'pdfxup' script.} +\fi + +\documentclass{minimal} + \usepackage[margin=0pt,\pdfxupoutputpaper paper]{geometry} + \ifnum\pdfxupoutputlandscape=1\relax\geometry{landscape}\fi + \usepackage{graphicx} + \IfFileExists{grffile.sty}{\usepackage{grffile}}{} + + \topskip=0pt + \parindent=0pt + + \makeatletter + + %% define functions for parsing comma-separated lists of ranges of pages + \newcounter{result}% + \newif\iffound + \def\@parserange#1-#2-#3\@end#4\@end{% + \setcounter{result}{#4}% + \ifnum\value{result}=1\relax + \foundtrue + \setcounter{result}{#1}% + \else + \addtocounter{result}{-1}% + \ifx\relax#3\relax%% means that range contains no - + \else + \addtocounter{result}{#1}% + \ifnum#2<\value{result}\relax + \addtocounter{result}{-#2}% + \else + \foundtrue + \fi + \fi + \fi} + \def\parserange#1#2{\expandafter\@parserange#2-SINGLE-\@end#1\@end} + \def\@parsecsl#1,#2\@end#3\@end{% + \parserange{#3}{#1}% + \iffound\else + \ifx\relax#2\relax\else\@parsecsl#2\@end\value{result}\@end\fi\fi} + %% \nthvalue#1#2 looks for #1-th value in list of intervals #2 + \def\nthvalue#1#2{\foundfalse\expandafter\@parsecsl#2,\@end#1\@end} + %% + + + %% perform various computations: + %% - width and height of image (\hresult and \vresult) + %% - width and height of frame containing image (\hboxsize and \vboxsize) + \newcounter{lastpage} + \newcounter{outpage} + \setcounter{outpage}{\pdfxupnbpages} + \addtocounter{outpage}{-1} + \divide\c@outpage by \pdfxupnbhoriz + \divide\c@outpage by \pdfxupnbvert + \ifbooklet + \divide\c@outpage by 2 + \fi + \stepcounter{outpage} + \ifbooklet + \multiply\c@outpage by 2 + \fi + \setcounter{lastpage}{\value{outpage}} + \multiply\c@lastpage by \pdfxupnbhoriz + \multiply\c@lastpage by \pdfxupnbvert + \makeatother + % + \newlength\outputvmargin + \newlength\outputhmargin + \setlength\outputvmargin{\pdfxupvmargin} + \setlength\outputhmargin{\pdfxuphmargin} + \newlength\innervmargin + \newlength\innerhmargin + \setlength\innervmargin{\pdfxupinnervmargin} + \setlength\innerhmargin{\pdfxupinnerhmargin} + \newlength\outputindivvmargin + \newlength\outputindivhmargin + \setlength\outputindivvmargin{\pdfxupintermvspace} + \setlength\outputindivhmargin{\pdfxupintermhspace} + % + \fboxsep=0pt% + \setlength\fboxrule{\pdfxupframewidth} + \newlength\hresult + \newlength\vresult + \newlength\vboxsize + \newlength\hboxsize + \hresult=\paperwidth + \advance\hresult by -\pdfxupnbhoriz\fboxrule + \advance\hresult by -\pdfxupnbhoriz\fboxrule + \advance\hresult by -\pdfxupnbhoriz\innerhmargin + \advance\hresult by -\pdfxupnbhoriz\innerhmargin + \vresult=\paperheight + \advance\vresult by -\pdfxupnbvert\fboxrule + \advance\vresult by -\pdfxupnbvert\fboxrule + \advance\vresult by -\pdfxupnbvert\innerhmargin + \advance\vresult by -\pdfxupnbvert\innerhmargin + % + \advance\hresult by -2\outputhmargin + \advance\vresult by -2\outputvmargin + % + \advance\hresult by -\pdfxupnbhoriz \outputindivhmargin + \advance\vresult by -\pdfxupnbvert \outputindivvmargin + \advance\hresult by \outputindivhmargin + \advance\vresult by \outputindivvmargin + % + \divide\hresult by \pdfxupnbhoriz + \divide\vresult by \pdfxupnbvert + + \vboxsize=\vresult + \advance\vboxsize by 2\fboxrule + \advance\vboxsize by 2\innervmargin + \hboxsize=\hresult + \advance\hboxsize by 2\fboxrule + \advance\hboxsize by 2\innerhmargin + + + %% compute actual scale by which PDF is shrunk (or extended) + \ifnum\pdfxupemptybb=0\relax + \newcounter{origx} + \setcounter{origx}{\pdfxupw} + \addtocounter{origx}{-\pdfxupx} + \newcounter{origy} + \setcounter{origy}{\pdfxuph} + \addtocounter{origy}{-\pdfxupy} + \newlength\finalx + \newlength\finaly + \finalx=\hresult + \finaly=\vresult + \divide\finalx by \value{origx} + \divide\finaly by \value{origy} + \newwrite\scale + \immediate\openout\scale=\pdfxupfilename.scl + \ifdim\finalx>\finaly + \multiply\finaly by 100 + \immediate\write\scale{\the\finaly} + \else + \multiply\finalx by 100 + \immediate\write\scale{\the\finalx} + \fi + \immediate\closeout\scale + \fi + + + %% start document + \begin{document} + %\tracingoutput=1 + %\tracingpages=1 + %\tracingparagraphs=1 + \makeatletter + \newcounter{curroutpage} + \setcounter{curroutpage}{1} + \addtocounter{curroutpage}{-1} + \newcounter{currpage} + \newcounter{currcol} + \newcounter{currline} + \newcounter{realout} + \newcounter{wmout} + \newcounter{wmoutaux} + \@whilenum \value{outpage}>\value{curroutpage} \do% + {\stepcounter{curroutpage}% + \setcounter{currpage}{\value{curroutpage}}% + \advance\c@currpage by -1% + \multiply\c@currpage by \pdfxupnbhoriz% + \multiply\c@currpage by \pdfxupnbvert% + \hrule \@height\z@% + \setcounter{currline}{0}% + \vskip \outputvmargin% + \@whilenum\value{currline}<\pdfxupnbvert \do% + {\hrule \@height\z@\vskip \outputindivvmargin% + \ifnum\value{currline}>0\vskip \outputindivvmargin\fi% + \global\stepcounter{currline}% + \setcounter{currcol}{0}% + \hskip \outputhmargin% + \@whilenum\value{currcol}<\pdfxupnbhoriz \do% + {\ifnum\value{currcol}>0\hskip\outputindivhmargin\fi% + \global\stepcounter{currcol}% + \global\stepcounter{currpage}% + \ifnum\value{currpage}>\value{lastpage}\else + %% computing page number corresponding to \currline and \currcol + \setcounter{realout}{\value{currpage}}% + \def\ang{0}% + \ifbooklet + \iflongedge + %% long edge: + %% 1->n, 2->1, 3->n-1 (rotated), 4->2(rotated)... + \ifodd\value{realout}% -> 1 or 3 + \addtocounter{realout}{-1}% + \divide\c@realout by 2\relax + \ifodd\value{realout}% -> 3 + \def\ang{180}% + \else% -> 1 + \fi + \setcounter{realout}{-\value{realout}}% + \addtocounter{realout}{\value{outpage}}% + \addtocounter{realout}{\value{outpage}}% + \else% -> 2 or 4 + \divide\c@realout by 2\relax + \ifodd\value{realout}% -> 2 + \else% -> 4 + \def\ang{180}% + \fi + \fi + \else + %% short edge: + %% 1->n, 2->1, 3->2, 4->n-1, 5->n-2, 6->3, 7->4, 8->n-3 + \ifodd\value{realout}% -> 1 or 3 + \addtocounter{realout}{-1}% + \divide\c@realout by 2\relax + \ifodd\value{realout}% -> 3 + \stepcounter{realout} + \else% -> 1 + \setcounter{realout}{-\value{realout}}% + \addtocounter{realout}{\value{outpage}}% + \addtocounter{realout}{\value{outpage}}% + \fi + \else% -> 2 or 4 + \divide\c@realout by 2\relax + \ifodd\value{realout}% -> 2 + \else% -> 4 + \setcounter{realout}{-\value{realout}}% + \stepcounter{realout} + \addtocounter{realout}{\value{outpage}}% + \addtocounter{realout}{\value{outpage}}% + \fi + \fi + \fi %% \iflongedge...\else + \fi %% \ifbooklet + \ifnum\value{realout}>\pdfxupnbpages\relax + %% if page above nb of pages, output blank page + %\hskip\hresult\hskip2\fboxrule + \hskip\hboxsize + \else + %% otherwise compute corresponding page to display + %% first keep realout for watermarking... + \setcounter{wmoutaux}{\value{realout}}% + \setcounter{wmout}{\value{realout}}% + \nthvalue{\value{realout}}{\pdfxuppagelist}% + \iffound\setcounter{realout}{\value{result}}% + \else %% hmmm... problem + \message{I'm messed up counting pages...}% + \fi + %% compute watermarking page and display + \ifx\pdfxupwatermark\@empty\else + \ifnum\pdfxupnbwp<\value{wmoutaux}\relax + \addtocounter{wmoutaux}{-\pdfxupnbwp}% + \addtocounter{wmoutaux}{-1}% + \divide\c@wmoutaux by \pdfxupwperiod\relax + \stepcounter{wmoutaux}% + \multiply\c@wmoutaux by \pdfxupwperiod\relax + \addtocounter{wmout}{-\value{wmoutaux}}% + \fi + \vbox to \vboxsize{\vfill + \hbox to \hboxsize{\hfill + \includegraphics[keepaspectratio,% + height=\vresult,width=\hresult,angle=\ang,% + page=\value{wmout}\pdfxupclipopt]{\pdfxupwatermark}\hfill}\vfill}% + \hskip-\hboxsize\relax + \fi + %% display current page at correct size + \edef\pdfxupinclgr{\includegraphics[\pdfxupbbox,% + keepaspectratio,height=\vresult,width=\hresult,angle=\ang,% + page=\value{realout}\pdfxupclipopt]{\pdfxupfile}}% + \pdfxupwidefbox{\vbox to \vboxsize{\vfill + \hbox to \hboxsize{\hfill + \pdfxuptightfbox{\hskip\innerhmargin\relax + \sbox{0}{\pdfxupinclgr}% + \ht0=\dimexpr\ht0 + \innervmargin\relax + \dp0=\dimexpr\dp0 + \innervmargin\relax + \usebox{0}\hskip\innerhmargin\relax}% + \hfill}\vfill}}% + \fi + \fi}}% + \clearpage% + }% + \makeatother% + \end{document} -- cgit v1.2.3