Home » Archimedes archive » Acorn User » AU 1994-02.adf » !StarInfo_StarInfo » Cooke/Coral
Cooke/Coral
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 1994-02.adf » !StarInfo_StarInfo |
| Filename: | Cooke/Coral |
| Read OK: | ✔ |
| File size: | 0333 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >Coral
2REM By Brian Cooke
3REM For 32-bit machines
4REM (C) Acorn User February 1993
5:
6MODE 27:OFF
7SYS "OS_SWINumberFromString",,"ColourTrans_SetGCOL" TO gcol
8FOR i=1 TO 7
9 c=i*&22+&11
10 COLOUR i,c,0,0
11 COLOUR 8+i,c,0,0
12NEXT
13COLOUR 0,0,0,&AA
14COLOUR 8,0,0,&AA
15PROCnode(640,480,80,10,16)
16END
17:
18DEF PROCnode(x,y,r,b,c)
19GCOL 1,8
20CIRCLE FILL x,y,r*.9
21SYS gcol,c<<8,,,&100
22CIRCLE FILL x,y,r*.5
23IF r<2 ENDPROC
24LOCAL no
25no=0
26REPEAT
27 a=RND(1)*360
28 x1=x+r*SINRAD(a)
29 y1=y+r*COSRAD(a)
30 IF POINT(x1,y1)=0 THEN
31 dx=x1-x
32 dy=y1-y
33 l=r*.9/SQR(dx*dx+dy*dy)
34 dx=dx*l
35 dy=dy*l
36 GCOL 1,8:MOVE x-dy,y+dx:MOVE x+dy,y-dx:PLOT 85,x1-dy,y1+dx:PLOT 85,x1+dy,y1-dx
37 dx=dx/2
38 dy=dy/2
39 SYS gcol,c<<8,,,&100
40 MOVE x-dy,y+dx:MOVE x+dy,y-dx:PLOT 85,x1-dy,y1+dx:PLOT 85,x1+dy,y1-dx
41 PROCnode(x1,y1,r*.95,b,c+4)
42 ELSE
43 no+=1
44 ENDIF
45UNTIL no>b
46ENDPROC
� >Coral � By Brian Cooke � For 32-bit machines "� (C) Acorn User February 1993 : � 27:� =ș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � gcol � i=1 � 7 c=i*&22+&11 � i,c,0,0 � 8+i,c,0,0 � � 0,0,0,&AA � 8,0,0,&AA �node(640,480,80,10,16) � : � �node(x,y,r,b,c) � 1,8 ȏ Ȑ x,y,r*.9 ș gcol,c<<8,,,&100 ȏ Ȑ x,y,r*.5 � r<2 � � no no=0 � a=�(1)*360 x1=x+r*��(a) y1=y+r*��(a) � �x1,y1)=0 � dx=x1-x dy=y1-y ! l=r*.9/�(dx*dx+dy*dy) " dx=dx*l # dy=dy*l $E � 1,8:� x-dy,y+dx:� x+dy,y-dx:� 85,x1-dy,y1+dx:� 85,x1+dy,y1-dx % dx=dx/2 & dy=dy/2 ' ș gcol,c<<8,,,&100 (? � x-dy,y+dx:� x+dy,y-dx:� 85,x1-dy,y1+dx:� 85,x1+dy,y1-dx ) �node(x1,y1,r*.95,b,c+4) * � + no+=1 , � - � no>b .� �
00000000 0d 00 01 0c f4 20 3e 43 6f 72 61 6c 0d 00 02 14 |..... >Coral....| 00000010 f4 20 42 79 20 42 72 69 61 6e 20 43 6f 6f 6b 65 |. By Brian Cooke| 00000020 0d 00 03 19 f4 20 46 6f 72 20 33 32 2d 62 69 74 |..... For 32-bit| 00000030 20 6d 61 63 68 69 6e 65 73 0d 00 04 22 f4 20 28 | machines...". (| 00000040 43 29 20 41 63 6f 72 6e 20 55 73 65 72 20 46 65 |C) Acorn User Fe| 00000050 62 72 75 61 72 79 20 31 39 39 33 0d 00 05 05 3a |bruary 1993....:| 00000060 0d 00 06 0a eb 20 32 37 3a 87 0d 00 07 3d c8 99 |..... 27:....=..| 00000070 20 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 | "OS_SWINumberFr| 00000080 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 43 6f 6c 6f |omString",,"Colo| 00000090 75 72 54 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 |urTrans_SetGCOL"| 000000a0 20 b8 20 67 63 6f 6c 0d 00 08 0d e3 20 69 3d 31 | . gcol..... i=1| 000000b0 20 b8 20 37 0d 00 09 10 20 63 3d 69 2a 26 32 32 | . 7.... c=i*&22| 000000c0 2b 26 31 31 0d 00 0a 0e 20 fb 20 69 2c 63 2c 30 |+&11.... . i,c,0| 000000d0 2c 30 0d 00 0b 10 20 fb 20 38 2b 69 2c 63 2c 30 |,0.... . 8+i,c,0| 000000e0 2c 30 0d 00 0c 05 ed 0d 00 0d 0f fb 20 30 2c 30 |,0.......... 0,0| 000000f0 2c 30 2c 26 41 41 0d 00 0e 0f fb 20 38 2c 30 2c |,0,&AA..... 8,0,| 00000100 30 2c 26 41 41 0d 00 0f 1b f2 6e 6f 64 65 28 36 |0,&AA.....node(6| 00000110 34 30 2c 34 38 30 2c 38 30 2c 31 30 2c 31 36 29 |40,480,80,10,16)| 00000120 0d 00 10 05 e0 0d 00 11 05 3a 0d 00 12 16 dd 20 |.........:..... | 00000130 f2 6e 6f 64 65 28 78 2c 79 2c 72 2c 62 2c 63 29 |.node(x,y,r,b,c)| 00000140 0d 00 13 09 e6 20 31 2c 38 0d 00 14 12 c8 8f 20 |..... 1,8...... | 00000150 c8 90 20 78 2c 79 2c 72 2a 2e 39 0d 00 15 17 c8 |.. x,y,r*.9.....| 00000160 99 20 67 63 6f 6c 2c 63 3c 3c 38 2c 2c 2c 26 31 |. gcol,c<<8,,,&1| 00000170 30 30 0d 00 16 12 c8 8f 20 c8 90 20 78 2c 79 2c |00...... .. x,y,| 00000180 72 2a 2e 35 0d 00 17 0b e7 20 72 3c 32 20 e1 0d |r*.5..... r<2 ..| 00000190 00 18 08 ea 20 6e 6f 0d 00 19 08 6e 6f 3d 30 0d |.... no....no=0.| 000001a0 00 1a 05 f5 0d 00 1b 0f 20 61 3d b3 28 31 29 2a |........ a=.(1)*| 000001b0 33 36 30 0d 00 1c 11 20 78 31 3d 78 2b 72 2a b5 |360.... x1=x+r*.| 000001c0 b2 28 61 29 0d 00 1d 11 20 79 31 3d 79 2b 72 2a |.(a).... y1=y+r*| 000001d0 9b b2 28 61 29 0d 00 1e 12 20 e7 20 b0 78 31 2c |..(a).... . .x1,| 000001e0 79 31 29 3d 30 20 8c 0d 00 1f 0d 20 20 64 78 3d |y1)=0 ..... dx=| 000001f0 78 31 2d 78 0d 00 20 0d 20 20 64 79 3d 79 31 2d |x1-x.. . dy=y1-| 00000200 79 0d 00 21 1b 20 20 6c 3d 72 2a 2e 39 2f b6 28 |y..!. l=r*.9/.(| 00000210 64 78 2a 64 78 2b 64 79 2a 64 79 29 0d 00 22 0d |dx*dx+dy*dy)..".| 00000220 20 20 64 78 3d 64 78 2a 6c 0d 00 23 0d 20 20 64 | dx=dx*l..#. d| 00000230 79 3d 64 79 2a 6c 0d 00 24 45 20 20 e6 20 31 2c |y=dy*l..$E . 1,| 00000240 38 3a ec 20 78 2d 64 79 2c 79 2b 64 78 3a ec 20 |8:. x-dy,y+dx:. | 00000250 78 2b 64 79 2c 79 2d 64 78 3a f0 20 38 35 2c 78 |x+dy,y-dx:. 85,x| 00000260 31 2d 64 79 2c 79 31 2b 64 78 3a f0 20 38 35 2c |1-dy,y1+dx:. 85,| 00000270 78 31 2b 64 79 2c 79 31 2d 64 78 0d 00 25 0d 20 |x1+dy,y1-dx..%. | 00000280 20 64 78 3d 64 78 2f 32 0d 00 26 0d 20 20 64 79 | dx=dx/2..&. dy| 00000290 3d 64 79 2f 32 0d 00 27 19 20 20 c8 99 20 67 63 |=dy/2..'. .. gc| 000002a0 6f 6c 2c 63 3c 3c 38 2c 2c 2c 26 31 30 30 0d 00 |ol,c<<8,,,&100..| 000002b0 28 3f 20 20 ec 20 78 2d 64 79 2c 79 2b 64 78 3a |(? . x-dy,y+dx:| 000002c0 ec 20 78 2b 64 79 2c 79 2d 64 78 3a f0 20 38 35 |. x+dy,y-dx:. 85| 000002d0 2c 78 31 2d 64 79 2c 79 31 2b 64 78 3a f0 20 38 |,x1-dy,y1+dx:. 8| 000002e0 35 2c 78 31 2b 64 79 2c 79 31 2d 64 78 0d 00 29 |5,x1+dy,y1-dx..)| 000002f0 1e 20 20 f2 6e 6f 64 65 28 78 31 2c 79 31 2c 72 |. .node(x1,y1,r| 00000300 2a 2e 39 35 2c 62 2c 63 2b 34 29 0d 00 2a 06 20 |*.95,b,c+4)..*. | 00000310 cc 0d 00 2b 0b 20 20 6e 6f 2b 3d 31 0d 00 2c 06 |...+. no+=1..,.| 00000320 20 cd 0d 00 2d 0a fd 20 6e 6f 3e 62 0d 00 2e 05 | ...-.. no>b....| 00000330 e1 0d ff |...| 00000333
.