From 44a457e94e531de21ed9138035570e6fc23d9019 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Mon, 17 Mar 2003 00:00:00 +0100 Subject: stable 2003.03.17 --- metapost/context/base/mp-core.mp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mp-core.mp b/metapost/context/base/mp-core.mp index fca95859a..148d13f49 100644 --- a/metapost/context/base/mp-core.mp +++ b/metapost/context/base/mp-core.mp @@ -730,7 +730,7 @@ fi ; urxy[tpos] -- ulxy[fpos] -- cycle ; - save_multipar (i,1,multipar) ; + save_multipar (1,1,multipar) ; else : @@ -1059,12 +1059,13 @@ def collapse_multi_pars = for i:=1 upto nofmultipars-1 : if (round(xpart(llcorner multipars[i]-llcorner multipars[i+1]))=0) and (round(xpart(lrcorner multipars[i]-lrcorner multipars[i+1]))=0) : - multipars[_nofmultipars_] := +multilocs[_nofmultipars_] := multilocs[i+1] ; +multirefs[_nofmultipars_] := multirefs[i+1] ; multipars[_nofmultipars_] := ulcorner multipars[_nofmultipars_] -- urcorner multipars[_nofmultipars_] -- - lrcorner multipars[i+1] -- - llcorner multipars[i+1] -- cycle ; + lrcorner multipars[i+1] -- + llcorner multipars[i+1] -- cycle ; else : _nofmultipars_ := _nofmultipars_ + 1 ; multipars[_nofmultipars_] := multipars[i+1] ; -- cgit v1.2.3