(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 2-Feb-87 21:14:12" ("compiled on " {ERIS}NEXT>IRISDEMOFNS.;10) "21-Jan-87 21:13:09" brecompiled changes%: TETRA TETRA.DRAW.FACE TETRA.OBJ in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22") (FILECREATED " 2-Feb-87 21:13:01" {ERIS}NEXT>IRISDEMOFNS.;10 21478 changes to%: (VARS IRISDEMOFNSCOMS) (FNS TETRA TETRA.DRAW.FACE TETRA.OBJ) previous date%: " 4-Mar-86 10:57:38" {ERIS}NEXT>IRISDEMOFNS.;8) IRIS.DEGREES :D4 (L (0 DEGREES)) @l jNIL NIL () SNOW :D4 (P 1 I I 0 N F 2 \IRISSTREAM) @ ll kYHhj` j` jR jn lX jn lY jn lZ ok ok ok ollZ kl Ik԰(134 IRIS.POPMATRIX 130 SPHERE 127 RAND 121 RAND 109 IRIS.SCALE 106 RAND 98 RAND 90 RAND 81 IRIS.ROTATE 76 RAND 68 IRIS.ROTATE 63 RAND 55 IRIS.ROTATE 50 RAND 42 IRIS.TRANSLATE 37 RAND 30 RAND 22 IRIS.PUSHMATRIX 9 RAND) (34 SCREENHEIGHT 27 SCREENWIDTH) ( 114 " Noel" 102 0.1 94 0.1 86 0.1) SPHERE :D4 (P 1 I I 2 COUNT I 1 THETA I 0 MSG F 2 \IRISSTREAM) AlbBlbgR nhAjIH*jdR Il R Al lZ @R IkYnlY gR Bk9nhAjIH*jdR Il R Al lZ @R IkYgR nlX Bk?Bl9nhAjIH*jdR Il R Al lZ @R IkY(249 IRIS.POPMATRIX 238 PRIN1 232 IRIS.ROTATE 222 DSPCOLOR 218 IMOD 211 MOVETO 180 IRIS.ROTATE 172 DSPCOLOR 165 IRIS.POPMATRIX 154 PRIN1 148 IRIS.ROTATE 138 DSPCOLOR 134 IMOD 127 MOVETO 102 DSPCOLOR 95 IRIS.ROTATE 87 IRIS.PUSHMATRIX 84 IRIS.POPMATRIX 73 PRIN1 67 IRIS.ROTATE 57 DSPCOLOR 53 IMOD 46 MOVETO 26 IRIS.PUSHMATRIX 23 DSPCOLOR 2 IRIS.PUSHMATRIX) (168 CYAN 98 BLACK 19 RED) () TETRA :D4 (L (0 -args-) F 9 TETRA.SHRINK F 10 IV.DEFAULT.STYLE F 11 TETRA.TILT) ekHlȁkaAlHllalHWlalHglalHhlaJlKWLWNjhIN OM M:l lY W lX jIl j INOO jIl j INOO lx lZ INOO lx lZ INOO (222 IRIS.POPMATRIX 219 TETRA.TILT.AND.RECURSE 210 IRIS.ROTATE 205 IRIS.DEGREES 200 TETRA.TILT.AND.RECURSE 191 IRIS.ROTATE 186 IRIS.DEGREES 181 TETRA.TILT.AND.RECURSE 172 IRIS.TRANSLATE 167 SQRT 160 IRIS.PUSHMATRIX 156 IRIS.POPMATRIX 152 TETRA.TILT.AND.RECURSE 142 IRIS.TRANSLATE 137 SQRT 129 IRIS.ROTATE 124 IRIS.DEGREES 121 MINUS 115 IRIS.ROTATE 110 IRIS.DEGREES 104 IRIS.PUSHMATRIX 98 TETRA.OBJ 92 TETRA.COLOR) (47 WIREFRAME) () TETRA.COLOR :D4 (L (0 COLOR)) @lNIL NIL () TETRA.DRAW.FACE :D4 (P 4 EYEVECTOR P 3 NORMAL P 2 NORMALENDPT P 1 LEFTRIGHT P 0 LEFTTOP I 4 TOP I 3 RIGHT I 2 LEFT I 1 COLOR I 0 STYLE F 5 TETRA.EDGE.COLOR F 6 DONTBASERECURSE F 7 FRONT F 8 IV.VIEWPT) -@dghg@g@g VlBCWh A` lBCDh U` `B `C `D `B @dgdg5DB CB HI JB BdK l2 gqDB CB HI JB W B oLK 8A` lBCDh U` `B `C `D `B o@ o@ (298 ERROR 289 ERROR 280 3DRAWTO 273 3DRAWTO 266 3DRAWTO 259 3MOVETO 252 DSPCOLOR 245 IRIS.POLF 233 DSPCOLOR 223 3DOT 211 3DIFFERENCE 207 IRIS.XLATE 199 3DIFFERENCE 191 3CROSSPRODUCT 183 3DIFFERENCE 175 3DIFFERENCE 163 3LINE 160 3PLUS 157 3TIMES 152 3NORMALIZE 143 3DIFFERENCE 135 3CROSSPRODUCT 127 3DIFFERENCE 119 3DIFFERENCE 98 3DRAWTO 91 3DRAWTO 84 3DRAWTO 77 3MOVETO 70 DSPCOLOR 63 IRIS.POLF 51 DSPCOLOR 43 IRIS.POLF) (276 \IRISSTREAM 269 \IRISSTREAM 262 \IRISSTREAM 255 \IRISSTREAM 249 \IRISSTREAM 230 \IRISSTREAM 167 BACKFACES 110 NORMALS 103 POLYGON 94 \IRISSTREAM 87 \IRISSTREAM 80 \IRISSTREAM 73 \IRISSTREAM 67 \IRISSTREAM 48 \IRISSTREAM 23 BACKFACES 17 NORMALS 11 POLYGON 4 WIREFRAME) ( 294 "Unknown drawing style: " 285 "Unknown drawing style: " 218 0.0) TETRA.OBJ :D4 (P 3 FRONT P 2 RIGHT P 1 LEFT P 0 TOP I 3 DONTBASERECURSE I 2 STYLE I 1 COLOR I 0 X) j@l @do @ jd @jd jl @j BdgLA` `I `J `K `I `H `J `K `H NgBgBg4A` CBAIJK BAIJH BAJKH BAKIH oB (216 IRIS.POPATTRIBUTES 212 ERROR 203 TETRA.DRAW.FACE 193 TETRA.DRAW.FACE 183 TETRA.DRAW.FACE 173 TETRA.DRAW.FACE 161 DSPCOLOR 134 3DRAWTO 126 3MOVETO 118 3DRAWTO 110 3DRAWTO 102 3DRAWTO 94 3DRAWTO 86 3DRAWTO 78 3MOVETO 70 DSPCOLOR 54 IRIS.PUSHATTRIBUTES 48 3POINT 42 SQRT 36 3POINT 30 3POINT 25 MINUS 21 3POINT 18 SQRT 6 SQRT) (158 \IRISSTREAM 151 BACKFACES 145 NORMALS 139 POLYGON 130 \IRISSTREAM 122 \IRISSTREAM 114 \IRISSTREAM 106 \IRISSTREAM 98 \IRISSTREAM 90 \IRISSTREAM 82 \IRISSTREAM 74 \IRISSTREAM 67 \IRISSTREAM 59 WIREFRAME) ( 208 "Unknown drawing style: " 13 2.6666667) TETRA.TILT.AND.RECURSE :D4 (P 0 BOTTOMY I 3 STYLE I 2 SHRINKFACTOR I 1 RECDEPTH I 0 X F 1 TETRA.TILT) G@l j@l j Q lX jHdBj Bdd B@AkBCi (68 IRIS.POPMATRIX 65 TETRA 52 IRIS.SCALE 46 IRIS.TRANSLATE 36 IRIS.ROTATE 31 IRIS.DEGREES 27 IRIS.TRANSLATE 23 MINUS 19 SQRT 12 IRIS.PUSHMATRIX 5 SQRT) NIL () 3DOT :D4 (L (1 B 0 A)) @A@A@ANIL NIL () 3DRAWTO :D4 (I 3 Z I 2 Y I 1 XOR3PT I 0 STREAM) Ad3BC@ AA@ (23 IRIS.DRAW 10 IRIS.DRAW) NIL () 3MOVETO :D4 (I 3 Z I 2 Y I 1 XOR3PT I 0 STREAM) Ad3BC@ AA@ (23 IRIS.MOVE 10 IRIS.MOVE) NIL () 3NORMALIZE :D4 (P 0 LENGTH I 0 3VECTOR) @ @H@H@H (24 3POINT 3 3LENGTH) NIL () 3PLUS :D4 (I 1 B I 0 A) @A@A@A (23 3POINT) NIL () 3POINT :D4 (L (2 Z 1 Y 0 X)) @ABhNIL NIL () 3UNITCROSSPRODUCT :D4 (P 0 NORMAL I 1 B I 0 A) (@A H HdIHHIHHIH(11 3LENGTH 4 3CROSSPRODUCT) NIL () 3DIFFERENCE :D4 (I 1 SOURCE I 0 DEST) @A@A@A (24 3POINT) NIL () 3CROSSPRODUCT :D4 (I 1 B I 0 A) 2@A@A@A@A@A@A (47 3POINT) NIL () 3LENGTH :D4 (I 0 A) @@@@@@ (25 SQRT) NIL () 3LINE :D4 (I 1 B I 0 A F 0 \IRISSTREAM) P@ PA (9 3DRAWTO 4 3MOVETO) NIL () 3TIMES :D4 (I 1 SCALAR I 0 VECTOR) @A@A@A (17 3POINT) NIL () DRAW.FACE? :D4 (P 4 EYEVECTOR P 3 NORMAL P 2 NORMALENDPT P 1 LEFTRIGHT P 0 LEFTTOP I 3 COLOR I 2 TOP I 1 RIGHT I 0 LEFT F 5 \IRISSTREAM F 6 IV.VIEWPT F 7 TETRA.EDGE.COLOR) iB@ A@ HI J@ V @ LK o2CgU l@ABh WU U@ UA UB U@ (102 3DRAWTO 97 3DRAWTO 92 3DRAWTO 87 3MOVETO 82 DSPCOLOR 76 IRIS.POLF 64 DSPCOLOR 47 3DOT 39 3DIFFERENCE 35 IRIS.XLATE 28 3DIFFERENCE 20 3CROSSPRODUCT 12 3DIFFERENCE 4 3DIFFERENCE) (60 CYAN) ( 51 0.0) IRIS.XLATE :D4 (I 0 3VECTOR F 1 \IRIS.FEEDBACKBUFFER F 2 \IRIS.DUMMYBUFFER) Rl @@@ Q l o jdXdQl HQl jdXdQl HQl jdXdQl HQl  (126 3POINT 119 ELT 109 ELT 89 ELT 79 ELT 59 ELT 49 ELT 32 HELP 21 IRIS.ENDFEEDBACK 17 IRIS.XFPT 5 IRIS.FEEDBACK) NIL ( 29 "NINE ITEMS NOT RETURNED") (PRETTYCOMPRINT IRISDEMOFNSCOMS) (RPAQQ IRISDEMOFNSCOMS ((FNS IRIS.DEGREES SNOW SPHERE TETRA TETRA.COLOR TETRA.DRAW.FACE TETRA.OBJ TETRA.TILT.AND.RECURSE) (VARS IRIS.TILT TETRA.COLOR TETRA.EDGE.COLOR TETRA.SHRINK TETRA.TILT IV.DEFAULT.STYLE) (* ;; "minimal 3-d support for the tetra demo") (RECORDS 3POINT) (FNS 3DOT 3DRAWTO 3MOVETO 3NORMALIZE 3PLUS 3POINT 3UNITCROSSPRODUCT 3DIFFERENCE 3CROSSPRODUCT 3LENGTH 3LINE 3TIMES DRAW.FACE? IRIS.XLATE) (VARS \IRIS.DUMMYBUFFER \IRIS.FEEDBACKBUFFER) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA TETRA))))) (RPAQQ IRIS.TILT 70.52878) (RPAQQ TETRA.COLOR BLUE) (RPAQQ TETRA.EDGE.COLOR BLACK) (RPAQQ TETRA.SHRINK 0.7) (RPAQQ TETRA.TILT 70.52878) (RPAQQ IV.DEFAULT.STYLE WIREFRAME) (RECORD 3POINT (|3X| |3Y| |3Z|)) (RPAQ \IRIS.DUMMYBUFFER (READARRAY 9 (QUOTE FIXP) 1)) (1 1 1 1 1 1 1 1 1 NIL) (RPAQ \IRIS.FEEDBACKBUFFER (READARRAY 9 (QUOTE FIXP) 1)) (56 17275 9800 17288 8544 17585 41814 17585 41814 NIL) NIL