� Circles�
� By Mark Adcock
� 19/11/96
(�
2� 12
<� 15,255,255,255
F� XR(10,4),YR(10,4)
PB=1
Z!�L=1�10:XR(L,1)=1:YR(L,1)=0:�
d!�L=1�10:XR(L,2)=0:YR(L,2)=1:�
n"�L=1�10:XR(L,3)=-1:YR(L,3)=0:�
x"�L=1�10:XR(L,4)=0:YR(L,4)=-1:�
�	� 4,0
��
�ȗ MX,MY,MB
�
XC=MX/640
�
YC=MY/512
�� F = 1 � 4
�� L = 1 � 2
�#�ROT(XR(L,F),YR(L,F),(L-1)*3.5)
�XR(L,F)=NX
�YR(L,F)=NY
�� L
�� F
��CIRCLE(640,512,400,0)

ș 6,19

ș 6,112,B

ș 6,113,3-B

"	B=3-B

,�

6� �

@�

J:

T:

^:

h� �CIRCLE(X,Y,S,L)

r
� LOOP

|L+=1

�
� L=3 � �

�� LOOP = 1 � 4

�2ȏȐ X+XR(L,LOOP)*S/2*XC,Y+YR(L,LOOP)*S/2*YC,S

�:�CIRCLE(X+XR(L,LOOP)*S/2*XC,Y+YR(L,LOOP)*S/2*YC,S/2,L)

�
� LOOP

�	S=S/2

��

�:

�:

�:

�� �ROT(RX,RY,R)

�
R=�(R)

�NX=RX*�(R)-RY*�(R)
NY=RX*�(R)+RY*�(R)
�

�

00000000  0d 00 0a 0e f4 20 43 69  72 63 6c 65 73 b9 0d 00  |..... Circles...|
00000010  14 14 f4 20 42 79 20 4d  61 72 6b 20 41 64 63 6f  |... By Mark Adco|
00000020  63 6b 0d 00 1e 0e f4 20  31 39 2f 31 31 2f 39 36  |ck..... 19/11/96|
00000030  0d 00 28 05 f4 0d 00 32  08 eb 20 31 32 0d 00 3c  |..(....2.. 12..<|
00000040  14 fb 20 31 35 2c 32 35  35 2c 32 35 35 2c 32 35  |.. 15,255,255,25|
00000050  35 0d 00 46 17 de 20 58  52 28 31 30 2c 34 29 2c  |5..F.. XR(10,4),|
00000060  59 52 28 31 30 2c 34 29  0d 00 50 07 42 3d 31 0d  |YR(10,4)..P.B=1.|
00000070  00 5a 21 e3 4c 3d 31 b8  31 30 3a 58 52 28 4c 2c  |.Z!.L=1.10:XR(L,|
00000080  31 29 3d 31 3a 59 52 28  4c 2c 31 29 3d 30 3a ed  |1)=1:YR(L,1)=0:.|
00000090  0d 00 64 21 e3 4c 3d 31  b8 31 30 3a 58 52 28 4c  |..d!.L=1.10:XR(L|
000000a0  2c 32 29 3d 30 3a 59 52  28 4c 2c 32 29 3d 31 3a  |,2)=0:YR(L,2)=1:|
000000b0  ed 0d 00 6e 22 e3 4c 3d  31 b8 31 30 3a 58 52 28  |...n".L=1.10:XR(|
000000c0  4c 2c 33 29 3d 2d 31 3a  59 52 28 4c 2c 33 29 3d  |L,3)=-1:YR(L,3)=|
000000d0  30 3a ed 0d 00 78 22 e3  4c 3d 31 b8 31 30 3a 58  |0:...x".L=1.10:X|
000000e0  52 28 4c 2c 34 29 3d 30  3a 59 52 28 4c 2c 34 29  |R(L,4)=0:YR(L,4)|
000000f0  3d 2d 31 3a ed 0d 00 82  09 e6 20 34 2c 30 0d 00  |=-1:...... 4,0..|
00000100  8c 05 f5 0d 00 96 0f c8  97 20 4d 58 2c 4d 59 2c  |......... MX,MY,|
00000110  4d 42 0d 00 a0 0d 58 43  3d 4d 58 2f 36 34 30 0d  |MB....XC=MX/640.|
00000120  00 aa 0d 59 43 3d 4d 59  2f 35 31 32 0d 00 b4 0f  |...YC=MY/512....|
00000130  e3 20 46 20 3d 20 31 20  b8 20 34 0d 00 be 0f e3  |. F = 1 . 4.....|
00000140  20 4c 20 3d 20 31 20 b8  20 32 0d 00 c8 23 f2 52  | L = 1 . 2...#.R|
00000150  4f 54 28 58 52 28 4c 2c  46 29 2c 59 52 28 4c 2c  |OT(XR(L,F),YR(L,|
00000160  46 29 2c 28 4c 2d 31 29  2a 33 2e 35 29 0d 00 d2  |F),(L-1)*3.5)...|
00000170  0e 58 52 28 4c 2c 46 29  3d 4e 58 0d 00 dc 0e 59  |.XR(L,F)=NX....Y|
00000180  52 28 4c 2c 46 29 3d 4e  59 0d 00 e6 07 ed 20 4c  |R(L,F)=NY..... L|
00000190  0d 00 f0 07 ed 20 46 0d  00 fa 1a f2 43 49 52 43  |..... F.....CIRC|
000001a0  4c 45 28 36 34 30 2c 35  31 32 2c 34 30 30 2c 30  |LE(640,512,400,0|
000001b0  29 0d 01 04 0b c8 99 20  36 2c 31 39 0d 01 0e 0e  |)...... 6,19....|
000001c0  c8 99 20 36 2c 31 31 32  2c 42 0d 01 18 10 c8 99  |.. 6,112,B......|
000001d0  20 36 2c 31 31 33 2c 33  2d 42 0d 01 22 09 42 3d  | 6,113,3-B..".B=|
000001e0  33 2d 42 0d 01 2c 05 db  0d 01 36 07 fd 20 a3 0d  |3-B..,....6.. ..|
000001f0  01 40 05 e0 0d 01 4a 05  3a 0d 01 54 05 3a 0d 01  |.@....J.:..T.:..|
00000200  5e 05 3a 0d 01 68 16 dd  20 f2 43 49 52 43 4c 45  |^.:..h.. .CIRCLE|
00000210  28 58 2c 59 2c 53 2c 4c  29 0d 01 72 0a ea 20 4c  |(X,Y,S,L)..r.. L|
00000220  4f 4f 50 0d 01 7c 08 4c  2b 3d 31 0d 01 86 0d e7  |OOP..|.L+=1.....|
00000230  20 4c 3d 33 20 8c 20 e1  0d 01 90 12 e3 20 4c 4f  | L=3 . ...... LO|
00000240  4f 50 20 3d 20 31 20 b8  20 34 0d 01 9a 32 c8 8f  |OP = 1 . 4...2..|
00000250  c8 90 20 58 2b 58 52 28  4c 2c 4c 4f 4f 50 29 2a  |.. X+XR(L,LOOP)*|
00000260  53 2f 32 2a 58 43 2c 59  2b 59 52 28 4c 2c 4c 4f  |S/2*XC,Y+YR(L,LO|
00000270  4f 50 29 2a 53 2f 32 2a  59 43 2c 53 0d 01 a4 3a  |OP)*S/2*YC,S...:|
00000280  f2 43 49 52 43 4c 45 28  58 2b 58 52 28 4c 2c 4c  |.CIRCLE(X+XR(L,L|
00000290  4f 4f 50 29 2a 53 2f 32  2a 58 43 2c 59 2b 59 52  |OOP)*S/2*XC,Y+YR|
000002a0  28 4c 2c 4c 4f 4f 50 29  2a 53 2f 32 2a 59 43 2c  |(L,LOOP)*S/2*YC,|
000002b0  53 2f 32 2c 4c 29 0d 01  ae 0a ed 20 4c 4f 4f 50  |S/2,L)..... LOOP|
000002c0  0d 01 b8 09 53 3d 53 2f  32 0d 01 c2 05 e1 0d 01  |....S=S/2.......|
000002d0  cc 05 3a 0d 01 d6 05 3a  0d 01 e0 05 3a 0d 01 ea  |..:....:....:...|
000002e0  13 dd 20 f2 52 4f 54 28  52 58 2c 52 59 2c 52 29  |.. .ROT(RX,RY,R)|
000002f0  0d 01 f4 0a 52 3d b2 28  52 29 0d 01 fe 16 4e 58  |....R=.(R)....NX|
00000300  3d 52 58 2a 9b 28 52 29  2d 52 59 2a b5 28 52 29  |=RX*.(R)-RY*.(R)|
00000310  0d 02 08 16 4e 59 3d 52  58 2a b5 28 52 29 2b 52  |....NY=RX*.(R)+R|
00000320  59 2a 9b 28 52 29 0d 02  12 05 e1 0d 02 1c 04 0d  |Y*.(R)..........|
00000330  ff                                                |.|
00000331