StarInfo/circles/Balls/awful

Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » StarInfo/circles/Balls/awful

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-02 B.adf » Regulars
Filename:	StarInfo/circles/Balls/awful
Read OK:	✔
File size:	098D bytes
Load address:	0000
Exec address:	0000

File contents

   10REM awful
   20REM by Jonathan Balls
   21:
   30tx=0
   40ty=0
   50freqx=RND(1)/42
   60freqy=RND(1)/42
   70ax=420
   80ay=580
   90cx=480
  100cy=640
  110MODE 27
  120PROCcolours
  130GCOL 10
  140RECTANGLE FILL 0,0,5000,5000
  150OFF
  160REPEAT
  170WAIT
  180PROCchange
  190ix=cx+(ax*SIN(tx))
  200iy=cy+(ay*SIN(ty))
  210tx=tx+freqx
  220ty=ty+freqy
  230FOR I% = 0 TO 360 STEP 30
  240ciry=50*SIN(RAD(I%))
  250cirx=50*COS(RAD(I%))
  260CIRCLE FILL cirx+iy,ciry+ix,10
  270NEXT I%
  280ix=cx+(ax*SIN(tx))
  290iy=cy+(ay*SIN(ty))
  300tx=tx+freqx
  310ty=ty+freqy
  320WAIT
  330PROCchange
  340GCOL 1
  350FOR I% = 3.75 TO 363.75 STEP 30
  360ciry=50*SIN(RAD(I%))
  370cirx=50*COS(RAD(I%))
  380CIRCLE FILL cirx+iy,ciry+ix,10
  390NEXT I%
  400ix=cx+(ax*SIN(tx))
  410iy=cy+(ay*SIN(ty))
  420tx=tx+freqx
  430ty=ty+freqy
  440WAIT
  450PROCchange
  460GCOL 2
  470FOR I% = 7.5 TO 367.5 STEP 30
  480ciry=50*SIN(RAD(I%))
  490cirx=50*COS(RAD(I%))
  500CIRCLE FILL cirx+iy,ciry+ix,10
  510NEXT I%
  520ix=cx+(ax*SIN(tx))
  530iy=cy+(ay*SIN(ty))
  540tx=tx+freqx
  550ty=ty+freqy
  560WAIT
  570PROCchange
  580GCOL 3
  590FOR I% = 11.25 TO 321.25 STEP 30
  600ciry=50*SIN(RAD(I%))
  610cirx=50*COS(RAD(I%))
  620CIRCLE FILL cirx+iy,ciry+ix,10
  630NEXT I%
  640ix=cx+(ax*SIN(tx))
  650iy=cy+(ay*SIN(ty))
  660tx=tx+freqx
  670ty=ty+freqy
  680WAIT
  690PROCchange
  700GCOL 4
  710FOR I% = 15 TO 375 STEP 30
  720ciry=50*SIN(RAD(I%))
  730cirx=50*COS(RAD(I%))
  740CIRCLE FILL cirx+iy,ciry+ix,10
  750NEXT I%
  760ix=cx+(ax*SIN(tx))
  770iy=cy+(ay*SIN(ty))
  780tx=tx+freqx
  790ty=ty+freqy
  800WAIT
  810PROCchange
  820GCOL 5
  830FOR I% = 18.75 TO 378.75 STEP 30
  840ciry=50*SIN(RAD(I%))
  850cirx=50*COS(RAD(I%))
  860CIRCLE FILL cirx+iy,ciry+ix,10
  870NEXT I%
  880ix=cx+(ax*SIN(tx))
  890iy=cy+(ay*SIN(ty))
  900tx=tx+freqx
  910ty=ty+freqy
  920WAIT
  930PROCchange
  940GCOL 6
  950FOR I% = 22.5 TO 382.5 STEP 30
  960ciry=50*SIN(RAD(I%))
  970cirx=50*COS(RAD(I%))
  980CIRCLE FILL cirx+iy,ciry+ix,10
  990NEXT I%
 1000ix=cx+(ax*SIN(tx))
 1010iy=cy+(ay*SIN(ty))
 1020tx=tx+freqx
 1030ty=ty+freqy
 1040WAIT
 1050PROCchange
 1060GCOL 7
 1070FOR I% = 26.25 TO 386.25 STEP 30
 1080ciry=50*SIN(RAD(I%))
 1090cirx=50*COS(RAD(I%))
 1100CIRCLE FILL cirx+iy,ciry+ix,10
 1110UNTIL INKEY(-99)
 1120END
 1130DEFPROCcolours
 1140COLOUR 0,255,255,000
 1150COLOUR 1,255,192,00
 1160COLOUR 2,255,128,00
 1170COLOUR 3,255,64,00
 1180COLOUR 4,255,0,0
 1190COLOUR 5,255,64,00
 1200COLOUR 6,255,127.5,00
 1210COLOUR 7,255,192,00
 1220COLOUR 10,0,0,0
 1230DIM col%(7)
 1240col%(0)=255
 1250col%(1)=192
 1260col%(2)=128
 1270col%(3)=64
 1280col%(4)=0
 1290col%(5)=64
 1300col%(6)=127
 1310col%(7)=192
 1320ENDPROC
 1330DEFPROCchange
 1340other%=col%(0)
 1350col%(0)=col%(1)
 1360col%(1)=col%(2)
 1370col%(2)=col%(3)
 1380col%(3)=col%(4)
 1390col%(4)=col%(5)
 1400col%(5)=col%(6)
 1410col%(6)=col%(7)
 1420col%(7)=other%
 1430COLOUR 0,255,col%(0),00
 1440COLOUR 1,255,col%(1),00
 1450COLOUR 2,255,col%(2),00
 1460COLOUR 3,255,col%(3),00
 1470COLOUR 4,255,col%(4),00
 1480COLOUR 5,255,col%(5),00
 1490COLOUR 6,255,col%(6),00
 1500COLOUR 7,255,col%(7),00
 1510ENDPROC
 1520ENDPROC


