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 |