(FILECREATED " 3-Sep-85 12:53:39" ("compiled on " {ERIS}SOURCES>XXGEOM.;21) "26-Aug-85 14:56:04" recompiled changes: IRNDLIST NORMLOOP PREPLOOP MAKELINE KNOTLINE LINE.LESSP in "INTERLISP-D 26-Aug-85 ..." dated "26-Aug-85 16:55:04") (FILECREATED " 3-Sep-85 12:52:17" {ERIS}SOURCES>XXGEOM.;21 37376 changes to: (FNS IRNDLIST NORMLOOP PREPLOOP MAKELINE LINE.LESSP KNOTLINE) (MACROS HEADPTY NEXTPTY) (VARS XXGEOMCOMS) previous date: "29-Aug-85 17:09:41" {ERIS}SOURCES>XXGEOM.;19) RND D1 (L (1 D 0 N)) )jdA@bjAbj@@kAAkA@kAkNIL NIL () MAKEXYPT D1 (L (1 IY 0 IX)) @ANIL NIL () IRNDLIST D1 (L (0 PATH)) A00@4dZJH3 HojظI3 IojعHILKh]K&MNIL NIL ( 46Q .5 31Q .5) NORMLOOP D1 (P 6 ANTISGN P 5 PREVSGN P 4 Y2 P 3 Y1 P 2 LAST P 1 HEAD P 0 LOOP I 0 LIST) p@ Xd ZdHH[H\HJKLHLHLKjkjLKmj]djHHhIL[H\KLjkjKLmjdM#HLHKLjkjKLmjHYHhI(13Q LAST 6 COPY) NIL () SLITLOOP D1 (P 7 CURR P 6 LAST P 5 CURR P 4 PREV P 3 PREVSGN P 2 CURRSGN P 1 CURRLIST P 0 SECTLIST I 0 KLST) p@ bd ^@Nh bd\@bd]dLjkjMLmj[LhYdhX@FdOLjkjOLmjZdjKZKOI OL hYHJ[O\H (216Q REVERSE 170Q COPY 161Q ATTACH 25Q \NCONC2 15Q COPY 6 COPY) NIL () PREPLOOP D1 (P 4 I P 3 TLIST P 2 LLIST P 1 ILIST P 0 NLIST I 0 PathOrPathList) +P@d3hbd\ X [I I(42Q \NCONC2 35Q SLITLOOP 31Q NORMLOOP 26Q IRNDLIST) NIL () YMAPLIST D1 (P 11Q I P 10Q DY P 7 DX P 6 Y0 P 5 X0 P 4 NEXTPT P 3 CURRPT P 2 Y P 1 X P 0 YMAP I 1 PATH2 I 0 PATH1) n AZ@J@@b@Nd OAJAAbA.AAKKLM_LN_MNOOJ YJHH (153Q REVERSE 134Q MIDDX) NIL () IMAPLIST D1 (P 22Q V1 P 21Q U1 P 20Q Y1 P 17Q X1 P 16Q DV P 15Q DU P 14Q V0 P 13Q U0 P 12Q DY P 11Q DX P 10Q Y0 P 7 X0 P 6 NEXT2 P 5 CURR2 P 4 NEXT1 P 3 CURR1 P 2 PT P 1 IMAP P 0 ADVANCE I 1 PATH2 I 0 PATH1) @@[A]@\A^L_ N_$dO -lM_"M_$K_K_L_O_O O_*kK_K_ M_M_N_"O_O$O_@AHk+O_O _@\_L_ OO_O O_)O"_O$_A^_"N_$O"O_O$O_OOOOOOOO ZO$O AblzI@bkkI (420Q REVERSE 351Q XYSECTLSEG) NIL () UNIQLIST D1 (P 2 NEWLIST P 1 V P 0 Y I 0 LIST) '@@X@hZ@d[HIIKJJ (44Q REVERSE) NIL () MERGLIST D1 (P 4 Y2 P 3 Y1 P 2 CURR2 P 1 CURR1 P 0 IMAP I 1 PATH2 I 0 PATH1) nP@AA@@YAZI[J\@ANLK3JHKLIH@b`[Y[Ab`ZIH@b`YH (153Q REVERSE) (136Q MAX.INTEGER 110Q MAX.INTEGER 66Q MAX.INTEGER) () MMLTLIST D1 (L (6 M23 5 M22 4 M21 3 M13 2 M12 1 M11 0 KLIST)) =P0@/d\LHAIBCԺHDIEFԻJKNMh_M&ONIL NIL () IMLTLIST D1 (L (6 M23 5 M22 4 M21 3 M13 2 M12 1 M11 0 KLIST)) AP0@3d\LHAIBCԺHDIEFԻJjKjNMh_M&ONIL NIL () XYPT.LESSP D1 (L (1 PT2 0 PT1))  @XAYHIHIh@XAYHIhNIL NIL () PATH.LESSP D1 (L (1 PATH2 0 PATH1)) `@iAh@XAYHZI[JKJKhH\I]LM@Abb@ A@XAYH^I_LNMOhLMhNIL NIL () CONVEXP D1 (P 25Q TANGDY P 24Q TANGDX P 23Q TANGY0 P 22Q TANGX0 P 21Q CURRDY P 20Q CURRDX P 17Q CURRY0 P 16Q CURRX0 P 15Q ORIGDY P 14Q ORIGDX P 13Q ORIGY0 P 12Q ORIGX0 P 11Q LASTY P 10Q LASTX P 7 Y P 6 X P 5 PT P 4 OSGN P 3 CSGN P 2 TSGN P 1 NEGSGN P 0 RESULT I 0 PATH) Cp@ li@]d_M_@]d_$M_&O$O_O&O_@]d_M_OO$_(OO&_*O_O_OO_ OO_"jOOOOOO YdjkjImjY@biX@H]M_O$O&O(O*NO OOO O"NO OOOONO JjkjJmjKjkjKmjLjkjLmjJIKILIh@bO_$O_&NO_(OO_*NO_ OO_"N_O_Q(314Q XPROD 274Q XPROD 254Q XPROD 166Q XPROD 11Q LENGTH) NIL () MAKELINE D1 (P 0 DIR I 3 DY I 2 DX I 1 Y0 I 0 X0) 6jC@BbACbjBbjCbmk@A BC Hh(56Q MAKEXYPT 51Q MAKEXYPT) NIL () MSECT D1 (L (7 DXDV 6 DU 5 V0 4 U0 3 DUDY 2 DX 1 Y0 0 X0)) C@jGDBFEACGNIL NIL () XSECT D1 (P 3 DXDV P 2 DUDY P 1 Y P 0 X I 7 DV I 6 DU I 5 V0 I 4 U0 I 3 DY I 2 DX I 1 Y0 I 0 X0) G@FCZBG[jBBjBjCCjC@ABJDEFK A@CKEDGJ A@CBI (104Q LINEY 72Q MSECT 54Q MSECT) NIL () YSECT D1 (P 3 DXDV P 2 DUDY P 1 Y P 0 X I 7 DV I 6 DU I 5 V0 I 4 U0 I 3 DY I 2 DX I 1 Y0 I 0 X0) H@FCZBG[jBBjBjCCjC@ABJDEFK @ABCH A@CKEDGJ (105Q MSECT 67Q LINEY 55Q MSECT) NIL () XYSECT D1 (P 3 DXDV P 2 DUDY P 1 Y P 0 X I 7 DV I 6 DU I 5 V0 I 4 U0 I 3 DY I 2 DX I 1 Y0 I 0 X0) _@FCZBG[JKMjBBjBjCCjC@ABJDEFK @ABCH A@CKEDGJ A@CBI HIh(126Q LINEY 114Q MSECT 74Q LINEY 62Q MSECT) NIL () KNOTLINE D1 (P 7 I P 6 PREVY P 5 PREVX P 4 CURRY P 3 CURRX P 2 ALINE P 1 ALIST P 0 I I 0 KNOTS) >p@Xd]H^@bd$dOOMNKMLN ZIKL^I (73Q REVERSE 52Q MAKELINE) NIL () KNOTLOOP D1 (P 7 I P 6 PREVY P 5 PREVX P 4 CURRY P 3 CURRX P 2 ALINE P 1 ALIST P 0 I I 0 KNOTS) =p@ Xd]H^@$dOOMNKMLN ZIKL^I (72Q REVERSE 51Q MAKELINE 6 LAST) NIL () LINE.LESSP D1 (L (1 ARG2 0 ARG1)) &@@XAYHIHIh@ZA[JKhNIL NIL () LINEY D1 (I 4 X I 3 DY I 2 DX I 1 Y0 I 0 X0) BjCjAClD@bADCB (33Q RND) NIL () MIDDX D1 (I 4 Y I 3 DY I 2 DX I 1 Y0 I 0 X0) ?BjCj@BlDAbdjkjDmjCjkjCmj@@DBC (73Q RND) NIL () INITX D1 (L (4 Y 3 DY 2 DX 1 Y0 0 X0)) BBjCj@DAbdjkjDmjCjkjCmj@@DBlBClkNIL NIL () TERMX D1 (L (4 Y 3 DY 2 DX 1 Y0 0 X0)) BBjCj@BDAbdjkjDmjCjkjCmj@@BDBlClNIL NIL () SCANX D1 (L (4 Y 3 DY 2 DX 1 Y0 0 X0)) ]@BjCj@dBDAbdjkjDmjCjkjCmj@dBDBlXClY@HBIkZ@HBI[JKNIL NIL () XPROD D1 (L (5 Y 4 X 3 DY 2 DX 1 Y0 0 X0)) D@bEAb BECDNIL NIL () XYSECTLSEG D1 (P 11Q UMIN P 10Q UMAX P 7 XMIN P 6 XMAX P 5 VT P 4 UT P 3 YT P 2 XT P 1 Y P 0 PT I 7 DV I 6 DU I 5 V0 I 4 U0 I 3 DY I 2 DX I 1 Y0 I 0 X0) o  @BZAC[DF\EG]jBJ_@@_JjFL_DD_L_NO OOh@ABCDEFG XddYdAKIdEMIH(120Q XYSECT) NIL () MAKEBRES D1 (P 3 PXY P 2 PY P 1 PX P 0 SELF I 3 DY I 2 DX I 1 Y0 I 0 X0) P`Xd@HAHBjkjBmjHCjkjCmj jBBjBٹjCCjCٺIJٻJdj/HhH@BHk HkHmpI