zwpagelayout 1.3, 2011-11-23

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

1 files changed, 165 insertions, 61 deletions

diff --git a/Master/texmf-dist/tex/latex/zwpagelayout/zwpagelayout.sty b/Master/texmf-dist/tex/latex/zwpagelayout/zwpagelayout.sty
index 9829e307e84..ffff213d72b 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}[2011/09/04 ZW Page Layout]
-\PackageInfo{zwpagelayout}{$Id: zwpagelayout.sty 382 2011-09-04 11:06:05Z zw $\@gobble}
+\ProvidesPackage{zwpagelayout}[2011/11/22 ZW Page Layout]
+\PackageInfo{zwpagelayout}{$Id: zwpagelayout.sty 419 2011-11-22 16:57:09Z zw $\@gobble}
 
-%% Copyright 2008--2010 Z. Wagner, http://icebearsoft.euweb.cz
+%% Copyright 2008--2011 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
@@ -20,14 +20,26 @@
 % adjustfoot.tex, adjustfoot.pdf, adjusthead.tex, adjusthead.pdf,
 % coversample.tex, coversample.pdf, LoremIpsumDolor.tex.
 
-\IfFileExists{ifpdf.sty}{\RequirePackage{ifpdf}}{\newif\ifpdf}
-\IfFileExists{ifxetex.sty}{\RequirePackage{ifxetex}}{\newif\ifxetex}
-\RequirePackage{kvoptions}
+\@ifpackageloaded{ifpdf}{}{\IfFileExists{ifpdf.sty}{\RequirePackage{ifpdf}}{\newif\ifpdf}}
+\@ifpackageloaded{ifxetex}{}{\IfFileExists{ifxetex.sty}{\RequirePackage{ifxetex}}{\newif\ifxetex}}
+\RequirePackage{kvoptions}[2010/02/22]
 \SetupKeyvalOptions{family=zwpl,prefix=zwpl@}
 
-% Backspace character with catcode=12
+% Fix a problem with xkeyval
 
-{\lccode`\!`\\ \lowercase{\gdef\PDFbksp{!}}}
+\expandafter\ifx\csname kvsetkeys\endcsname\relax
+  \let\ZWsetkeys\setkeys
+\else
+  \let\ZWsetkeys\kvsetkeys
+\fi
+
+% Backslash character with catcode=12
+
+{\lccode`\!`\\ \lowercase{\gdef\PDFbkslash{!}}}
+
+% Percent character with catcode=12
+
+{\lccode`\!`\% \lowercase{\gdef\ZWpercent{!}}}
 
 % Driver selection macros and options
 
@@ -56,42 +68,42 @@
 
 % Normalized paper sizes
 
