diff options
| author | Marius <mariausol@gmail.com> | 2010-07-15 23:20:05 +0300 |
|---|---|---|
| committer | Marius <mariausol@gmail.com> | 2010-07-15 23:20:05 +0300 |
| commit | 83a331fff83ac18314885a39e959ca0c10f316f7 (patch) | |
| tree | 12e28253c45a07c819f98513827b0b3383dd5b0a /tex/context/base/s-cdr-01.tex | |
| parent | b0f61c557fa27bddb54ad085c9dc9beefc851a30 (diff) | |
| download | context-83a331fff83ac18314885a39e959ca0c10f316f7.tar.gz | |
beta 2010-07-15 15:05
Diffstat (limited to 'tex/context/base/s-cdr-01.tex')
| -rw-r--r-- | tex/context/base/s-cdr-01.tex | 30 |
1 files changed, 22 insertions, 8 deletions
diff --git a/tex/context/base/s-cdr-01.tex b/tex/context/base/s-cdr-01.tex index 80103936d..164d81285 100644 --- a/tex/context/base/s-cdr-01.tex +++ b/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 |