diff options
author | Hans Hagen <pragma@wxs.nl> | 2002-12-20 00:00:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2002-12-20 00:00:00 +0100 |
commit | d66c6c7f5bf3b189c2b194ba167fb39f548742e5 (patch) | |
tree | 23d545dc0956f461418b7e738a018fe046077c32 /tex/context/base/meta-pag.tex | |
parent | d4d7f62e436c20b5ea3ee7f8c9fc3bbacd5dda43 (diff) | |
download | context-d66c6c7f5bf3b189c2b194ba167fb39f548742e5.tar.gz |
stable 2002.12.20
Diffstat (limited to 'tex/context/base/meta-pag.tex')
-rw-r--r-- | tex/context/base/meta-pag.tex | 56 |
1 files changed, 46 insertions, 10 deletions
diff --git a/tex/context/base/meta-pag.tex b/tex/context/base/meta-pag.tex index afc08750e..711111812 100644 --- a/tex/context/base/meta-pag.tex +++ b/tex/context/base/meta-pag.tex @@ -63,6 +63,14 @@ RightMarginWidth := \the\rechtermargebreedte ; RightEdgeDistance := \@the\rechterrandafstand ; RightEdgeWidth := \the\rechterrandbreedte ; + InnerMarginDistance := \@the\innermargindistance ; + InnerMarginWidth := \the\innermarginwidth ; + OuterMarginDistance := \@the\outermargindistance ; + OuterMarginWidth := \the\outermarginwidth ; + InnerEdgeDistance := \@the\inneredgedistance ; + InnerEdgeWidth := \the\inneredgewidth ; + OuterEdgeDistance := \@the\outeredgedistance ; + OuterEdgeWidth := \the\outeredgewidth ; PageOffset := \the\pageoffset ; PageDepth := \the\pagedepth ; enddef ; @@ -143,19 +151,45 @@ \newtoks\MPsavedtextareadata \newtoks\MPtextareadata +\newtoks\MPlocaltextareadata + +% optimaliseren voor herhaling \def\registerMPtextarea#1% - {\bgroup - \doglobal\increment\currentMPtextareadata - \hpos{gbd:\currentMPtextareadata}{#1}% - \edef\!!stringa{gbd:\currentMPtextareadata}% - \edef\!!stringa{RegisterTextArea(% - \MPx\!!stringa,\MPy\!!stringa,\MPw\!!stringa,\MPh\!!stringa,\MPd\!!stringa);}% - \@EA \doglobal \@EA \appendtoks \!!stringa \to \MPtextareadata - \egroup} + {\ifpositioning + \bgroup + \doglobal\increment\currentMPtextareadata + \hpos{gbd:\currentMPtextareadata}{#1}% + \edef\!!stringa{gbd:\currentMPtextareadata}% + \edef\!!stringa{RegisterTextArea(% + \MPx\!!stringa,\MPy\!!stringa,% + \MPw\!!stringa,\MPh\!!stringa,\MPd\!!stringa);}% + \@EA \doglobal \@EA \appendtoks \!!stringa \to \MPtextareadata + \egroup + \else + \hbox{#1}% + \fi} + +\def\registerMPlocaltextarea#1% + {\ifpositioning + \bgroup + \doglobal\increment\currentMPtextareadata + \hpos{gbd:\currentMPtextareadata}{#1}% + \edef\!!stringa{gbd:\currentMPtextareadata}% + \edef\!!stringa{RegisterLocalTextArea(% + \MPx\!!stringa,\MPy\!!stringa,% + \MPw\!!stringa,\MPh\!!stringa,\MPd\!!stringa);}% + \global\MPlocaltextareadata\@EA{\!!stringa}% + \egroup + \else + \hbox{#1}% + \fi} + +\def\resetMPlocaltextarea + {\global\MPlocaltextareadata\emptytoks} \appendtoks - \includeMPgraphic{area data} + \includeMPgraphic{area data}% \to \MPinitializations \startuseMPgraphic{area data} @@ -164,11 +198,13 @@ SaveTextAreas ; ResetTextAreas ; \the\MPtextareadata + \the\MPlocaltextareadata \stopuseMPgraphic \appendtoks \global\MPsavedtextareadata\MPtextareadata - \global\MPtextareadata \emptytoks + \global\MPtextareadata\emptytoks + \global\MPlocaltextareadata\emptytoks \to \everyshipout \protect \endinput |