Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!zaphod.mps.ohio-state.edu!usc!ucsd!ucbvax!SCT60A.SUNYCT.EDU!sweetmr From: sweetmr@SCT60A.SUNYCT.EDU (michael sweet) Newsgroups: comp.sys.sgi Subject: "Stars" program Message-ID: <8103.on.Mon,.28.Jan.91.11:07:01.EST.@sct60a.sunyct.edu> Date: 28 Jan 91 16:07:01 GMT Sender: daemon@ucbvax.BERKELEY.EDU Organization: The Internet Lines: 252 Here is a little program that simulates a moving starfield (like Star Trek or many other space shows/movies.) Should work on any 4D series machine, but it is un-tested on the older 3000's... Enjoy! -Mike Sweet ------------------------------------------------------------------------------ TASC (315) 724-1100 (voice) 555 French Road (315) 724-2031 (fax) New Hartford, NY 13413 Internet: sweetmr@sct60a.sunyct.edu Delphi: DODGECOLT ------------------------------------------------------------------------------ begin 644 stars.tar.Z M'YV0<^B$D3/'Q1@`"!,J7,BPH<.'$"-*G(@0A$4;-&B``&`QQHT:,S9:M"A# M(\>1%FG$4*D1!(V/,6!DM%$#QD@;-&MPI,BSI\^?0!'.N$&TJ-&-09,J77-&3I@V(,R\D0." M#IHR(*8<2>*22-@R@K6QRWRT&V&N?`Z<_#RID/GC1L?H3>/SO.F M#MVK:-+`.6$\.X\V::0YB!<>$4Y887W'\1#8&6AXYY]X=9!G'GIPO`$' M9';A5:`;![[!1G!EN%$'BJ[Q@,8;;>"U1AEYH#=&D'0`!AE[[EDU1WSS0;9C MCPD25AAK4I1A!X4?N@$"$A26)T<>.F!WQ9$7@O!FD*V]&08=QK6@9YQZ[HE2 MGRT8UT0:2^9UQV;,@8##"S'$\$(.-EET6QH>AO%C@63<=H:@A.(UQ:%E)!K3 MHX]&^I5^SR4IY!PL@$!&>V+PQYMOP,U1!QPURD%'JP6VT4:&9+3`QFUXV>BA M>7-P6NBGB';$J*,YP&;1JV/4H6J'97ZE(8&Z97BK"Q89$49`P(V1AAQCZ#98 M818-NBRHHKX@PZ+1CA0&JFAEF,:O4:*5QHY>&E85%?%!IA9;;L%%85IUQ/JO MJTB&<1NX(`3A1AYA68J77'0=3!9SMZ4U$'-S@7#'D?Q16%5`@8U!!QL8'QR? M&)1R]J4*+P@\%0BWI5L'<9#A;-@(/;/Q,UX\!)3I&RZ@X8,"1+OA,W$@)$W' M?FF(T?3344^-M,MY:+8UU$4?7;6'28[=M=%4WW+$@M!$$%A,04404DP!`FHC[2Q' M&>.:%T:L>`V+'W,5!.'$$$T5H7L,--MBT\Z\3MF$M M"*"]808('-Z9;8:Y+>ZEZX^7D3A>DV,!Q1.:QP3#]I'^+N&^PXOE:IH9/@E] M]-.#D,003SCQ1>5):%&$HBWM?$=^=O%L)AQIX&$69,;CV8Z@!SOI16Y][?M" M%J80O_GAQ"([NTL:6`2R_?7O?R`(X+]`Y+@"IN\*F(/"%*!0A"+X90;;@Z`* MFK,9,D!F=&^P`UY0&!W"$#!VU*,<"*4`!1#$I#4[R]%<0O4O2^7%!50`E^DH M=4,#RHX(13!"$*K`!"I\880E]`L*=BA"$II07M=!7^2&D`0I#`%WFC-5YU:8 MJ\Q7M'2N="VNB>FSG!2*$(0E9,\UAZ,0'-X81]&\$#,'`MT:@O8Z M'((`BE*DHA4MEP7^SC%`Q'E=`,)#B*<0.ECC8'K[CA#=X=KP< M_6<@>%E1B[Q4F`XZ\@@V`$$6BL`$)CSA"H!"/5QH9^+#J,O<@\^<@6`(;Y@+6N;P!3P42`X[ MR`Y(17,5Y)E%>3($`8D*I%+HG32EGGWNBAG$*(IT'U M*4I[RE(]%%6F2*4I9):*4[SHH050/:=);Y/*+_SJ#**DP]&,ND9/TN6L:36; MT'Y*U2^X$`YXV((,NJ#7+AAU9VH1TX?`,SXWPA$$6"`04%THU<6&Q:Z9R4-? M^_K7%09V3/XI["`/FP7%JI21*SN2KAY[U_N1P2Z4!0%@/X=9PK),D2;#']QL M*+0^[$"B(,C-&\1@*=`J`)FXB:THR;LM^9Q[OW)$+`M&F00\&,B+__/>]]FPN"-P:DO`I.[VH%F]G6 MV=>[^'6N@^FPWP@',RVL'>R4$GQ>#&=8N"V=RQGZZ]_C!KAUE.D]W%3')< M6(8$F&G:YJS1L_H-07H@`Q:#-%1U>8,/8YN_$TR&*RBP#6YDU1MA]X!D\GAR% M)E+F6(ZCC]E"]3Z>.;^V6'QDN!-8X$Q58M$A5B*GG>W0:'*0W@8%V18(Z9Y+ M%S.,*TITL1%@(.T&$T]E9:(!)5I'"32OS`%)>*&H9EZX2N&LLE?",9-==HW* MNQ`DIHJ1F!M:E803M*$JITPE2>>8;#7C)0QC^#+<\T!+!3BNT7!E^N*VT(4> M[`&;VN0F"X@4IY'@D@6'3[P-!E_XXQR>\(U_)N)K,/G*0[[PDL\\Y25_^3AI MOO*<;[QK/O_YSE^(])NGO.FS@WK+B[XUK0_]ZPV?>M"K?O:TM[WK<0^"(\C` MMB=/>M[5"C32%`B9!/%2MFWIQ!QB87)'<,(TJP!%S45;P<9K4"CU7J$7V#?[ M9$U!&!5P=*LH[@YBP;F\"?2Y.[T=!.=WZU>8`Y8V"D1JQ3K>G1H,NH!8A0PG M$#".8P=OD!_P5P;H)QHH,'9D(6AT%BHP&'(7F(%?8%4W""P@F&T\2#D^N`*N6B`)H4P8HX`14Q`3B9X4[,P;M%R4D2'*:LW$FE3H+6&ANP`,C M=SF9LP-NL`(K8"$=51_GEWYCISTI`(,6@80T"%EXM04PP%?+J!R3$5/&85N< MU&"0B!8YXH>`.#J"Z&M5`8MN<&\3EJ M)0=FX@8J$)`#&1=K`1?7&(AE,(B&`6AYL9!C-Y`*X)&-J`"-)HZWI8@.Z1YF MLH`3Z7(P)XY=0)!LR$ENB%+\R)`V]9`1J0(%,@<"Z8[99@87Z79UH8T;21AV M]UT>B9,@V8[-5LGZ8XI614K"9&D(9'\^')LL`5!V3PK0(_HB$8O0`/B M-X;U.'-I2)-M:!7"(4./H9.\%1YH`2+7^&5AQD+/L8>9\CDN4R:M$I=1=Q=7 MB"/)-!",=8UC@H"`P9$*4(AH09ASF8A5`7$PV&AS5F93S1MB`\P$589$*\N)F?MF6<(2\P^#_%81&Z M:6>\&8'=6#*QB&>S&'$3EXN[:!R*"$X'@C'E<2IJ`![,P9/C`YBCQG.71G08 MYAB&E(4:^%+PB`).J3@HT()%N"NB5B;9YA4*J9Y$6&$:93BDRYO$!YT,5?%.)Y) M6%4OU0(],)S$*(TU>9!N*`*1U6J91>ELE6GY7(1H^JI-7$F!@$5*)U'":0AHE8W#IHBD_D&W$H1D:DJCF M4177V$:;54@`EY2U1(@%N%*`6H`\LIXQ$*.EB@TJJ[LZJ[P^E#;BG,C6A7`"9TMQJCJ`JTFHQRY2JX[DW:% M2:QX\2KPATJ']A^,VJXIX!5,M#!/EU(<&Q;(=` M*(L\@`/KN(LMA@,)1AQH4;)Y<+)F0H=W9(.0>_0DX$4D?J M$IXC$9TC\:V5(1OBZJ8_E9-WP`(NN9;WF`(O@`/PZJWUJARQ*K5>6K576Y:Y MH[5<2Z[>FJ_OJK;2.!(/9;,XF[(60:)O"1_)5)GK=RLIIXK7*!9D819H@:F$ MI*.1^:EA<20)F!4X)X&_RH@PZ)'B:JHL@*JJ>H2BQ1P)^[B@A`<29T@PR&#` M`V'GQ0*CFP?\)3#'B@+MYC+9=HK=0A=_BXJ;82;C)L2;0RK3'-QR@4#N`S_RHP+8JT`, M)#^,LCV_F2#!V;F?FQ7*P9R@J[HKJYQNX[G-J8NO.U&WIEF$!`*@,P9H('\: MRK3/&VT<>HQ,*`<^4)P@P`=\@*P!K(0#[`,V80(F$)JU&4*W201I:3]WHK]# M:TAJYK#M%08Y!0?C8I=*:Q%,:Q'B"I`+7)YSH0+ZA0?VY7TKO(17M5IOH`9E MH%%_R\$A(P.7(<+FHZ$C$:LJ7($=.E0OY<*WT6'G)<-&+,!%123_FZQXT0.R MH4=\Y$>\B!+,ND*)`ZK.6E/AL2-H$58&BQ*YJAQD68(JJ#W2X<18>,0#C*`^ MI+8C@:H]`,!/K(0;^)\,&BHIH,3D!<,*-H_\Z:%S\<,MU+5#+`-Y?,A(/!!QI+!MKG(+A^\:0 M/,=2.ZZ0AZI@JTZR@6>$)XU$@J*B^J,F,+DF$*O#V&(L:I0^RCA";!&^3%8H M$,RI.LSY:,?B"H\O',/%UF+W4H=+%)`,MO<K8Q= M<-&3L=!L:M\;MR$+Q,,+S%:\QQ8 MK,1>6`9\#=:_3*J4:[FTR@+6VIE(I;@'F%QR5".VT9WB#,I$,LJM44G=2AT M49J0@;-X(<+=O&8.GMWV+)OBG=8?C=0QH-0=Q=1N\1\^`JJ?E-N*A7Q:S=6G M':K.7.+IO=:4C=Z#3=XZ/MCV;=[T;>+PO=FGA0:6?>-$[M[^[8R&W1H0/A($ M/A`+R`('GN`K1+ONISH-GG3+#.&\O+K1^VK+6A^A?0721$W&&Y?-6Y`V M:17Y%@9WH).3GEQB^F-JXC*JQSA]G4GAVP[QBV@7&Y?F&IS#<^=G/%OL1RAF,L4.WD]63(_GKQM"W3OFA54>IS\:,PX-K6;E^3 MP0+G;NSGE=1=YCF+@VR,619W8.H^5>Y'(@,HT`+107G_O@+#7@8LX.\N`/`' M+_#FK-"PK2TUNQ:J/FH8UJ<(^2LWEP+K)\($H2-(\BO;LJT.G[@!]AB0:?%_ M.!!G,`;AB&/O:I+8A?)C<%OZ&^,HWZMJJ(BWRAQV8"D"AQ([$P?M1P8AN/-& M%52@=?3.=7Z$7+KG=\[HU6+QAPON4=#R)YW_A;=!O(]0(*V<2,3A`O$`5U M0"F8CYF\UV+(9".:8F)D8P:(\TA%(`15<`3'^3EMT1X:XJ\MECK$P1MG\&/! MQ4P/];Q0Q/S.?Y#+X2K2$P;C1`=3;\"R`4E35$57Y$5$`(/JB[ZR48N8@X]' M2%'\L?Y1U/Z31`65I`B8(LN2%3B>K]A#(&^NK*QQ-8M@WLOB1?^+0F2*'_.C M:MX,,FKZB*$=&^90/#0.!UMF_VL!68OS-1IDPYTH0`*)Y[%_F4&KS M;]BXP"E`KB0<<%I=+&,,-*D4>`9ZU05B`2)@,O0Y*Y8:L%6UD1+*85R='$U! M;6C%6QD.1@]_D2\<>"!T(!S@@3ZP"P#!RS`$[\P6*V5U)C2=,>>DMD*@^IL_ MV<<"7J!`9IO@7[9I@3HDA*B`-IA%E-H9I(,FI'&0("Y2`YW7C@AV<^Y[%0%` MQS[>:!+)P!Y,7+L!)GT#=T:\AN`.U+)C]`!#&'!-;WKL0!\RD[!Q,02,!/] M">0C+"6@=82$!#;YC);E`V=F(BFZ!)WX&%"B2I0>+%'/&9*A6!1'GR*!#%(1 MFB2PTW?*P&+KL`$Z$26VAJMH!K)B+)2)-]$E?J#D4@+@0@*[?7BA+M[$MZ@7 M$QCO8R)\L77<`!&`[DC6K3!K"H;NQ3>Z9Q+C@.#X%Z`(=Q@!*M`$GD`5F`)% M8$PY1L'R)%"`%$@"1P`)4$;+B!DUXV/LC$T@"1`!(H`[*N-ES(PP:#,.#E"$ M!)Y`$R@"2Z`(9`'3R!E!T15(`D[`".R1(H`(8^-I](W`D0H@@2!P!:Z5^#-Y M^$N&8)?AUYKFRLE(`_P!!=":S`B=ZD/24PY\@^C5@1.8U5PC9L0"\:DABL21 ML/3`8Z@0C^21'I%&W9@>0V*1J0__*^D5-('6'^@-'OAGZ2Z@\;.EMQ\'Y(O( M`P!R(@K("%8)P8,5DX1H@9^%@#(WO5!$*2-Z!@CJ^2C@P""A"WB8:*N+;P0( ME"491^-KO&!ZICOTQ_\P(LV$HHF)N:V4&1-689VP4UU@2<4/%:*$/\8<6-G` M(W1);_F@H""D/5[`P/-KE$R-M4>OX.[F63[2@P0#9$N;Y6SRB3(=&5*V1"]4I?21KB0)0("#B'3/9#]&XP`O8 M1`HP1^RU/AK#SF`U-H4,Z!L0&?R8V4&D=,VR83I+9V6LKMJ_]"8F1&`"D]9@ M,"W+6LB7`9,Y1L>+(^."G[2S,L^,[&$[$W#V<(Q^PSW`3L&D3`2T$+-=UF-X MJ^?U_"^K9U\NVL"C:3=3P?C,*JGX0IK*/`-#Q`#W-3MBV`2)YFP]2DS7H!#MB]BD MB&NS-3@9MXDV%>1Y(9O!#]:]3-Q3*=?F/%$D%1,EJ,/_`!RA0!6@`D-@.=J. M^=$8&N0$ M]#H#4K-AAL!O]"I8(F-,`0XL?#;,=4D'VN6#RIFXIU_&3=V)%V*`Z=0N-M%K MSL_6,/?\7L3B>58%^(E[/B<(D`'WTT98-0"JRFY#C2B)RQ.`"E`00$!G MCP&=`??S*&*&@*8_&>A)S)IE`@6`36PW0L_`"FB;"F;=.9FRMT)QS`GMB.JN M&%;0N(E"%5_=)%WH98:NS;D9T&ZHUHN@^[.$?D3U>!\]:)QHH1C1AZI-(WH< M]"80G9\35(*@-M3%PDX_*38MX M-HGH1A2D;--LXI@A:A\/*2)%"4[4C@:_*,I$#6@-,)U1;>H]TA&GP#S?1;LD MF42+2=+@)S\?*153#EA,DSS1_4D2_^MP\J6P@(V8$C:A/(UI*!>DI_:5EY(S4RECJ&.`0!!VEO`>6,M-9RD=K*0,U MH#?`=,:!WL<<.B@`%8:4`@6DAE4J,23%KXVW,C9T%>`8? MMS!!6@2=L`O[,(/$B"TZ>[CGZQRF\1.:JK/AI!QTF0=-DKF,G,8)!U50%>J% MT)3()J$*U`CG4%V#.96ECZXF682)>AS`J;G;FQ)4G7I0=,I[!"CD,:#N%#?J MQM(Y3R4&!;FG\0$W`)!]VCHEIC_UGF9N'QD2%T`MHH)/_:DGH=!E!)'@0SY" M2`BJ!]0D'`<9`!*@B4NX`2\!(\@$&W`#;L(-0"$[`:AJU:V*5&\"#9@!N82K MBM6Q2E;+JEG]":SH!,6`0=DH2H5A0`R*@3%<'CDB&6::9(`,26-!^`#/P`,Z M8`S:J^OT3TB+"R$;:(,?:AXMH-9=F_+E&I)#7FTAZ&&(3@%D,RDJ17U9$)>G MKU;.QX`>KABR\:MR1/LHQ>T11HC`&PT,<M(GL\!9U38)I4OP!<)4%Z68; MA`=3F0NMHK9BQT]2GXI!MANA8\ M0TL8"`2A&_(%9)`+Y"1OM0G3LQWVC*(TEC+"1;J%,Q!93]"60!`X8LW\I1RF M-2,*,V6/,:1,08F8$I<2%?9\$1SU]=R*U23U8HO1XACF@TJ\ARLA'^C#>YT6 MR<0-\%1>-??\2$ND;PH<`>&CC`>`YLJ!@#[.)"W`?41ZK0V(<@\Y*`G;>`+(_T1:L!$O-B]PL+P74UQ)L4BM92)9`%E8\A?8@!EH`<)PL]P&\DAWN.N1 M2!(@8$DT"=[#8J$$$KQ4YX*]9HL` M'%U#!@9,>(`97X%6N(SG(`8*R4!HKAOBRGZ)("M?>42.W;$%1E%6V0L199G# ME#6R+03)Q@5:D659!`5$F"L'4-,Z`F MI(2/L#UV!PIQJH4.)\"`K/IKJZU$.`XU(0:$56O+;;NMM_VV#0$T-(&&8T#X M0^H@>0$#:@P!([#5CH#FD`TMP+FT@-6X_)K?2&*W0<#=.J,G,`,ZTA``CW'' M,#"!)"`$WFU78`.Y0>(<7)\3$.""L'"X;&`,2!S#\!@:`\D;`PH@`9``]#0$ MLLW&7;?M%L'%((/0%92-'-FX`[?@AI$J1Q`:`\O5"AGWXW9<$/!Q\:V[S38O ME^2V`&7S@5UC+&60M=F2L MS-36/MFI>W%V!+B]NW@W[^K=O`NOX26KIT12:<)& MQPD]X;)J,:+0%BH;7.ABE`DJ;(OWA@ZPPJOA"F&A(9F%M9`_W$))90I?(LCB MA;Y0)TZX85@:NM68^U_)$`0LP\?K#*WASE<S`*/D/24>N:)3<,`]X0Z(3# M<;@SRN$Y9*K/TTRP0TS[#G]$&)"']+!@Y-G-D`_QJ4P=F?[0(@#$5C-!"*(5 M,H@IMM*-J1K*$(\D1WPP6B\C_M#SRV$N(B.U=NL1B;[?;2<25X8S35E5H7^V MIB'Z$Z^@")"+R(4KWL2:N+]H8DX<4X:O)[)%MR@4X2)-U*`B2"G>Q*98^89; M!)Z*"-B06$7RUQ:!8BP4P'?Q4#VKL'@3R:(=,8N%+BWV1)2P@#TP!R.*<='T MBB"[^)$47U\4L^CK!O]%C_."!2-AU+^(\;PHQJIX*QKC@E5V-KG(]3V`FG5'B:A3LC[QR.Q9$)'^'0.3J;X_?U'B%C M7%(C!6H=9RU>T(Y2P)V<.?CJ']TC'8"/:D(^OD;T>()>V!)MC[(A/%J*\9B' MQ>1N[,-ILXA*"MFD'_69@?2/"1*'\D<"Z8@CV-*+Q.F7GSG.!SDI(F0$ZYX! M,:<.RQ6"(2?3B_BR9(5#0L;C'X03^4V%.L)E\D+VXQR,C6\ M6QF##!;L/9;!5[XZ9GR\=,\PYHO:>9?HUFT\0Q3]/] M6N:^[#0?,_UUF?F5:LK@R8DU;]N@I0M<A:GI\D%?>85-=@0`OGX4R<]HAQKN+'&3D'UJ:CG!K$ M,*(.#XDL.>IPMIB[,SDNQXTI3P_F`$F=&61U%L^:*CYQJF)0#K*3=EKGMDR< M+^87]IWO!`0$3QD<$)()Z^R:R=*FFF?8"5SCL`!=G0=I%G^E[;=$`]()F4`KC6CCHC.:C M7=0THZP2R@)*Z`O%HS&T2,=F)8U^5 MMOL+JP$HID:DM3JD!F@*:D2QJ3;EIJJ9B7I4<=JLX^9%W9_16O1<9^R,%[;P M2NW.686>OM1&F$_;0]\@S\=3-H'B5B.*`6BQQCW&6*(>U'OL"=%T:V"H^IJ! M0M0>V:_S:[AN/-^:6E)+C4JM^>BV'J?*&B4D[+AYL`O/N&:G_\%:F)8#$Y7LW&PNNH9 M'&MQVJN10;,&$,ZZ&B[/9"@\A?4_2!O$BGNAH-?&JU<[44[6"N*4C4AQRJR@ MU9!TUKSP63XEH'A.A<`]RWZB.K*=K#KQUJT MW+46;UE8["K&:WEEL=/5Q1JE]?IH,T[$=@VMEKXZV.!R7^G-[6X-^U4Q,67L M^",`+%X0L%8"2QC8`ZMH%FR#'1.\&\+^6.:=8"OL4,:P!'8^;-@.^UX_;(BU M#^GX3*[N\-JZ5:QYC=U%]F_%V&TQ8X&LC8VOUV+L\E@H.[W?*]I]M>H[UMJ: MM_N[48+<%0AT5\JB;RH+9!W4]TX16M;$AMKY-*^V3C[1N:LFJBS<<)(0)WINV=QS]`%.F&6=K?7NJ!T#ZUA2+1G8-%F M!Z@K:*7NYYZT+Z322HFKFVE_PZ9%"YW6K1QN`\X:Q*Y%T+%DEW[[[K,+O^ON M`&>[#'9_T]H#^[_IMZ05X'"/US: