(FILECREATED "31-AUG-82 15:10:23" ("compiled on " {PHYLUM}LISP>FASTANIMATE.;1) "30-AUG-82 07:57:17" tcompl'd in WORK dated "30-AUG-82 08:17:05") (FILECREATED "31-AUG-82 15:09:39" {PHYLUM}LISP>FASTANIMATE.;1 15702 changes to: (FNS Fool) previous date: "31-AUG-82 11:44:01" {PHYLUM}FASTANIMATE.;17) Animate D1 (P 2 i P 0 command I 6 transcriptFlag I 5 yTranslate I 4 xTranslate I 3 numFrames I 2 displayStream I 1 script I 0 object F 3 animateProg F 4 deltaX F 5 deltaY F 6 deltaZ F 7 zTransDelta F 10Q yScaleDelta F 11Q xScaleDelta) FhhcAdHCcHCc HCc HCbHCb jcHk HCkԀkcHk HCkԀkcBh@BDEjF bCkJI8@TUV DEW bB FSo ch@BDEjF JkZ9B(304Q TranslateAndDisplayObject 266Q TCONC 252Q CLEARW 243Q Translate 234Q FastRotate 210Q TranslateAndDisplayObject 151Q EQUAL 114Q EQUAL) NIL (263Q (CLEARW displayStream)) DO1 D1 (I 3 Z I 2 Y I 1 X I 0 N F 2 $$globalObject F 3 DS) '@HjhRABC cSn,dj HkXI(34Q TranslateAndDisplayObject 20Q FastRotate) NIL NIL DisplayObject D1 (P 1 point P 0 line I 2 displayStream I 1 object I 0 oldObject F 2 firstPoint F 3 remainder) iBgo bAUdHcHc?dRdB RB IB RRIIlgB IchB(126Q DRAWLINE 101Q PRIN1 67Q DSPYPOSITION 57Q DSPXPOSITION 12Q DECODE/WINDOW/OR/DISPLAYSTREAM) (121Q REPLACE 3 displayStream) (7 "DMR Graphics Window") FCOS D1 (I 0 X) @dj@nh@`@(@ (32Q COS) (23Q COSARRAY) NIL FSIN D1 (I 0 X) @dj@nh@`@(@ (32Q SIN) (23Q SINARRAY) NIL FastRotX D1 (P 4 line P 3 point I 1 theta I 0 object) P@d0Ld[AdjAnhA`A(A KAdjAnhA`A(A KAdjAnhA`A(A KKAdjAnhA`A(A KhNMh_M&`OIHhZH&?J(222Q SIN 157Q COS 116Q SIN 57Q COS) (213Q SINARRAY 150Q COSARRAY 107Q SINARRAY 50Q COSARRAY) NIL FastRotY D1 (P 4 line P 3 point I 1 theta I 0 object) P@d0Ld[AdjAnhA`A(A KAdjAnhA`A(A KKAdjAnhA`A(A KAdjAnhA`A(A KhNMh_M&aOIHhZH&@J(221Q SIN 163Q COS 117Q SIN 57Q COS) (212Q SINARRAY 154Q COSARRAY 110Q SINARRAY 50Q COSARRAY) NIL FastRotZ D1 (P 4 line P 3 point I 1 theta I 0 object) P@d0Ld[AdjAnhA`A(A KAdjAnhA`A(A KAdjAnhA`A(A KAdjAnhA`A(A KKhNMh_M&bOIHhZH&AJ(214Q SIN 156Q COS 116Q SIN 57Q COS) (205Q SINARRAY 147Q COSARRAY 107Q SINARRAY 50Q COSARRAY) NIL FastRotate D1 (I 3 z I 2 y I 1 x I 0 object) +Aj @A bBj @B bCj @C @(46Q FastRotZ 40Q EQUAL 30Q FastRotY 22Q EQUAL 12Q FastRotX 4 EQUAL) NIL NIL Fool D1 (F 0 arrow F 1 $$globalObject) Pcokll h(16Q DO1) NIL (6 3641100Q) MAKESCRATCHBM D1 (P 1 DSP P 0 BM I 1 H I 0 W) @A HI HIh(17Q DSPDESTINATION 7 DSPCREATE 4 BITMAPCREATE) NIL NIL RotateObject D1 (P 4 line P 3 point I 3 Zdegrees I 2 Ydegrees I 1 Xdegrees I 0 object F 10Q newPointArray F 11Q RotArray F 12Q yRotArray F 13Q zRotArray F 14Q pointArray) Wo Aj WA Bj WB ggg Cj WC ggg P@td0LXdWKKKkhh ggg Wkdl Wkll Wkll hNMh_M&OIHhZH&J(236Q GetElt 224Q GetElt 212Q GetElt 200Q MatMult 163Q SetArray 112Q MatMult 75Q Make.RotateInZ.Array 65Q EQUAL 57Q MatMult 42Q Make.RotateInY.Array 32Q EQUAL 24Q Make.RotateInX.Array 15Q EQUAL 10Q SetArray) (175Q newPointArray 172Q xRotArray 167Q pointArray 107Q RotArray 104Q yRotArray 101Q RotArray 54Q RotArray 51Q yRotArray 46Q RotArray) (5 ((1 0 0 0) (0 1 0 0) (0 0 1 0) (0 0 0 1))) RotateWorld D1 (I 2 z I 1 y I 0 x F 0 8200WireFrameModel F 1 RDHWireFrame F 2 RDHPointer F 3 BottomPaperTrayPointer F 4 TopPaperTrayWireFrame F 5 TopPaperTrayPointer F 6 BottomPaperTrayWireFrame) BP@AB cQ@AB cR@AB cT@AB cU@AB c V@AB c S@AB ch(74Q FastRotate 63Q FastRotate 52Q FastRotate 41Q FastRotate 30Q FastRotate 17Q FastRotate 6 FastRotate) NIL NIL Translate D1 (L (3 zTrans 2 yTrans 1 xTrans 0 object)) ZAjBjCjLP@Ad0L%d[AKBKChNMh_M&OIHhZH&J@NIL NIL NIL TranslateAndDisplayObject D1 (L (6 transcriptFlag 5 dz 4 dy 3 dx 2 displayStream 1 object 0 oldObject) F 6 firstPoint F 7 DSPSCRATCH F 10Q remainder F 11Q animateProg) WhB hB  cooW AWKWhdB h]c McdV CVL DVL JL &CHVDIVCHJDIJlgL F,WCVDVCJDJEJJh Jc }K[[(312Q TCONC 235Q DRAWLINE 167Q PRIN1 155Q DSPYPOSITION 143Q DSPXPOSITION 102Q BITBLT 53Q CLEAR 27Q MAKESCRATCHBM 20Q DSPCLIPPINGREGION 10Q DSPCLIPPINGREGION) (230Q REPLACE) (42Q 1.0 36Q 1.0) DisplayAnimateProg D1 (L (1 displayStream 0 object) F 4 firstPoint F 5 DSPSCRATCH F 6 remainder) UdA hA  c  @U"H UhdA hZcJc ?dTdI TI KI TKKlgI KcHX(166Q DRAWLINE 141Q PRIN1 127Q DSPYPOSITION 117Q DSPXPOSITION 61Q BITBLT 34Q CLEAR 26Q MAKESCRATCHBM 17Q DSPCLIPPINGREGION 7 DSPCLIPPINGREGION) (161Q REPLACE) NIL TranslateAndDisplayObject D1 (L (6 transcriptFlag 5 dz 4 dy 3 dx 2 displayStream 1 object 0 oldObject) F 6 firstPoint F 7 DSPSCRATCH F 10Q remainder F 11Q animateProg) WhB hB  cooW AWKWhdB h]c McdV CVL DVL JL &CHVDIVCHJDIJlgL F,WCVDVCJDJEJJh Jc }K[[(312Q TCONC 235Q DRAWLINE 167Q PRIN1 155Q DSPYPOSITION 143Q DSPXPOSITION 102Q BITBLT 53Q CLEAR 27Q MAKESCRATCHBM 20Q DSPCLIPPINGREGION 10Q DSPCLIPPINGREGION) (230Q REPLACE) (42Q 1.0 36Q 1.0) (PRETTYCOMPRINT FASTANIMATECOMS) (RPAQQ FASTANIMATECOMS ((FNS * FASTANIMATEFNS) (VARS * FASTANIMATEVARS) (MACROS * FASTANIMATEMACROS) ( P (FOR I FROM 0 TO 359 DO (SETA COSARRAY I (COS I))) (FOR I FROM 0 TO 359 DO (SETA SINARRAY I (SIN I)) ) (GLOBALVARS SINARRAY COSARRAY)) (PROP (T (COS X)) FCOS))) (RPAQQ FASTANIMATEFNS (Animate DO1 DisplayObject FCOS FSIN FastRotX FastRotY FastRotZ FastRotate Fool MAKESCRATCHBM RotateObject RotateWorld Translate TranslateAndDisplayObject DisplayAnimateProg TranslateAndDisplayObject)) (RPAQQ FASTANIMATEVARS (test $$oldGlobalObject animationScript (COSARRAY (ARRAY 360 NIL NIL 0)) ( SINARRAY (ARRAY 360 NIL NIL 0)))) (RPAQQ test (((11.15614 76.58971 63.26802 NIL) (-185.7381 76.58971 97.98666 NIL) (-212.329 205.1217 -52.81405 NIL) (181.4595 205.1217 -122.2514 NIL) (226.664 -13.38268 134.1099 NIL) (224.4328 -28.70062 121.4563 NIL) (232.4101 -67.26023 166.6965 NIL) (35.51583 -67.26023 201.4151 NIL) (27.53855 -28.70062 156.1749 NIL) (29.76978 -13.38268 168.8285 NIL) (11.15614 76.58971 63.26802 NIL)) ((-11.15614 -76.58971 -63.26802 NIL) (-208.0504 -76.58971 -28.54936 NIL) (-234.6413 51.94228 -179.3501 NIL) ( 159.1472 51.94228 -248.7874 NIL) (212.329 -205.1217 52.81405 NIL) (15.43477 -205.1217 87.5327 NIL) ( -11.15614 -76.58971 -63.26802 NIL)) ((11.15614 76.58971 63.26802 NIL) (-11.15614 -76.58971 -63.26802 NIL)) ((-185.7381 76.58971 97.98666 NIL) (-208.0504 -76.58971 -28.54936 NIL)) ((-212.329 205.1217 -52.81405 NIL) (-234.6413 51.94228 -179.3501 NIL)) ((181.4595 205.1217 -122.2514 NIL) (159.1472 51.94228 -248.7874 NIL)) ((232.4101 -67.26023 166.6965 NIL) (212.329 -205.1217 52.81405 NIL)) (( 35.51583 -67.26023 201.4151 NIL) (15.43477 -205.1217 87.5327 NIL)) ((11.15614 76.58971 63.26802 NIL) ( -11.15614 -76.58971 -63.26802 NIL)) ((27.53855 -28.70062 156.1749 NIL) (224.4328 -28.70062 121.4563 NIL)) ((29.76978 -13.38268 168.8285 NIL) (226.664 -13.38268 134.1099 NIL)))) (RPAQQ $$oldGlobalObject NIL) (RPAQQ animationScript NIL) (RPAQ COSARRAY (ARRAY 360 NIL NIL 0)) (RPAQ SINARRAY (ARRAY 360 NIL NIL 0)) (RPAQQ FASTANIMATEMACROS (FCOS FSIN)) (PUTPROPS FCOS MACRO ((X) (COND ((AND (SMALLP X) (IGEQ X 0) (ILESSP X 360)) (ELT COSARRAY X)) (T (COS X))))) (PUTPROPS FSIN MACRO ((X) (COND ((AND (SMALLP X) (IGEQ X 0) (ILESSP X 360)) (ELT SINARRAY X)) (T (SIN X))))) (FOR I FROM 0 TO 359 DO (SETA COSARRAY I (COS I))) (FOR I FROM 0 TO 359 DO (SETA SINARRAY I (SIN I))) (GLOBALVARS SINARRAY COSARRAY) NIL