diff options
author | Karl Berry <karl@freefriends.org> | 2016-02-15 22:17:02 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-02-15 22:17:02 +0000 |
commit | 8ca0eabbdcb675e59949f79b6bd029c6e7b9d8d9 (patch) | |
tree | 25c7bfa22a91a94a9a3f7aae6fff5ed4d6e230ba /Master/texmf-dist/tex/latex/scrlttr2copy | |
parent | d26db029a7400839e35caa199277b7a64c477d66 (diff) |
scrlttr2copy (14feb16)
git-svn-id: svn://tug.org/texlive/trunk@39734 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/scrlttr2copy')
-rw-r--r-- | Master/texmf-dist/tex/latex/scrlttr2copy/copy.lco | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/scrlttr2copy/copy.lco b/Master/texmf-dist/tex/latex/scrlttr2copy/copy.lco new file mode 100644 index 00000000000..e3213a9f248 --- /dev/null +++ b/Master/texmf-dist/tex/latex/scrlttr2copy/copy.lco @@ -0,0 +1,76 @@ + +%% Copyright (C) 2015 +%% Rolf Niepraschk, Rolf.Niepraschk@gmx.de +%% +%% 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 2003/12/01 or later. +%% +%% This work has the LPPL maintenance status "author-maintained". + +\ProvidesFile{copy.lco}[2015/05/31 v0.1d copy letter-class-option (RN)] + +\RequirePackage{atbegshi,picture,xcolor,graphicx} +\RequirePackage{etex} + +\newcounter{copy@pages} + +\AtBeginLetter{\shipout@copy} +\AtEndDocument{\shipout@copy} + +\newcommand*\shipout@copy{% + \if@twoside\ifodd\c@copy@pages + \@latex@info@no@line{Shipout an empty page}% + \AtBeginShipoutOriginalShipout\null + \fi\fi + \immediate\closeout\@mainaux + \immediate\openout\@mainaux\jobname.aux + \begingroup + \c@page=\z@ + \loop\ifnum\c@page<\c@copy@pages + \advance\c@page\@ne + \@latex@info@no@line{Shipout copy of page \the\c@page}% + \setbox\AtBeginShipoutBox=\box\csname out@box\the\c@page\endcsname + \AtBeginShipoutUpperLeft{\LetterCopyMarker}% + \AtBeginShipoutOriginalShipout\box\AtBeginShipoutBox + \repeat + \endgroup + \c@copy@pages=\z@ +} + +\AtBeginShipout{% + \@ifundefined{out@box\the\c@page}{% + \@latex@info@no@line{Alloc savebox for page \the\c@page}% + \expandafter\newsavebox\csname out@box\the\c@page\endcsname + }{% + \@latex@info@no@line{Savebox for page \the\c@page\space already exist}% + }% + \@latex@info@no@line{Save page \the\c@page}% + \global\setbox\csname out@box\the\c@page\endcsname=\copy\AtBeginShipoutBox + \global\c@copy@pages=\c@page +} + +\newcommand*\LetterCopyMarker{% + \put(0.5\paperwidth,-0.5\paperheight){% + \makebox(0,0)[c]{\resizebox{\textwidth}{!}{\rotatebox{45}{% + \textsf{\textbf{\color{lightgray}\strut\usekomavar*{copy}}}}}}% + }% +} + +\newkomavar[\copyname]{copy} +\newcommand*\copyname{Copy} + +\defcaptionname{american,australian,british,canadian,% + english,newzealand,UKenglish,USenglish}\copyname{Copy}% +\defcaptionname{german,ngerman,austrian,naustrian,% + swissgerman,nswissgerman}\copyname{Kopie} +\defcaptionname{acadian,canadien,francais,french}\copyname{Copie} +\defcaptionname{spanish,italian,portugese}\copyname{Copia} +\defcaptionname{polish}\copyname{Kopia} +\defcaptionname{russian}\copyname{Копия} + +\endinput |