stable 2001.07.04

1 files changed, 10 insertions, 0 deletions

diff --git a/metapost/context/mp-core.mp b/metapost/context/mp-core.mp
index 1951a6bef..63a49720a 100644
--- a/metapost/context/mp-core.mp
+++ b/metapost/context/mp-core.mp
@@ -47,6 +47,16 @@ def initialize_box (expr n,x,y,w,h,d) =
 
 enddef ;
 
+def initialize_area (expr fn,fx,fy,fw,fh,fd,
+                          tn,tx,ty,tw,th,td) =
+
+  numeric fpos ; fpos := 1 ; initialize_box_pos(fpos,fn,fx,fy,fw,fh,fd) ;
+  numeric tpos ; tpos := 2 ; initialize_box_pos(tpos,tn,tx,ty,tw,th,td) ;
+
+  do_initialize_area (fpos, tpos) ;
+
+enddef ;
+
 def do_initialize_area (expr fpos, tpos) =
   lxy  := lxy[fpos] ;
   llxy := (xpart llxy[fpos], ypart llxy[tpos]) ;