diff options
| author | Hans Hagen <pragma@wxs.nl> | 2003-03-17 00:00:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2003-03-17 00:00:00 +0100 |
| commit | 44a457e94e531de21ed9138035570e6fc23d9019 (patch) | |
| tree | 54309784563741c1b7c5c29f65d858b7f4773cfc /metapost | |
| parent | 53ce0dd521f2b963dade4e19d4ee386cef29289b (diff) | |
| download | context-44a457e94e531de21ed9138035570e6fc23d9019.tar.gz | |
stable 2003.03.17
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mp-core.mp | 9 |
1 files changed, 5 insertions, 4 deletions
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] ; |