� >CellsDIY
� By Philip Mellor
:
(
� 21:�
2ȗ �
<� � �:�" - ";�:�
F:
P� R1(360),R2(360)
Z:
dRSDD=52+�(24)
n
xA1DD=�(360):A2DD=�(360)
�AR1DD=�(16):AR2DD=�(16)
�
�RS1DD=RSDD+�r(16)
�RS2DD=RSDD+�r(16)
�:
��
�
��
�
��
�ȗ BX,BY,BZ
�� �BX,BY)=0
�:

� BZ=4 �

NUM=1:I2=1

 �

"NUM=2:I2=15

,�

6

@FAILED=�

JRS=RSDD

TRS1=RS1DD:RS2=RS2DD

^:

hA1=A1DD:A2DD=A2DD

r
A1=0:A2=0

|AR1=AR1DD:AR2=AR2DD

�:

��

�R=RS:R1=RS1:R2=RS2

�

�� A=0 � 360 � 10

�,R1=RS1:�+(AR1*SINRAD(A+A1)):A1+=RND(1)*2

�,R2=RS2:�+(AR2*COSRAD(A+A1)):A2+=RND(1)*2

��

�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=�
&�
0
:� FAILED RS1=RS1 � 2
D� FAILED RS2=RS2 � 2
N
X� RS1<4 RS1=4
b� RS2<4 RS2=4
l
v � (RS1=4 � RS2=4) � � FAILED
�
�� � FAILED
�
�� N=1 � NUM
�
CJ=3:CH=1
��
�
Ȏ �(7) �
�� 1:RR=1:GG=0:BB=0
�� 2:RR=0:GG=1:BB=0
�� 3:RR=1:GG=1:BB=0
�� 4:RR=0:GG=0:BB=1
�� 5:RR=1:GG=0:BB=1
�� 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)
4COLOK=�
> � RP=0 � GP=0 � BP=0 COLOK=�
H"� RP=GP � GP=BP � BP<1 COLOK=�
R
� COLOK=�
\
f� I=15 � I2 � -1
pC=((I/15)*(2/3))+(1/3)
z
�� BZ=4 �
�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
�CJ+=CH:� CJ>=18 CH=-1
�� CJ<=3 CH=1
��
��
�
� 3,63
��
�
OX=I/8:OY=-I/2

