zwpagelayout 1.1 (22dec10)

git-svn-id: svn://tug.org/texlive/trunk@20828 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 356 insertions, 22 deletions

diff --git a/Master/texmf-dist/tex/latex/zwpagelayout/zwpagelayout.sty b/Master/texmf-dist/tex/latex/zwpagelayout/zwpagelayout.sty
index cd5e9af9cd6..fe33debd52e 100644
--- a/Master/texmf-dist/tex/latex/zwpagelayout/zwpagelayout.sty
+++ b/Master/texmf-dist/tex/latex/zwpagelayout/zwpagelayout.sty
@@ -1,7 +1,7 @@
-\ProvidesPackage{zwpagelayout}[2008/12/26 ZW Page Layout]
-\PackageInfo{zwpagelayout}{$Id: zwpagelayout.sty 290 2008-12-26 17:43:49Z zw $\@gobble}
+\ProvidesPackage{zwpagelayout}[2010/12/21 ZW Page Layout]
+\PackageInfo{zwpagelayout}{$Id: zwpagelayout.sty 377 2010-12-21 14:29:56Z zw $\@gobble}
 
-%% Copyright 2008 Z. Wagner, http://icebearsoft.euweb.cz
+%% Copyright 2008--2010 Z. Wagner, http://icebearsoft.euweb.cz
 %
 % This work may be distributed and/or modified under the
 % conditions of the LaTeX Project Public License, either version 1.3
@@ -16,11 +16,34 @@
 % The Current Maintainer of this work is Z. Wagner.
 %
 % This work consists of the files: zwpagelayout.sty and
-% the documentation files zwpagelayout.tex, zwpagelayout.pdf.
+% the documentation files zwpagelayout.tex, zwpagelayout.pdf together with
+% adjustfoot.tex, adjustfoot.pdf, adjusthead.tex, adjusthead.pdf,
+% coversample.tex, coversample.pdf, LoremIpsumDolor.tex.
 
-\RequirePackage{kvoptions,ifpdf}
+\IfFileExists{ifpdf.sty}{\RequirePackage{ifpdf}}{\newif\ifpdf}
+\IfFileExists{ifxetex.sty}{\RequirePackage{ifxetex}}{\newif\ifxetex}
+\RequirePackage{kvoptions}
 \SetupKeyvalOptions{family=zwpl,prefix=zwpl@}
 
+% Backspace character with catcode=12
+
+{\lccode`\!`\\ \lowercase{\gdef\PDFbksp{!}}}
+
+% Driver selection macros and options
+
+\def\zwpl@useunknown{0}
+\def\zwpl@usepdftex{1}
+\def\zwpl@usexetex{2}
+\def\zwpl@usedvips{3}
+\let\zwpl@usedvipdfm\zwpl@usexetex
+\let\zwpl@usexdvipdfmx\zwpl@usexetex
+\let\zwpl@useother\zwpl@useunknown
+\newcount\zwpl@Driver
+\zwpl@Driver\ifpdf \zwpl@usepdftex \else \ifxetex \zwpl@usexetex \else \zwpl@usedvips \fi \fi
+\relax
+
+\DeclareStringOption{driver}
+
 % Landscape/Portrait
 
 \DeclareBoolOption{Landscape}
@@ -113,23 +136,51 @@
 %%%\DeclareStringOption[\fontsize{10}{10}]{cropfontsize}
 %%%\DeclareStringOption[\normalfont]{cropfont}
 \DeclareBoolOption{nobleedclip}
+\DeclareBoolOption{noBboxes}
 
-% Color support for cropmarks
+% Color support for cropmarks and black overprint
 \DeclareBoolOption{color}
 \DeclareStringOption[cmyk]{colormodel}
 \DeclareStringOption[1,1,1,1]{cropcolor}
 \DeclareStringOption[{CYAN:1,0,0,0},{MAGENTA:0,1,0,0},{YELLOW:0,0,1,0},{BLACK:0,0,0,1}]{colors}
