(FILECREATED " 4-Mar-85 16:41:33" ("compiled on " {ERIS}LIBRARY>MATRIXUSE.;2) "21-Feb-85 12:39:57" recompiled ALL in "INTERLISP-D 21-Feb-85 ..." dated "21-Feb-85 12:54:37") (FILECREATED " 4-Mar-85 16:41:05" {ERIS}LIBRARY>MATRIXUSE.;2 9303 changes to: (VARS MATRIXUSECOMS) (FNS FOO CREATE1BY3 CREATE1BY4 CREATE3BY1 CREATE3BY3 CREATE4BY1 CREATE4BY4 IDENTITY3BY3 IDENTITY4BY4 ROTATE4BY4.ABOUTX ROTATE4BY4.ABOUTY ROTATE4BY4.ABOUTZ SCALE3BY3 SCALE4BY4 TRANSLATE3BY3 TRANSLATE4BY4 SET.XCOORD)) 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 (P 3 X P 1 MATRIXBASE P 0 MATRIX I 0 M) I@µ1Hɹlj»ºKJó¯IK ÐhοKkÔ[°ïImøÐn?€jÑÎIn?€jÑÎIn?€jÑÎH(37Q DOUBLE 7 CREATE3BY3) (16Q ARRAYP) () IDENTITY4BY4 D1 (P 3 X P 1 MATRIXBASE P 0 MATRIX I 0 M) Q@µ1Hɹlj»ºKJó¯IK ÐhοKkÔ[°ïImöÐn?€jÑÎIn?€jÑÎIn?€jÑÎ In?€jÑÎH(37Q DOUBLE 7 CREATE4BY4) (16Q ARRAYP) () ROTATE3BY3 D1 (P 3 SINTHETA P 2 COSTHETA P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 RADIANSFLG I 0 THETA) dBµHɹ@A @A ImøÐJíÎImúÐK íÎImüÐhÎImþÐKíÎIJíÎIhÎIhÎIhÎIn?€jÑÎH(62Q FMINUS 36Q SIN 26Q COS 7 CREATE3BY3) (16Q ARRAYP) () ROTATE4BY4.ABOUTX D1 (P 5 X P 3 SINTHETA P 2 COSTHETA P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 RADIANSFLG I 0 THETA) nBµHɹ@A @A ljMLó¯IM ÐhοMkÔ]°ïImöÐn?€jÑÎIJíÎIK íÎIKíÎIJíÎ In?€jÑÎH(122Q FMINUS 60Q DOUBLE 36Q SIN 26Q COS 7 CREATE3BY3) (16Q ARRAYP) () ROTATE4BY4.ABOUTY D1 (P 5 X P 3 SINTHETA P 2 COSTHETA P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 RADIANSFLG I 0 THETA) qBµHɹ@A @A ljMLó¯IM ÐhοMkÔ]°ïImöÐJíÎImúÐK íÎIn?€jÑÎIKíÎIJíÎ In?€jÑÎH(115Q FMINUS 60Q DOUBLE 36Q SIN 26Q COS 7 CREATE3BY3) (16Q ARRAYP) () ROTATE4BY4.ABOUTZ D1 (P 5 X P 3 SINTHETA P 2 COSTHETA P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 RADIANSFLG I 0 THETA) tBµHɹ@A @A ljMLó¯IM ÐhοMkÔ]°ïImöÐJíÎImøÐK íÎImþÐKíÎIJíÎIn?€jÑÎ In?€jÑÎH(115Q FMINUS 60Q DOUBLE 36Q SIN 26Q COS 7 CREATE3BY3) (16Q ARRAYP) () SCALE3BY3 D1 (P 3 X P 1 MATRIXBASE P 0 MATRIX I 2 M I 1 Sy I 0 Sx) EBµ1Hɹlj»ºKJó¯IK ÐhοKkÔ[°ïImøÐ@íÎIAíÎIn?€jÑÎH(37Q DOUBLE 7 CREATE3BY3) (16Q ARRAYP) () SCALE4BY4 D1 (P 3 X P 1 MATRIXBASE P 0 MATRIX I 3 M I 2 Sz I 1 Sy I 0 Sx) KCµ1Hɹlj»ºKJó¯IK ÐhοKkÔ[°ïImöÐ@íÎIAíÎIBíÎ In?€jÑÎH(37Q DOUBLE 7 CREATE4BY4) (16Q ARRAYP) () TRANSLATE3BY3 D1 (I 2 M I 1 Ty I 0 Tx) #BµHÉYmüÐ@íÎIAíÎH(7 IDENTITY3BY3) (16Q ARRAYP) () TRANSLATE4BY4 D1 (I 3 M I 2 Tz I 1 Ty I 0 Tx) )CµHÉYmüÐ@íÎIAíÎIBíÎ H(7 IDENTITY4BY4) (16Q ARRAYP) () SET.XCOORD D1 (I 1 VALUE I 0 VECTOR) ,@ lñ²@ÉAíHmöÐIοIío@ (51Q ERROR 3 ARRAYSIZE) (14Q ARRAYP) ( 45Q "Vector too short ") SET.YCOORD D1 (I 1 VALUE I 0 VECTOR) ,@ lñ²@ÉAíHmþÐIοIío@ (51Q ERROR 3 ARRAYSIZE) (14Q ARRAYP) ( 45Q "Vector too short ") SET.ZCOORD D1 (I 1 VALUE I 0 VECTOR) )@ lñ²@ÉAíHIοIío@ (46Q ERROR 3 ARRAYSIZE) (14Q ARRAYP) ( 42Q "Vector too short ") GET.XCOORD D1 (I 0 VECTOR) &@ lñ²@ÉmöÐdÈýÈÑío@ (43Q ERROR 3 ARRAYSIZE) (14Q ARRAYP) ( 37Q "Vector too short ") GET.YCOORD D1 (I 0 VECTOR) &@ lñ²@ÉmþÐdÈýÈÑío@ (43Q ERROR 3 ARRAYSIZE) (14Q ARRAYP) ( 37Q "Vector too short ") GET.ZCOORD D1 (I 0 VECTOR) "@ lñŸ@ÉdÈýÈÑío@ (37Q ERROR 3 ARRAYSIZE) (13Q ARRAYP) ( 33Q "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 SET.XCOORD SET.YCOORD SET.ZCOORD) (FNS GET.XCOORD GET.YCOORD GET.ZCOORD))) (PUTPROPS MATRIXUSE COPYRIGHT ("Xerox Corporation" 1985)) NIL