diff options
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/mp-core.mp | 10 |
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]) ; |