(FILECREATED " 2-Apr-85 15:47:51" ("compiled on " {ERIS}LIBRARY>MATRIXUSE.;5) "19-Mar-85 14:34:17" recompiled changes: IDENTITY3BY3 IDENTITY4BY4 ROTATE3BY3 ROTATE4BY4.ABOUTX ROTATE4BY4.ABOUTY ROTATE4BY4.ABOUTZ SCALE3BY3 SCALE4BY4 TRANSLATE3BY3 TRANSLATE4BY4 \MAKEVALIDARRAY SET.XCOORD SET.YCOORD SET.ZCOORD SET.WCOORD GET.XCOORD GET.YCOORD GET.ZCOORD GET.WCOORD in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:48:35") (FILECREATED " 2-Apr-85 15:28:32" {ERIS}LIBRARY>MATRIXUSE.;5 10348 changes to: (FNS SET.WCOORD GET.WCOORD IDENTITY3BY3 IDENTITY4BY4 ROTATE3BY3 ROTATE4BY4.ABOUTX ROTATE4BY4.ABOUTY ROTATE4BY4.ABOUTZ SCALE3BY3 SCALE4BY4 TRANSLATE3BY3 TRANSLATE4BY4 \MAKEVALIDARRAY SET.XCOORD SET.YCOORD SET.ZCOORD GET.XCOORD GET.YCOORD GET.ZCOORD) (VARS MATRIXUSECOMS) (MACROS DOUBLEIT) previous date: " 4-Mar-85 16:41:05" {ERIS}LIBRARY>MATRIXUSE.;2) CREATE1BY3 D1 NIL lgjd (11Q ARRAY) (4 FLOATP) () CREATE1BY4 D1 NIL lgjd (11Q ARRAY) (4 FLOATP) () CREATE3BY1 D1 NIL lgjd (11Q ARRAY) (4 FLOATP) () CREATE3BY3 D1 NIL l gjd (11Q ARRAY) (4 FLOATP) () CREATE4BY1 D1 NIL lgjd (11Q ARRAY) (4 FLOATP) () CREATE4BY4 D1 NIL lgjd (11Q ARRAY) (4 FLOATP) () IDENTITY3BY3 D1 (I 0 M) E@l g 1Hɹlj»ºKJó­IKàÐhοKkÔ[°ñIn?€jÑÎIn?€jÑÎIn?€jÑÎH(10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE3BY3) () IDENTITY4BY4 D1 (I 0 M) M@lg 1Hɹlj»ºKJó­IKàÐhοKkÔ[°ñIn?€jÑÎIn?€jÑÎ In?€jÑÎIn?€jÑÎH(10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE4BY4) () ROTATE3BY3 D1 (P 3 SINTHETA P 2 COSTHETA P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 RADIANSFLG I 0 THETA) YBl g Hɹ@A @A IJíÎIK íÎIhÎIKíÎIJíÎIhÎ IhÎ IhÎIn?€jÑÎH(55Q FMINUS 37Q SIN 27Q COS 10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE3BY3) () ROTATE4BY4.ABOUTX D1 (P 5 SINTHETA P 4 COSTHETA P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 RADIANSFLG I 0 THETA) hBlg 1Hɹ@A @A lj»ºKJó­IKàÐhοKkÔ[°ñIn?€jÑÎILíÎ IM íÎ IMíÎILíÎIn?€jÑÎH(114Q FMINUS 37Q SIN 27Q COS 10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE4BY4) () ROTATE4BY4.ABOUTY D1 (P 5 SINTHETA P 4 COSTHETA P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 RADIANSFLG I 0 THETA) hBlg 1Hɹ@A @A lj»ºKJó­IKàÐhοKkÔ[°ñILíÎIM íÎIn?€jÑÎ IMíÎILíÎIn?€jÑÎH(104Q FMINUS 37Q SIN 27Q COS 10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE4BY4) () ROTATE4BY4.ABOUTZ D1 (P 5 SINTHETA P 4 COSTHETA P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 RADIANSFLG I 0 THETA) hBlg 1Hɹ@A @A lj»ºKJó­IKàÐhοKkÔ[°ñILíÎIM íÎIMíÎILíÎ In?€jÑÎIn?€jÑÎH(104Q FMINUS 37Q SIN 27Q COS 10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE4BY4) () SCALE3BY3 D1 (I 2 M I 1 Sy I 0 Sx) ABl g 1Hɹlj»ºKJó­IKàÐhοKkÔ[°ñI@íÎIAíÎIn?€jÑÎH(10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE3BY3) () SCALE4BY4 D1 (I 3 M I 2 Sz I 1 Sy I 0 Sx) GClg 1Hɹlj»ºKJó­IKàÐhοKkÔ[°ñI@íÎIAíÎ IBíÎIn?€jÑÎH(10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE4BY4) () TRANSLATE3BY3 D1 (P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 Ty I 0 Tx) &Bl g HɹH I@íÎ IAíÎH(26Q IDENTITY3BY3 10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE3BY3) () TRANSLATE4BY4 D1 (P 1 MATRIXBASE P 0 MATRIX I 3 M I 2 Tz I 1 Ty I 0 Tx) ,Clg HɹH I@íÎIAíÎIBíÎH(26Q IDENTITY4BY4 10Q \MAKEVALIDARRAY) (17Q ARRAYP 5 CREATE4BY4) () \MAKEVALIDARRAY D1 (I 2 CREATEFN I 1 ELEMENTS I 0 ARRAY) @d™ Aýñ¡@@¤B @ (30Q \ILLEGAL.ARG 23Q APPLY 7 ARRAYSIZE) NIL () SET.XCOORD D1 (I 1 VALUE I 0 VECTOR) @ lñš@kdlA o@ (32Q ERROR 21Q SETELT 3 ARRAYSIZE) NIL ( 26Q "Vector too short ") SET.YCOORD D1 (I 1 VALUE I 0 VECTOR) @ lñ›@kllA o@ (33Q ERROR 22Q SETELT 3 ARRAYSIZE) NIL ( 27Q "Vector too short ") SET.ZCOORD D1 (I 1 VALUE I 0 VECTOR) @ lñ›@kllA o@ (33Q ERROR 22Q SETELT 3 ARRAYSIZE) NIL ( 27Q "Vector too short ") SET.WCOORD D1 (I 1 VALUE I 0 VECTOR) @ lñš@kldA o@ (32Q ERROR 21Q SETELT 3 ARRAYSIZE) NIL ( 26Q "Vector too short ") GET.XCOORD D1 (I 0 VECTOR) @ lñ˜@kdl o@ (30Q ERROR 17Q GETELT 3 ARRAYSIZE) NIL ( 24Q "Vector too short ") GET.YCOORD D1 (I 0 VECTOR) @ lñ™@kll o@ (31Q ERROR 20Q GETELT 3 ARRAYSIZE) NIL ( 25Q "Vector too short ") GET.ZCOORD D1 (I 0 VECTOR) @ lñ™@kll o@ (31Q ERROR 20Q GETELT 3 ARRAYSIZE) NIL ( 25Q "Vector too short ") GET.WCOORD D1 (I 0 VECTOR) @ lñ˜@kld o@ (30Q ERROR 17Q GETELT 3 ARRAYSIZE) NIL ( 24Q "Vector too short ") (PRETTYCOMPRINT MATRIXUSECOMS) (RPAQQ MATRIXUSECOMS ((FNS CREATE1BY3 CREATE1BY4 CREATE3BY1 CREATE3BY3 CREATE4BY1 CREATE4BY4 IDENTITY3BY3 IDENTITY4BY4 ROTATE3BY3 ROTATE4BY4.ABOUTX ROTATE4BY4.ABOUTY ROTATE4BY4.ABOUTZ SCALE3BY3 SCALE4BY4 TRANSLATE3BY3 TRANSLATE4BY4) (FNS \MAKEVALIDARRAY) (FNS SET.XCOORD SET.YCOORD SET.ZCOORD SET.WCOORD) (FNS GET.XCOORD GET.YCOORD GET.ZCOORD GET.WCOORD) (MACROS DOUBLEIT))) (PUTPROPS DOUBLEIT MACRO ((A) (LLSH A 1))) (PUTPROPS MATRIXUSE COPYRIGHT ("Xerox Corporation" 1985)) NIL