stable 2000.10.22

1 files changed, 218 insertions, 0 deletions

diff --git a/metapost/context/mp-page.mp b/metapost/context/mp-page.mp
new file mode 100644
index 000000000..7133ae6ff
--- /dev/null
+++ b/metapost/context/mp-page.mp
@@ -0,0 +1,218 @@
+%D \module
+%D   [       file=mp-page.mp,
+%D        version=1999.03.10,
+%D          title=\CONTEXT\ \METAPOST\ graphics,
+%D       subtitle=page enhancements,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for 
+%C details. 
+
+%D This module is rather preliminary and subjected to 
+%D changes. 
+
+if unknown context_tool : input mp-tool ; fi ; 
+if   known context_page : endinput      ; fi ; 
+
+boolean context_page ; context_page := true ; 
+
+if unknown PageStateAvailable : 
+  boolean PageStateAvailable ; PageStateAvailable := false ; 
+fi ; 
+
+if unknown OnRightPage :
+  boolean OnRightPage ; OnRightPage := true ;
+fi ;
+
+PageNumber          := 0 ; 
+PaperHeight         := 845.04684pt  ;
+PaperWidth          := 597.50787pt  ;
+PrintPaperHeight    := 845.04684pt  ;
+PrintPaperWidth     := 597.50787pt  ;
+TopSpace            :=  71.12546pt  ;
+BackSpace           :=  71.13275pt  ;
+MakeupHeight        := 711.3191pt   ; 
+MakeupWidth         := 426.78743pt  ;
+TopHeight           :=   0.0pt      ;
+TopDistance         :=   0.0pt      ;
+HeaderHeight        :=  56.90294pt  ;
+HeaderDistance      :=   0.0pt      ;
+TextHeight          := 597.51323pt  ;
+FooterDistance      :=   0.0pt      ;
+FooterHeight        :=  56.90294pt  ;
+BottomDistance      :=   0.0pt      ;
+BottomHeight        :=   0.0pt      ;
+LeftEdgeWidth       :=   0.0pt      ;
+LeftEdgeDistance    :=   0.0pt      ;
+LeftMarginWidth     :=   75.58197pt ;
+LeftMarginDistance  :=   11.99829pt ;
+TextWidth           :=  426.78743pt ;
+RightMarginDistance :=   11.99829pt ;
+RightMarginWidth    :=   75.58197pt ;
+RightEdgeDistance   :=    0.0pt     ;
+RightEdgeWidth      :=    0.0pt     ;
+
+PageOffset          :=    0.0pt     ; 
+PageDepth           :=    0.0pt     ; 
+
+LeftEdge             :=  -4 ; Top             := -40 ;
+LeftEdgeSeparator    :=  -3 ; TopSeparator    := -30 ; 
+LeftMargin           :=  -2 ; Header          := -20 ; 
+LeftMarginSeparator  :=  -1 ; HeaderSeparator := -10 ; 
+Text                 :=   0 ; Text            :=   0 ;
+RightMarginSeparator :=  +1 ; FooterSeparator := +10 ; 
+RightMargin          :=  +2 ; Footer          := +20 ; 
+RightEdgeSeparator   :=  +3 ; BottomSeparator := +30 ; 
+RightEdge            :=  +4 ; Bottom          := +40 ; 
+
+Margin      := LeftMargin  ; 
+Edge        := LeftEdge    ; 
+InnerMargin := RightMargin ; 
+InnerEdge   := RightEdge   ; 
+OuterMargin := LeftMargin  ; 
+OuterEdge   := LeftEdge    ; 
+
+path Area [][] ; pair Location [][] ; path Field [][] ;  path Page ; 
+numeric HorPos ; numeric Hstep [] ; numeric Hsize [] ; 
+numeric VerPos ; numeric Vstep [] ; numeric Vsize [] ; 
+
+for VerPos=Top step 10 until Bottom: 
+  for HorPos=LeftEdge step 1 until RightEdge: 
+    Area[HorPos][VerPos] := origin--cycle ; 
+    Area[VerPos][HorPos] := Area[HorPos][VerPos] ;
+    Location[HorPos][VerPos] := origin ;  
+    Location[VerPos][HorPos] := Location[HorPos][VerPos] ;
+    Field[HorPos][VerPos] := origin--cycle ; 
+    Field[VerPos][HorPos] := Field[HorPos][VerPos] ;
+  endfor ; 
+endfor ; 
+
+% def LoadPageState = 
+%   scantokens "input mp-state.tmp" ;
+% enddef ; 
+
+def SwapPageState = 
+  if not OnRightPage :
+           BackSpace := PaperWidth-MakeupWidth-BackSpace ;
+                   i := LeftMarginWidth ;
+     LeftMarginWidth := RightMarginWidth ;
+    RightMarginWidth := i ;
+                   i := LeftMarginDistance ;
+  LeftMarginDistance := RightMarginDistance ;
+ RightMarginDistance := i ;
+                   i := LeftEdgeWidth ;
+       LeftEdgeWidth := RightEdgeWidth ;
+      RightEdgeWidth := i ;
+                   i := LeftEdgeDistance ;
+    LeftEdgeDistance := RightEdgeDistance ;
+   RightEdgeDistance := i ;
+
+              Margin := LeftMargin ; 
+                Edge := LeftEdge ; 
+         InnerMargin := RightMargin ; 
+           InnerEdge := RightEdge ; 
+         OuterMargin := LeftMargin ; 
+           OuterEdge := LeftEdge ; 
+  else : 
+              Margin := RightMargin ; 
+              Edge   := RightEdge ; 
+         InnerMargin := LeftMargin ; 
+           InnerEdge := LeftEdge ; 
+         OuterMargin := RightMargin ; 
+           OuterEdge := RightEdge ; 
+  fi ;
+enddef ; 
+
+def StartPage =
+
+  if PageStateAvailable : 
+    LoadPageState ; 
+    SwapPageState ;
+  fi ; 
+ 
+  numeric Vsize[], Hsize[], Vstep[], Hstep[] ;
+
+  Vsize[Top]             = TopHeight ; 
+  Vsize[TopSeparator]    = TopDistance ; 
+  Vsize[Header]          = HeaderHeight ; 
+  Vsize[HeaderSeparator] = HeaderDistance ; 
+  Vsize[Text]            = TextHeight ; 
+  Vsize[FooterSeparator] = FooterDistance ; 
+  Vsize[Footer]          = FooterHeight ; 
+  Vsize[BottomSeparator] = BottomDistance ; 
+  Vsize[Bottom]          = BottomHeight ; 
+
+  Vstep[Top]             = Vstep[TopSeparator]   +Vsize[TopSeparator] ;
+  Vstep[TopSeparator]    = PaperHeight-TopSpace ; 
+  Vstep[Header]          = Vstep[TopSeparator]   -Vsize[Header] ; 
+  Vstep[HeaderSeparator] = Vstep[Header]         -Vsize[HeaderSeparator] ; 
+  Vstep[Text]            = Vstep[HeaderSeparator]-Vsize[Text] ; 
+  Vstep[FooterSeparator] = Vstep[Text]           -Vsize[FooterSeparator] ; 
+  Vstep[Footer]          = Vstep[FooterSeparator]-Vsize[Footer] ; 
+  Vstep[BottomSeparator] = Vstep[Footer]         -Vsize[BottomSeparator] ;
+  Vstep[Bottom]          = Vstep[BottomSeparator]-Vsize[Bottom] ; 
+
+  Hsize[LeftEdge]             = LeftEdgeWidth ;
+  Hsize[LeftEdgeSeparator]    = LeftEdgeDistance ;
+  Hsize[LeftMargin]           = LeftMarginWidth ;
+  Hsize[LeftMarginSeparator]  = LeftMarginDistance ;
+  Hsize[Text]                 = MakeupWidth ; 
+  Hsize[RightMarginSeparator] = RightMarginDistance ; 
+  Hsize[RightMargin]          = RightMarginWidth ; 
+  Hsize[RightEdgeSeparator]   = RightEdgeDistance ;
+  Hsize[RightEdge]            = RightEdgeWidth ; 
+
+  Hstep[LeftEdge]             = Hstep[LeftEdgeSeparator]   -Hsize[LeftEdge] ;
+  Hstep[LeftEdgeSeparator]    = Hstep[LeftMargin]          -Hsize[LeftEdgeSeparator] ;
+  Hstep[LeftMargin]           = Hstep[LeftMarginSeparator] -Hsize[LeftMargin] ;
+  Hstep[LeftMarginSeparator]  = Hstep[Text]                -Hsize[LeftMarginSeparator] ;
+  Hstep[Text]                 = BackSpace ; 
+  Hstep[RightMarginSeparator] = Hstep[Text]                +Hsize[Text] ; 
+  Hstep[RightMargin]          = Hstep[RightMarginSeparator]+Hsize[RightMarginSeparator] ;
+  Hstep[RightEdgeSeparator]   = Hstep[RightMargin]         +Hsize[RightMargin] ;
+  Hstep[RightEdge]            = Hstep[RightEdgeSeparator]  +Hsize[RightEdgeSeparator] ; 
+
+  for VerPos=Top step 10 until Bottom: 
+    for HorPos=LeftEdge step 1 until RightEdge: 
+      Area[HorPos][VerPos] := unitsquare xscaled Hsize[HorPos] yscaled Vsize[VerPos] ; 
+      Area[VerPos][HorPos] := Area[HorPos][VerPos] ;
+      Location[HorPos][VerPos] := (Hstep[HorPos],Vstep[VerPos]) ;  
+      Location[VerPos][HorPos] := Location[HorPos][VerPos] ;
+      Field[HorPos][VerPos] := Area[HorPos][VerPos] shifted Location[HorPos][VerPos] ;
+      Field[VerPos][HorPos] := Field[HorPos][VerPos] ;
+    endfor ; 
+  endfor ; 
+
+% pickup pencircle scaled 0pt ; 
+
+  Page := unitsquare xscaled PaperWidth yscaled PaperHeight ;  
+  bboxmargin := 0 ; setbounds currentpicture to Page ;
+
+enddef ; 
+
+def StopPage =
+
+ %pickup pencircle scaled 0pt ; 
+
+  bboxmargin := 0 ; setbounds currentpicture to Page ;
+
+enddef ; 
+
+% obsolete
+
+def llEnlarged (expr p,d) = (llcorner p shifted (-d,-d)) enddef ; 
+def lrEnlarged (expr p,d) = (lrcorner p shifted (+d,-d)) enddef ; 
+def urEnlarged (expr p,d) = (urcorner p shifted (+d,+d)) enddef ; 
+def ulEnlarged (expr p,d) = (ulcorner p shifted (-d,+d)) enddef ; 
+
+def Enlarged (expr p, d) = 
+  (llEnlarged (p,d) --
+   lrEnlarged (p,d) --
+   urEnlarged (p,d) --
+   ulEnlarged (p,d) -- cycle) 
+enddef ; 
+
+endinput ;