diff options
| author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2015-04-01 12:15:05 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2015-04-01 12:15:05 +0200 |
| commit | d48764d88ac59aa9b0130f1049892296a3eb4684 (patch) | |
| tree | 5b442ba162ab03943a24c482e0c4b32a311a6c38 /metapost | |
| parent | aab1c4e9206382c1a96d738fddabf3d98218f267 (diff) | |
| download | context-d48764d88ac59aa9b0130f1049892296a3eb4684.tar.gz | |
2015-04-01 12:02:00
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mp-page.mpiv | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/metapost/context/base/mp-page.mpiv b/metapost/context/base/mp-page.mpiv index 9c538d42a..1ca2a411c 100644 --- a/metapost/context/base/mp-page.mpiv +++ b/metapost/context/base/mp-page.mpiv @@ -18,6 +18,10 @@ if known context_page : endinput ; fi ; boolean context_page ; context_page := true ; +def LoadPageState = + % now always set +enddef ; + if unknown PageStateAvailable : boolean PageStateAvailable ; PageStateAvailable := false ; @@ -135,22 +139,24 @@ numeric VerPos ; % scantokens "input mp-state.tmp" ; % enddef ; +numeric mfun_temp ; + def SwapPageState = if not OnRightPage : BackSpace := PaperWidth-MakeupWidth-BackSpace ; CutSpace := PaperWidth-MakeupWidth-CutSpace ; - i := LeftMarginWidth ; + mfun_temp := LeftMarginWidth ; LeftMarginWidth := RightMarginWidth ; - RightMarginWidth := i ; - i := LeftMarginDistance ; + RightMarginWidth := mfun_temp ; + mfun_temp := LeftMarginDistance ; LeftMarginDistance := RightMarginDistance ; RightMarginDistance := i ; - i := LeftEdgeWidth ; + mfun_temp := LeftEdgeWidth ; LeftEdgeWidth := RightEdgeWidth ; - RightEdgeWidth := i ; - i := LeftEdgeDistance ; + RightEdgeWidth := mfun_temp ; + mfun_temp := LeftEdgeDistance ; LeftEdgeDistance := RightEdgeDistance ; - RightEdgeDistance := i ; + RightEdgeDistance := mfun_temp ; % these are now available as ..Width and ..Distance |