;"A(U*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,8 Z(-,1-,Z Z -,A-,~Z(,80B+W g1N  + & $ g  . ( @ No~ . (  . (  No . ( *o~ Po (o &o Rh $h,8,8,8,8 (3n+0  (3nH++K,8 (,: (* ,: (h` &o g g ,:  (,: ( g~,: (h &o g~ g  g~00,: (h &o~ $,X  Z(FZ(Z ( $  /+K 0  (3n+E `* $  ,8  (,: ( g~,: (h` &o g g ,:  (,: ( g~,: (h &o g~ g  g~00,: (h &o~ $,X /+KF `* $   Z(Z(`bZ ( $  /,8 Z(,8Z(,8Z(,8g,X .  Q g . g Q g . ` Q(/ " +q0B+g g1N+["d & $ g,8 Z(,8Z(,8Z(,8g,X .  Q g . g Q g . ` Q/ P " " +q0B+p g1N+k & $A@ g Z(,8,X . 00 Q " +qZ( $//0 ],/+8FLONUMU*@b*ARRAYMAKE-Z-CLIP-STREAMSUBR-, ,x,8 2,8,8{,8{",<  $ "HKP-,+8tX-SCREEN,80  ,xH(|U*TZ-PERSPECTIVE-STREAMPERSPECTIVECALL3SET-Z-EYESET-Z-SCREEN-0,8 0@bZ(-,-,Z DZ -,,:,:(Z(,81B+ 0B+$ g1N+"d & $ g  . (  No . ( *o Ph (h Z,8 ,: ,8,: (h &o,8 g ` "(,8,:  (,: (0,: (h &o g,X,: (h &o~  ,X g//+80B(@+- g1N+) & $ g 0 Z(,8,X .  Q " +8 @D0B+6 g1N+2 & $ g@ Z(,8,X .  Q " ``0+8Z( $//,0 :P/+PMAKE-Z-PERSPECTIVE-STREAM-,1a ,?,8,8,8A,8B",`2<  $ "-,+%jU*P:COSSIN 0PHI-MATRIX-00 ,:,:,8 1n+G"0 Z(+K ,K,8,8,8o `,8p",<,8 Z(,8!`0 No "o*`! Nh "h,:,8 g-,,8 g-,!.gB,8 g~-,,8p Nh (h,8q,8q@,8r,8r g} . g| Q g} . g} Q g} . g~ Q g} .  Q g} .  Q g} . g~ Q g} . g Q g} . g Q g} .@` ` Q// g-,@D"//,x """u.P"""0BARGS##$ xTHETA-MATRIX-00 ,:,:,8 1n+x"0 Z(+{ ,{,8,8,8  `,8!",<,8 Z(,8!`0 No "o*`! Nh "h,:,8 g-,,8 g-,,8 g-,!.g*g~-,,8!,8"@,8",8# Nh (h g} .!0 Q g} . g~ Q g} . g Q g} . g Q g} . g~ Q g} . g| Q g} . ` Q g} .  Q`0 g} .  Q//*g@`"-,//,x "j""""Hs#$$ xPSI-MATRIX-0@,:,:,8 1n+( 0 Z(+, ,,,8,8,8P,8Q@ ",<,8 Z(,8! No  "o*`! Nh "h,:,8 g`-,,8 g-,!.g,8  g~-,,8Q Nh (h,8R,8R,8S,8S g} . g| Q g} . g} Q g} . g~ Q g} .  Q g} .  Q g} . g~ Q g} . g Q g} . g Q g} . ` 0 Q// g-,/0D"/,x """"/T""P##%$ x3MATRIX-MULT-0,8 A@1n+X Z(+[ ,[,8,80D0,8,8",<,8 Z( 0,8Z(,8-,| g-,,:0 ` .  g,: .  h `,: .  g,: .  h `,: .  g,: .  h o~o ` Noy .  g,: .  h `,: .  g,: .  h `,: .  g,: .  h o~o ` Now .  g,: .  h `,: .  g,: .  h `,: .  g,: .  h o~o ` Nou .  g,: .  h `,: .  g,: .  h `,: .  g,: .  h o~o ` Nos .  g,: .  h `,: .  g,: .  h `,: .  g,: .  h o~o ` Noq .  g,: .  h `,: .  g,: .  h `,: .  g,: .  h o~o ` Noo .  g,: .  h `,: .  g,: .  h `,: .  g,: .  h o~o ` Nom .  g,: .  h `,: .  g,: .  h `,: .  g,: .  h o~o (oh &oh *oi $oi,8,8,8,8,8 Nok *oj (oj &ok $ok,8,8,8,8 g{ . ( g{,: . (h g{,: . ( g{,: . (h g{,: . ( g{,: . (h o~o Noi` *oi . ( Q/ g| . g} Q g| . g} Q g| . g~ Q g| . g| Q g| . ` Q g| .  Q g| .  Q g| .B0  Q//,X-,/0>U,x XT#% xORTHOGONAL-3D-STREAMEULERU*U*UTRANSLATETRANSLATE-PSIUPDATE-ROT-MATRIXTRANSLATE-THETATRANSLATE-PHISET-PSISET-THETASET-PHISET-DPHIU*U*UUPDATE-DROT-MATRIXSET-DPSISET-DTHETAGET-ANGLESPSITHETAPHIDPSIDTHETAP`DPHI-0,8 Z(-,1-,&Z &Z -,A &-,~Z(,81B+0B+= g1N+ && $ gZ& 0Z( (,8,: . h,: ( `,: .  h,: ( `,: .  h o~o,: ( `,: .  h,: ( `,: .  h,: ( `,: .  h o~o,: ( `,: .  h,: ( `,: .  h,: (,X,: .  h o~o#,: *h (o} &oz  /+ @D0B'+G g1N+B && $ g ,F,8[&,8Z&,8,8",<% P " " +0B'+Y g1N+L && $D g ,R,8 &[,8 &[2,8 &[,8",<% &Z &1Z ( ( Nh (h " -, &E XB(+0B(+k g1N+^ &&  $ g ,d,8 &[,8 &[,8 &[,8",<% &Z &Z ( ( No (o " -, ( &XB(+0B)+} g1N+p"b && $ g ,v,8 &[,8@ &[,8 &[,8",<% &Z &Z ( ( No (o " -,1bA &XB(+0B)+ g1N !+ && $ g,8& ,,8 0@Z(,8 &[,8",<%,8` Z(,8-, gXB /0c *g `QH/(+0B*(@+ g1N+ && $ g,8&@ ,,8 Z(,8 &[,8@ ",<$,8 Z(,8-,@ gXB /*g `QH/P "(+0B*+0 g1N+$ && $H  g,8& ,),8 Z(,80 &[,8",<#,8 Z(,8-, gXB /*g `bAQH/(+0B++A g1N !+5 && $ g,8& ,:,8 0@Z(,8 &[,8",<#,8` Z(,8-, gXB /0c *g `QH/++0B,(@+R g1N+F && $ g,8&@ ,K,8 Z(,8 &[,8@ ",<%,8 Z(,8-,@ gXB /*g `QH/P "++0B,+c g1N+W && $H  g,8& ,\,8 Z(,80 &[,8",<$,8 Z(,8-, gXB /*g `bAQH/++0B-+ g1N  +h && $ g &Z $--,1@1 &Z ( $(,8 ".-, &bZ  $ ,8 ".-, &Z $D,8 "/-, &Z ( $(,8 "/-, &Z ( $(,8 "0-, 0-,,X-,,X-,,X 0-,,X-,,X-,+ Z( $&//,A:/+ `FILLARRAY &[@ Z&0,8 , ,8 &[,8,8g ,8g~",<% ,,8 &[,8,8g ,8g~",<%/,x &[@ [&0,8 ,,8 &[,8,8g ,8g~",<% ,,8 &[,8,8g U,8g~",<%/,x8HUNKMAKE-ORTHOGONAL-3D-STREAM -, ,=,8 ,!,8,8@",<#,8 ,$,8,8@",<#,8 ,'@`,8,8A",<#,8,8A ,*,8,8B@"",<#,8,8B ,.,8,8C",<$D,8,8C ,1,8,8D",<$,8,8D ,5,8,8E",<%,8,8E ,8,8 ,8F",<%,8,8F ,<,8,8G",d<#,8",<1  $ "&-,D"+""""""""D%""""""""x;