From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- .../latex/contrib/turnthepage/turnpagewoetex.sty | 61 ++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 macros/latex/contrib/turnthepage/turnpagewoetex.sty (limited to 'macros/latex/contrib/turnthepage/turnpagewoetex.sty') diff --git a/macros/latex/contrib/turnthepage/turnpagewoetex.sty b/macros/latex/contrib/turnthepage/turnpagewoetex.sty new file mode 100644 index 0000000000..779f6c0139 --- /dev/null +++ b/macros/latex/contrib/turnthepage/turnpagewoetex.sty @@ -0,0 +1,61 @@ +% This is file `turnpagewoetex.sty' v1.3a by Merciadri Luca. +% Thanks to Marc van Dongen and Martin Muench for their help. + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{turnpagewoetex}[2011/03/24 1.3a + Indicating to turn the page (LM)] + +\PackageInfo{turnpagewoetex}{This is turnthepage without using e-TeX.} + +\RequirePackage{atbegshi} +\RequirePackage{picture} +\RequirePackage{alphalph} +\RequirePackage{pageslts} + +\ifx\turnthepage\undefined + \DeclareOption{short}{\providecommand{\turnthepage}{/\ldots}} + \DeclareOption{english}{\providecommand{\turnthepage}{\textit{Turn the page.}}} + \DeclareOption{francais}{\providecommand{\turnthepage}{\textit{Tournez la page.}}} + \DeclareOption{nederlands}{\providecommand{\turnthepage}{\textit{Sla de pagina om.}}} + \DeclareOption{deutsch}{\providecommand{\turnthepage}{\textit{Bitte wenden.}}} +\else + \newcommand{\turnp@agewarn}{% + \PackageWarning{turnpageetex}{Command turnthepage was already defined.\MessageBreak% + Now redefining it.}} + \DeclareOption{short}{\turnp@agewarn \renewcommand{\turnthepage}{/\ldots}} + \DeclareOption{english}{\turnp@agewarn \renewcommand{\turnthepage}{\textit{Turn the page.}}} + \DeclareOption{francais}{\turnp@agewarn \renewcommand{\turnthepage}{\textit{Tournez la page.}}} + \DeclareOption{nederlands}{\turnp@agewarn \renewcommand{\turnthepage}{\textit{Sla de pagina om.}}} + \DeclareOption{deutsch}{\turnp@agewarn \renewcommand{\turnthepage}{\textit{Bitte wenden.}}} +\fi + +\ProcessOptions + +\ifx\turnthepage\undefined + \providecommand{\turnthepage}{ } + \PackageWarning{turnpagewoetex}{No option for package turnthepage\MessageBreak% + (or turnpagewoetex) choosen!\MessageBreak% + There will be no information regarding\MessageBreak% + the need to turn the page!\MessageBreak% + } +\fi + +\AtBeginShipout{% +\AtBeginShipoutUpperLeft{% + \ifodd\value{CurrentPage} + % The \value{CurrentPage} is already 1 higher than the current page number here. + \else + \ifnum\value{pagesLTS.pagenr}>\value{CurrentPage} + \dimen1=1in + \advance\dimen1 by \textwidth + \advance\dimen1 by \oddsidemargin + \dimen3=1in + \advance\dimen3 by \topmargin + \advance\dimen3 by \headheight + \advance\dimen3 by \headsep + \advance\dimen3 by \textheight + \advance\dimen3 by \footskip + \put(\dimen1,-\dimen3){\llap{\turnthepage}}% + \fi% + \fi% +}} -- cgit v1.2.3