summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/context/base/mpiv/mp-page.mpiv
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/metapost/context/base/mpiv/mp-page.mpiv')
-rw-r--r--Master/texmf-dist/metapost/context/base/mpiv/mp-page.mpiv180
1 files changed, 16 insertions, 164 deletions
diff --git a/Master/texmf-dist/metapost/context/base/mpiv/mp-page.mpiv b/Master/texmf-dist/metapost/context/base/mpiv/mp-page.mpiv
index eba66a005d2..7bc7c127c24 100644
--- a/Master/texmf-dist/metapost/context/base/mpiv/mp-page.mpiv
+++ b/Master/texmf-dist/metapost/context/base/mpiv/mp-page.mpiv
@@ -177,156 +177,13 @@ boolean context_page ; context_page := true ;
% the new way:
-def LoadPageState =
- % now always set
-enddef ;
-
-if unknown PageStateAvailable :
- boolean PageStateAvailable ;
- PageStateAvailable := false ;
-fi ;
-
-string CurrentLayout ; CurrentLayout := "default" ;
-
-% runscript("mp.PaperHeight()") % way faster of course
-
-vardef PaperHeight = lua.mp.PaperHeight () enddef ;
-vardef PaperWidth = lua.mp.PaperWidth () enddef ;
-vardef PrintPaperHeight = lua.mp.PrintPaperHeight () enddef ;
-vardef PrintPaperWidth = lua.mp.PrintPaperWidth () enddef ;
-vardef TopSpace = lua.mp.TopSpace () enddef ;
-vardef BottomSpace = lua.mp.BottomSpace () enddef ;
-vardef BackSpace = lua.mp.BackSpace () enddef ;
-vardef CutSpace = lua.mp.CutSpace () enddef ;
-vardef MakeupHeight = lua.mp.MakeupHeight () enddef ;
-vardef MakeupWidth = lua.mp.MakeupWidth () enddef ;
-vardef TopHeight = lua.mp.TopHeight () enddef ;
-vardef TopDistance = lua.mp.TopDistance () enddef ;
-vardef HeaderHeight = lua.mp.HeaderHeight () enddef ;
-vardef HeaderDistance = lua.mp.HeaderDistance () enddef ;
-vardef TextHeight = lua.mp.TextHeight () enddef ;
-vardef FooterDistance = lua.mp.FooterDistance () enddef ;
-vardef FooterHeight = lua.mp.FooterHeight () enddef ;
-vardef BottomDistance = lua.mp.BottomDistance () enddef ;
-vardef BottomHeight = lua.mp.BottomHeight () enddef ;
-vardef LeftEdgeWidth = lua.mp.LeftEdgeWidth () enddef ;
-vardef LeftEdgeDistance = lua.mp.LeftEdgeDistance () enddef ;
-vardef LeftMarginWidth = lua.mp.LeftMarginWidth () enddef ;
-vardef LeftMarginDistance = lua.mp.LeftMarginDistance () enddef ;
-vardef TextWidth = lua.mp.TextWidth () enddef ;
-vardef RightMarginDistance = lua.mp.RightMarginDistance () enddef ;
-vardef RightMarginWidth = lua.mp.RightMarginWidth () enddef ;
-vardef RightEdgeDistance = lua.mp.RightEdgeDistance () enddef ;
-vardef RightEdgeWidth = lua.mp.RightEdgeWidth () enddef ;
-vardef InnerMarginDistance = lua.mp.InnerMarginDistance () enddef ;
-vardef InnerMarginWidth = lua.mp.InnerMarginWidth () enddef ;
-vardef OuterMarginDistance = lua.mp.OuterMarginDistance () enddef ;
-vardef OuterMarginWidth = lua.mp.OuterMarginWidth () enddef ;
-vardef InnerEdgeDistance = lua.mp.InnerEdgeDistance () enddef ;
-vardef InnerEdgeWidth = lua.mp.InnerEdgeWidth () enddef ;
-vardef OuterEdgeDistance = lua.mp.OuterEdgeDistance () enddef ;
-vardef OuterEdgeWidth = lua.mp.OuterEdgeWidth () enddef ;
-vardef PageOffset = lua.mp.PageOffset () enddef ;
-vardef PageDepth = lua.mp.PageDepth () enddef ;
-vardef LayoutColumns = lua.mp.LayoutColumns () enddef ;
-vardef LayoutColumnDistance = lua.mp.LayoutColumnDistance() enddef ;
-vardef LayoutColumnWidth = lua.mp.LayoutColumnWidth () enddef ;
-
-vardef OnRightPage = lua.mp.OnRightPage () enddef ;
-vardef OnOddPage = lua.mp.OnOddPage () enddef ;
-vardef InPageBody = lua.mp.InPageBody () enddef ;
-
-vardef RealPageNumber = lua.mp.RealPageNumber () enddef ;
-vardef LastPageNumber = lua.mp.LastPageNumber () enddef ; % duplicates
-
-vardef PageNumber = lua.mp.PageNumber () enddef ;
-vardef NOfPages = lua.mp.NOfPages () enddef ;
-
-vardef SubPageNumber = lua.mp.SubPageNumber () enddef ;
-vardef NOfSubPages = lua.mp.NOfSubPages () enddef ;
-
-vardef CurrentColumn = lua.mp.CurrentColumn () enddef ;
-vardef NOfColumns = lua.mp.NOfColumns () enddef ;
-
-vardef BaseLineSkip = lua.mp.BaseLineSkip () enddef ;
-vardef LineHeight = lua.mp.LineHeight () enddef ;
-vardef BodyFontSize = lua.mp.BodyFontSize () enddef ;
-
-vardef TopSkip = lua.mp.TopSkip () enddef ;
-vardef StrutHeight = lua.mp.StrutHeight () enddef ;
-vardef StrutDepth = lua.mp.StrutDepth () enddef ;
-
-vardef CurrentWidth = lua.mp.CurrentWidth () enddef ;
-vardef CurrentHeight = lua.mp.CurrentHeight () enddef ;
-
-vardef HSize = lua.mp.HSize () enddef ; % duplicates
-vardef VSize = lua.mp.VSize () enddef ; % duplicates
-
-vardef EmWidth = lua.mp.EmWidth () enddef ;
-vardef ExHeight = lua.mp.ExHeight () enddef ;
-
-vardef PageFraction = lua.mp.PageFraction () enddef ;
-
-vardef SpineWidth = lua.mp.SpineWidth () enddef ;
-vardef PaperBleed = lua.mp.PaperBleed () enddef ;
-
-boolean mfun_swapped ;
-
-def SwapPageState =
- mfun_swapped := true ; % eventually this will go !
-enddef ;
-
-extra_beginfig := extra_beginfig & "mfun_swapped := false ;" ;
-
-vardef LeftMarginWidth = if mfun_swapped and not OnRightPage : lua.mp.RightMarginWidth () else : lua.mp.LeftMarginWidth () fi enddef ;
-vardef RightMarginWidth = if mfun_swapped and not OnRightPage : lua.mp.LeftMarginWidth () else : lua.mp.RightMarginWidth () fi enddef ;
-vardef LeftMarginDistance = if mfun_swapped and not OnRightPage : lua.mp.RightMarginDistance() else : lua.mp.LeftMarginDistance () fi enddef ;
-vardef RightMarginDistance = if mfun_swapped and not OnRightPage : lua.mp.LeftMarginDistance () else : lua.mp.RightMarginDistance() fi enddef ;
-
-vardef LeftEdgeWidth = if mfun_swapped and not OnRightPage : lua.mp.RightEdgeWidth () else : lua.mp.LeftEdgeWidth () fi enddef ;
-vardef RightEdgeWidth = if mfun_swapped and not OnRightPage : lua.mp.LeftEdgeWidth () else : lua.mp.RightEdgeWidth () fi enddef ;
-vardef LeftEdgeDistance = if mfun_swapped and not OnRightPage : lua.mp.RightEdgeDistance () else : lua.mp.LeftEdgeDistance () fi enddef ;
-vardef RightEdgeDistance = if mfun_swapped and not OnRightPage : lua.mp.LeftEdgeDistance () else : lua.mp.RightEdgeDistance () fi enddef ;
-
-vardef BackSpace = if mfun_swapped and not OnRightPage : PaperWidth - MakeupWidth - fi lua.mp.BackSpace() enddef ;
-vardef CutSpace = if mfun_swapped and not OnRightPage : PaperWidth - MakeupWidth - fi lua.mp.CutSpace () enddef ;
-
-% better use:
-
-vardef OuterMarginWidth = if not OnRightPage : lua.mp.LeftMarginWidth () else : lua.mp.RightMarginWidth () fi enddef ;
-vardef InnerMarginWidth = if not OnRightPage : lua.mp.RightMarginWidth () else : lua.mp.LeftMarginWidth () fi enddef ;
-vardef OuterMarginDistance = if not OnRightPage : lua.mp.LeftMarginDistance () else : lua.mp.RightMarginDistance() fi enddef ;
-vardef InnerMarginDistance = if not OnRightPage : lua.mp.RightMarginDistance() else : lua.mp.LeftMarginDistance () fi enddef ;
-
-vardef OuterEdgeWidth = if not OnRightPage : lua.mp.LeftEdgeWidth () else : lua.mp.RightEdgeWidth () fi enddef ;
-vardef InnerEdgeWidth = if not OnRightPage : lua.mp.RightEdgeWidth () else : lua.mp.LeftEdgeWidth () fi enddef ;
-vardef OuterEdgeDistance = if not OnRightPage : lua.mp.LeftEdgeDistance () else : lua.mp.RightEdgeDistance () fi enddef ;
-vardef InnerEdgeDistance = if not OnRightPage : lua.mp.RightEdgeDistance () else : lua.mp.LeftEdgeDistance () fi enddef ;
-
-vardef OuterSpaceWidth = if not OnRightPage : lua.mp.BackSpace () else : lua.mp.CutSpace () fi enddef ;
-vardef InnerSpaceWidth = if not OnRightPage : lua.mp.CutSpace () else : lua.mp.BackSpace () fi enddef ;
+def LoadPageState = enddef ; % now always set
+def SwapPageState = enddef ; % dynamic
-% indices
-
-vardef OuterMargin = if not OnRightPage : LeftMargin else : RightMargin fi enddef ;
-vardef InnerMargin = if not OnRightPage : RightMargin else : LeftMargin fi enddef ;
-
-vardef OuterEdge = if not OnRightPage : LeftEdge else : RightEdge fi enddef ;
-vardef InnerEdge = if not OnRightPage : Rightedge else : LeftEdge fi enddef ;
-
-% vardef CurrentLayout = lua.mp.CurrentLayout () enddef ;
-
-vardef OverlayWidth = lua.mp.OverlayWidth () enddef ;
-vardef OverlayHeight = lua.mp.OverlayHeight () enddef ;
-vardef OverlayDepth = lua.mp.OverlayDepth () enddef ;
-vardef OverlayLineWidth = lua.mp.OverlayLineWidth() enddef ;
-vardef OverlayOffset = lua.mp.OverlayOffset () enddef ;
-vardef OverlayRegion = lua.mp.OverlayRegion () enddef ;
-
-vardef defaultcolormodel = lua.mp.mf_default_color_model() enddef ;
-
-% def OverlayLineColor = lua.mp.OverlayLineColor() enddef ;
-% def OverlayColor = lua.mp.OverlayColor () enddef ;
+% if unknown PageStateAvailable :
+% boolean PageStateAvailable ;
+% PageStateAvailable := false ;
+% fi ;
% Next we implement the the page area model. First some constants.
@@ -604,13 +461,11 @@ enddef ;
def StartPage =
begingroup ;
- if mfun_first_run :
- if PageStateAvailable :
- LoadPageState ;
- SwapPageState ;
- fi ;
- SetPageVariables ;
- fi ;
+ % if PageStateAvailable :
+ % LoadPageState ;
+ % SwapPageState ;
+ % fi ;
+ SetPageVariables ;
BoundPageAreas ;
enddef ;
@@ -630,14 +485,11 @@ let SetCoverAreas = SetPageVariables ; % compatiblity
def StartCover =
begingroup ;
- if mfun_first_run :
- if PageStateAvailable :
- LoadPageState ;
- % SwapPageState ;
- fi ;
- SetPageVariables ; % was SetPageAreas ;
- SetCoverAreas ;
- fi ;
+ % if PageStateAvailable :
+ % LoadPageState ;
+ % fi ;
+ SetPageVariables ; % was SetPageAreas ;
+ SetCoverAreas ;
BoundCoverAreas ;
enddef ;