-\DeclareVoidOption{a0}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={841mm,1189mm}}}
-\DeclareVoidOption{a1}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={594mm,841mm}}}
-\DeclareVoidOption{a2}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={420mm,594mm}}}
-\DeclareVoidOption{a3}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={297mm,420mm}}}
-\DeclareVoidOption{a4}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={210mm,297mm}}}
-\DeclareVoidOption{a5}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={148mm,210mm}}}
-\DeclareVoidOption{a6}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={105mm,148mm}}}
-\DeclareVoidOption{a7}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={74mm,105mm}}}
-\DeclareVoidOption{a8}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={52mm,74mm}}}
-\DeclareVoidOption{a9}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={37mm,52mm}}}
-\DeclareVoidOption{a10}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={26mm,37mm}}}
-\DeclareVoidOption{b0}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={1000mm,1414mm}}}
-\DeclareVoidOption{b1}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={707mm,1000mm}}}
-\DeclareVoidOption{b2}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={500mm,707mm}}}
-\DeclareVoidOption{b3}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={353mm,500mm}}}
-\DeclareVoidOption{b4}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={250mm,353mm}}}
-\DeclareVoidOption{b5}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={176mm,250mm}}}
-\DeclareVoidOption{b6}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={125mm,176mm}}}
-\DeclareVoidOption{b7}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={88mm,125mm}}}
-\DeclareVoidOption{b8}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={62mm,88mm}}}
-\DeclareVoidOption{b9}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={44mm,62mm}}}
-\DeclareVoidOption{b10}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={31mm,44mm}}}
-\DeclareVoidOption{c0}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={917mm,1279mm}}}
-\DeclareVoidOption{c1}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={648mm,917mm}}}
-\DeclareVoidOption{c2}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={458mm,648mm}}}
-\DeclareVoidOption{c3}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={324mm,458mm}}}
-\DeclareVoidOption{c4}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={229mm,324mm}}}
-\DeclareVoidOption{c5}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={162mm,229mm}}}
-\DeclareVoidOption{c6}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={114mm,162mm}}}
-\DeclareVoidOption{c7}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={81mm,114mm}}}
-\DeclareVoidOption{c8}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={57mm,81mm}}}
-\DeclareVoidOption{c9}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={40mm,57mm}}}
-\DeclareVoidOption{c10}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={28mm,40mm}}}
-\DeclareVoidOption{letter}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={8.5in,11in}}}
-\DeclareVoidOption{legal}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={8.5in,14in}}}
-\DeclareVoidOption{executive}{\setkeys{zwpl}{AllowWidthHeightSwitching,papersize={7.25in,10.5in}}}
+\DeclareVoidOption{a0}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={841mm,1189mm}}}
+\DeclareVoidOption{a1}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={594mm,841mm}}}
+\DeclareVoidOption{a2}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={420mm,594mm}}}
+\DeclareVoidOption{a3}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={297mm,420mm}}}
+\DeclareVoidOption{a4}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={210mm,297mm}}}
+\DeclareVoidOption{a5}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={148mm,210mm}}}
+\DeclareVoidOption{a6}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={105mm,148mm}}}
+\DeclareVoidOption{a7}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={74mm,105mm}}}
+\DeclareVoidOption{a8}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={52mm,74mm}}}
+\DeclareVoidOption{a9}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={37mm,52mm}}}
+\DeclareVoidOption{a10}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={26mm,37mm}}}
+\DeclareVoidOption{b0}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={1000mm,1414mm}}}
+\DeclareVoidOption{b1}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={707mm,1000mm}}}
+\DeclareVoidOption{b2}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={500mm,707mm}}}
+\DeclareVoidOption{b3}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={353mm,500mm}}}
+\DeclareVoidOption{b4}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={250mm,353mm}}}
+\DeclareVoidOption{b5}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={176mm,250mm}}}
+\DeclareVoidOption{b6}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={125mm,176mm}}}
+\DeclareVoidOption{b7}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={88mm,125mm}}}
+\DeclareVoidOption{b8}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={62mm,88mm}}}
+\DeclareVoidOption{b9}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={44mm,62mm}}}
+\DeclareVoidOption{b10}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={31mm,44mm}}}
+\DeclareVoidOption{c0}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={917mm,1279mm}}}
+\DeclareVoidOption{c1}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={648mm,917mm}}}
+\DeclareVoidOption{c2}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={458mm,648mm}}}
+\DeclareVoidOption{c3}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={324mm,458mm}}}
+\DeclareVoidOption{c4}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={229mm,324mm}}}
+\DeclareVoidOption{c5}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={162mm,229mm}}}
+\DeclareVoidOption{c6}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={114mm,162mm}}}
+\DeclareVoidOption{c7}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={81mm,114mm}}}
+\DeclareVoidOption{c8}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={57mm,81mm}}}
+\DeclareVoidOption{c9}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={40mm,57mm}}}
+\DeclareVoidOption{c10}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={28mm,40mm}}}
+\DeclareVoidOption{letter}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={8.5in,11in}}}
+\DeclareVoidOption{legal}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={8.5in,14in}}}
+\DeclareVoidOption{executive}{\ZWsetkeys{zwpl}{AllowWidthHeightSwitching,papersize={7.25in,10.5in}}}
 
 % Layout (for the odd page, even page is mirrored)
 
