On 12/9/2020 9:38 PM, Aditya Mahajan wrote:
Or just redefine shortened to accept a pair!
\startMPdefinitions primarydef p shortened d = reverse ( ( reverse (p enlonged -xpart paired(d)) ) enlonged -ypart paired(d) ) enddef ; \stopMPdefinitions
patched but then also: primarydef p enlonged len = begingroup if len == 0 : p elseif pair p : ... in order to save some energy when one is zero Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl -----------------------------------------------------------------