; P@QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GRAPH3   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPGRAPH3U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xGETGRAPHSU*UjULOADLISTCARNAMELISTFASLOAD!#%!xZ-CLIP-STREAMOUT-STREAM3D-CLIPU*U*UMOVE-PENNARG-ERRORY-INTERCEPTSET-PENCALL4SET-CLIP-ZUNKNOWN-COMMANDP`LSUBR-0 @-,1-,'Z'B-,A)-,~+Z(0B+W3  ` ' +) .)@ .T) )  Po (o Rh $h,8,8 (3n+0 3nH`9+K,8*  (h` g-  ( g~ (h 3- g~00 (h $b/ AFZ(B $ b//+K #3n+E `B $ b/,8  g~ (h` g-  ( g~ (h 3- g~@0a (h $b//+KF `B $ b/ AZ(`bB $ b//) Z(@@,8g,X . P g sD g . `Dd " `0B+g3`"d ' +) Z(@@,8g,X . P g sD g . `D P " " `0B+p3` ' 1A@  @),X  00P " `Z( '/0 ],+3FLONUMU*@b*ARRAYMAKE-Z-CLIP-STREAMSUBR-, ,8 2,8,8{K<  $'HKP-,+58tX-SCREEN   ,xH(|U*TZ-PERSPECTIVE-STREAMPERSPECTIVECALL3SET-Z-EYESET-Z-SCREEN-0 0@b@-,-,Z DB-,;,:,:Z(1B`0B`I3+"d & +; .; T Ph (h Z,8,8 (h ,83 ` "(9  (0 (h g9 (h  ,X//+8=(@`[3+) & 1 A@;,X . P " +8D0B`m3+2 & 1@ @;,X  P " ``0+8Z( $/,0:P+3MAKE-Z-PERSPECTIVE-STREAM-,1a ,?,8,8,8BK`2<  $ "-,+%jU*P?u COSSIN 0PHI-MATRIX-0,:,: ;``a Z(+K ,K,8,8`,8pK< @!`0*`C Nh "h,: g-,-,!.ca-, Nh (h,8q@,8r g} . g|L g} sL g} . g~L g}   L g} . L g} sD g} . gD g} sD g} .@` `D/-,@D"/,xA"""u.P""E3ARGSG#$?xTHETA-MATRIX-0,:,: ;+x`a Z(` ,8,8A`,8!K< @!`0*`C Nh "h,: g-, g-, g`-,!.g@-,C,8"@E,8# Nh (h .!0L sL . gL sL . g~L sL . `L   L`0 . L@@`"-,/,xA"j""""$3sGI$?xPSI-MATRIX-0@,:,: ;`Q Z(+, ,,,8,8,8Q@ K< @! *`C Nh "h,: g`-,-,!.c-, Nh (h,8R,8S g} . g|L g} sL g} . g~L g}   L g} . L g} sD g} . gD g} sD g} . ` 0D/-,0D"/,xA""""/T"E(3GG%$?x3MATRIX-MULT-0 A@1n+X @` ,8,80D0 ,8K< Z( 0@-,|+ g-,,:0 ` .3 h ` 3 .h ` .3 h7$7 ` .3 .h ` 3 h ` .3 .h7$7 ` 3 .h ` .3 h ` 3 .h7$7 ` 3 h ` .3 .h ` 3 h7$7 ` 3 .h ` .3 h ` 3 .h7$7 ` .3 .h ` 3 h ` .3 .h7$7 ` .3 h ` 3 .h ` .3 h7$7 ` .3 .h ` 3 h ` .3 .h7$7 (o *o 7,8,8 *o 7 &o 7,8,8 . g{ .h  g{ h . g{ .h7$7` . (D g| sD g| . g}D g|  g~D g| .sD g|  `D g| .  D g|  D g| .B0 D  -,0>U,xA1,3TGK?1xORTHOGONAL-3D-STREAMEULERU*U*UTRANSLATETRANSLATE-PSIUPDATE-ROT-MATRIXTRANSLATE-THETATRANSLATE-PHISET-PSISET-THETASET-PHISET-DPHIU*U*UUPDATE-DROT-MATRIXSET-DPSISET-DTHETAGET-ANGLESPSITHETAPHIDPSIDTHETAP`DPHI-0 @-,1-,&Z &B-,AAM+Z(1B+0B`{3`) && +@M 0Z( .h ( ` h ` .h7$7 ` h ( ` .h ` h7$7 ` .h ( ` h,X .h7$7# *h (o} &oz b//`D0B'`1N+B && ? ,8`M@MKoK P " " `O`1N+L && ?D ,8M[M`2M`KoKMZM1B ( Nh (h " -,ME XB(`Q`1N+^ &&  ? ,8M[M`M`KoKMZMB ( 7 " -,MXB(`0B)`1N+p"b && ? ,8M[@M`M`KoKMZMB ( No (o " -,1bAMXB(`S`3 !+ && 1M ,8 0@@M`",<%` @-, gXB 0c @ `2/(`0B*(@`?3+ && 1M@ 1,8 @M`@ ",oI @-,@ gXB @ `2/P "(`U`a3+$ && 1H M S,8 @0M`",<# @-, gXB @ `bA2/(`0B+`3 !+5 && 1M u,8 0@@M[",<#` @-, g0c @ `QH/`W`0B,(@`3+F && 1M@ ,8 @M[@ ",<% @-,@ g@ `QH/P "`W`Y`3+W && 1H M ,8 @0M[",oI @-, g@ `bAQH/`W`0B-+1N  +h && ?MZ [-,1@1MZ ( $( ".-,MbZ  $ ]-,MA $D "/-,MB $(_-,MB $( "0-, 0-,1,X-,,X-,,X`a-,,X-,,X-,` Z( $&,A:+ 03FILLARRAYMa@ @Maa ,8M`,8g 3KoK ,,8M`,8g 3KoK,xM[@ `Maa ,,8M[,8g 3KoK 7,8M[,8g U3KoK,x8HUNKMAKE-ORTHOGONAL-3D-STREAM -, {,8 ,!,8,8@K<# ,$,8K<# ,'0,8,8AK<# U,8,8B0K<# ,.,8,8CKoI c,8,8DKoI ,5,8,8EK<% q,8 ,8FK<% ,<,8,8GKd<#K<1  $ "&-,D"+"""""""DDDK""""""""9x;