; P@QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GRAPHM   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPGRAPHMU*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xGETUMLMACU:U*ULOADLISP!#!xFBOUNDPDEFSTRUCTCASEQOPSYSTOPS-20U;]*Ustruct )+px xITSliblsp;structw:U*w /p11x1 xERRORunknown opsys 35pxu:UjW xFAIL-ACT%'-1 '7xFLUSH-MACROMEMOSGRAPHS-MODULE9xGRAPHS-MODULE MACROMACRO9;xU*U*UMACROFETCHLENGTHWrong number args for macroHERALDEVAL-WHENEVALGRAPHSLISTCAR1NAMELISTINFILEFASLOADCOMPILEMACROMEMOSUBR5B@" `=1N` ,8,8,8g",@e<Z`[-,1 ?-, A!C"E#! !C"EG!z ) @2-,$z ?9}?8 uq@q}A$<AxGRAPHICS-SFA-OUT-STREAMGRAPHICS-SFAOUT-STREAMBsx:;xMAKE-GRAPHICS-SFA-1CB;xu;U.UCw;xALTER-GRAPHICS-SFAB;xy;xSFAGRAPHICS-SFA-B=D>}?C@B}A$AxBROADCAST-SFA-LBROADCAST-SFAW:]jwLEFsxE:;xMAKE-BROADCAST-SFA-1;xw;xALTER-BROADCAST-SFAG;xGy;xW*U*UBROADCAST-SFA-=D>F}?E@}A$GAxMAKE-ARDS-STREAMSPECIALGRAPHIC-MODEINVISIBLEPDOTTEDPLAST-POSARDS-STREAMu+]*w*U+HIJKxARDS-STREAM-Y-MAXY-MAXKLsx:;xARDS-STREAM-Y-MINY-MINKMsx:;xU;U.uARDS-STREAM-X-MAXX-MAXKNsx:;xARDS-STREAM-X-MINX-MINKOsx:;xARDS-STREAM-LAST-POSw+].uKsx:;xARDS-STREAM-DOTTEDPPKJsxP:;xARDS-STREAM-INVISIBLEPKsx:;xARDS-STREAM-GRAPHIC-MODEw+].uQKIsxQ:;xARDS-STREAM-OUT-STREAMKsx:;xMAKE-ARDS-STREAM-1RK;xRw;xALTER-ARDS-STREAMw*U*UK;xy;xMAKE-ARDS-LAST-POS~8U*UjUH ARDS-STREAM-K={>}I@QSJPTOUNVMWL RKXK}A$AxARDS-LAST-POS-YARDS-LAST-POSYw+]nWYZsxY:;xARDS-LAST-POS-Xsx:;x;xw;xALTER-ARDS-LAST-POS[;xu+U*U[y;xFIXNUM-ARRAYARDS-LAST-POS-=>}?Z@?YS}A$[\AxGRAPHICS-STREAMWINDOWVIEWPORTSCALING-COEFWLAST-POSU+UnWFLONUMY-INTERCEPTMAKE-GRAPHICS-STREAM*U]^______+`xGRAPHICS-STREAM-OUT-STREAMsx:;xGRAPHICS-STREAM-WLAST-POSasxu;UnWa:;xGRAPHICS-STREAM-SCALING-COEF^sx:;xGRAPHICS-STREAM-VIEWPORTbsxb:;xGRAPHICS-STREAM-WINDOW]sxu;UnU:;xMAKE-GRAPHICS-STREAM-1c;xcw;xALTER-GRAPHICS-STREAM;xy;xMAKE-WINDOWMAKE-VIEWPORTU+U.uMAKE-SCALING-COEFMAKE-WLAST-POSGRAPHICS-STREAM-={>]}d@b^SeaT? cU}A$fAxWINDOW-Y1Y1]gsx:;xWINDOW-Y0W:UnUY0]hsx:;xWINDOW-X1X1]isx:;xWINDOW-X0X0w;UnU]jsx:;xd];xdw;xALTER-WINDOW];xy;xFLONUM-ARRAY _PU:]jw 0WINDOW-]=k>j}i@lhSgldT]}A$AxVIEWPORT-Y1mgsxm:;xVIEWPORT-Y0hsx:;xW:]nuVIEWPORT-X1nisxn:;xVIEWPORT-X0jsx:;x;xw;xALTER-VIEWPORTw*]*wo;xoy;x VIEWPORT-=>j}}i@nhS}gmT}A$opAxSCALING-COEF-M-YM-Y^qsx:;xU;U.uSCALING-COEF-M-XM-X^rsx:;xSCALING-COEF-K-YK-Y^ssx:;xSCALING-COEF-K-XW;].uK-X^tsx:;xe^;xew;xALTER-SCALING-COEF^;xy;xSCALING-COEF-u;Unw^=k>t}?s@?rS?q?eT^}A$uAxWLAST-POS-YZsx:;xWLAST-POS-Xvsxv:;x;xw;xW:].WALTER-WLAST-POS;xy;xWLAST-POS-=k>}?vZ@?S}A$wAxSCALExSCALE MACROx;xU(*$+$IFIXy `=1N@ `_ _,8{,8g",<Z`[0Z[Z [ (*,8-,1,X 0-, -,@-,1 $(  -, $y-,-,1 -,2 $ `aI,x]:\%)SCALE-XzxSCALE-X MACROz;x `=1N` ,8,8g",< P2Z`[^z fnZ-,^z }F4l-, 00-, &z $ `aI,x1(%>SCALE-Y{xSCALE-Y MACRO{;x@" `=1N` ,8,8g", e<Z`[^z fnZ-,^z }f4l-,  -, &{ $ `aIK,x8%LX-INTERCEPT|xX-INTERCEPT MACRO|;x  `=1N` ,8,8g@",<Z`[Z[Z [(Z([ Z[,8-,13-,0@ $(-,,X-, $ -,2@d -, &| $ ` :UaI,xH%ZZ-CLIP-STREAM3D-CLIPZ-PERSPECTIVE-STREAMU+UnWPERSPECTIVEORTHOGONAL-3D-STREAMEULER*U}~xZ-CLIP-STREAM-3D-CLIP}sx:;xZ-CLIP-STREAM-OUT-STREAM}sxu;UnU:;xMAKE-Z-CLIP-STREAM-1};xw;xALTER-Z-CLIP-STREAM};xy;xMAKE-3D-CLIPZ-CLIP-STREAM-u*]jW}={>}?@ }S}}A$Ax3D-PERSPECTIVE-Z-SCREEN3D-PERSPECTIVEZ-SCREENsx:;x3D-PERSPECTIVE-Z-EYEZ-EYE sxu;UnW :;xMAKE-3D-PERSPECTIVE ;x w;xALTER-3D-PERSPECTIVE;xy;x3D-PERSPECTIVE-=k>}? @? S}A$ AxU;U.u3D-CLIP-CLIPCLIPsx:;x3D-CLIP-ZZsx:;x3D-CLIP-Yw+]nW Zsx :;x3D-CLIP-Xsx:;x;xw;xALTER-3D-CLIP ;xu:]jw y;x3D-CLIP-=k>}?Z@? S??T}A$ AxZ-PERSPECTIVE-STREAM-PERSPECTIVE ~sx :;xZ-PERSPECTIVE-STREAM-OUT-STREAM~sx:;xW:]juMAKE-Z-PERSPECTIVE-STREAM-1 ~;x w;xALTER-Z-PERSPECTIVE-STREAM~;xy;xZ-PERSPECTIVE-STREAM-~={>}?@    ~S~}A$AxX-INTERCEPT3u8xX-INTERCEPT3 MACRO;x `=1N@ ` ,8 ,8g",<Z`[Z[Z [(Z([ Z[`,8-,1 $(-,3-,d $ -,,X-, -,00  $ `aI,x1`%pY-INTERCEPT3xY-INTERCEPT3 MACRO;x5@" `=1N` ,87,8g",<Z`[Z[Z [(Z([ `Z[,8-,1 $(-,`3-, $ -,,X-,@ -,  $ `aI.W,xp%Y-SCREENxY-SCREEN MACRO;x0X-SCREEN5B. `=3`E E@,8,8/,8g",<Z`[Z[0Z [(Z([@,8-,1 $ 2-, $ -,,X-, !00-,  $ `aI,x%jUnU%3MATRIX-Z-Z3MATRIXZ-Z#sx:;x3MATRIX-Z-YZ-Yw*]jW%#sx%:;x3MATRIX-Z-XZ-X'#sx':;x3MATRIX-Y-ZY-Z)#sxu+]*w):;x3MATRIX-Y-YY-Y+#sx+:;x3MATRIX-Y-XY-X-#sx-:;xU;U.u3MATRIX-X-ZX-Z/#sx/:;x3MATRIX-X-YX-Y1#sx1:;x3MATRIX-X-XW:]juX-X3#sx3:;xMAKE-3MATRIX5#;x5w;x3MATRIX-SIZE#;xDEFSTRUCT-EXPAND-SIZE-MACROu;Uju7;xALTER-3MATRIX#;xy;x3MATRIX-#=k>}?3@?1S?/?-T?+U?)V?'W?%? 5X#}A$9Ax3ROW*COLx3ROW*COL MACRO;;x-X3MATRIX-X--Y3MATRIX-Y--Z3MATRIX-Z-  `=3+6 ,6,8,8g@",<Z`[Z[Z [(Z([,8,8 ,8,8o,8 KoO g~-,1,X-,0 ,8,8p3",oO`0-,1,X-,-,1,Xd-, -, ,8@`03,8qKoO-,1,X`-, ,8,8g~",oO@ g~-,1,X-,-,1`,X-, -, ,80,8r,8g}KoO@-,13`-, ,c,8,8s3",oO`0*g~-,1 g~-,-,1,X -, -,-,1,X-,0H,X-, $y-,/ ``" & $ `aI,x9DDDK=9?9 AX%_13MATRIX-COPY!x3MATRIX-COPY MACRO!C;x*ARRAYFILLARRAY5B 00 `=1.+y `=;+| ,|@,8,8 ,8g",<Z`[Z`Z,8[+ ,,8,8@`0,8 K<" g-,1,X  -, E-,/ &! $0`DK `aI,x_X%U;U.uEULER-DPSI-VALDPSI-VAL#Gsx#:;xEULER-DPSIDPSI$Isx$:;xEULER-PSI-VALW:UnUPSI-VAL%Ksx%:;xEULER-PSIPSI&Msx&:;xEULER-DTHETA-VALDTHETA-VALw*]jW'Osx':;xEULER-DTHETADTHETA(Qsx(:;xEULER-THETA-VALTHETA-VAL)Ssxu+]*w):;xEULER-THETATHETA*Usx*:;xEULER-DPHI-VALDPHI-VAL+Wsx+:;xU;U.uEULER-DPHIDPHI,Ysx,:;xEULER-PHI-VALPHI-VAL-[sx-:;xEULER-PHIW:UnUPHI.]sx.:;xEULER-IDENTIDENT/_sx/:;xEULER-DROTDROTw*]jw0asx0:;xEULER-ROTROT1csx1:;xMAKE-EULER2;x2w;xW:U*UALTER-EULERe;xey;xHUNKPHI-MATRIX THETA-MATRIX U*U.WPSI-MATRIX EULER-=3>c}g41a@g40_Sg4/]g4.[T4-YUg4,WV4+UWi4*S4)QXi4(O54'Mk64&Km4%I764$Go4#28}A$eqAxORTHOGONAL-3D-STREAM-EULER9sxu;UnW9:;xORTHOGONAL-3D-STREAM-OUT-STREAMssxs:;xMAKE-ORTHOGONAL-3D-STREAM-1:;x:w;xALTER-ORTHOGONAL-3D-STREAMu;xu:U.Uuy;xORTHOGONAL-3D-STREAM-={>}?s@29 :S}A$u;AxMAKE-TEK-STREAMTEK-STREAMGRAPHIC-OUTPUT*U+w<yxTEK-LOW-XTEKW:UnULOW-X={>sx=:;xTEK-HIGH-XHIGH-X}{?sx}:;xTEK-LOW-YLOW-Yw*]jw{@sx:;xTEK-HIGH-YHIGH-Y{Asx:;xTEK-GRAPHIC-MODE{Isx:;xU;U.uTEK-Y-PENY-PENB{sxB:;xTEK-X-PENX-PENC{sxC:;xTEK-Y-MAXw+].uD{LsxD:;xTEK-Y-MIN{Msx:;xTEK-X-MAXE{NsxE:;xTEK-X-MINw+].u{Osx:;xMAKE-TEKF{;xFw;xALTER-TEK{;xy;xU+UnWTEK-GRAPHMODETEK-{=>O}}N@GEMS}LDT}CU}BIVHAW}@}?X}}>5}= Fk{}A$AxTEK-STREAM-GRAPHIC-OUTPUTI<ysxI:;xTEK-STREAM-VIEWPORT<sxu;UnW:;xMAKE-TEK-STREAM-1J<;xJw;xALTER-TEK-STREAM<;xy;xTEK-STREAM-<={>}Fy@?I J<S<}A$KAxU:U 0CALL-STSOURCE-TRANSmLx*:AR2*:ARNASSOC,<ZZ= Np *p (;+a( (@ HM-,+}c@2Se3TgU4z r "( B!aAsZ-, (  &@ FMA:u/,x8%NARG-CHECK-ST.NLxTRIVIAL-ARG-LIST?Pb=Z`4B)Z`Z[-,0 @01Z`[-, $O-,Z`@`]-,-,1,X-, B $-, *  (@ HM`W  *@ JM `-,,x`%76@`+/ " `oZ`,8` $[`A Dg6 +6[`1B+6 /+7/+- "|,xh%Y;