@@ -137,6 +149,11 @@
 \DeclareBoolOption{nobleedclip}
 \DeclareBoolOption{noBboxes}
 
+% Leaflet cropmarks (cropmarkstyle=leaflet)
+\DeclareStringOption[0mm]{foldcorr}% Ignored when fold=4 and fold=Z
+\DeclareStringOption[2]{fold}% Valid options: 2, 3left, 3right, 4, Z
+\DeclareStringOption[4]{leafcount}% For fold=Z only
+
 % Color support for cropmarks and black overprint
 \DeclareBoolOption{color}
 \DeclareStringOption[cmyk]{colormodel}
@@ -153,7 +170,7 @@
 \DeclareStringOption{author}
 \DeclareStringOption{subject}
 \DeclareStringOption{keywords}
-\DeclareVoidOption{nopdfinfo}{\setkeys{zwpl}{title}}
+\DeclareVoidOption{nopdfinfo}{\ZWsetkeys{zwpl}{title}}
 
 \def\zwpl@default@title{\ifcat$\zwpl@croptitle$\jobname\else\zwpl@croptitle\fi}
 
@@ -214,7 +231,7 @@
 % Other packages
 
 \ifzwpl@onlycropmarks
-  \setkeys{zwpl}{cropmarks}
+  \ZWsetkeys{zwpl}{cropmarks}
 \else
 
 % Set the paper size
@@ -314,7 +331,7 @@
 \@onlypreamble\SetPDFminorversion
 
 \ifzwpl@pdfx
-  \setkeys{zwpl}{pdfminorversion=3}
+  \ZWsetkeys{zwpl}{pdfminorversion=3}
   \let\SetPDFminorversion\@gobble
 \fi
 
@@ -392,7 +409,7 @@
 
 % Page margins
 \ifcat$\zwpl@margins$ \else
-  \setkeys{zwpl}{topmargin=\zwpl@margins,botmargin,
+  \ZWsetkeys{zwpl}{topmargin=\zwpl@margins,botmargin,
                  leftmargin=\zwpl@margins,rightmargin=\zwpl@margins}
 \fi
 \topmargin\zwpl@topmargin
@@ -408,7 +425,7 @@
 \fi
 
 \ifcat$\zwpl@trim$ \else
-  \setkeys{zwpl}{xtrim=\zwpl@trim,ytrim=\zwpl@trim}
+  \ZWsetkeys{zwpl}{xtrim=\zwpl@trim,ytrim=\zwpl@trim}
 \fi
 
 % Paper width
@@ -492,7 +509,7 @@
 
 \ifdim\textheight>\z@ \else
   \ifcat$\zwpl@botmargin$
-    \setkeys{zwpl}{botmargin}
+    \ZWsetkeys{zwpl}{botmargin}
   \fi
 \fi
 
@@ -670,10 +687,13 @@
   }
 \or % xetex
   \iffalse % disabled because it does not work
-  \special{pdf: obj @opoff << /Type /ExtGState /op false /OP false /OPM 0 >>}
-  \special{pdf: obj @opon << /Type /ExtGState /op true /OP true /OPM 1 >>}
-  \special{pdf: obj @extgs << /GSko @opoff 0 R /GSop @opon 0 R >>}
-  \special{pdf: put @resources << /ExtGState @extgs 0 R >>}
+  \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 /GSop @opon >>}
+  %\special{pdf: object @ExtGS << /ExtGState @extgs >>}
+  %\def\ZWAddResources{\special{pdf: put @thispage << /Resources @ExtGS >>}}
+  %\def\ZWAddResources{\special{pdf: put @resources << /Resources @ExtGS >>}}
+  \def\ZWAddResources{\special{pdf: put @resources << /ExtGState @extgs >>}}
   % macros for setting and resetting the overprint state
   \def\zwpl@setop{\zwpl@resetop
     \aftergroup\zwpl@resetop}
@@ -694,9 +714,9 @@
     \aftergroup\zwpl@resetop}
   \def\zwpl@resetop{%
     \ifzwpl@op
-      \special{ps:true setoverprint}%
+      \special{ps: true setoverprint}%
     \else
-      \special{ps:false setoverprint}%
+      \special{ps: false setoverprint}%
     \fi
   }
 \fi
@@ -718,27 +738,30 @@
 \advance\zwpl@low -\paperheight
 
 \ifzwpl@cropmarks
+  \AtBeginDocument{\expandafter\ifx\csname cropmarkstyle@\zwpl@cropmarkstyle\endcsname\relax
+    \PackageWarningNoLine{zwpagelayout}{Unimplemented cropmarkstyle=\zwpl@cropmarkstyle}
+  \fi \csname cropmarkstyle@\zwpl@cropmarkstyle @setup\endcsname}
   \let\zwpl@pagestyle\pagestyle
   \let\zwpl@thispagestyle\thispagestyle
   \def\pagestyle{\let\zwpl@next\zwpl@pagestyle \zwpl@testps}
   \def\thispagestyle{\let\zwpl@next\zwpl@thispagestyle \zwpl@testps}
 \fi
 
-\def\zwpl@testps#1{\@ifundefined{zwpl@ps@#1}{\zwpl@patchps{#1}}{}\zwpl@next{#1}}
+\def\zwpl@testps#1{\xdef\zw@pstyle{ZW\ZWpercent#1\ZWpercent}%
+    \@ifundefined{ps@\zw@pstyle}{\zwpl@patchps{#1}{\zw@pstyle}}{}\zwpl@next{\zw@pstyle}}
 
-\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@patchps#1#2{\expandafter\gdef\csname ps@#2\endcsname{\csname 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}}
 
 % We must use the knockout mode in the cropmarks (added 2010-12-21)
-\def\zwpl@cropbox{{\ifzwpl@overprint\SetKnockout\fi
+\def\zwpl@cropbox{{\globaldefs=0\relax \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
+    \if@twoside \ifodd\c@page \oddsidemargin \else \evensidemargin \fi \else \oddsidemargin \fi
     \vbox to \paperheight{\hsize\paperwidth \parindent\z@
        \ifzwpl@nobleedclip\else
          \begingroup \vbox to \z@{\color{white}\noindent
@@ -762,6 +785,7 @@
 
 \ifzwpl@cropmarks \zwpl@patchfoot \fi
 
+% General definitions for the crop marks
 \newdimen\zwpl@len  \zwpl@len\zwpl@croplength
 \newdimen\zwpl@gap  \zwpl@gap\zwpl@cropgap
 \newdimen\zwpl@plus \newdimen\zwpl@minus
@@ -803,6 +827,9 @@
     \fi
     \hskip\zwpl@gap \zwpl@horiz}}
 
+\def\zwpl@cvert{\clap{\zwpl@vert}}
+
+% Vertical crop lines for the default style
 \newcommand*\zwpl@vline[1][]{%
   \zwpl@hh{\zwpl@cross \hskip\zwpl@gap \clap{\zwpl@vert}%
     \ifcat$\zwpl@xtrim$\else
@@ -831,6 +858,7 @@
     \fi
     \clap{\zwpl@vert}\hskip\zwpl@gap \zwpl@cross}}
 
+% Default crop mark style
 \def\cropmarkstyle@default{%
   \expandafter\zwpl@vline\ifzwpl@color[\zwpl@showallcolors]\fi
   \vskip\zwpl@gap \zwpl@hline
@@ -870,6 +898,82 @@
   \fi
   \zwpl@hline \vskip\zwpl@gap \zwpl@vline[\zwpl@printcroptitle]}
 
+% Leaflet style
+\def\zwpl@fold@use#1{\csname zwpl@fold@#1@leaf\endcsname}
+\def\zwpl@fold@def#{\expandafter\expandafter\expandafter\def\zwpl@fold@use}
+
+% We can do this because cropmark dimensions are set within a group
+\def\zwpl@switchskips{\let\zwpl@temp\zwpl@leftskip
+                      \let\zwpl@leftskip\zwpl@rightskip
+                      \let\zwpl@rightskip\zwpl@temp}
+
+\newif\ifzwpl@middle
+\def\zwpl@nofoldcorr{\def\zwpl@foldcorr{0mm}}
+
+% Leaflet initialization
+\zwpl@fold@def{2}{\def\zwpl@leafcount{2}%
+  \def\zwpl@leftskip{\hskip\zwpl@foldcorr}%
+  \def\zwpl@rightskip{}}
+\zwpl@fold@def{3left}{\def\zwpl@leafcount{3}%
+  \def\zwpl@leftskip{\hskip\zwpl@foldcorr}%
+  \def\zwpl@rightskip{}}
+\zwpl@fold@def{3right}{\zwpl@fold@use{3left}\zwpl@switchskips}
+\zwpl@fold@def{Z}{\def\zwpl@leftskip{}\let\zwpl@rightskip\zwpl@leftskip\zwpl@nofoldcorr}
+\zwpl@fold@def{4}{\zwpl@fold@use{Z}\def\zwpl@leafcount{4}\zwpl@middletrue}
+
+\def\cropmarkstyle@leaflet@setup{%
+  \expandafter\expandafter\expandafter\ifx\zwpl@fold@use{\zwpl@fold}\relax
+    \PackageWarningNoLine{zwpagelayout}{Unimplemented leaflet fold=\zwpl@fold.\MessageBreak
+                                        Leaflet crop marks will not be printed.}
+    \def\zwpl@cropmarkstyle{\ZWpercent}
+  \else
+    \zwpl@fold@use{\zwpl@fold}%
+    % Test the variables by assignments
+    \@tempskipa=\zwpl@foldcorr\relax
+    \count@=\zwpl@leafcount\relax
+  \fi
+}
+
+% vertical crop lines for a leaflet
+\newcommand*\zwpl@vleaf[1][]{%
+  \zwpl@hh{\zwpl@cross \hskip\zwpl@gap \zwpl@cvert
+    \rlap{\hskip\zwpl@gap #1}\zwpl@leftskip
+    \count@=1
+    \loop
+      \hfil
+      \ifzwpl@middle
+        \ifnum\count@>1
+          \zwpl@middlefalse
+        \else
+          \zwpl@cvert
+        \fi
+      \else
+        \zwpl@cvert
+      \fi
+      \advance\count@ 1
+    \ifnum\count@<\zwpl@leafcount \repeat
+    \hfil \zwpl@rightskip
+    \zwpl@cvert\hskip\zwpl@gap \zwpl@cross}}
+
+% Crop marks for a leaflet
+\def\cropmarkstyle@leaflet{%
+  \if@twoside \ifodd\c@page \else \zwpl@switchskips \fi \fi
+  \expandafter\zwpl@vleaf\ifzwpl@color[\zwpl@showallcolors]\fi
+  \vskip\zwpl@gap \zwpl@hline
+  \vss
+  \ifzwpl@cropframe
+    \zwpl@hh{\hskip \hoffset \zwpl@frm \zwpl@leftskip
+    \count@=1
+    \loop
+      \hfil \zwpl@frm
+      \advance\count@ 1
+    \ifnum\count@<\zwpl@leafcount \repeat
+    \hfil \zwpl@rightskip
+    \zwpl@frm \hskip \hoffset}\vss
+  \fi
+  \zwpl@hline \vskip\zwpl@gap \zwpl@vleaf[\zwpl@printcroptitle]}
+
+% Print the crop title
 \def\zwpl@printcroptitle{\raisebox{.8ex}[\z@][\z@]{\ifzwpl@usepagenumbers
   \ifzwpl@pagenumberfirst
     \thePageNumber