Re: mirrored pages

[Wolfgang Schuster <schuster.wolfgang@googlemail.com>]

On Thu, 19 Apr 2007 17:39:57 +0000
"Horacio Suarez" <horaciosuarez@hotmail.com> wrote:

> I´ve made a mistake and replyed to Mari Voipio. Sorry, Mari.
> 
> I need to print in a laser printer mirrored. The page should as is viewed in 
> a mirror. All the pages. Fliped horizontally.
> 
> Thankyou very much.
> 

Hi Horacio,

the following code should work.


\unprotect

\def\c!mirrored{mirrored}

\def\docopypages[#1][#2]%
  {\bgroup
   \getfiguredimensions[#1]%
   \getparameters[\??ip]
     [\c!n=\noffigurepages,
      \c!marking=\v!off,
      \c!scale=\!!thousand,
      \c!offset=\!!zeropoint,
      \c!mirrored=\v!no,
      #2]%
   \dorecurse\@@ipn
     {\doif\@@ipmirrored\v!yes\domirrorbox
      \vbox to \textheight
        {\hsize\textwidth
         \scratchdimen\@@ipoffset
         \centeredbox
           {\doifelse\@@ipmarking\v!on\cuthbox\hbox
              {\ifdim\scratchdimen>\zeropoint\relax
                 \advance\vsize -2\scratchdimen
                 \advance\hsize -2\scratchdimen
                 \externalfigure[#1][\c!page=\recurselevel,#2,\c!scale=,
\c!factor=\v!max,\c!offset=\v!overlay]% \else
                 \externalfigure[#1][\c!page=\recurselevel,#2,\c!offset=
\v!overlay]% \fi}}}
      \page}
   \egroup}

\protect

\setuppapersize[A4][A4]
\setuplayout[page]
\starttext
\copypages[file.pdf][mirrored=yes]
\stoptext


Gruß

Wolfgang