Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » Regulars » StarInfo/Mellor/Cells
StarInfo/Mellor/Cells
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-Xmas B.adf » Regulars |
| Filename: | StarInfo/Mellor/Cells |
| Read OK: | ✔ |
| File size: | 0700 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Cells
20REM By Philip Mellor
30:
40MODE 21:OFF
50ON ERROR REPORT:PRINT" - ";ERL:END
60:
70DIM R1(360),R2(360)
80:
90REPEAT
100
110REPEAT
120
130REPEAT
140BX=RND(1279)
150BY=RND(1023)
160IF INKEY-1 MOUSE ON:OSCLI("SCREENSAVE BEAN"+STR$RND(99999)):REPEATUNTIL NOT(INKEY-1):MOUSE OFF
170UNTIL POINT(BX,BY)=0
180:
190RS=52+RND(24)
200
210FAILED=FALSE
220
230RS1=RS+FNr(16)
240RS2=RS+FNr(16)
250
260:
270A1=RND(360):A2=RND(360)
280A1=0:A2=0
290AR1=RND(16):AR2=RND(16)
300:
310REPEAT
320R=RS:R1=RS1:R2=RS2
330
340FOR A=0 TO 360 STEP 10
350R1=RS1+(AR1*SINRAD(A+A1)):A1+=RND(1)*2
360R2=RS2+(AR2*COSRAD(A+A1)):A2+=RND(1)*2
370REPEAT
380OK=TRUE
390X=BX+((R1-8)*SINRADA)
400Y=BY+((R2-8)*COSRADA)
410IF POINT(X,Y)<>0 OR (POINT(X,Y)=0 AND TINT(X,Y)<>0) THEN OK=FALSE:R1-=4:R2-=4
420UNTIL OK=TRUE OR R1<8 OR R2<8
430R1(A)=R1
440R2(A)=R2
450IF OK=FALSE THEN A=365:FAILED=TRUE
460NEXT
470
480IF FAILED RS1=RS1 DIV 2
490IF FAILED RS2=RS2 DIV 2
500
510UNTIL RS1<4 OR RS2<4 OR NOT FAILED
520
530UNTIL NOT FAILED
540
550CJ=3:CH=1
560REPEAT
570CASE RND(7) OF
580WHEN 1:RR=1:GG=0:BB=0
590WHEN 2:RR=0:GG=1:BB=0
600WHEN 3:RR=1:GG=1:BB=0
610WHEN 4:RR=0:GG=0:BB=1
620WHEN 5:RR=1:GG=0:BB=1
630WHEN 6:RR=1:GG=1:BB=1
640WHEN 7:RR=1:GG=1:BB=1
650ENDCASE
660RP=(RND(1)*(.5)+((1-RR)*.35))+(.5*RR)
670GP=(RND(1)*(.5)+((1-GG)*.35))+(.5*GG)
680BP=(RND(1)*(.5)+((1-BB)*.35))+(.5*BB)
690COLOK=TRUE
700IF RP=0 AND GP=0 AND BP=0 COLOK=FALSE
710IF RP=GP AND GP=BP AND BP<1 COLOK=FALSE
720UNTIL COLOK=TRUE
730
740FOR I=15 TO 1 STEP -1
750C=((I/15)*(2/3))+(1/3)
760
770CJ1=CJ:IF CJ1>14 CJ1=14
780CJ2=CJ:IF CJ2>14 CJ2=14
790CJ3=CJ:IF CJ3>14 CJ3=14
800SYS "ColourTrans_SetGCOL",(((RP*CJ1*17)+16)<<8)+(((GP*CJ2*17)+16)<<16)+(((BP*CJ3*17)+16)<<24),,,&100,0
810FOR P=1 TO 2
820CJ+=CH:IF CJ>=18 CH=-1
830IF CJ<=3 CH=1
840NEXT
850
860OX=I/8:OY=-I/2
870OX=0:OY=0
880FOR A=10 TO 360 STEP 10
890X1=BX+((R1(A)*C)*SINRADA)
900Y1=BY+((R2(A)*C)*COSRADA)
910X2=BX+((R1(A-10)*C)*SINRAD(A-10))
920Y2=BY+((R2(A-10)*C)*COSRAD(A-10))
930X3=BX
940Y3=BY
950MOVE X1+OX,Y1+OY:MOVE X2+OX,Y2+OY:PLOT 85,X3+OX,Y3+OY
960NEXT
970NEXT
980
990UNTIL 0
1000:
1010DEFFNr(n)
1020IF RND(2)=1 =RND(n) ELSE =-RND(n)
� >Cells
� By Philip Mellor
:
(
� 21:�
2� � �:�" - ";�:�
<:
F� R1(360),R2(360)
P:
Z�
d
n�
x
��
�BX=�(1279)
�BY=�(1023)
�<� �-1 ȗ �:�("SCREENSAVE BEAN"+ó(99999)):�� �(�-1):ȗ �
�� �BX,BY)=0
�:
�RS=52+�(24)
�
� FAILED=�
�
�RS1=RS+�r(16)
�RS2=RS+�r(16)
�
:
A1=�(360):A2=�(360)
A1=0:A2=0
"AR1=�(16):AR2=�(16)
,:
6�
@R=RS:R1=RS1:R2=RS2
J
T� A=0 � 360 � 10
^$R1=RS1+(AR1*��(A+A1)):A1+=�(1)*2
h$R2=RS2+(AR2*��(A+A1)):A2+=�(1)*2
r�
|OK=�
�X=BX+((R1-8)*��A)
�Y=BY+((R2-8)*��A)
�:� �X,Y)<>0 � (�X,Y)=0 � Ȝ(X,Y)<>0) � OK=�:R1-=4:R2-=4
�� OK=� � R1<8 � R2<8
� R1(A)=R1
� R2(A)=R2
�� OK=� � A=365:FAILED=�
��
�
�� FAILED RS1=RS1 � 2
�� FAILED RS2=RS2 � 2
�
� � RS1<4 � RS2<4 � � FAILED
� � FAILED
&
CJ=3:CH=1
0�
:
Ȏ �(7) �
D� 1:RR=1:GG=0:BB=0
N� 2:RR=0:GG=1:BB=0
X� 3:RR=1:GG=1:BB=0
b� 4:RR=0:GG=0:BB=1
l� 5:RR=1:GG=0:BB=1
v� 6:RR=1:GG=1:BB=1
�� 7:RR=1:GG=1:BB=1
��
�'RP=(�(1)*(.5)+((1-RR)*.35))+(.5*RR)
�'GP=(�(1)*(.5)+((1-GG)*.35))+(.5*GG)
�'BP=(�(1)*(.5)+((1-BB)*.35))+(.5*BB)
� COLOK=�
� � RP=0 � GP=0 � BP=0 COLOK=�
�"� RP=GP � GP=BP � BP<1 COLOK=�
�
� COLOK=�
�
�� I=15 � 1 � -1
�C=((I/15)*(2/3))+(1/3)
�
CJ1=CJ:� CJ1>14 CJ1=14
CJ2=CJ:� CJ2>14 CJ2=14
CJ3=CJ:� CJ3>14 CJ3=14
iș "ColourTrans_SetGCOL",(((RP*CJ1*17)+16)<<8)+(((GP*CJ2*17)+16)<<16)+(((BP*CJ3*17)+16)<<24),,,&100,0
*
� P=1 � 2
4CJ+=CH:� CJ>=18 CH=-1
>� CJ<=3 CH=1
H�
R
\OX=I/8:OY=-I/2
f
OX=0:OY=0
p� A=10 � 360 � 10
zX1=BX+((R1(A)*C)*��A)
�Y1=BY+((R2(A)*C)*��A)
�!X2=BX+((R1(A-10)*C)*��(A-10))
�!Y2=BY+((R2(A-10)*C)*��(A-10))
� X3=BX
� Y3=BY
�0� X1+OX,Y1+OY:� X2+OX,Y2+OY:� 85,X3+OX,Y3+OY
��
��
�
�� 0
�:
�
ݤr(n)
�� �(2)=1 =�(n) � =-�(n)
� 00000000 0d 00 0a 0c f4 20 3e 43 65 6c 6c 73 0d 00 14 16 |..... >Cells....|
00000010 f4 20 42 79 20 50 68 69 6c 69 70 20 4d 65 6c 6c |. By Philip Mell|
00000020 6f 72 0d 00 1e 05 3a 0d 00 28 0a eb 20 32 31 3a |or....:..(.. 21:|
00000030 87 0d 00 32 14 ee 20 85 20 f6 3a f1 22 20 2d 20 |...2.. . .:." - |
00000040 22 3b 9e 3a e0 0d 00 3c 05 3a 0d 00 46 15 de 20 |";.:...<.:..F.. |
00000050 52 31 28 33 36 30 29 2c 52 32 28 33 36 30 29 0d |R1(360),R2(360).|
00000060 00 50 05 3a 0d 00 5a 05 f5 0d 00 64 04 0d 00 6e |.P.:..Z....d...n|
00000070 05 f5 0d 00 78 04 0d 00 82 05 f5 0d 00 8c 0e 42 |....x..........B|
00000080 58 3d b3 28 31 32 37 39 29 0d 00 96 0e 42 59 3d |X=.(1279)....BY=|
00000090 b3 28 31 30 32 33 29 0d 00 a0 3c e7 20 a6 2d 31 |.(1023)...<. .-1|
000000a0 20 c8 97 20 ee 3a ff 28 22 53 43 52 45 45 4e 53 | .. .:.("SCREENS|
000000b0 41 56 45 20 42 45 41 4e 22 2b c3 b3 28 39 39 39 |AVE BEAN"+..(999|
000000c0 39 39 29 29 3a f5 fd 20 ac 28 a6 2d 31 29 3a c8 |99)):.. .(.-1):.|
000000d0 97 20 87 0d 00 aa 0f fd 20 b0 42 58 2c 42 59 29 |. ...... .BX,BY)|
000000e0 3d 30 0d 00 b4 05 3a 0d 00 be 0f 52 53 3d 35 32 |=0....:....RS=52|
000000f0 2b b3 28 32 34 29 0d 00 c8 04 0d 00 d2 0c 46 41 |+.(24)........FA|
00000100 49 4c 45 44 3d a3 0d 00 dc 04 0d 00 e6 11 52 53 |ILED=.........RS|
00000110 31 3d 52 53 2b a4 72 28 31 36 29 0d 00 f0 11 52 |1=RS+.r(16)....R|
00000120 53 32 3d 52 53 2b a4 72 28 31 36 29 0d 00 fa 04 |S2=RS+.r(16)....|
00000130 0d 01 04 05 3a 0d 01 0e 17 41 31 3d b3 28 33 36 |....:....A1=.(36|
00000140 30 29 3a 41 32 3d b3 28 33 36 30 29 0d 01 18 0d |0):A2=.(360)....|
00000150 41 31 3d 30 3a 41 32 3d 30 0d 01 22 17 41 52 31 |A1=0:A2=0..".AR1|
00000160 3d b3 28 31 36 29 3a 41 52 32 3d b3 28 31 36 29 |=.(16):AR2=.(16)|
00000170 0d 01 2c 05 3a 0d 01 36 05 f5 0d 01 40 16 52 3d |..,.:..6....@.R=|
00000180 52 53 3a 52 31 3d 52 53 31 3a 52 32 3d 52 53 32 |RS:R1=RS1:R2=RS2|
00000190 0d 01 4a 04 0d 01 54 14 e3 20 41 3d 30 20 b8 20 |..J...T.. A=0 . |
000001a0 33 36 30 20 88 20 31 30 0d 01 5e 24 52 31 3d 52 |360 . 10..^$R1=R|
000001b0 53 31 2b 28 41 52 31 2a b5 b2 28 41 2b 41 31 29 |S1+(AR1*..(A+A1)|
000001c0 29 3a 41 31 2b 3d b3 28 31 29 2a 32 0d 01 68 24 |):A1+=.(1)*2..h$|
000001d0 52 32 3d 52 53 32 2b 28 41 52 32 2a 9b b2 28 41 |R2=RS2+(AR2*..(A|
000001e0 2b 41 31 29 29 3a 41 32 2b 3d b3 28 31 29 2a 32 |+A1)):A2+=.(1)*2|
000001f0 0d 01 72 05 f5 0d 01 7c 08 4f 4b 3d b9 0d 01 86 |..r....|.OK=....|
00000200 15 58 3d 42 58 2b 28 28 52 31 2d 38 29 2a b5 b2 |.X=BX+((R1-8)*..|
00000210 41 29 0d 01 90 15 59 3d 42 59 2b 28 28 52 32 2d |A)....Y=BY+((R2-|
00000220 38 29 2a 9b b2 41 29 0d 01 9a 3a e7 20 b0 58 2c |8)*..A)...:. .X,|
00000230 59 29 3c 3e 30 20 84 20 28 b0 58 2c 59 29 3d 30 |Y)<>0 . (.X,Y)=0|
00000240 20 80 20 c8 9c 28 58 2c 59 29 3c 3e 30 29 20 8c | . ..(X,Y)<>0) .|
00000250 20 4f 4b 3d a3 3a 52 31 2d 3d 34 3a 52 32 2d 3d | OK=.:R1-=4:R2-=|
00000260 34 0d 01 a4 18 fd 20 4f 4b 3d b9 20 84 20 52 31 |4..... OK=. . R1|
00000270 3c 38 20 84 20 52 32 3c 38 0d 01 ae 0c 52 31 28 |<8 . R2<8....R1(|
00000280 41 29 3d 52 31 0d 01 b8 0c 52 32 28 41 29 3d 52 |A)=R1....R2(A)=R|
00000290 32 0d 01 c2 1b e7 20 4f 4b 3d a3 20 8c 20 41 3d |2..... OK=. . A=|
000002a0 33 36 35 3a 46 41 49 4c 45 44 3d b9 0d 01 cc 05 |365:FAILED=.....|
000002b0 ed 0d 01 d6 04 0d 01 e0 18 e7 20 46 41 49 4c 45 |.......... FAILE|
000002c0 44 20 52 53 31 3d 52 53 31 20 81 20 32 0d 01 ea |D RS1=RS1 . 2...|
000002d0 18 e7 20 46 41 49 4c 45 44 20 52 53 32 3d 52 53 |.. FAILED RS2=RS|
000002e0 32 20 81 20 32 0d 01 f4 04 0d 01 fe 1e fd 20 52 |2 . 2......... R|
000002f0 53 31 3c 34 20 84 20 52 53 32 3c 34 20 84 20 ac |S1<4 . RS2<4 . .|
00000300 20 46 41 49 4c 45 44 0d 02 08 04 0d 02 12 0e fd | FAILED.........|
00000310 20 ac 20 46 41 49 4c 45 44 0d 02 1c 04 0d 02 26 | . FAILED......&|
00000320 0d 43 4a 3d 33 3a 43 48 3d 31 0d 02 30 05 f5 0d |.CJ=3:CH=1..0...|
00000330 02 3a 0d c8 8e 20 b3 28 37 29 20 ca 0d 02 44 16 |.:... .(7) ...D.|
00000340 c9 20 31 3a 52 52 3d 31 3a 47 47 3d 30 3a 42 42 |. 1:RR=1:GG=0:BB|
00000350 3d 30 0d 02 4e 16 c9 20 32 3a 52 52 3d 30 3a 47 |=0..N.. 2:RR=0:G|
00000360 47 3d 31 3a 42 42 3d 30 0d 02 58 16 c9 20 33 3a |G=1:BB=0..X.. 3:|
00000370 52 52 3d 31 3a 47 47 3d 31 3a 42 42 3d 30 0d 02 |RR=1:GG=1:BB=0..|
00000380 62 16 c9 20 34 3a 52 52 3d 30 3a 47 47 3d 30 3a |b.. 4:RR=0:GG=0:|
00000390 42 42 3d 31 0d 02 6c 16 c9 20 35 3a 52 52 3d 31 |BB=1..l.. 5:RR=1|
000003a0 3a 47 47 3d 30 3a 42 42 3d 31 0d 02 76 16 c9 20 |:GG=0:BB=1..v.. |
000003b0 36 3a 52 52 3d 31 3a 47 47 3d 31 3a 42 42 3d 31 |6:RR=1:GG=1:BB=1|
000003c0 0d 02 80 16 c9 20 37 3a 52 52 3d 31 3a 47 47 3d |..... 7:RR=1:GG=|
000003d0 31 3a 42 42 3d 31 0d 02 8a 05 cb 0d 02 94 27 52 |1:BB=1........'R|
000003e0 50 3d 28 b3 28 31 29 2a 28 2e 35 29 2b 28 28 31 |P=(.(1)*(.5)+((1|
000003f0 2d 52 52 29 2a 2e 33 35 29 29 2b 28 2e 35 2a 52 |-RR)*.35))+(.5*R|
00000400 52 29 0d 02 9e 27 47 50 3d 28 b3 28 31 29 2a 28 |R)...'GP=(.(1)*(|
00000410 2e 35 29 2b 28 28 31 2d 47 47 29 2a 2e 33 35 29 |.5)+((1-GG)*.35)|
00000420 29 2b 28 2e 35 2a 47 47 29 0d 02 a8 27 42 50 3d |)+(.5*GG)...'BP=|
00000430 28 b3 28 31 29 2a 28 2e 35 29 2b 28 28 31 2d 42 |(.(1)*(.5)+((1-B|
00000440 42 29 2a 2e 33 35 29 29 2b 28 2e 35 2a 42 42 29 |B)*.35))+(.5*BB)|
00000450 0d 02 b2 0b 43 4f 4c 4f 4b 3d b9 0d 02 bc 20 e7 |....COLOK=.... .|
00000460 20 52 50 3d 30 20 80 20 47 50 3d 30 20 80 20 42 | RP=0 . GP=0 . B|
00000470 50 3d 30 20 43 4f 4c 4f 4b 3d a3 0d 02 c6 22 e7 |P=0 COLOK=....".|
00000480 20 52 50 3d 47 50 20 80 20 47 50 3d 42 50 20 80 | RP=GP . GP=BP .|
00000490 20 42 50 3c 31 20 43 4f 4c 4f 4b 3d a3 0d 02 d0 | BP<1 COLOK=....|
000004a0 0d fd 20 43 4f 4c 4f 4b 3d b9 0d 02 da 04 0d 02 |.. COLOK=.......|
000004b0 e4 13 e3 20 49 3d 31 35 20 b8 20 31 20 88 20 2d |... I=15 . 1 . -|
000004c0 31 0d 02 ee 1a 43 3d 28 28 49 2f 31 35 29 2a 28 |1....C=((I/15)*(|
000004d0 32 2f 33 29 29 2b 28 31 2f 33 29 0d 02 f8 04 0d |2/3))+(1/3).....|
000004e0 03 02 1a 43 4a 31 3d 43 4a 3a e7 20 43 4a 31 3e |...CJ1=CJ:. CJ1>|
000004f0 31 34 20 43 4a 31 3d 31 34 0d 03 0c 1a 43 4a 32 |14 CJ1=14....CJ2|
00000500 3d 43 4a 3a e7 20 43 4a 32 3e 31 34 20 43 4a 32 |=CJ:. CJ2>14 CJ2|
00000510 3d 31 34 0d 03 16 1a 43 4a 33 3d 43 4a 3a e7 20 |=14....CJ3=CJ:. |
00000520 43 4a 33 3e 31 34 20 43 4a 33 3d 31 34 0d 03 20 |CJ3>14 CJ3=14.. |
00000530 69 c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 |i.. "ColourTrans|
00000540 5f 53 65 74 47 43 4f 4c 22 2c 28 28 28 52 50 2a |_SetGCOL",(((RP*|
00000550 43 4a 31 2a 31 37 29 2b 31 36 29 3c 3c 38 29 2b |CJ1*17)+16)<<8)+|
00000560 28 28 28 47 50 2a 43 4a 32 2a 31 37 29 2b 31 36 |(((GP*CJ2*17)+16|
00000570 29 3c 3c 31 36 29 2b 28 28 28 42 50 2a 43 4a 33 |)<<16)+(((BP*CJ3|
00000580 2a 31 37 29 2b 31 36 29 3c 3c 32 34 29 2c 2c 2c |*17)+16)<<24),,,|
00000590 26 31 30 30 2c 30 0d 03 2a 0d e3 20 50 3d 31 20 |&100,0..*.. P=1 |
000005a0 b8 20 32 0d 03 34 19 43 4a 2b 3d 43 48 3a e7 20 |. 2..4.CJ+=CH:. |
000005b0 43 4a 3e 3d 31 38 20 43 48 3d 2d 31 0d 03 3e 10 |CJ>=18 CH=-1..>.|
000005c0 e7 20 43 4a 3c 3d 33 20 43 48 3d 31 0d 03 48 05 |. CJ<=3 CH=1..H.|
000005d0 ed 0d 03 52 04 0d 03 5c 12 4f 58 3d 49 2f 38 3a |...R...\.OX=I/8:|
000005e0 4f 59 3d 2d 49 2f 32 0d 03 66 0d 4f 58 3d 30 3a |OY=-I/2..f.OX=0:|
000005f0 4f 59 3d 30 0d 03 70 15 e3 20 41 3d 31 30 20 b8 |OY=0..p.. A=10 .|
00000600 20 33 36 30 20 88 20 31 30 0d 03 7a 19 58 31 3d | 360 . 10..z.X1=|
00000610 42 58 2b 28 28 52 31 28 41 29 2a 43 29 2a b5 b2 |BX+((R1(A)*C)*..|
00000620 41 29 0d 03 84 19 59 31 3d 42 59 2b 28 28 52 32 |A)....Y1=BY+((R2|
00000630 28 41 29 2a 43 29 2a 9b b2 41 29 0d 03 8e 21 58 |(A)*C)*..A)...!X|
00000640 32 3d 42 58 2b 28 28 52 31 28 41 2d 31 30 29 2a |2=BX+((R1(A-10)*|
00000650 43 29 2a b5 b2 28 41 2d 31 30 29 29 0d 03 98 21 |C)*..(A-10))...!|
00000660 59 32 3d 42 59 2b 28 28 52 32 28 41 2d 31 30 29 |Y2=BY+((R2(A-10)|
00000670 2a 43 29 2a 9b b2 28 41 2d 31 30 29 29 0d 03 a2 |*C)*..(A-10))...|
00000680 09 58 33 3d 42 58 0d 03 ac 09 59 33 3d 42 59 0d |.X3=BX....Y3=BY.|
00000690 03 b6 30 ec 20 58 31 2b 4f 58 2c 59 31 2b 4f 59 |..0. X1+OX,Y1+OY|
000006a0 3a ec 20 58 32 2b 4f 58 2c 59 32 2b 4f 59 3a f0 |:. X2+OX,Y2+OY:.|
000006b0 20 38 35 2c 58 33 2b 4f 58 2c 59 33 2b 4f 59 0d | 85,X3+OX,Y3+OY.|
000006c0 03 c0 05 ed 0d 03 ca 05 ed 0d 03 d4 04 0d 03 de |................|
000006d0 07 fd 20 30 0d 03 e8 05 3a 0d 03 f2 0a dd a4 72 |.. 0....:......r|
000006e0 28 6e 29 0d 03 fc 1b e7 20 b3 28 32 29 3d 31 20 |(n)..... .(2)=1 |
000006f0 3d b3 28 6e 29 20 8b 20 3d 2d b3 28 6e 29 0d ff |=.(n) . =-.(n)..|
00000700 
.