OX=0:OY=0
� N=1 � NUM
$� N=2 Ȗ:Ȗ
.� A=10 � 360 � 10
8X1=BX+((R1(A)*C)*��A)
BY1=BY+((R2(A)*C)*��A)
L!X2=BX+((R1(A-10)*C)*��(A-10))
V!Y2=BY+((R2(A-10)*C)*��(A-10))
`	X3=BX
j	Y3=BY
t8� NUM=1 � X1+OX,Y1+OY:� X2+OX,Y2+OY:� 85,X3+OX,Y3+OY
~'� NUM=2 � X1+OX,Y1+OY:� X2+OX,Y2+OY
��
��
��
�
�� BZ=4 �
�:
�RSDD=52+�(24)
�
�A1DD=�(360):A2DD=�(360)
�AR1DD=�(16):AR2DD=�(16)
�
�RS1DD=RS+�r(16)
RS2DD=RS+�r(16)

�
� 0
:
(
ݤr(n)
2� �(2)=1 =�(n) � =-�(n)
�

00000000  0d 00 0a 0f f4 20 3e 43  65 6c 6c 73 44 49 59 0d  |..... >CellsDIY.|
00000010  00 14 16 f4 20 42 79 20  50 68 69 6c 69 70 20 4d  |.... By Philip M|
00000020  65 6c 6c 6f 72 0d 00 1e  05 3a 0d 00 28 0a eb 20  |ellor....:..(.. |
00000030  32 31 3a 87 0d 00 32 08  c8 97 20 ee 0d 00 3c 14  |21:...2... ...<.|
00000040  ee 20 85 20 f6 3a f1 22  20 2d 20 22 3b 9e 3a e0  |. . .:." - ";.:.|
00000050  0d 00 46 05 3a 0d 00 50  15 de 20 52 31 28 33 36  |..F.:..P.. R1(36|
00000060  30 29 2c 52 32 28 33 36  30 29 0d 00 5a 05 3a 0d  |0),R2(360)..Z.:.|
00000070  00 64 11 52 53 44 44 3d  35 32 2b b3 28 32 34 29  |.d.RSDD=52+.(24)|
00000080  0d 00 6e 04 0d 00 78 1b  41 31 44 44 3d b3 28 33  |..n...x.A1DD=.(3|
00000090  36 30 29 3a 41 32 44 44  3d b3 28 33 36 30 29 0d  |60):A2DD=.(360).|
000000a0  00 82 1b 41 52 31 44 44  3d b3 28 31 36 29 3a 41  |...AR1DD=.(16):A|
000000b0  52 32 44 44 3d b3 28 31  36 29 0d 00 8c 04 0d 00  |R2DD=.(16)......|
000000c0  96 15 52 53 31 44 44 3d  52 53 44 44 2b a4 72 28  |..RS1DD=RSDD+.r(|
000000d0  31 36 29 0d 00 a0 15 52  53 32 44 44 3d 52 53 44  |16)....RS2DD=RSD|
000000e0  44 2b a4 72 28 31 36 29  0d 00 aa 05 3a 0d 00 b4  |D+.r(16)....:...|
000000f0  05 f5 0d 00 be 04 0d 00  c8 05 f5 0d 00 d2 04 0d  |................|
00000100  00 dc 05 f5 0d 00 e6 0f  c8 97 20 42 58 2c 42 59  |.......... BX,BY|
00000110  2c 42 5a 0d 00 f0 0f fd  20 b0 42 58 2c 42 59 29  |,BZ..... .BX,BY)|
00000120  3d 30 0d 00 fa 05 3a 0d  01 04 0c e7 20 42 5a 3d  |=0....:..... BZ=|
00000130  34 20 8c 0d 01 0e 0e 4e  55 4d 3d 31 3a 49 32 3d  |4 .....NUM=1:I2=|
00000140  31 0d 01 18 06 20 cc 0d  01 22 0f 4e 55 4d 3d 32  |1.... ...".NUM=2|
00000150  3a 49 32 3d 31 35 0d 01  2c 05 cd 0d 01 36 04 0d  |:I2=15..,....6..|
00000160  01 40 0c 46 41 49 4c 45  44 3d a3 0d 01 4a 0b 52  |.@.FAILED=...J.R|
00000170  53 3d 52 53 44 44 0d 01  54 17 52 53 31 3d 52 53  |S=RSDD..T.RS1=RS|
00000180  31 44 44 3a 52 53 32 3d  52 53 32 44 44 0d 01 5e  |1DD:RS2=RS2DD..^|
00000190  05 3a 0d 01 68 15 41 31  3d 41 31 44 44 3a 41 32  |.:..h.A1=A1DD:A2|
000001a0  44 44 3d 41 32 44 44 0d  01 72 0d 41 31 3d 30 3a  |DD=A2DD..r.A1=0:|
000001b0  41 32 3d 30 0d 01 7c 17  41 52 31 3d 41 52 31 44  |A2=0..|.AR1=AR1D|
000001c0  44 3a 41 52 32 3d 41 52  32 44 44 0d 01 86 05 3a  |D:AR2=AR2DD....:|
000001d0  0d 01 90 05 f5 0d 01 9a  16 52 3d 52 53 3a 52 31  |.........R=RS:R1|
000001e0  3d 52 53 31 3a 52 32 3d  52 53 32 0d 01 a4 04 0d  |=RS1:R2=RS2.....|
000001f0  01 ae 14 e3 20 41 3d 30  20 b8 20 33 36 30 20 88  |.... A=0 . 360 .|
00000200  20 31 30 0d 01 b8 2c 52  31 3d 52 53 31 3a f4 2b  | 10...,R1=RS1:.+|
00000210  28 41 52 31 2a 53 49 4e  52 41 44 28 41 2b 41 31  |(AR1*SINRAD(A+A1|
00000220  29 29 3a 41 31 2b 3d 52  4e 44 28 31 29 2a 32 0d  |)):A1+=RND(1)*2.|
00000230  01 c2 2c 52 32 3d 52 53  32 3a f4 2b 28 41 52 32  |..,R2=RS2:.+(AR2|
00000240  2a 43 4f 53 52 41 44 28  41 2b 41 31 29 29 3a 41  |*COSRAD(A+A1)):A|
00000250  32 2b 3d 52 4e 44 28 31  29 2a 32 0d 01 cc 05 f5  |2+=RND(1)*2.....|
00000260  0d 01 d6 08 4f 4b 3d b9  0d 01 e0 15 58 3d 42 58  |....OK=.....X=BX|
00000270  2b 28 28 52 31 2b 38 29  2a b5 b2 41 29 0d 01 ea  |+((R1+8)*..A)...|
00000280  15 59 3d 42 59 2b 28 28  52 32 2b 38 29 2a 9b b2  |.Y=BY+((R2+8)*..|
00000290  41 29 0d 01 f4 3b e7 20  b0 58 2c 59 29 3c 3e 30  |A)...;. .X,Y)<>0|
000002a0  20 84 20 28 20 b0 58 2c  59 29 3d 30 20 80 20 c8  | . ( .X,Y)=0 . .|
000002b0  9c 28 58 2c 59 29 3e 30  20 29 20 8c 20 4f 4b 3d  |.(X,Y)>0 ) . OK=|
000002c0  a3 3a 52 31 2d 3d 34 3a  52 32 2d 3d 34 0d 01 fe  |.:R1-=4:R2-=4...|
000002d0  18 fd 20 4f 4b 3d b9 20  84 20 52 31 3c 38 20 84  |.. OK=. . R1<8 .|
000002e0  20 52 32 3c 38 0d 02 08  0c 52 31 28 41 29 3d 52  | R2<8....R1(A)=R|
000002f0  31 0d 02 12 0c 52 32 28  41 29 3d 52 32 0d 02 1c  |1....R2(A)=R2...|
00000300  1b e7 20 4f 4b 3d a3 20  8c 20 41 3d 33 36 35 3a  |.. OK=. . A=365:|
00000310  46 41 49 4c 45 44 3d b9  0d 02 26 05 ed 0d 02 30  |FAILED=...&....0|
00000320  04 0d 02 3a 18 e7 20 46  41 49 4c 45 44 20 52 53  |...:.. FAILED RS|
00000330  31 3d 52 53 31 20 81 20  32 0d 02 44 18 e7 20 46  |1=RS1 . 2..D.. F|
00000340  41 49 4c 45 44 20 52 53  32 3d 52 53 32 20 81 20  |AILED RS2=RS2 . |
00000350  32 0d 02 4e 04 0d 02 58  11 e7 20 52 53 31 3c 34  |2..N...X.. RS1<4|
00000360  20 52 53 31 3d 34 0d 02  62 11 e7 20 52 53 32 3c  | RS1=4..b.. RS2<|
00000370  34 20 52 53 32 3d 34 0d  02 6c 04 0d 02 76 20 fd  |4 RS2=4..l...v .|
00000380  20 28 52 53 31 3d 34 20  80 20 52 53 32 3d 34 29  | (RS1=4 . RS2=4)|
00000390  20 84 20 ac 20 46 41 49  4c 45 44 0d 02 80 04 0d  | . . FAILED.....|
000003a0  02 8a 0e fd 20 ac 20 46  41 49 4c 45 44 0d 02 94  |.... . FAILED...|
000003b0  04 0d 02 9e 0f e3 20 4e  3d 31 20 b8 20 4e 55 4d  |...... N=1 . NUM|
000003c0  0d 02 a8 0d 43 4a 3d 33  3a 43 48 3d 31 0d 02 b2  |....CJ=3:CH=1...|
000003d0  05 f5 0d 02 bc 0d c8 8e  20 b3 28 37 29 20 ca 0d  |........ .(7) ..|
000003e0  02 c6 16 c9 20 31 3a 52  52 3d 31 3a 47 47 3d 30  |.... 1:RR=1:GG=0|
000003f0  3a 42 42 3d 30 0d 02 d0  16 c9 20 32 3a 52 52 3d  |:BB=0..... 2:RR=|
00000400  30 3a 47 47 3d 31 3a 42  42 3d 30 0d 02 da 16 c9  |0:GG=1:BB=0.....|
00000410  20 33 3a 52 52 3d 31 3a  47 47 3d 31 3a 42 42 3d  | 3:RR=1:GG=1:BB=|
00000420  30 0d 02 e4 16 c9 20 34  3a 52 52 3d 30 3a 47 47  |0..... 4:RR=0:GG|
00000430  3d 30 3a 42 42 3d 31 0d  02 ee 16 c9 20 35 3a 52  |=0:BB=1..... 5:R|
00000440  52 3d 31 3a 47 47 3d 30  3a 42 42 3d 31 0d 02 f8  |R=1:GG=0:BB=1...|
00000450  16 c9 20 36 3a 52 52 3d  31 3a 47 47 3d 31 3a 42  |.. 6:RR=1:GG=1:B|
00000460  42 3d 31 0d 03 02 16 c9  20 37 3a 52 52 3d 31 3a  |B=1..... 7:RR=1:|
00000470  47 47 3d 31 3a 42 42 3d  31 0d 03 0c 05 cb 0d 03  |GG=1:BB=1.......|
00000480  16 27 52 50 3d 28 b3 28  31 29 2a 28 2e 35 29 2b  |.'RP=(.(1)*(.5)+|
00000490  28 28 31 2d 52 52 29 2a  2e 33 35 29 29 2b 28 2e  |((1-RR)*.35))+(.|
000004a0  35 2a 52 52 29 0d 03 20  27 47 50 3d 28 b3 28 31  |5*RR).. 'GP=(.(1|
000004b0  29 2a 28 2e 35 29 2b 28  28 31 2d 47 47 29 2a 2e  |)*(.5)+((1-GG)*.|
000004c0  33 35 29 29 2b 28 2e 35  2a 47 47 29 0d 03 2a 27  |35))+(.5*GG)..*'|
000004d0  42 50 3d 28 b3 28 31 29  2a 28 2e 35 29 2b 28 28  |BP=(.(1)*(.5)+((|
000004e0  31 2d 42 42 29 2a 2e 33  35 29 29 2b 28 2e 35 2a  |1-BB)*.35))+(.5*|
000004f0  42 42 29 0d 03 34 0b 43  4f 4c 4f 4b 3d b9 0d 03  |BB)..4.COLOK=...|
00000500  3e 20 e7 20 52 50 3d 30  20 80 20 47 50 3d 30 20  |> . RP=0 . GP=0 |
00000510  80 20 42 50 3d 30 20 43  4f 4c 4f 4b 3d a3 0d 03  |. BP=0 COLOK=...|
00000520  48 22 e7 20 52 50 3d 47  50 20 80 20 47 50 3d 42  |H". RP=GP . GP=B|
00000530  50 20 80 20 42 50 3c 31  20 43 4f 4c 4f 4b 3d a3  |P . BP<1 COLOK=.|
00000540  0d 03 52 0d fd 20 43 4f  4c 4f 4b 3d b9 0d 03 5c  |..R.. COLOK=...\|
00000550  04 0d 03 66 14 e3 20 49  3d 31 35 20 b8 20 49 32  |...f.. I=15 . I2|
00000560  20 88 20 2d 31 0d 03 70  1a 43 3d 28 28 49 2f 31  | . -1..p.C=((I/1|
00000570  35 29 2a 28 32 2f 33 29  29 2b 28 31 2f 33 29 0d  |5)*(2/3))+(1/3).|
00000580  03 7a 04 0d 03 84 0c e7  20 42 5a 3d 34 20 8c 0d  |.z...... BZ=4 ..|
00000590  03 8e 1a 43 4a 31 3d 43  4a 3a e7 20 43 4a 31 3e  |...CJ1=CJ:. CJ1>|
000005a0  31 34 20 43 4a 31 3d 31  34 0d 03 98 1a 43 4a 32  |14 CJ1=14....CJ2|
000005b0  3d 43 4a 3a e7 20 43 4a  32 3e 31 34 20 43 4a 32  |=CJ:. CJ2>14 CJ2|
000005c0  3d 31 34 0d 03 a2 1a 43  4a 33 3d 43 4a 3a e7 20  |=14....CJ3=CJ:. |
000005d0  43 4a 33 3e 31 34 20 43  4a 33 3d 31 34 0d 03 ac  |CJ3>14 CJ3=14...|
000005e0  69 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |i.. "ColourTrans|
000005f0  5f 53 65 74 47 43 4f 4c  22 2c 28 28 28 52 50 2a  |_SetGCOL",(((RP*|
00000600  43 4a 31 2a 31 37 29 2b  31 36 29 3c 3c 38 29 2b  |CJ1*17)+16)<<8)+|
00000610  28 28 28 47 50 2a 43 4a  32 2a 31 37 29 2b 31 36  |(((GP*CJ2*17)+16|
00000620  29 3c 3c 31 36 29 2b 28  28 28 42 50 2a 43 4a 33  |)<<16)+(((BP*CJ3|
00000630  2a 31 37 29 2b 31 36 29  3c 3c 32 34 29 2c 2c 2c  |*17)+16)<<24),,,|
00000640  26 31 30 30 2c 30 0d 03  b6 0d e3 20 50 3d 31 20  |&100,0..... P=1 |
00000650  b8 20 32 0d 03 c0 19 43  4a 2b 3d 43 48 3a e7 20  |. 2....CJ+=CH:. |
00000660  43 4a 3e 3d 31 38 20 43  48 3d 2d 31 0d 03 ca 10  |CJ>=18 CH=-1....|
00000670  e7 20 43 4a 3c 3d 33 20  43 48 3d 31 0d 03 d4 05  |. CJ<=3 CH=1....|
00000680  ed 0d 03 de 05 cc 0d 03  e8 0a e6 20 33 2c 36 33  |........... 3,63|
00000690  0d 03 f2 05 cd 0d 03 fc  04 0d 04 06 12 4f 58 3d  |.............OX=|
000006a0  49 2f 38 3a 4f 59 3d 2d  49 2f 32 0d 04 10 0d 4f  |I/8:OY=-I/2....O|
000006b0  58 3d 30 3a 4f 59 3d 30  0d 04 1a 0f e3 20 4e 3d  |X=0:OY=0..... N=|
000006c0  31 20 b8 20 4e 55 4d 0d  04 24 0f e7 20 4e 3d 32  |1 . NUM..$.. N=2|
000006d0  20 c8 96 3a c8 96 0d 04  2e 15 e3 20 41 3d 31 30  | ..:....... A=10|
000006e0  20 b8 20 33 36 30 20 88  20 31 30 0d 04 38 19 58  | . 360 . 10..8.X|
000006f0  31 3d 42 58 2b 28 28 52  31 28 41 29 2a 43 29 2a  |1=BX+((R1(A)*C)*|
00000700  b5 b2 41 29 0d 04 42 19  59 31 3d 42 59 2b 28 28  |..A)..B.Y1=BY+((|
00000710  52 32 28 41 29 2a 43 29  2a 9b b2 41 29 0d 04 4c  |R2(A)*C)*..A)..L|
00000720  21 58 32 3d 42 58 2b 28  28 52 31 28 41 2d 31 30  |!X2=BX+((R1(A-10|
00000730  29 2a 43 29 2a b5 b2 28  41 2d 31 30 29 29 0d 04  |)*C)*..(A-10))..|
00000740  56 21 59 32 3d 42 59 2b  28 28 52 32 28 41 2d 31  |V!Y2=BY+((R2(A-1|
00000750  30 29 2a 43 29 2a 9b b2  28 41 2d 31 30 29 29 0d  |0)*C)*..(A-10)).|
00000760  04 60 09 58 33 3d 42 58  0d 04 6a 09 59 33 3d 42  |.`.X3=BX..j.Y3=B|
00000770  59 0d 04 74 38 e7 20 4e  55 4d 3d 31 20 ec 20 58  |Y..t8. NUM=1 . X|
00000780  31 2b 4f 58 2c 59 31 2b  4f 59 3a ec 20 58 32 2b  |1+OX,Y1+OY:. X2+|
00000790  4f 58 2c 59 32 2b 4f 59  3a f0 20 38 35 2c 58 33  |OX,Y2+OY:. 85,X3|
000007a0  2b 4f 58 2c 59 33 2b 4f  59 0d 04 7e 27 e7 20 4e  |+OX,Y3+OY..~'. N|
000007b0  55 4d 3d 32 20 ec 20 58  31 2b 4f 58 2c 59 31 2b  |UM=2 . X1+OX,Y1+|
000007c0  4f 59 3a df 20 58 32 2b  4f 58 2c 59 32 2b 4f 59  |OY:. X2+OX,Y2+OY|
000007d0  0d 04 88 05 ed 0d 04 92  05 ed 0d 04 9c 05 ed 0d  |................|
000007e0  04 a6 04 0d 04 b0 0c e7  20 42 5a 3d 34 20 8c 0d  |........ BZ=4 ..|
000007f0  04 ba 05 3a 0d 04 c4 11  52 53 44 44 3d 35 32 2b  |...:....RSDD=52+|
00000800  b3 28 32 34 29 0d 04 ce  04 0d 04 d8 1b 41 31 44  |.(24)........A1D|
00000810  44 3d b3 28 33 36 30 29  3a 41 32 44 44 3d b3 28  |D=.(360):A2DD=.(|
00000820  33 36 30 29 0d 04 e2 1b  41 52 31 44 44 3d b3 28  |360)....AR1DD=.(|
00000830  31 36 29 3a 41 52 32 44  44 3d b3 28 31 36 29 0d  |16):AR2DD=.(16).|
00000840  04 ec 04 0d 04 f6 13 52  53 31 44 44 3d 52 53 2b  |.......RS1DD=RS+|
00000850  a4 72 28 31 36 29 0d 05  00 13 52 53 32 44 44 3d  |.r(16)....RS2DD=|
00000860  52 53 2b a4 72 28 31 36  29 0d 05 0a 05 cd 0d 05  |RS+.r(16).......|
00000870  14 07 fd 20 30 0d 05 1e  05 3a 0d 05 28 0a dd a4  |... 0....:..(...|
00000880  72 28 6e 29 0d 05 32 1b  e7 20 b3 28 32 29 3d 31  |r(n)..2.. .(2)=1|
00000890  20 3d b3 28 6e 29 20 8b  20 3d 2d b3 28 6e 29 0d  | =.(n) . =-.(n).|
000008a0  ff                                                |.|
000008a1