----------------------------------------------------------------- // Trim Double - trim entities between 2 bounding entities. MACRO TD |ECOFF;SNAPOFF :LP1 GE p1;^D1st boundary [Done] IFERR Done GE p2;^D2nd boundary :LP2 GE p3;^DSegment to trim [Done] IFERR LP1 TRIM p3 INT p1 p3;;p3 INT p2 p3 GO LP2 :Done ECON ENDM -----------------------------------------------------------------