diff options
author | Karl Berry <karl@freefriends.org> | 2006-11-16 01:02:47 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-11-16 01:02:47 +0000 |
commit | 3c85b55e2f245fb7edac7e445f107e6d0bb423ae (patch) | |
tree | c62b7f80edafe0455310d08e09f4218127bf9e87 /Master/texmf-dist/tex/context/base/meta-pag.tex | |
parent | e5ecff27a26ef59e1dbe9702677687fd7107be3a (diff) |
context update
git-svn-id: svn://tug.org/texlive/trunk@2444 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/meta-pag.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/meta-pag.tex | 45 |
1 files changed, 33 insertions, 12 deletions
diff --git a/Master/texmf-dist/tex/context/base/meta-pag.tex b/Master/texmf-dist/tex/context/base/meta-pag.tex index 32473cb7499..cda7dbd96cb 100644 --- a/Master/texmf-dist/tex/context/base/meta-pag.tex +++ b/Master/texmf-dist/tex/context/base/meta-pag.tex @@ -19,24 +19,24 @@ \unprotect -\appendtoks +\startMPextensions if unknown context_page: input mp-page; fi; -\to \MPextensions +\stopMPextensions %D The next few macros tell \METAPOST\ how the \CONTEXT\ %D pagebody looks. -\appendtoks +\startMPextensions boolean PageStateAvailable,OnRightPage,InPageBody; PageStateAvailable:=true; -\to \MPextensions +\stopMPextensions -\appendtoks +\startMPinitializations OnRightPage:=true; InPageBody:=\ifinpagebody true \else false \fi; -\to \MPinitializations +\stopMPinitializations -\appendtoks +\startMPinitializations def LoadPageState = OnRightPage:=\MPonrightpage; OnOddPage:=\MPonoddpage; @@ -85,7 +85,7 @@ LayoutColumnDistance:=\the\layoutcolumndistance; LayoutColumnWidth:=\the\layoutcolumnwidth; enddef; -\to \MPinitializations +\stopMPinitializations \def\MPonrightpage{true} \def\MPonoddpage {true} @@ -181,14 +181,35 @@ \hbox{#1}% \fi} +% better, so that we can force a key and share with e.g. renumbering +% +% \let\namedtextarea\empty +% +% \def\registerMPlocaltextarea#1% +% {\ifpositioning +% \bgroup +% \ifx\namedtextarea\empty +% \doglobal\increment\currentMPtextareadata +% \edef\namedtextarea{gbd:\currentMPtextareadata}% +% \fi +% \hpos\namedtextarea{\iftracetextareas\boxrulewidth3pt\ruledhbox\fi{#1}}% +% \edef\ascii{RegisterLocalTextArea(% +% \MPx\namedtextarea,\MPy\namedtextarea,% +% \MPw\namedtextarea,\MPh\namedtextarea,\MPd\namedtextarea);}% +% \global\MPlocaltextareadata\@EA{\ascii}% +% \egroup +% \else +% \hbox{#1}% +% \fi} + \def\resetMPlocaltextarea {\global\MPlocaltextareadata\emptytoks} -\appendtoks +\startMPextensions path PlainTextArea; -\to \MPextensions +\stopMPextensions -\appendtoks +\startMPinitializations ResetTextAreas; \the\MPsavedtextareadata; SaveTextAreas; @@ -197,7 +218,7 @@ \the\MPlocaltextareadata; PlainTextArea:=boundingbox(\MPxy{text:\realfolio}--\MPxy{text:\realfolio} shifted (\MPw{text:\realfolio},\MPh{text:\realfolio})); -\to \MPinitializations +\stopMPinitializations \appendtoks \global\MPsavedtextareadata\MPtextareadata |