1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16if known context_cont : endinput ; fi ;
17
18boolean context_cont ; context_cont : = true ;
19
20string CurrentLayout ; CurrentLayout : = " default " ;
21
22boolean mfun_swapped ;
23
24def SwapPageState =
25 mfun_swapped : = true ;
26enddef ;
27
28extra_beginfig : = extra_beginfig & " mfun_swapped := false ; " ;
29
30
31
32vardef PaperHeight = runscript ( " mp.PaperHeight() " ) enddef ;
33vardef PaperWidth = runscript ( " mp.PaperWidth() " ) enddef ;
34vardef PrintPaperHeight = runscript ( " mp.PrintPaperHeight() " ) enddef ;
35vardef PrintPaperWidth = runscript ( " mp.PrintPaperWidth() " ) enddef ;
36vardef TopSpace = runscript ( " mp.TopSpace() " ) enddef ;
37vardef BottomSpace = runscript ( " mp.BottomSpace() " ) enddef ;
38vardef BackSpace = runscript ( " mp.BackSpace() " ) enddef ;
39vardef CutSpace = runscript ( " mp.CutSpace() " ) enddef ;
40vardef MakeupHeight = runscript ( " mp.MakeupHeight() " ) enddef ;
41vardef MakeupWidth = runscript ( " mp.MakeupWidth() " ) enddef ;
42vardef TopHeight = runscript ( " mp.TopHeight() " ) enddef ;
43vardef TopDistance = runscript ( " mp.TopDistance() " ) enddef ;
44vardef HeaderHeight = runscript ( " mp.HeaderHeight() " ) enddef ;
45vardef HeaderDistance = runscript ( " mp.HeaderDistance() " ) enddef ;
46vardef TextHeight = runscript ( " mp.TextHeight() " ) enddef ;
47vardef FooterDistance = runscript ( " mp.FooterDistance() " ) enddef ;
48vardef FooterHeight = runscript ( " mp.FooterHeight() " ) enddef ;
49vardef BottomDistance = runscript ( " mp.BottomDistance() " ) enddef ;
50vardef BottomHeight = runscript ( " mp.BottomHeight() " ) enddef ;
51vardef LeftEdgeWidth = runscript ( " mp.LeftEdgeWidth() " ) enddef ;
52vardef LeftEdgeDistance = runscript ( " mp.LeftEdgeDistance() " ) enddef ;
53vardef LeftMarginWidth = runscript ( " mp.LeftMarginWidth() " ) enddef ;
54vardef LeftMarginDistance = runscript ( " mp.LeftMarginDistance() " ) enddef ;
55vardef TextWidth = runscript ( " mp.TextWidth() " ) enddef ;
56vardef RightMarginDistance = runscript ( " mp.RightMarginDistance() " ) enddef ;
57vardef RightMarginWidth = runscript ( " mp.RightMarginWidth() " ) enddef ;
58vardef RightEdgeDistance = runscript ( " mp.RightEdgeDistance() " ) enddef ;
59vardef RightEdgeWidth = runscript ( " mp.RightEdgeWidth() " ) enddef ;
60vardef InnerMarginDistance = runscript ( " mp.InnerMarginDistance() " ) enddef ;
61vardef InnerMarginWidth = runscript ( " mp.InnerMarginWidth() " ) enddef ;
62vardef OuterMarginDistance = runscript ( " mp.OuterMarginDistance() " ) enddef ;
63vardef OuterMarginWidth = runscript ( " mp.OuterMarginWidth() " ) enddef ;
64vardef InnerEdgeDistance = runscript ( " mp.InnerEdgeDistance() " ) enddef ;
65vardef InnerEdgeWidth = runscript ( " mp.InnerEdgeWidth() " ) enddef ;
66vardef OuterEdgeDistance = runscript ( " mp.OuterEdgeDistance() " ) enddef ;
67vardef OuterEdgeWidth = runscript ( " mp.OuterEdgeWidth() " ) enddef ;
68vardef PageOffset = runscript ( " mp.PageOffset() " ) enddef ;
69vardef PageDepth = runscript ( " mp.PageDepth() " ) enddef ;
70vardef LayoutColumns = runscript ( " mp.LayoutColumns() " ) enddef ;
71vardef LayoutColumnDistance = runscript ( " mp.LayoutColumnDistance() " ) enddef ;
72vardef LayoutColumnWidth = runscript ( " mp.LayoutColumnWidth() " ) enddef ;
73
74vardef OnRightPage = runscript ( " mp.OnRightPage() " ) enddef ;
75vardef OnOddPage = runscript ( " mp.OnOddPage() " ) enddef ;
76vardef InPageBody = runscript ( " mp.InPageBody() " ) enddef ;
77
78vardef RealPageNumber = runscript ( " mp.RealPageNumber() " ) enddef ;
79vardef LastPageNumber = runscript ( " mp.LastPageNumber() " ) enddef ;
80
81vardef PageNumber = runscript ( " mp.PageNumber() " ) enddef ;
82vardef NOfPages = runscript ( " mp.NOfPages() " ) enddef ;
83
84vardef SubPageNumber = runscript ( " mp.SubPageNumber() " ) enddef ;
85vardef NOfSubPages = runscript ( " mp.NOfSubPages() " ) enddef ;
86
87vardef CurrentColumn = runscript ( " mp.CurrentColumn() " ) enddef ;
88vardef NOfColumns = runscript ( " mp.NOfColumns() " ) enddef ;
89
90vardef BaseLineSkip = runscript ( " mp.BaseLineSkip() " ) enddef ;
91vardef LineHeight = runscript ( " mp.LineHeight() " ) enddef ;
92vardef BodyFontSize = runscript ( " mp.BodyFontSize() " ) enddef ;
93
94vardef TopSkip = runscript ( " mp.TopSkip() " ) enddef ;
95vardef StrutHeight = runscript ( " mp.StrutHeight() " ) enddef ;
96vardef StrutDepth = runscript ( " mp.StrutDepth() " ) enddef ;
97
98vardef CurrentWidth = runscript ( " mp.CurrentWidth() " ) enddef ;
99vardef CurrentHeight = runscript ( " mp.CurrentHeight() " ) enddef ;
100
101vardef HSize = runscript ( " mp.HSize() " ) enddef ;
102vardef VSize = runscript ( " mp.VSize() " ) enddef ;
103
104vardef EmWidth = runscript ( " mp.EmWidth() " ) enddef ;
105vardef ExHeight = runscript ( " mp.ExHeight() " ) enddef ;
106
107vardef PageFraction = runscript ( " mp.PageFraction() " ) enddef ;
108
109vardef SpineWidth = runscript ( " mp.SpineWidth() " ) enddef ;
110vardef PaperBleed = runscript ( " mp.PaperBleed() " ) enddef ;
111
112
113vardef OverlayWidth = runscript ( " mp.OverlayWidth() " ) enddef ;
114vardef OverlayHeight = runscript ( " mp.OverlayHeight() " ) enddef ;
115vardef OverlayDepth = runscript ( " mp.OverlayDepth() " ) enddef ;
116vardef OverlayLineWidth = runscript ( " mp.OverlayLineWidth() " ) enddef ;
117vardef OverlayOffset = runscript ( " mp.OverlayOffset() " ) enddef ;
118vardef OverlayRegion = runscript ( " mp.OverlayRegion() " ) enddef ;
119
120
121
122vardef defaultcolormodel = runscript ( " mp.defaultcolormodel() " ) enddef ;
123
124vardef LeftMarginWidth = if mfun_swapped and not OnRightPage : runscript ( " mp.RightMarginWidth() " ) else : runscript ( " mp.LeftMarginWidth() " ) fi enddef ;
125vardef RightMarginWidth = if mfun_swapped and not OnRightPage : runscript ( " mp.LeftMarginWidth() " ) else : runscript ( " mp.RightMarginWidth() " ) fi enddef ;
126vardef LeftMarginDistance = if mfun_swapped and not OnRightPage : runscript ( " mp.RightMarginDistance() " ) else : runscript ( " mp.LeftMarginDistance() " ) fi enddef ;
127vardef RightMarginDistance = if mfun_swapped and not OnRightPage : runscript ( " mp.LeftMarginDistance() " ) else : runscript ( " mp.RightMarginDistance() " ) fi enddef ;
128
129vardef LeftEdgeWidth = if mfun_swapped and not OnRightPage : runscript ( " mp.RightEdgeWidth() " ) else : runscript ( " mp.LeftEdgeWidth() " ) fi enddef ;
130vardef RightEdgeWidth = if mfun_swapped and not OnRightPage : runscript ( " mp.LeftEdgeWidth() " ) else : runscript ( " mp.RightEdgeWidth() " ) fi enddef ;
131vardef LeftEdgeDistance = if mfun_swapped and not OnRightPage : runscript ( " mp.RightEdgeDistance() " ) else : runscript ( " mp.LeftEdgeDistance() " ) fi enddef ;
132vardef RightEdgeDistance = if mfun_swapped and not OnRightPage : runscript ( " mp.LeftEdgeDistance() " ) else : runscript ( " mp.RightEdgeDistance() " ) fi enddef ;
133
134vardef BackSpace = if mfun_swapped and not OnRightPage : PaperWidth MakeupWidth fi runscript ( " mp.BackSpace() " ) enddef ;
135vardef CutSpace = if mfun_swapped and not OnRightPage : PaperWidth MakeupWidth fi runscript ( " mp.CutSpace() " ) enddef ;
136
137
138
139vardef OuterMarginWidth = if not OnRightPage : runscript ( " mp.LeftMarginWidth() " ) else : runscript ( " mp.RightMarginWidth() " ) fi enddef ;
140vardef InnerMarginWidth = if not OnRightPage : runscript ( " mp.RightMarginWidth() " ) else : runscript ( " mp.LeftMarginWidth() " ) fi enddef ;
141vardef OuterMarginDistance = if not OnRightPage : runscript ( " mp.LeftMarginDistance() " ) else : runscript ( " mp.RightMarginDistance() " ) fi enddef ;
142vardef InnerMarginDistance = if not OnRightPage : runscript ( " mp.RightMarginDistance() " ) else : runscript ( " mp.LeftMarginDistance() " ) fi enddef ;
143
144vardef OuterEdgeWidth = if not OnRightPage : runscript ( " mp.LeftEdgeWidth() " ) else : runscript ( " mp.RightEdgeWidth() " ) fi enddef ;
145vardef InnerEdgeWidth = if not OnRightPage : runscript ( " mp.RightEdgeWidth() " ) else : runscript ( " mp.LeftEdgeWidth() " ) fi enddef ;
146vardef OuterEdgeDistance = if not OnRightPage : runscript ( " mp.LeftEdgeDistance() " ) else : runscript ( " mp.RightEdgeDistance() " ) fi enddef ;
147vardef InnerEdgeDistance = if not OnRightPage : runscript ( " mp.RightEdgeDistance() " ) else : runscript ( " mp.LeftEdgeDistance() " ) fi enddef ;
148
149vardef OuterSpaceWidth = if not OnRightPage : runscript ( " mp.BackSpace() " ) else : runscript ( " mp.CutSpace() " ) fi enddef ;
150vardef InnerSpaceWidth = if not OnRightPage : runscript ( " mp.CutSpace() " ) else : runscript ( " mp.BackSpace() " ) fi enddef ;
151
152
153
154vardef OuterMargin = if not OnRightPage : LeftMargin else : RightMargin fi enddef ;
155vardef InnerMargin = if not OnRightPage : RightMargin else : LeftMargin fi enddef ;
156
157vardef OuterEdge = if not OnRightPage : LeftEdge else : RightEdge fi enddef ;
158vardef InnerEdge = if not OnRightPage : RightEdge else : LeftEdge fi enddef ;
159 |