+\DeclareBoolOption{redefineblack}
+\DeclareBoolOption{redefinetocmyk}
+
+% Overprint support, it will automatically request color
+\DeclareBoolOption{overprint}
+
+% PDF information
+\DeclareStringOption[\zwpl@default@title]{title}[]
+\DeclareStringOption{author}
+\DeclareStringOption{subject}
+\DeclareStringOption{keywords}
+\DeclareVoidOption{nopdfinfo}{\setkeys{zwpl}{title}}
+
+\def\zwpl@default@title{\ifcat$\zwpl@croptitle$\jobname\else\zwpl@croptitle\fi}
+
+% PDF/X-1a support etc.
+\DeclareStringOption{pdfminorversion}
+\DeclareBoolOption{pdfx}
+\DeclareStringOption[Euroscale Coated v2]{OutputCondition}
+\DeclareStringOption[Euroscale Coated v2]{OutputConditionIdentifier}
+\DeclareStringOption{ICCfile}
 
-% Reflect, works with pdftex and dvips
+% Reflect, works with pdftex, (x)dvipdfm(x) aa well as dvips
 
-\def\zwpl@makeHreflect{\AtBeginDocument{\ifpdf
+\def\zwpl@makeHreflect{\AtBeginDocument{\ifcaseZWdriver
+    \or
          \let\zwpl@Hship\shipout
          \def\shipout{\zwpl@Hreflect\zwpl@Hship}\zwpl@Hreflect
+    \or
+         \zwpl@XHreflect
     \else\zwpl@psHreflect\fi}}
 
-\def\zwpl@makeVreflect{\AtBeginDocument{\ifpdf
+\def\zwpl@makeVreflect{\AtBeginDocument{\ifcaseZWdriver
+    \or
           \let\zwpl@Vship\shipout
           \def\shipout{\zwpl@Vreflect\zwpl@Vship}\zwpl@Vreflect
+     \or
+          \zwpl@XVreflect
      \else\zwpl@psVreflect\fi}}
 
 \DeclareVoidOption{ReflectHorizontally}{\zwpl@makeHreflect}
@@ -137,6 +188,30 @@
 
 \ProcessKeyvalOptions*
 
+% Define the driver
+
+\ifcat$\zwpl@driver$ \else
+  \expandafter\ifx\csname zwpl@use\zwpl@driver\endcsname\relax
+    \PackageErrorNoLine{zwpagelayout}{Unsupported driver \zwpl@driver}
+  \else
+    \zwpl@Driver\csname zwpl@use\zwpl@driver\endcsname\relax
+  \fi
+\fi
+\def\ifcaseZWdriver{\ifcase\zwpl@Driver}
+\DeclareRobustCommand\ZWifdriver[2]{\expandafter\ifx\csname zwpl@use#1\endcsname\relax
+    \PackageWarningNoLine{zwpagelayout}{Driver #1 not recognized, code ignored}%
+  \else
+  \ifnum\csname zwpl@use#1\endcsname=\zwpl@Driver\relax #2\fi}
+
+\PackageInfo{zwpagelayout}{Driver mode used:
+            \ifcaseZWdriver unknown\or pdftex\or xetex\else dvips\fi.\MessageBreak}
+
+% Define pdfmark if the RIP does not know it
+
+\ifnum\zwpl@Driver=\zwpl@usedvips
+  \special{!/pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse}
+\fi
+
 % Other packages
 
 \ifzwpl@onlycropmarks
@@ -165,11 +240,158 @@
   \fi
 \fi
 
-\AtBeginDocument{\ifpdf
+\AtBeginDocument{\ifcaseZWdriver \or
    \pdfpagewidth\paperwidth \pdfpageheight\paperheight
 \else
    \special{papersize=\the\paperwidth,\the\paperheight}\fi}
 
+\def\zwpl@setbpdim#1#2{\@tempdimc#2 \@tempdimc .99626\@tempdimc
+    \edef#1{\strip@pt\@tempdimc}}
+
+\def\zwpl@setboxex{\zwpl@setbpdim\zwpl@bleedorig\zwpl@croplength
+    \@tempdima\paperwidth \advance\@tempdima-\zwpl@croplength
+    \zwpl@setbpdim\zwpl@bleedwidth\@tempdima
+    \@tempdima\paperheight \advance\@tempdima-\zwpl@croplength
+    \zwpl@setbpdim\zwpl@bleedheight\@tempdima
+    \@tempdimb\zwpl@croplength \advance\@tempdimb\zwpl@cropgap
+    \zwpl@setbpdim\zwpl@trimorig\@tempdimb
+    \@tempdima\paperwidth \advance\@tempdima-\@tempdimb
+    \zwpl@setbpdim\zwpl@trimwidth\@tempdima
+    \@tempdima\paperheight \advance\@tempdima-\@tempdimb
+    \zwpl@setbpdim\zwpl@trimheight\@tempdima
+    \edef\zw@tmp{/BleedBox [\zwpl@bleedorig\space \zwpl@bleedorig\space
+                            \zwpl@bleedwidth\space \zwpl@bleedheight]
+                 /TrimBox [\zwpl@trimorig\space \zwpl@trimorig\space
+                           \zwpl@trimwidth\space \zwpl@trimheight]
+                 /ArtBox [\zwpl@trimorig\space \zwpl@trimorig\space
+                          \zwpl@trimwidth\space \zwpl@trimheight]}
+    \ifcaseZWdriver
+    \or
+      \expandafter\pdfpageattr\expandafter{\zw@tmp}
+    \or
+      \edef\zw@tmpx{pdf:put @pages <<\zw@tmp>>}
+      \expandafter\special\expandafter{\zw@tmpx}
+    \else
+      \special{! userdict begin
+                 userdict /bop-hook known {/bop-hook load cvx /ZWBox-hook exch def} if
+                 /bop-hook {
+                   [/BleedBox [\zwpl@bleedorig\space \zwpl@bleedorig\space
+                               \zwpl@bleedwidth\space \zwpl@bleedheight] /PAGE pdfmark
+                   [/TrimBox [\zwpl@trimorig\space \zwpl@trimorig\space
+                              \zwpl@trimwidth\space \zwpl@trimheight] /PAGE pdfmark
+                   [/ArtBox [\zwpl@trimorig\space \zwpl@trimorig\space
+                             \zwpl@trimwidth\space \zwpl@trimheight] /PAGE pdfmark
+                   userdict /ZWBox-hook known {ZWBox-hook} if
+                 } def
+      end}
+    \fi}
+
+\ifzwpl@cropmarks
+  \ifzwpl@noBboxes \else \AtBeginDocument{\zwpl@setboxex}\fi
+\fi
+
+\def\noBboxes{\def\zwpl@setboxex{}}
+\@onlypreamble\noBboxes
+
+% Two digits
+\def\zwpl@num#1{\ifnum #1<10 0\fi \the#1}
+
+% Date of TeXing in PDF format (without parentheses and D:)
+\def\SetTeXingDate#1{\xdef#1{\the\year\zwpl@num\month\zwpl@num\day}}
+\SetTeXingDate\DateOfTeXing
+
+% Time of TeXing, you can modify Date of TeXing by:
+% \edef\DateOfTeXing{\DateOfTeXing\TimeOfTeXing}
+\count@=\time   \divide\count@ by 60
+\edef\@temp{\zwpl@num\count@}%
+\multiply\count@ by -60         \advance\count@ by \time
+\edef\TimeOfTeXing{\@temp\zwpl@num\count@}%
+
+% Default version of the modification date
+\def\zwpl@modt{(D:\DateOfTeXing\TimeOfTeXing)}
+
+% PDF info + PDF/X-1a
+\def\SetPDFminorversion#1{\ZWifdriver{pdftex}{\pdfminorversion#1 \relax}}
+\@onlypreamble\SetPDFminorversion
+
+\ifzwpl@pdfx
+  \setkeys{zwpl}{pdfminorversion=3}
+  \let\SetPDFminorversion\@gobble
+\fi
+
+\ifcat$\zwpl@pdfminorversion$ \else \ZWifdriver{pdftex}{\pdfminorversion3 \relax}\fi
+\def\zwpl@pdfxinfo{}
+\ifzwpl@pdfx
+  \def\zwpl@pdfxinfo{ /GTS_PDFXVersion (PDF/X-1:2001) /GTS_PDFXConformance (PDFX-1a:2001)}
+  \ifcat$\zwpl@ICCfile$ \else
+    \ifcase\zwpl@Driver
+    \or
+      \immediate\pdfobj stream attr{/N 4} file{\zwpl@ICCfile}
+      \edef\zwpl@iccobj{\the\pdflastobj}
+    \fi
+  \fi
+\fi
+
+\edef\zwpl@pdftitle{\zwpl@title}
+\ifcat$\zwpl@pdftitle$
+  \ifzwpl@pdfx
+    \ifcase\zwpl@Driver
+    \or
+      \pdfinfo{\zwpl@pdfinfo}
+    \or
+      \ifxetex \def\zwpl@crt{XeTeX}\else \def\zwpl@crt{TeX+dvipdfm}\fi
+      \edef\zwpl@pdfcrt{ /Creator (\zwpl@crt) }
+      \special{pdf:docinfo << \zwpl@pdfmoddate \zwpl@pdfcrt  \zwpl@pdfxinfo >>}
+    \fi
+  \fi
+\else
+  \edef\zwpl@pdftitle{/Title (\zwpl@pdftitle)}
+  \ifcat$\zwpl@author$\def\zwpl@pdfauthor{}\else
+    \edef\zwpl@pdfauthor{ /Author (\zwpl@author)}\fi
+  \ifcat$\zwpl@subject$\def\zwpl@pdfsubject{}\else
+    \edef\zwpl@pdfsubject{ /Subject (\zwpl@subject)}\fi
+  \ifcat$\zwpl@keywords$\def\zwpl@pdfkeywords{}\else
+    \edef\zwpl@pdfkeywords{ /Keywords (\zwpl@keywords)}\fi
+  \edef\zwpl@pdfcreationdate{ /CreationDate \zwpl@modt}
+  \edef\zwpl@pdfmoddate{ /ModDate \zwpl@modt}
+  \ifcase\zwpl@Driver
+  \or
+    \pdfinfo{\zwpl@pdftitle \zwpl@pdfauthor \zwpl@pdfsubject \zwpl@pdfkeywords \zwpl@pdfxinfo}
+  \or
+    \ifxetex \def\zwpl@crt{XeTeX}\else \def\zwpl@crt{TeX+dvipdfm}\fi
+    \edef\zwpl@pdfcrt{ /Creator (\zwpl@crt) }
+    \special{pdf:docinfo << \zwpl@pdftitle \zwpl@pdfauthor \zwpl@pdfsubject \zwpl@pdfkeywords
+                            \zwpl@pdfmoddate \zwpl@pdfcrt  \zwpl@pdfxinfo >>}
+  \else
+    \def\zwpl@pdfcrt{ /Creator (TeX+dvips) }
+    \special{ps:[ \zwpl@pdftitle \zwpl@pdfauthor \zwpl@pdfsubject \zwpl@pdfkeywords
+                  \zwpl@pdfcreationdate \zwpl@pdfmoddate \zwpl@pdfcrt /DOCINFO pdfmark}
+  \fi
+\fi
+
+% Catalog entry for PDF/X
+\ifzwpl@pdfx
+  \ifx\zwpl@iccobj\undefined
+    \def\zwpl@profile{}
+  \else
+    \def\zwpl@profile{ /DestOutputProfile \zwpl@iccobj\space 0 R}
+  \fi
+  \def\zwpl@catalog{/OutputIntents [ <<
+    /Type/OutputIntent
+    /S/GTS_PDFX
+    /OutputCondition (\zwpl@OutputCondition)
+    /OutputConditionIdentifier (\zwpl@OutputConditionIdentifier)
+    /RegistryName (http://www/color.org)\zwpl@profile
+  >> ]}
+  \ifcase\zwpl@Driver
+  \or
+    \pdfcatalog{\zwpl@catalog}
+  \or
+    \special{pdf: put @catalog <<\zwpl@catalog>>}
+  \fi
+\fi
+
+% Page margins
 \ifcat$\zwpl@margins$ \else
   \setkeys{zwpl}{topmargin=\zwpl@margins,botmargin,
                  leftmargin=\zwpl@margins,rightmargin=\zwpl@margins}
@@ -380,8 +602,114 @@
 \def\UserTopMargin{\zwpl@topmargin}
 \def\UserBotMargin{\zwpl@botmargin}
 
-% Handle cropmarks
+% Handling color, needed in several cases
+\ifzwpl@redefinetocmyk \zwpl@redefineblacktrue \fi
+\def\zwpl@next{}
+\def\zwpl@reqclr{\def\zwpl@next{\RequirePackage{color}}}
+\expandafter\ifx\csname definecolor\endcsname\relax
+  \ifzwpl@color \zwpl@reqclr \fi
+  \ifzwpl@cropmarks \ifzwpl@nobleedclip \else \zwpl@reqclr \fi \fi
+  \ifzwpl@redefineblack \zwpl@reqclr \fi
+  \ifzwpl@overprint \zwpl@reqclr \fi
+\fi
+\zwpl@next
+\expandafter\ifx\csname definecolor\endcsname\relax \else
+  \definecolor{cmykblack}{cmyk}{0,0,0,1}
+  \definecolor{grblack}{gray}{0}
+  \ifzwpl@redefineblack
+    \definecolor{black}{cmyk}{0,0,0,1}\color{black}
+  \fi
+  \definecolor{cmykred}{cmyk}{0,1,1,0}
+  \definecolor{cmykgreen}{cmyk}{1,0,1,0}
+  \definecolor{cmykblue}{cmyk}{1,1,0,0}
+  \definecolor{rgbred}{rgb}{1,0,0}
+  \definecolor{rgbgreen}{rgb}{0,1,0}
+  \definecolor{rgbblue}{rgb}{0,0,1}
+  \ifzwpl@redefinetocmyk
+    \definecolor{red}{cmyk}{0,1,1,0}
+    \definecolor{green}{cmyk}{1,0,1,0}
+    \definecolor{blue}{cmyk}{1,1,0,0}
+  \fi
+\fi
 
+% Black overprint user macros
+\DeclareRobustCommand\SetOverprint{\zwpl@optrue \zwpl@setop \ignorespaces}
+\DeclareRobustCommand\SetKnockout{\zwpl@opfalse \zwpl@setop \ignorespaces}
+\DeclareRobustCommand\textoverprint[1]{{\SetOverprint#1}}
+\DeclareRobustCommand\textknockout[1]{{\SetKnockout#1}}
+
+% Black overprint implementation
+\let\zwpl@setop\relax
+\let\zwpl@resetop\relax
+\newif\ifzwpl@op
+
+\ifzwpl@overprint
+\ifcase\zwpl@Driver
+\or % pdftex
+  \AtBeginDocument{%
+    \immediate\pdfobj{<< /Type /ExtGState /op false /OP false /OPM 0 >>}
+    \edef\op@off{\the\pdflastobj}
+    \immediate\pdfobj{<< /Type /ExtGState /op true /OP true /OPM 1 >>}
+    \edef\op@on{\the\pdflastobj}
+    \immediate\pdfobj{ << %
+      /GSko \op@off\space 0 R %
+      /GSop \op@on\space 0 R >>}
+    \edef\@extgs{\the\pdflastobj}
+    \edef\next{\global\noexpand\pdfpageresources={\the\pdfpageresources
+      \space /ExtGState \@extgs\space 0 R }}
+    \next
+  }
+  % macros for setting and resetting the overprint state
+  \def\zwpl@setop{\zwpl@resetop
+    \aftergroup\zwpl@resetop}
+  \def\zwpl@resetop{%
+    \ifzwpl@op
+      \pdfliteral direct {/GSop gs}%
+    \else
+      \pdfliteral direct {/GSko gs}%
+    \fi
+  }
+\or % xetex
+  \iffalse % disabled because it does not work
+  \special{pdf: object @opoff << /Type /ExtGState /op false /OP false /OPM 0 >>}
+  \special{pdf: object @opon << /Type /ExtGState /op true /OP true /OPM 1 >>}
+  \special{pdf: object @extgs << /GSko @opoff 0 R /GSop @opon 0 R >>}
+  \special{pdf: put @resources << /ExtGState @extgs 0 R >>}
+  % macros for setting and resetting the overprint state
+  \def\zwpl@setop{\zwpl@resetop
+    \aftergroup\zwpl@resetop}
+  \def\zwpl@resetop{%
+    \ifzwpl@op
+      \special{pdf: content /GSop gs}%
+    \else
+      \special{pdf: content /GSko gs}%
+    \fi
+    }
+  \else
+    \def\zwpl@setop{%
+        \PackageWarningNoLine{zwpagelayout}{Overprint not yet supported in (x)dvipdfm(x)}}
+    \let\zwpl@resetop\zwpl@setop
+  \fi % iffalse
+\else % dvips
+  \def\zwpl@setop{\zwpl@resetop
+    \aftergroup\zwpl@resetop}
+  \def\zwpl@resetop{%
+    \ifzwpl@op
+      \special{ps:true setoverprint}%
+    \else
+      \special{ps:false setoverprint}%
+    \fi
+  }
+\fi
+\SetKnockout
+\else
+  \def\zwpl@setop{\global\let\zwpl@setop\relax
+      \PackageWarningNoLine{zwpagelayout}{Use the "overprint" option to enable overprint.}}
+\fi
+
+
+
+% Handle cropmarks
 \newdimen\zwpl@low \zwpl@low 1in
 \advance\zwpl@low\topmargin
 \advance\zwpl@low \headheight
@@ -391,11 +719,6 @@
 \advance\zwpl@low -\paperheight
 
 \ifzwpl@cropmarks
-  \ifzwpl@color
-    \RequirePackage{color}
-  \else \ifzwpl@nobleedclip \else
-    \RequirePackage{color}
-  \fi \fi
   \let\zwpl@pagestyle\pagestyle
   \let\zwpl@thispagestyle\thispagestyle
   \def\pagestyle{\let\zwpl@next\zwpl@pagestyle \zwpl@testps}
@@ -404,14 +727,16 @@
 
 \def\zwpl@testps#1{\@ifundefined{zwpl@ps@#1}{\zwpl@patchps{#1}}{}\zwpl@next{#1}}
 
-\def\zwpl@patchps#1{\expandafter\let\csname zwpl@ps@#1\expandafter\endcsname\csname ps@#1\endcsname
-  \expandafter\def\csname ps@#1\endcsname{\csname zwpl@ps@#1\endcsname \zwpl@patchfoot}}
+\def\zwpl@patchps#1{\global\expandafter\let\csname zwpl@ps@#1\expandafter\endcsname\csname ps@#1\endcsname
+  \expandafter\gdef\csname ps@#1\endcsname{\csname zwpl@ps@#1\endcsname \zwpl@patchfoot}}
 
 \def\zwpl@patchfoot{\let\zwpl@oddfoot\@oddfoot \let\zwpl@evenfoot\@evenfoot
   \def\@oddfoot{\zwpl@cropbox\zwpl@oddfoot}%
   \def\@evenfoot{\zwpl@cropbox\zwpl@evenfoot}}
 
-\def\zwpl@cropbox{\rlap{% Some parameters may be changed within the document
+% We must use the knockout mode in the cropmarks (added 2010-12-21)
+\def\zwpl@cropbox{{\ifzwpl@overprint\SetKnockout\fi
+  \rlap{% Some parameters may be changed within the document
   \raisebox{\zwpl@low}[\z@][\z@]{\everyvbox{}\offinterlineskip\boxmaxdepth\z@
     \hskip -\hoffset \hskip -1in \hskip -
     \ifodd\c@page \oddsidemargin \else \evensidemargin \fi
@@ -434,7 +759,7 @@
        \normalfont \fontsize{10}{10}\selectfont
        \csname cropmarkstyle@\zwpl@cropmarkstyle\endcsname
     }%
-}}}
+}}}}
 
 \ifzwpl@cropmarks \zwpl@patchfoot \fi
 
@@ -591,13 +916,22 @@
 \def\zwpl@Hreflect{\zwpl@calcshift\zwpl@Hshift\hsize
     \pdfliteral{-1 0 0 1 \the\zwpl@Hshift\space 0 cm}}
 
-\def\zwpl@Vreflect{\zwpl@calcshift\zwpl@Vshift\vsize
+\def\zwpl@Vreflect{\@tempdima\vsize
+    \advance\@tempdima-\topmargin
+    \zwpl@calcshift\zwpl@Vshift\@tempdima
     \pdfliteral{1 0 0 -1 0 -\the\zwpl@Vshift\space cm}}
 
+% (x)dvipdfm(x) version, modifies bop and eop
+\def\zwpl@XHreflect{\zwpl@calcshift\zwpl@Hshift\paperwidth
+    \special{pdf: bop q -1 0 0 1 \the\zwpl@Hshift\space 0 cm}\special{pdf: eop Q}}
+
+\def\zwpl@XVreflect{\zwpl@calcshift\zwpl@Vshift\paperheight
+    \special{pdf: bop q 1 0 0 -1 0 \the\zwpl@Vshift\space cm}\space{pdf: eop Q}}
+
 % dvips version (modifies bop-hook)
 \def\zwpl@psreflect#1#2#3#4{\zwpl@calcshift#3#4
     \special{! userdict begin
-               userdict /bop-hook known {bop-hook load cvx /ZW#1-hook exch def} if
+               userdict /bop-hook known {/bop-hook load cvx /ZW#1-hook exch def} if
                /bop-hook {
                    [#2] concat
                    userdict /ZW#1-hook known {ZW#1-hook} if