stable 2002.01.11

1 files changed, 21 insertions, 1 deletions

diff --git a/metapost/context/mp-page.mp b/metapost/context/mp-page.mp
index 7133ae6ff..285f84c41 100644
--- a/metapost/context/mp-page.mp
+++ b/metapost/context/mp-page.mp
@@ -27,6 +27,10 @@ if unknown OnRightPage :
   boolean OnRightPage ; OnRightPage := true ;
 fi ;
 
+if unknown InPageBody :
+  boolean InPageBody ; InPageBody := false ;
+fi ;
+
 PageNumber          := 0 ; 
 PaperHeight         := 845.04684pt  ;
 PaperWidth          := 597.50787pt  ;
@@ -88,7 +92,7 @@ for VerPos=Top step 10 until Bottom:
     Field[HorPos][VerPos] := origin--cycle ; 
     Field[VerPos][HorPos] := Field[HorPos][VerPos] ;
   endfor ; 
-endfor ; 
+endfor ;  
 
 % def LoadPageState = 
 %   scantokens "input mp-state.tmp" ;
@@ -201,6 +205,22 @@ def StopPage =
 
 enddef ; 
 
+def OverlayBox = 
+  (unitsquare xyscaled (OverlayWidth,OverlayHeight)) 
+enddef ; 
+
+% handy 
+
+def innerenlarged = 
+  hide(LoadPageState) 
+  if OnRightPage : leftenlarged  else : rightenlarged fi 
+enddef ;   
+  
+def outerenlarged = 
+  hide(LoadPageState)
+  if OnRightPage : rightenlarged else : leftenlarged  fi 
+enddef ;   
+
 % obsolete
 
 def llEnlarged (expr p,d) = (llcorner p shifted (-d,-d)) enddef ;