diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/s-cdr-01.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/s-cdr-01.tex | 30 |
1 files changed, 22 insertions, 8 deletions
diff --git a/Master/texmf-dist/tex/context/base/s-cdr-01.tex b/Master/texmf-dist/tex/context/base/s-cdr-01.tex index 80103936d4f..164d812856a 100644 --- a/Master/texmf-dist/tex/context/base/s-cdr-01.tex +++ b/Master/texmf-dist/tex/context/base/s-cdr-01.tex @@ -11,6 +11,10 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. +\startmodule[cdr-01] + +\setupmodule[cdr-01][option=] + \def\PDFMPformoffset{20cm} \definepapersize @@ -57,39 +61,47 @@ \defineoverlay[leftcover] [\useMPgraphic{leftcover}] \defineoverlay[rightcover][\useMPgraphic{rightcover}] +\definecolor [cd-color] [s=0] +\definemeasure[cd-linewidth][.4pt] + +\doif {\moduleparameter{cdr-01}{option}} {light} { + \definecolor [cd-color] [s=.85] + \definemeasure[cd-linewidth][.2pt] +} + \startuseMPgraphic{leftcover} StartPage ; - pickup pencircle scaled .5pt ; + pickup pencircle scaled \measure{cd-linewidth} ; draw bottomboundary Page & rightboundary Page & - topboundary Page ; + topboundary Page withcolor \MPcolor{cd-color} ; draw bottomboundary (Page enlarged 3mm) & rightboundary (Page enlarged 3mm) & - topboundary (Page enlarged 3mm) dashed evenly ; + topboundary (Page enlarged 3mm) dashed evenly withcolor \MPcolor{cd-color} ; StopPage ; \stopuseMPgraphic \startuseMPgraphic{rightcover} StartPage ; - pickup pencircle scaled .5pt ; + pickup pencircle scaled \measure{cd-linewidth} ; draw topboundary Page & leftboundary Page & - bottomboundary Page ; + bottomboundary Page withcolor \MPcolor{cd-color} ; draw topboundary (Page enlarged 3mm) & leftboundary (Page enlarged 3mm) & - bottomboundary (Page enlarged 3mm) dashed evenly ; + bottomboundary (Page enlarged 3mm) dashed evenly withcolor \MPcolor{cd-color} ; draw bottomboundary Page -- lrcorner Page shifted (-5mm,-1cm) -- - llcorner Page shifted ( 5mm,-1cm) -- cycle ; + llcorner Page shifted ( 5mm,-1cm) -- cycle withcolor \MPcolor{cd-color} ; draw topboundary Page -- ulcorner Page shifted ( 5mm, 1cm) -- - urcorner Page shifted (-5mm, 1cm) -- cycle ; + urcorner Page shifted (-5mm, 1cm) -- cycle withcolor \MPcolor{cd-color} ; StopPage ; setbounds currentpicture to Page ; \stopuseMPgraphic @@ -118,6 +130,8 @@ height=fit, width=\textheight] +\stopmodule + \doifnotmode{demo}{\endinput} \starttext |