From 8e7b17b0b24641743f62d3f5779e79c2c25b67e0 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Wed, 4 Jul 2001 00:00:00 +0200 Subject: stable 2001.07.04 --- metapost/context/mp-core.mp | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'metapost') 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]) ; -- cgit v1.2.3