� awful
� by Jonathan Balls
:
tx=0
(ty=0
2freqx=�(1)/42
<freqy=�(1)/42
F
ax=420
P
ay=580
Z
cx=480
d
cy=640
n� 27
x�colours
�� 10
�ȓ Ȑ 0,0,5000,5000
��
��
�Ȗ
��change
�ix=cx+(ax*�(tx))
�iy=cy+(ay*�(ty))
�tx=tx+freqx
�ty=ty+freqy
�� I% = 0 � 360 � 30
�ciry=50*�(�(I%))
�cirx=50*�(�(I%))
ȏ Ȑ cirx+iy,ciry+ix,10
� I%
ix=cx+(ax*�(tx))
"iy=cy+(ay*�(ty))
,tx=tx+freqx
6ty=ty+freqy
@Ȗ
J�change
T� 1
^� I% = 3.75 � 363.75 � 30
hciry=50*�(�(I%))
rcirx=50*�(�(I%))
|ȏ Ȑ cirx+iy,ciry+ix,10
�� I%
�ix=cx+(ax*�(tx))
�iy=cy+(ay*�(ty))
�tx=tx+freqx
�ty=ty+freqy
�Ȗ
��change
�� 2
�� I% = 7.5 � 367.5 � 30
�ciry=50*�(�(I%))
�cirx=50*�(�(I%))
�ȏ Ȑ cirx+iy,ciry+ix,10
�� I%
ix=cx+(ax*�(tx))
iy=cy+(ay*�(ty))
tx=tx+freqx
&ty=ty+freqy
0Ȗ
:�change
D� 3
N� I% = 11.25 � 321.25 � 30
Xciry=50*�(�(I%))
bcirx=50*�(�(I%))
lȏ Ȑ cirx+iy,ciry+ix,10
v� I%
�ix=cx+(ax*�(tx))
�iy=cy+(ay*�(ty))
�tx=tx+freqx
�ty=ty+freqy
�Ȗ
��change
�� 4
�� I% = 15 � 375 � 30
�ciry=50*�(�(I%))
�cirx=50*�(�(I%))
�ȏ Ȑ cirx+iy,ciry+ix,10
�� I%
�ix=cx+(ax*�(tx))
iy=cy+(ay*�(ty))
tx=tx+freqx
ty=ty+freqy
 Ȗ
*�change
4� 5
>� I% = 18.75 � 378.75 � 30
Hciry=50*�(�(I%))
Rcirx=50*�(�(I%))
\ȏ Ȑ cirx+iy,ciry+ix,10
f� I%
pix=cx+(ax*�(tx))
ziy=cy+(ay*�(ty))
�tx=tx+freqx
�ty=ty+freqy
�Ȗ
��change
�� 6
�� I% = 22.5 � 382.5 � 30
�ciry=50*�(�(I%))
�cirx=50*�(�(I%))
�ȏ Ȑ cirx+iy,ciry+ix,10
�� I%
�ix=cx+(ax*�(tx))
�iy=cy+(ay*�(ty))
�tx=tx+freqx
ty=ty+freqy
Ȗ
�change
$� 7
.� I% = 26.25 � 386.25 � 30
8ciry=50*�(�(I%))
Bcirx=50*�(�(I%))
Lȏ Ȑ cirx+iy,ciry+ix,10
V� �(-99)
`�
j
��colours
t� 0,255,255,000
~� 1,255,192,00
�� 2,255,128,00
�� 3,255,64,00
�� 4,255,0,0
�� 5,255,64,00
�� 6,255,127.5,00
�� 7,255,192,00
�� 10,0,0,0
�
� col%(7)
�col%(0)=255
�col%(1)=192
�col%(2)=128
�col%(3)=64

col%(4)=0

col%(5)=64
col%(6)=127
col%(7)=192
(�
2��change
<other%=col%(0)
Fcol%(0)=col%(1)
Pcol%(1)=col%(2)
Zcol%(2)=col%(3)
dcol%(3)=col%(4)
ncol%(4)=col%(5)
xcol%(5)=col%(6)
�col%(6)=col%(7)
�col%(7)=other%
�� 0,255,col%(0),00
�� 1,255,col%(1),00
�� 2,255,col%(2),00
�� 3,255,col%(3),00
�� 4,255,col%(4),00
�� 5,255,col%(5),00
�� 6,255,col%(6),00
�� 7,255,col%(7),00
��
��
�

00000000  0d 00 0a 0b f4 20 61 77  66 75 6c 0d 00 14 17 f4  |..... awful.....|
00000010  20 62 79 20 4a 6f 6e 61  74 68 61 6e 20 42 61 6c  | by Jonathan Bal|
00000020  6c 73 0d 00 15 05 3a 0d  00 1e 08 74 78 3d 30 0d  |ls....:....tx=0.|
00000030  00 28 08 74 79 3d 30 0d  00 32 11 66 72 65 71 78  |.(.ty=0..2.freqx|
00000040  3d b3 28 31 29 2f 34 32  0d 00 3c 11 66 72 65 71  |=.(1)/42..<.freq|
00000050  79 3d b3 28 31 29 2f 34  32 0d 00 46 0a 61 78 3d  |y=.(1)/42..F.ax=|
00000060  34 32 30 0d 00 50 0a 61  79 3d 35 38 30 0d 00 5a  |420..P.ay=580..Z|
00000070  0a 63 78 3d 34 38 30 0d  00 64 0a 63 79 3d 36 34  |.cx=480..d.cy=64|
00000080  30 0d 00 6e 08 eb 20 32  37 0d 00 78 0c f2 63 6f  |0..n.. 27..x..co|
00000090  6c 6f 75 72 73 0d 00 82  08 e6 20 31 30 0d 00 8c  |lours..... 10...|
000000a0  17 c8 93 20 c8 90 20 30  2c 30 2c 35 30 30 30 2c  |... .. 0,0,5000,|
000000b0  35 30 30 30 0d 00 96 05  87 0d 00 a0 05 f5 0d 00  |5000............|
000000c0  aa 06 c8 96 0d 00 b4 0b  f2 63 68 61 6e 67 65 0d  |.........change.|
000000d0  00 be 14 69 78 3d 63 78  2b 28 61 78 2a b5 28 74  |...ix=cx+(ax*.(t|
000000e0  78 29 29 0d 00 c8 14 69  79 3d 63 79 2b 28 61 79  |x))....iy=cy+(ay|
000000f0  2a b5 28 74 79 29 29 0d  00 d2 0f 74 78 3d 74 78  |*.(ty))....tx=tx|
00000100  2b 66 72 65 71 78 0d 00  dc 0f 74 79 3d 74 79 2b  |+freqx....ty=ty+|
00000110  66 72 65 71 79 0d 00 e6  17 e3 20 49 25 20 3d 20  |freqy..... I% = |
00000120  30 20 b8 20 33 36 30 20  88 20 33 30 0d 00 f0 14  |0 . 360 . 30....|
00000130  63 69 72 79 3d 35 30 2a  b5 28 b2 28 49 25 29 29  |ciry=50*.(.(I%))|
00000140  0d 00 fa 14 63 69 72 78  3d 35 30 2a 9b 28 b2 28  |....cirx=50*.(.(|
00000150  49 25 29 29 0d 01 04 1c  c8 8f 20 c8 90 20 63 69  |I%))...... .. ci|
00000160  72 78 2b 69 79 2c 63 69  72 79 2b 69 78 2c 31 30  |rx+iy,ciry+ix,10|
00000170  0d 01 0e 08 ed 20 49 25  0d 01 18 14 69 78 3d 63  |..... I%....ix=c|
00000180  78 2b 28 61 78 2a b5 28  74 78 29 29 0d 01 22 14  |x+(ax*.(tx))..".|
00000190  69 79 3d 63 79 2b 28 61  79 2a b5 28 74 79 29 29  |iy=cy+(ay*.(ty))|
000001a0  0d 01 2c 0f 74 78 3d 74  78 2b 66 72 65 71 78 0d  |..,.tx=tx+freqx.|
000001b0  01 36 0f 74 79 3d 74 79  2b 66 72 65 71 79 0d 01  |.6.ty=ty+freqy..|
000001c0  40 06 c8 96 0d 01 4a 0b  f2 63 68 61 6e 67 65 0d  |@.....J..change.|
000001d0  01 54 07 e6 20 31 0d 01  5e 1d e3 20 49 25 20 3d  |.T.. 1..^.. I% =|
000001e0  20 33 2e 37 35 20 b8 20  33 36 33 2e 37 35 20 88  | 3.75 . 363.75 .|
000001f0  20 33 30 0d 01 68 14 63  69 72 79 3d 35 30 2a b5  | 30..h.ciry=50*.|
00000200  28 b2 28 49 25 29 29 0d  01 72 14 63 69 72 78 3d  |(.(I%))..r.cirx=|
00000210  35 30 2a 9b 28 b2 28 49  25 29 29 0d 01 7c 1c c8  |50*.(.(I%))..|..|
00000220  8f 20 c8 90 20 63 69 72  78 2b 69 79 2c 63 69 72  |. .. cirx+iy,cir|
00000230  79 2b 69 78 2c 31 30 0d  01 86 08 ed 20 49 25 0d  |y+ix,10..... I%.|
00000240  01 90 14 69 78 3d 63 78  2b 28 61 78 2a b5 28 74  |...ix=cx+(ax*.(t|
00000250  78 29 29 0d 01 9a 14 69  79 3d 63 79 2b 28 61 79  |x))....iy=cy+(ay|
00000260  2a b5 28 74 79 29 29 0d  01 a4 0f 74 78 3d 74 78  |*.(ty))....tx=tx|
00000270  2b 66 72 65 71 78 0d 01  ae 0f 74 79 3d 74 79 2b  |+freqx....ty=ty+|
00000280  66 72 65 71 79 0d 01 b8  06 c8 96 0d 01 c2 0b f2  |freqy...........|
00000290  63 68 61 6e 67 65 0d 01  cc 07 e6 20 32 0d 01 d6  |change..... 2...|
000002a0  1b e3 20 49 25 20 3d 20  37 2e 35 20 b8 20 33 36  |.. I% = 7.5 . 36|
000002b0  37 2e 35 20 88 20 33 30  0d 01 e0 14 63 69 72 79  |7.5 . 30....ciry|
000002c0  3d 35 30 2a b5 28 b2 28  49 25 29 29 0d 01 ea 14  |=50*.(.(I%))....|
000002d0  63 69 72 78 3d 35 30 2a  9b 28 b2 28 49 25 29 29  |cirx=50*.(.(I%))|
000002e0  0d 01 f4 1c c8 8f 20 c8  90 20 63 69 72 78 2b 69  |...... .. cirx+i|
000002f0  79 2c 63 69 72 79 2b 69  78 2c 31 30 0d 01 fe 08  |y,ciry+ix,10....|
00000300  ed 20 49 25 0d 02 08 14  69 78 3d 63 78 2b 28 61  |. I%....ix=cx+(a|
00000310  78 2a b5 28 74 78 29 29  0d 02 12 14 69 79 3d 63  |x*.(tx))....iy=c|
00000320  79 2b 28 61 79 2a b5 28  74 79 29 29 0d 02 1c 0f  |y+(ay*.(ty))....|
00000330  74 78 3d 74 78 2b 66 72  65 71 78 0d 02 26 0f 74  |tx=tx+freqx..&.t|
00000340  79 3d 74 79 2b 66 72 65  71 79 0d 02 30 06 c8 96  |y=ty+freqy..0...|
00000350  0d 02 3a 0b f2 63 68 61  6e 67 65 0d 02 44 07 e6  |..:..change..D..|
00000360  20 33 0d 02 4e 1e e3 20  49 25 20 3d 20 31 31 2e  | 3..N.. I% = 11.|
00000370  32 35 20 b8 20 33 32 31  2e 32 35 20 88 20 33 30  |25 . 321.25 . 30|
00000380  0d 02 58 14 63 69 72 79  3d 35 30 2a b5 28 b2 28  |..X.ciry=50*.(.(|
00000390  49 25 29 29 0d 02 62 14  63 69 72 78 3d 35 30 2a  |I%))..b.cirx=50*|
000003a0  9b 28 b2 28 49 25 29 29  0d 02 6c 1c c8 8f 20 c8  |.(.(I%))..l... .|
000003b0  90 20 63 69 72 78 2b 69  79 2c 63 69 72 79 2b 69  |. cirx+iy,ciry+i|
000003c0  78 2c 31 30 0d 02 76 08  ed 20 49 25 0d 02 80 14  |x,10..v.. I%....|
000003d0  69 78 3d 63 78 2b 28 61  78 2a b5 28 74 78 29 29  |ix=cx+(ax*.(tx))|
000003e0  0d 02 8a 14 69 79 3d 63  79 2b 28 61 79 2a b5 28  |....iy=cy+(ay*.(|
000003f0  74 79 29 29 0d 02 94 0f  74 78 3d 74 78 2b 66 72  |ty))....tx=tx+fr|
00000400  65 71 78 0d 02 9e 0f 74  79 3d 74 79 2b 66 72 65  |eqx....ty=ty+fre|
00000410  71 79 0d 02 a8 06 c8 96  0d 02 b2 0b f2 63 68 61  |qy...........cha|
00000420  6e 67 65 0d 02 bc 07 e6  20 34 0d 02 c6 18 e3 20  |nge..... 4..... |
00000430  49 25 20 3d 20 31 35 20  b8 20 33 37 35 20 88 20  |I% = 15 . 375 . |
00000440  33 30 0d 02 d0 14 63 69  72 79 3d 35 30 2a b5 28  |30....ciry=50*.(|
00000450  b2 28 49 25 29 29 0d 02  da 14 63 69 72 78 3d 35  |.(I%))....cirx=5|
00000460  30 2a 9b 28 b2 28 49 25  29 29 0d 02 e4 1c c8 8f  |0*.(.(I%))......|
00000470  20 c8 90 20 63 69 72 78  2b 69 79 2c 63 69 72 79  | .. cirx+iy,ciry|
00000480  2b 69 78 2c 31 30 0d 02  ee 08 ed 20 49 25 0d 02  |+ix,10..... I%..|
00000490  f8 14 69 78 3d 63 78 2b  28 61 78 2a b5 28 74 78  |..ix=cx+(ax*.(tx|
000004a0  29 29 0d 03 02 14 69 79  3d 63 79 2b 28 61 79 2a  |))....iy=cy+(ay*|
000004b0  b5 28 74 79 29 29 0d 03  0c 0f 74 78 3d 74 78 2b  |.(ty))....tx=tx+|
000004c0  66 72 65 71 78 0d 03 16  0f 74 79 3d 74 79 2b 66  |freqx....ty=ty+f|
000004d0  72 65 71 79 0d 03 20 06  c8 96 0d 03 2a 0b f2 63  |reqy.. .....*..c|
000004e0  68 61 6e 67 65 0d 03 34  07 e6 20 35 0d 03 3e 1e  |hange..4.. 5..>.|
000004f0  e3 20 49 25 20 3d 20 31  38 2e 37 35 20 b8 20 33  |. I% = 18.75 . 3|
00000500  37 38 2e 37 35 20 88 20  33 30 0d 03 48 14 63 69  |78.75 . 30..H.ci|
00000510  72 79 3d 35 30 2a b5 28  b2 28 49 25 29 29 0d 03  |ry=50*.(.(I%))..|
00000520  52 14 63 69 72 78 3d 35  30 2a 9b 28 b2 28 49 25  |R.cirx=50*.(.(I%|
00000530  29 29 0d 03 5c 1c c8 8f  20 c8 90 20 63 69 72 78  |))..\... .. cirx|
00000540  2b 69 79 2c 63 69 72 79  2b 69 78 2c 31 30 0d 03  |+iy,ciry+ix,10..|
00000550  66 08 ed 20 49 25 0d 03  70 14 69 78 3d 63 78 2b  |f.. I%..p.ix=cx+|
00000560  28 61 78 2a b5 28 74 78  29 29 0d 03 7a 14 69 79  |(ax*.(tx))..z.iy|
00000570  3d 63 79 2b 28 61 79 2a  b5 28 74 79 29 29 0d 03  |=cy+(ay*.(ty))..|
00000580  84 0f 74 78 3d 74 78 2b  66 72 65 71 78 0d 03 8e  |..tx=tx+freqx...|
00000590  0f 74 79 3d 74 79 2b 66  72 65 71 79 0d 03 98 06  |.ty=ty+freqy....|
000005a0  c8 96 0d 03 a2 0b f2 63  68 61 6e 67 65 0d 03 ac  |.......change...|
000005b0  07 e6 20 36 0d 03 b6 1c  e3 20 49 25 20 3d 20 32  |.. 6..... I% = 2|
000005c0  32 2e 35 20 b8 20 33 38  32 2e 35 20 88 20 33 30  |2.5 . 382.5 . 30|
000005d0  0d 03 c0 14 63 69 72 79  3d 35 30 2a b5 28 b2 28  |....ciry=50*.(.(|
000005e0  49 25 29 29 0d 03 ca 14  63 69 72 78 3d 35 30 2a  |I%))....cirx=50*|
000005f0  9b 28 b2 28 49 25 29 29  0d 03 d4 1c c8 8f 20 c8  |.(.(I%))...... .|
00000600  90 20 63 69 72 78 2b 69  79 2c 63 69 72 79 2b 69  |. cirx+iy,ciry+i|
00000610  78 2c 31 30 0d 03 de 08  ed 20 49 25 0d 03 e8 14  |x,10..... I%....|
00000620  69 78 3d 63 78 2b 28 61  78 2a b5 28 74 78 29 29  |ix=cx+(ax*.(tx))|
00000630  0d 03 f2 14 69 79 3d 63  79 2b 28 61 79 2a b5 28  |....iy=cy+(ay*.(|
00000640  74 79 29 29 0d 03 fc 0f  74 78 3d 74 78 2b 66 72  |ty))....tx=tx+fr|
00000650  65 71 78 0d 04 06 0f 74  79 3d 74 79 2b 66 72 65  |eqx....ty=ty+fre|
00000660  71 79 0d 04 10 06 c8 96  0d 04 1a 0b f2 63 68 61  |qy...........cha|
00000670  6e 67 65 0d 04 24 07 e6  20 37 0d 04 2e 1e e3 20  |nge..$.. 7..... |
00000680  49 25 20 3d 20 32 36 2e  32 35 20 b8 20 33 38 36  |I% = 26.25 . 386|
00000690  2e 32 35 20 88 20 33 30  0d 04 38 14 63 69 72 79  |.25 . 30..8.ciry|
000006a0  3d 35 30 2a b5 28 b2 28  49 25 29 29 0d 04 42 14  |=50*.(.(I%))..B.|
000006b0  63 69 72 78 3d 35 30 2a  9b 28 b2 28 49 25 29 29  |cirx=50*.(.(I%))|
000006c0  0d 04 4c 1c c8 8f 20 c8  90 20 63 69 72 78 2b 69  |..L... .. cirx+i|
000006d0  79 2c 63 69 72 79 2b 69  78 2c 31 30 0d 04 56 0c  |y,ciry+ix,10..V.|
000006e0  fd 20 a6 28 2d 39 39 29  0d 04 60 05 e0 0d 04 6a  |. .(-99)..`....j|
000006f0  0d dd f2 63 6f 6c 6f 75  72 73 0d 04 74 13 fb 20  |...colours..t.. |
00000700  30 2c 32 35 35 2c 32 35  35 2c 30 30 30 0d 04 7e  |0,255,255,000..~|
00000710  12 fb 20 31 2c 32 35 35  2c 31 39 32 2c 30 30 0d  |.. 1,255,192,00.|
00000720  04 88 12 fb 20 32 2c 32  35 35 2c 31 32 38 2c 30  |.... 2,255,128,0|
00000730  30 0d 04 92 11 fb 20 33  2c 32 35 35 2c 36 34 2c  |0..... 3,255,64,|
00000740  30 30 0d 04 9c 0f fb 20  34 2c 32 35 35 2c 30 2c  |00..... 4,255,0,|
00000750  30 0d 04 a6 11 fb 20 35  2c 32 35 35 2c 36 34 2c  |0..... 5,255,64,|
00000760  30 30 0d 04 b0 14 fb 20  36 2c 32 35 35 2c 31 32  |00..... 6,255,12|
00000770  37 2e 35 2c 30 30 0d 04  ba 12 fb 20 37 2c 32 35  |7.5,00..... 7,25|
00000780  35 2c 31 39 32 2c 30 30  0d 04 c4 0e fb 20 31 30  |5,192,00..... 10|
00000790  2c 30 2c 30 2c 30 0d 04  ce 0d de 20 63 6f 6c 25  |,0,0,0..... col%|
000007a0  28 37 29 0d 04 d8 0f 63  6f 6c 25 28 30 29 3d 32  |(7)....col%(0)=2|
000007b0  35 35 0d 04 e2 0f 63 6f  6c 25 28 31 29 3d 31 39  |55....col%(1)=19|
000007c0  32 0d 04 ec 0f 63 6f 6c  25 28 32 29 3d 31 32 38  |2....col%(2)=128|
000007d0  0d 04 f6 0e 63 6f 6c 25  28 33 29 3d 36 34 0d 05  |....col%(3)=64..|
000007e0  00 0d 63 6f 6c 25 28 34  29 3d 30 0d 05 0a 0e 63  |..col%(4)=0....c|
000007f0  6f 6c 25 28 35 29 3d 36  34 0d 05 14 0f 63 6f 6c  |ol%(5)=64....col|
00000800  25 28 36 29 3d 31 32 37  0d 05 1e 0f 63 6f 6c 25  |%(6)=127....col%|
00000810  28 37 29 3d 31 39 32 0d  05 28 05 e1 0d 05 32 0c  |(7)=192..(....2.|
00000820  dd f2 63 68 61 6e 67 65  0d 05 3c 12 6f 74 68 65  |..change..<.othe|
00000830  72 25 3d 63 6f 6c 25 28  30 29 0d 05 46 13 63 6f  |r%=col%(0)..F.co|
00000840  6c 25 28 30 29 3d 63 6f  6c 25 28 31 29 0d 05 50  |l%(0)=col%(1)..P|
00000850  13 63 6f 6c 25 28 31 29  3d 63 6f 6c 25 28 32 29  |.col%(1)=col%(2)|
00000860  0d 05 5a 13 63 6f 6c 25  28 32 29 3d 63 6f 6c 25  |..Z.col%(2)=col%|
00000870  28 33 29 0d 05 64 13 63  6f 6c 25 28 33 29 3d 63  |(3)..d.col%(3)=c|
00000880  6f 6c 25 28 34 29 0d 05  6e 13 63 6f 6c 25 28 34  |ol%(4)..n.col%(4|
00000890  29 3d 63 6f 6c 25 28 35  29 0d 05 78 13 63 6f 6c  |)=col%(5)..x.col|
000008a0  25 28 35 29 3d 63 6f 6c  25 28 36 29 0d 05 82 13  |%(5)=col%(6)....|
000008b0  63 6f 6c 25 28 36 29 3d  63 6f 6c 25 28 37 29 0d  |col%(6)=col%(7).|
000008c0  05 8c 12 63 6f 6c 25 28  37 29 3d 6f 74 68 65 72  |...col%(7)=other|
000008d0  25 0d 05 96 16 fb 20 30  2c 32 35 35 2c 63 6f 6c  |%..... 0,255,col|
000008e0  25 28 30 29 2c 30 30 0d  05 a0 16 fb 20 31 2c 32  |%(0),00..... 1,2|
000008f0  35 35 2c 63 6f 6c 25 28  31 29 2c 30 30 0d 05 aa  |55,col%(1),00...|
00000900  16 fb 20 32 2c 32 35 35  2c 63 6f 6c 25 28 32 29  |.. 2,255,col%(2)|
00000910  2c 30 30 0d 05 b4 16 fb  20 33 2c 32 35 35 2c 63  |,00..... 3,255,c|
00000920  6f 6c 25 28 33 29 2c 30  30 0d 05 be 16 fb 20 34  |ol%(3),00..... 4|
00000930  2c 32 35 35 2c 63 6f 6c  25 28 34 29 2c 30 30 0d  |,255,col%(4),00.|
00000940  05 c8 16 fb 20 35 2c 32  35 35 2c 63 6f 6c 25 28  |.... 5,255,col%(|
00000950  35 29 2c 30 30 0d 05 d2  16 fb 20 36 2c 32 35 35  |5),00..... 6,255|
00000960  2c 63 6f 6c 25 28 36 29  2c 30 30 0d 05 dc 16 fb  |,col%(6),00.....|
00000970  20 37 2c 32 35 35 2c 63  6f 6c 25 28 37 29 2c 30  | 7,255,col%(7),0|
00000980  30 0d 05 e6 05 e1 0d 05  f0 05 e1 0d ff           |0............|
0000098d

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .