Home » Archimedes archive » Acorn User » AU 1997-09 B.adf » Regulars » StarInfo/Boham/Stars
StarInfo/Boham/Stars
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-09 B.adf » Regulars |
| Filename: | StarInfo/Boham/Stars |
| Read OK: | ✔ |
| File size: | 01C9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE 27:OFF 20FOR c=0 TO 15 30COLOUR c,c*16,c*16,c*16 40NEXT c 50: 60REPEAT 70REPEAT 80X%=RND(800)+200 90Y%=RND(659)+200 100UNTIL POINT(X%,Y%)=0 110PROCc(X%,Y%,RND(200),RND(1)*2) 120UNTIL FALSE 130END 140: 150DEFPROCc(x,y,R1,R2) 160LOCAL r,n%,a$,rr%,c% 170FOR r=R1 TO 0 STEP -8 180c%=(1-(r/R1))*15 190GCOL c% 200FOR n%=1 TO 500 210a%=RND(360) 220xx%=x+SINRADa%*RND(r) 230yy%=y+COSRADa%*RND(r*R2) 240IF POINT(xx%,yy%)<c% THEN POINT xx%,yy% 250NEXT n% 260NEXT 270ENDPROC 280: 290DEFPROCgcol(n) 300n%=n*255 310SYS "ColourTrans_SetGCOL",(n%<<8)+(n%<<16)+(255<<24) 320ENDPROC
� 27:� � c=0 � 15 � c,c*16,c*16,c*16 (� c 2: <� F� PX%=�(800)+200 ZY%=�(659)+200 d� �X%,Y%)=0 n�c(X%,Y%,�(200),�(1)*2) x� � �� �: ���c(x,y,R1,R2) �� r,n%,a$,rr%,c% �� r=R1 � 0 � -8 �c%=(1-(r/R1))*15 �� c% �� n%=1 � 500 � a%=�(360) �xx%=x+��a%*�(r) �yy%=y+��a%*�(r*R2) � � �xx%,yy%)<c% � Ȓ xx%,yy% �� n% � � : " ��gcol(n) , n%=n*255 67ș "ColourTrans_SetGCOL",(n%<<8)+(n%<<16)+(255<<24) @� �
00000000 0d 00 0a 0a eb 20 32 37 3a 87 0d 00 14 0e e3 20 |..... 27:...... | 00000010 63 3d 30 20 b8 20 31 35 0d 00 1e 16 fb 20 63 2c |c=0 . 15..... c,| 00000020 63 2a 31 36 2c 63 2a 31 36 2c 63 2a 31 36 0d 00 |c*16,c*16,c*16..| 00000030 28 07 ed 20 63 0d 00 32 05 3a 0d 00 3c 05 f5 0d |(.. c..2.:..<...| 00000040 00 46 05 f5 0d 00 50 11 58 25 3d b3 28 38 30 30 |.F....P.X%=.(800| 00000050 29 2b 32 30 30 0d 00 5a 11 59 25 3d b3 28 36 35 |)+200..Z.Y%=.(65| 00000060 39 29 2b 32 30 30 0d 00 64 0f fd 20 b0 58 25 2c |9)+200..d.. .X%,| 00000070 59 25 29 3d 30 0d 00 6e 1b f2 63 28 58 25 2c 59 |Y%)=0..n..c(X%,Y| 00000080 25 2c b3 28 32 30 30 29 2c b3 28 31 29 2a 32 29 |%,.(200),.(1)*2)| 00000090 0d 00 78 07 fd 20 a3 0d 00 82 05 e0 0d 00 8c 05 |..x.. ..........| 000000a0 3a 0d 00 96 12 dd f2 63 28 78 2c 79 2c 52 31 2c |:......c(x,y,R1,| 000000b0 52 32 29 0d 00 a0 14 ea 20 72 2c 6e 25 2c 61 24 |R2)..... r,n%,a$| 000000c0 2c 72 72 25 2c 63 25 0d 00 aa 13 e3 20 72 3d 52 |,rr%,c%..... r=R| 000000d0 31 20 b8 20 30 20 88 20 2d 38 0d 00 b4 14 63 25 |1 . 0 . -8....c%| 000000e0 3d 28 31 2d 28 72 2f 52 31 29 29 2a 31 35 0d 00 |=(1-(r/R1))*15..| 000000f0 be 08 e6 20 63 25 0d 00 c8 10 e3 20 6e 25 3d 31 |... c%..... n%=1| 00000100 20 b8 20 35 30 30 0d 00 d2 0d 61 25 3d b3 28 33 | . 500....a%=.(3| 00000110 36 30 29 0d 00 dc 13 78 78 25 3d 78 2b b5 b2 61 |60)....xx%=x+..a| 00000120 25 2a b3 28 72 29 0d 00 e6 16 79 79 25 3d 79 2b |%*.(r)....yy%=y+| 00000130 9b b2 61 25 2a b3 28 72 2a 52 32 29 0d 00 f0 1f |..a%*.(r*R2)....| 00000140 e7 20 b0 78 78 25 2c 79 79 25 29 3c 63 25 20 8c |. .xx%,yy%)<c% .| 00000150 20 c8 92 20 78 78 25 2c 79 79 25 0d 00 fa 08 ed | .. xx%,yy%.....| 00000160 20 6e 25 0d 01 04 05 ed 0d 01 0e 05 e1 0d 01 18 | n%.............| 00000170 05 3a 0d 01 22 0d dd f2 67 63 6f 6c 28 6e 29 0d |.:.."...gcol(n).| 00000180 01 2c 0c 6e 25 3d 6e 2a 32 35 35 0d 01 36 37 c8 |.,.n%=n*255..67.| 00000190 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 |. "ColourTrans_S| 000001a0 65 74 47 43 4f 4c 22 2c 28 6e 25 3c 3c 38 29 2b |etGCOL",(n%<<8)+| 000001b0 28 6e 25 3c 3c 31 36 29 2b 28 32 35 35 3c 3c 32 |(n%<<16)+(255<<2| 000001c0 34 29 0d 01 40 05 e1 0d ff |4)..@....| 000001c9
.