diff options
| author | Hans Hagen <pragma@wxs.nl> | 2012-07-19 12:56:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2012-07-19 12:56:00 +0200 |
| commit | bd10d98d2a79e924b87489f1077d358e80ed5b2d (patch) | |
| tree | 5316e09545666673cfc771482d5644e7e8d2f99f /tex/context/base/pack-cut.mkiv | |
| parent | 72f7d97e8a3def88a9753d233d779d80fffd1696 (diff) | |
| download | context-bd10d98d2a79e924b87489f1077d358e80ed5b2d.tar.gz | |
beta 2012.07.19 12:56
Diffstat (limited to 'tex/context/base/pack-cut.mkiv')
| -rw-r--r-- | tex/context/base/pack-cut.mkiv | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/tex/context/base/pack-cut.mkiv b/tex/context/base/pack-cut.mkiv index 1afccee50..63f4524a8 100644 --- a/tex/context/base/pack-cut.mkiv +++ b/tex/context/base/pack-cut.mkiv @@ -56,31 +56,32 @@ \newcount\verticalcutmarks \verticalcutmarks \plustwo \newcount\cutmarkoffset \cutmarkoffset \plusone -\let\cutmarksymbol \relax -\let\cutmarktoptext \empty -\let\cutmarkbottomtext\empty -\let\cutmarkhoffset \empty -\let\cutmarkvoffset \empty -\def\cutmarklength {2\bodyfontsize} +\let\cutmarksymbol \relax +\let\cutmarktoptext \empty +\let\cutmarkbottomtext \empty +\let\cutmarkhoffset \empty +\let\cutmarkvoffset \empty +\def\cutmarklength {2\bodyfontsize} +\def\cutmarkrulethickness{\onepoint} \unexpanded\def\horizontalcuts {\normalhbox to \d_pack_cutmarks_width - {\dorecurse\horizontalcutmarks{\vrule\!!width\boxrulewidth\!!height\cutmarklength\normalhfill}% + {\dorecurse\horizontalcutmarks{\vrule\s!width\cutmarkrulethickness\s!height\cutmarklength\normalhfill}% \unskip}} \unexpanded\def\verticalcuts {\normalvbox to \dimexpr\d_pack_cutmarks_height+\d_pack_cutmarks_depth\relax {\hsize\cutmarklength - \dorecurse\verticalcutmarks{\vrule\!!height\boxrulewidth\!!width\hsize\normalvfill}% + \dorecurse\verticalcutmarks{\vrule\s!height\cutmarkrulethickness\s!width\hsize\normalvfill}% \unskip}} \unexpanded\def\baselinecuts {\ifdim\d_pack_cutmarks_depth>\zeropoint \normalvbox to \dimexpr\d_pack_cutmarks_height+\d_pack_cutmarks_depth\relax {\hsize\dimexpr\cutmarklength/2\relax - \normalvskip\zeropoint\!!plus\d_pack_cutmarks_height - \vrule\!!height\boxrulewidth\!!width\hsize - \normalvskip\zeropoint\!!plus\d_pack_cutmarks_depth}% + \normalvskip\zeropoint\s!plus\d_pack_cutmarks_height + \vrule\s!height\cutmarkrulethickness\s!width\hsize + \normalvskip\zeropoint\s!plus\d_pack_cutmarks_depth}% \fi} \unexpanded\def\cutmarksymbols#1% |