� > TreeForm

� � �'�$;" at line ";Þ:�
(	�init
2�
<
�quest
F�:end%=0
P	�plot
Z
�:send%=0
dș6,15,0:ș6,120
n�
x
Ȏ �(�) �
�� "A","a" : �anim
�� "R" : r%+=1:� r%>16 r%=16
�� "r" : r%-=1:� r%<0 r%=0
�� "G" : g%+=1:� g%>16 g%=16
�� "g" : g%-=1:� g%<0 g%=0
�� "B" : b%+=1:� b%>16 b%=16
�� "b" : b%-=1:� b%<0 b%=0
�/� "+","=" : brt%+=8:� brt%>256-8 brt%=256-8
�'� "-","_" : brt%-=8:� brt%<0 brt%=0
�� "T","t" : tog%=tog%�255
�� " " : send%=1
�� "Q","q" : send%=2
�)� "S","s" : �"ScreenSave Tree"+�~num%

� "L","l" : �load

�

�ud_pal

"
� send%>0

,
� send%>1

6� 0

@�

J

T
��load

^� �

h� � � �12:�

r� 12

|8�'"Enter directory to load from (RETURN = @) : "dir$

�� dir$="" dir$="@"

��"Cat "+dir$

�#�'"Enter filename to load : "f$

��"ScreenLoad "+dir$+"."+f$

��

�

�
��anim

�6� nummm%,or%,og%,ob%,cr%,cg%,cb%,lr%,lg%,lb%,b%,a%

�� �

�� � � �

�
nummm%=15

�$or%=�(255):og%=�(255):ob%=�(255)

��
$cr%=�(255):cg%=�(255):cb%=�(255)
� a%=0 � nummm%
Ȗ
&� b%=1 � 14
0?pal%=b%+1:ș7,11,pal%
:?pal%=b%:ș7,12,pal%
D�
N,lr%=cr%*a%/nummm%+or%*(nummm%-a%)/nummm%
X,lg%=cg%*a%/nummm%+og%*(nummm%-a%)/nummm%
b,lb%=cb%*a%/nummm%+ob%*(nummm%-a%)/nummm%
l� 15,lr%,lg%,lb%
v�
�or%=cr%:og%=cg%:ob%=cb%
�� 0
��
�
���quest
�� 12
�)�'"Enter mutation factor (0-100) : ";
��ask(mut%,0,100)
�*�"Enter angle of mutation (0-360) : ";
��ask(amut%,0,360)
�#�'"Enter angle (-360 - 360): ";
��ask(sang%,-360,360)
�&�'"Enter start length (0-8192): ";
�ask(len%,0,8192)
'�"Enter length mutation (0-100): ";
�ask(lmut%,0,100)
 &�"Enter length change (0-100) : ";
*�ask(lch%,0,100)
4)�'"Enter start thickness (0-256) : ";
>�ask(thick%,0,256)
H"�'"Enter tree depth (1-15): ";
R�ask(depth%,1,15)
\�
f
p��ask(� a,min,max)
z� a$,b%,oa,x%,y%:oa=a
�
x%=�:y%=�
�	a$=�a
�� b%=1 � �a$
�ș6,138,0,��a$,b%,1)
��
��""a
�+� a<min � a>max a=oa:�x%,y%)�a;"     "
��
�
�!��draw(sx,sy,ang,dep%,length)
�� vx,vy,pos
�� �(-66) end%=-1
�� dep%>depth% � end% �
�16-dep%
vx=��ang
vy=��ang
$'�l(sx,sy,sx+vx*length,sy+vy*length)
.� �(100)<=mut% �
8pos=�(1)
Bf�draw(sx+vx*pos*length,sy+vy*pos*length,ang+(�(2)*2-3)*�(amut%),dep%+1,length*(�(lmut%)+lch%)/100)
L�
V� �(100)<=mut% �
``�draw(sx+vx*length,sy+vy*length,ang+((�(2)*2-3)*�(amut%)),dep%+1,length*(�(lmut%)+lch%)/100)
j�
th�draw(sx+vx*length,sy+vy*length,ang+(sang%+�(amut%/5)*(�(2)*2-3)),dep%+1,length*(�(lmut%)+lch%)/100)
~h�draw(sx+vx*length,sy+vy*length,ang-(sang%+�(amut%/5)*(�(2)*2-3)),dep%+1,length*(�(lmut%)+lch%)/100)
��
��
�
���l(x0%,y0%,x1%,y1%)
�� dx%,dy%,a%
�)� dep%>=2 �l2(x0%,y0%,x1%,y1%,dep%):�
�dx%=x1%-x0%:dy%=y1%-y0%
�� a%=0 � 3
�N�l2(x0%+a%*dx%/4,y0%+a%*dy%/4,x0%+(a%+1)*dx%/4,y0%+(a%+1)*dy%/4,dep%+a%/4)
��
��
�
��l2(x0%,y0%,x1%,y1%,dep)

$!path%=2:path%!4=x0%:path%!8=y0%
(path%!12=8:path%!16=x1%:path%!20=y1%
path%!24=4:path%!28=0
(/ș&40704,path%,0,trans%,0,thick%/dep,cap%,0
2�
<� x0%,y0%,x1%,y1%
F�
P
Z
��plot
d� 20
n�ud_pal
x�draw(640*4,0,0,1,len%)
��
�
���ud_pal
�� red%,grn%,blu%,col%
�� c%=1 � 15
�red%=c%*r%+c%*r%/16
�grn%=c%*g%+c%*g%/16
�blu%=c%*b%+c%*b%/16
�"red%+=brt%:� red%>255 red%=255
�"grn%+=brt%:� grn%>255 grn%=255
�"blu%+=brt%:� blu%>255 blu%=255
�!� tog% col%=(16-c%) � col%=c%
�� col%,red%,grn%,blu%
�
� 0,0,64,128
�
"
,
��init
67� pal% 5,trans% 24,cap% 4,path% 1024:num%=1:!cap%=0
@Amut%=30:amut%=30:sang%=12:len%=512:lmut%=40:lch%=60:depth%=12
J!r%=8:g%=16:b%=2:tog%=0:brt%=0
T'trans%!0=1280*256/(1280*4) * &10000
^trans%!4=0:trans%!8=0
h(trans%!12=1024*256/(1280*4) * &10000
rtrans%!16=0:trans%!20=0
|
thick%=64
��
�

00000000  0d 00 0a 10 f4 20 3e 20  54 72 65 65 46 6f 72 6d  |..... > TreeForm|
00000010  0d 00 14 04 0d 00 1e 1d  ee 20 85 20 f1 27 f6 24  |......... . .'.$|
00000020  3b 22 20 61 74 20 6c 69  6e 65 20 22 3b c3 9e 3a  |;" at line ";..:|
00000030  e0 0d 00 28 09 f2 69 6e  69 74 0d 00 32 05 f5 0d  |...(..init..2...|
00000040  00 3c 0a f2 71 75 65 73  74 0d 00 46 0c f5 3a 65  |.<..quest..F..:e|
00000050  6e 64 25 3d 30 0d 00 50  09 f2 70 6c 6f 74 0d 00  |nd%=0..P..plot..|
00000060  5a 0d f5 3a 73 65 6e 64  25 3d 30 0d 00 64 14 c8  |Z..:send%=0..d..|
00000070  99 36 2c 31 35 2c 30 3a  c8 99 36 2c 31 32 30 0d  |.6,15,0:..6,120.|
00000080  00 6e 05 87 0d 00 78 0d  c8 8e 20 bd 28 a5 29 20  |.n....x... .(.) |
00000090  ca 0d 00 82 15 c9 20 22  41 22 2c 22 61 22 20 3a  |...... "A","a" :|
000000a0  20 f2 61 6e 69 6d 0d 00  8c 1f c9 20 22 52 22 20  | .anim..... "R" |
000000b0  3a 20 72 25 2b 3d 31 3a  e7 20 72 25 3e 31 36 20  |: r%+=1:. r%>16 |
000000c0  72 25 3d 31 36 0d 00 96  1d c9 20 22 72 22 20 3a  |r%=16..... "r" :|
000000d0  20 72 25 2d 3d 31 3a e7  20 72 25 3c 30 20 72 25  | r%-=1:. r%<0 r%|
000000e0  3d 30 0d 00 a0 1f c9 20  22 47 22 20 3a 20 67 25  |=0..... "G" : g%|
000000f0  2b 3d 31 3a e7 20 67 25  3e 31 36 20 67 25 3d 31  |+=1:. g%>16 g%=1|
00000100  36 0d 00 aa 1d c9 20 22  67 22 20 3a 20 67 25 2d  |6..... "g" : g%-|
00000110  3d 31 3a e7 20 67 25 3c  30 20 67 25 3d 30 0d 00  |=1:. g%<0 g%=0..|
00000120  b4 1f c9 20 22 42 22 20  3a 20 62 25 2b 3d 31 3a  |... "B" : b%+=1:|
00000130  e7 20 62 25 3e 31 36 20  62 25 3d 31 36 0d 00 be  |. b%>16 b%=16...|
00000140  1d c9 20 22 62 22 20 3a  20 62 25 2d 3d 31 3a e7  |.. "b" : b%-=1:.|
00000150  20 62 25 3c 30 20 62 25  3d 30 0d 00 c8 2f c9 20  | b%<0 b%=0.../. |
00000160  22 2b 22 2c 22 3d 22 20  3a 20 62 72 74 25 2b 3d  |"+","=" : brt%+=|
00000170  38 3a e7 20 62 72 74 25  3e 32 35 36 2d 38 20 62  |8:. brt%>256-8 b|
00000180  72 74 25 3d 32 35 36 2d  38 0d 00 d2 27 c9 20 22  |rt%=256-8...'. "|
00000190  2d 22 2c 22 5f 22 20 3a  20 62 72 74 25 2d 3d 38  |-","_" : brt%-=8|
000001a0  3a e7 20 62 72 74 25 3c  30 20 62 72 74 25 3d 30  |:. brt%<0 brt%=0|
000001b0  0d 00 dc 1d c9 20 22 54  22 2c 22 74 22 20 3a 20  |..... "T","t" : |
000001c0  74 6f 67 25 3d 74 6f 67  25 82 32 35 35 0d 00 e6  |tog%=tog%.255...|
000001d0  13 c9 20 22 20 22 20 3a  20 73 65 6e 64 25 3d 31  |.. " " : send%=1|
000001e0  0d 00 f0 17 c9 20 22 51  22 2c 22 71 22 20 3a 20  |..... "Q","q" : |
000001f0  73 65 6e 64 25 3d 32 0d  00 fa 29 c9 20 22 53 22  |send%=2...). "S"|
00000200  2c 22 73 22 20 3a 20 ff  22 53 63 72 65 65 6e 53  |,"s" : ."ScreenS|
00000210  61 76 65 20 54 72 65 65  22 2b c3 7e 6e 75 6d 25  |ave Tree"+.~num%|
00000220  0d 01 04 15 c9 20 22 4c  22 2c 22 6c 22 20 3a 20  |..... "L","l" : |
00000230  f2 6c 6f 61 64 0d 01 0e  05 cb 0d 01 18 0b f2 75  |.load..........u|
00000240  64 5f 70 61 6c 0d 01 22  0d fd 20 73 65 6e 64 25  |d_pal..".. send%|
00000250  3e 30 0d 01 2c 0d fd 20  73 65 6e 64 25 3e 31 0d  |>0..,.. send%>1.|
00000260  01 36 07 fd 20 30 0d 01  40 05 e0 0d 01 4a 04 0d  |.6.. 0..@....J..|
00000270  01 54 0a dd f2 6c 6f 61  64 0d 01 5e 07 ea 20 85  |.T...load..^.. .|
00000280  0d 01 68 0f ee 20 85 20  ea 20 eb 31 32 3a e1 0d  |..h.. . . .12:..|
00000290  01 72 08 eb 20 31 32 0d  01 7c 38 e8 27 22 45 6e  |.r.. 12..|8.'"En|
000002a0  74 65 72 20 64 69 72 65  63 74 6f 72 79 20 74 6f  |ter directory to|
000002b0  20 6c 6f 61 64 20 66 72  6f 6d 20 28 52 45 54 55  | load from (RETU|
000002c0  52 4e 20 3d 20 40 29 20  3a 20 22 64 69 72 24 0d  |RN = @) : "dir$.|
000002d0  01 86 16 e7 20 64 69 72  24 3d 22 22 20 64 69 72  |.... dir$="" dir|
000002e0  24 3d 22 40 22 0d 01 90  10 ff 22 43 61 74 20 22  |$="@"....."Cat "|
000002f0  2b 64 69 72 24 0d 01 9a  23 e8 27 22 45 6e 74 65  |+dir$...#.'"Ente|
00000300  72 20 66 69 6c 65 6e 61  6d 65 20 74 6f 20 6c 6f  |r filename to lo|
00000310  61 64 20 3a 20 22 66 24  0d 01 a4 1e ff 22 53 63  |ad : "f$....."Sc|
00000320  72 65 65 6e 4c 6f 61 64  20 22 2b 64 69 72 24 2b  |reenLoad "+dir$+|
00000330  22 2e 22 2b 66 24 0d 01  ae 05 e1 0d 01 b8 04 0d  |"."+f$..........|
00000340  01 c2 0a dd f2 61 6e 69  6d 0d 01 cc 36 ea 20 6e  |.....anim...6. n|
00000350  75 6d 6d 6d 25 2c 6f 72  25 2c 6f 67 25 2c 6f 62  |ummm%,or%,og%,ob|
00000360  25 2c 63 72 25 2c 63 67  25 2c 63 62 25 2c 6c 72  |%,cr%,cg%,cb%,lr|
00000370  25 2c 6c 67 25 2c 6c 62  25 2c 62 25 2c 61 25 0d  |%,lg%,lb%,b%,a%.|
00000380  01 d6 07 ea 20 85 0d 01  e0 0b ee 20 85 20 ea 20  |.... ...... . . |
00000390  e1 0d 01 ea 0d 6e 75 6d  6d 6d 25 3d 31 35 0d 01  |.....nummm%=15..|
000003a0  f4 24 6f 72 25 3d b3 28  32 35 35 29 3a 6f 67 25  |.$or%=.(255):og%|
000003b0  3d b3 28 32 35 35 29 3a  6f 62 25 3d b3 28 32 35  |=.(255):ob%=.(25|
000003c0  35 29 0d 01 fe 05 f5 0d  02 08 24 63 72 25 3d b3  |5)........$cr%=.|
000003d0  28 32 35 35 29 3a 63 67  25 3d b3 28 32 35 35 29  |(255):cg%=.(255)|
000003e0  3a 63 62 25 3d b3 28 32  35 35 29 0d 02 12 13 e3  |:cb%=.(255).....|
000003f0  20 61 25 3d 30 20 b8 20  6e 75 6d 6d 6d 25 0d 02  | a%=0 . nummm%..|
00000400  1c 06 c8 96 0d 02 26 0f  e3 20 62 25 3d 31 20 b8  |......&.. b%=1 .|
00000410  20 31 34 0d 02 30 1a 3f  70 61 6c 25 3d 62 25 2b  | 14..0.?pal%=b%+|
00000420  31 3a c8 99 37 2c 31 31  2c 70 61 6c 25 0d 02 3a  |1:..7,11,pal%..:|
00000430  18 3f 70 61 6c 25 3d 62  25 3a c8 99 37 2c 31 32  |.?pal%=b%:..7,12|
00000440  2c 70 61 6c 25 0d 02 44  05 ed 0d 02 4e 2c 6c 72  |,pal%..D....N,lr|
00000450  25 3d 63 72 25 2a 61 25  2f 6e 75 6d 6d 6d 25 2b  |%=cr%*a%/nummm%+|
00000460  6f 72 25 2a 28 6e 75 6d  6d 6d 25 2d 61 25 29 2f  |or%*(nummm%-a%)/|
00000470  6e 75 6d 6d 6d 25 0d 02  58 2c 6c 67 25 3d 63 67  |nummm%..X,lg%=cg|
00000480  25 2a 61 25 2f 6e 75 6d  6d 6d 25 2b 6f 67 25 2a  |%*a%/nummm%+og%*|
00000490  28 6e 75 6d 6d 6d 25 2d  61 25 29 2f 6e 75 6d 6d  |(nummm%-a%)/numm|
000004a0  6d 25 0d 02 62 2c 6c 62  25 3d 63 62 25 2a 61 25  |m%..b,lb%=cb%*a%|
000004b0  2f 6e 75 6d 6d 6d 25 2b  6f 62 25 2a 28 6e 75 6d  |/nummm%+ob%*(num|
000004c0  6d 6d 25 2d 61 25 29 2f  6e 75 6d 6d 6d 25 0d 02  |mm%-a%)/nummm%..|
000004d0  6c 14 fb 20 31 35 2c 6c  72 25 2c 6c 67 25 2c 6c  |l.. 15,lr%,lg%,l|
000004e0  62 25 0d 02 76 05 ed 0d  02 80 1b 6f 72 25 3d 63  |b%..v......or%=c|
000004f0  72 25 3a 6f 67 25 3d 63  67 25 3a 6f 62 25 3d 63  |r%:og%=cg%:ob%=c|
00000500  62 25 0d 02 8a 07 fd 20  30 0d 02 94 05 e1 0d 02  |b%..... 0.......|
00000510  9e 04 0d 02 a8 0b dd f2  71 75 65 73 74 0d 02 b2  |........quest...|
00000520  08 eb 20 31 32 0d 02 bc  29 f1 27 22 45 6e 74 65  |.. 12...).'"Ente|
00000530  72 20 6d 75 74 61 74 69  6f 6e 20 66 61 63 74 6f  |r mutation facto|
00000540  72 20 28 30 2d 31 30 30  29 20 3a 20 22 3b 0d 02  |r (0-100) : ";..|
00000550  c6 14 f2 61 73 6b 28 6d  75 74 25 2c 30 2c 31 30  |...ask(mut%,0,10|
00000560  30 29 0d 02 d0 2a f1 22  45 6e 74 65 72 20 61 6e  |0)...*."Enter an|
00000570  67 6c 65 20 6f 66 20 6d  75 74 61 74 69 6f 6e 20  |gle of mutation |
00000580  28 30 2d 33 36 30 29 20  3a 20 22 3b 0d 02 da 15  |(0-360) : ";....|
00000590  f2 61 73 6b 28 61 6d 75  74 25 2c 30 2c 33 36 30  |.ask(amut%,0,360|
000005a0  29 0d 02 e4 23 f1 27 22  45 6e 74 65 72 20 61 6e  |)...#.'"Enter an|
000005b0  67 6c 65 20 28 2d 33 36  30 20 2d 20 33 36 30 29  |gle (-360 - 360)|
000005c0  3a 20 22 3b 0d 02 ee 18  f2 61 73 6b 28 73 61 6e  |: ";.....ask(san|
000005d0  67 25 2c 2d 33 36 30 2c  33 36 30 29 0d 02 f8 26  |g%,-360,360)...&|
000005e0  f1 27 22 45 6e 74 65 72  20 73 74 61 72 74 20 6c  |.'"Enter start l|
000005f0  65 6e 67 74 68 20 28 30  2d 38 31 39 32 29 3a 20  |ength (0-8192): |
00000600  22 3b 0d 03 02 15 f2 61  73 6b 28 6c 65 6e 25 2c  |";.....ask(len%,|
00000610  30 2c 38 31 39 32 29 0d  03 0c 27 f1 22 45 6e 74  |0,8192)...'."Ent|
00000620  65 72 20 6c 65 6e 67 74  68 20 6d 75 74 61 74 69  |er length mutati|
00000630  6f 6e 20 28 30 2d 31 30  30 29 3a 20 22 3b 0d 03  |on (0-100): ";..|
00000640  16 15 f2 61 73 6b 28 6c  6d 75 74 25 2c 30 2c 31  |...ask(lmut%,0,1|
00000650  30 30 29 0d 03 20 26 f1  22 45 6e 74 65 72 20 6c  |00).. &."Enter l|
00000660  65 6e 67 74 68 20 63 68  61 6e 67 65 20 28 30 2d  |ength change (0-|
00000670  31 30 30 29 20 3a 20 22  3b 0d 03 2a 14 f2 61 73  |100) : ";..*..as|
00000680  6b 28 6c 63 68 25 2c 30  2c 31 30 30 29 0d 03 34  |k(lch%,0,100)..4|
00000690  29 f1 27 22 45 6e 74 65  72 20 73 74 61 72 74 20  |).'"Enter start |
000006a0  74 68 69 63 6b 6e 65 73  73 20 28 30 2d 32 35 36  |thickness (0-256|
000006b0  29 20 3a 20 22 3b 0d 03  3e 16 f2 61 73 6b 28 74  |) : ";..>..ask(t|
000006c0  68 69 63 6b 25 2c 30 2c  32 35 36 29 0d 03 48 22  |hick%,0,256)..H"|
000006d0  f1 27 22 45 6e 74 65 72  20 74 72 65 65 20 64 65  |.'"Enter tree de|
000006e0  70 74 68 20 28 31 2d 31  35 29 3a 20 22 3b 0d 03  |pth (1-15): ";..|
000006f0  52 15 f2 61 73 6b 28 64  65 70 74 68 25 2c 31 2c  |R..ask(depth%,1,|
00000700  31 35 29 0d 03 5c 05 e1  0d 03 66 04 0d 03 70 16  |15)..\....f...p.|
00000710  dd f2 61 73 6b 28 f8 20  61 2c 6d 69 6e 2c 6d 61  |..ask(. a,min,ma|
00000720  78 29 0d 03 7a 19 ea 20  61 24 2c 62 25 2c 6f 61  |x)..z.. a$,b%,oa|
00000730  2c 78 25 2c 79 25 3a 6f  61 3d 61 0d 03 84 0d 78  |,x%,y%:oa=a....x|
00000740  25 3d b1 3a 79 25 3d bc  0d 03 8e 09 61 24 3d c3  |%=.:y%=.....a$=.|
00000750  61 0d 03 98 10 e3 20 62  25 3d 31 20 b8 20 a9 61  |a..... b%=1 . .a|
00000760  24 0d 03 a2 18 c8 99 36  2c 31 33 38 2c 30 2c 97  |$......6,138,0,.|
00000770  c1 61 24 2c 62 25 2c 31  29 0d 03 ac 05 ed 0d 03  |.a$,b%,1).......|
00000780  b6 08 e8 22 22 61 0d 03  c0 2b e7 20 61 3c 6d 69  |...""a...+. a<mi|
00000790  6e 20 84 20 61 3e 6d 61  78 20 61 3d 6f 61 3a f1  |n . a>max a=oa:.|
000007a0  8a 78 25 2c 79 25 29 c3  61 3b 22 20 20 20 20 20  |.x%,y%).a;"     |
000007b0  22 0d 03 ca 05 e1 0d 03  d4 04 0d 03 de 21 dd f2  |"............!..|
000007c0  64 72 61 77 28 73 78 2c  73 79 2c 61 6e 67 2c 64  |draw(sx,sy,ang,d|
000007d0  65 70 25 2c 6c 65 6e 67  74 68 29 0d 03 e8 0f ea  |ep%,length).....|
000007e0  20 76 78 2c 76 79 2c 70  6f 73 0d 03 f2 14 e7 20  | vx,vy,pos..... |
000007f0  a6 28 2d 36 36 29 20 65  6e 64 25 3d 2d 31 0d 03  |.(-66) end%=-1..|
00000800  fc 1a e7 20 64 65 70 25  3e 64 65 70 74 68 25 20  |... dep%>depth% |
00000810  84 20 65 6e 64 25 20 e1  0d 04 06 0c e6 31 36 2d  |. end% ......16-|
00000820  64 65 70 25 0d 04 10 0c  76 78 3d b5 b2 61 6e 67  |dep%....vx=..ang|
00000830  0d 04 1a 0c 76 79 3d 9b  b2 61 6e 67 0d 04 24 27  |....vy=..ang..$'|
00000840  f2 6c 28 73 78 2c 73 79  2c 73 78 2b 76 78 2a 6c  |.l(sx,sy,sx+vx*l|
00000850  65 6e 67 74 68 2c 73 79  2b 76 79 2a 6c 65 6e 67  |ength,sy+vy*leng|
00000860  74 68 29 0d 04 2e 14 e7  20 b3 28 31 30 30 29 3c  |th)..... .(100)<|
00000870  3d 6d 75 74 25 20 8c 0d  04 38 0c 70 6f 73 3d b3  |=mut% ...8.pos=.|
00000880  28 31 29 0d 04 42 66 f2  64 72 61 77 28 73 78 2b  |(1)..Bf.draw(sx+|
00000890  76 78 2a 70 6f 73 2a 6c  65 6e 67 74 68 2c 73 79  |vx*pos*length,sy|
000008a0  2b 76 79 2a 70 6f 73 2a  6c 65 6e 67 74 68 2c 61  |+vy*pos*length,a|
000008b0  6e 67 2b 28 b3 28 32 29  2a 32 2d 33 29 2a b3 28  |ng+(.(2)*2-3)*.(|
000008c0  61 6d 75 74 25 29 2c 64  65 70 25 2b 31 2c 6c 65  |amut%),dep%+1,le|
000008d0  6e 67 74 68 2a 28 b3 28  6c 6d 75 74 25 29 2b 6c  |ngth*(.(lmut%)+l|
000008e0  63 68 25 29 2f 31 30 30  29 0d 04 4c 05 cd 0d 04  |ch%)/100)..L....|
000008f0  56 14 e7 20 b3 28 31 30  30 29 3c 3d 6d 75 74 25  |V.. .(100)<=mut%|
00000900  20 8c 0d 04 60 60 f2 64  72 61 77 28 73 78 2b 76  | ...``.draw(sx+v|
00000910  78 2a 6c 65 6e 67 74 68  2c 73 79 2b 76 79 2a 6c  |x*length,sy+vy*l|
00000920  65 6e 67 74 68 2c 61 6e  67 2b 28 28 b3 28 32 29  |ength,ang+((.(2)|
00000930  2a 32 2d 33 29 2a b3 28  61 6d 75 74 25 29 29 2c  |*2-3)*.(amut%)),|
00000940  64 65 70 25 2b 31 2c 6c  65 6e 67 74 68 2a 28 b3  |dep%+1,length*(.|
00000950  28 6c 6d 75 74 25 29 2b  6c 63 68 25 29 2f 31 30  |(lmut%)+lch%)/10|
00000960  30 29 0d 04 6a 05 cc 0d  04 74 68 f2 64 72 61 77  |0)..j....th.draw|
00000970  28 73 78 2b 76 78 2a 6c  65 6e 67 74 68 2c 73 79  |(sx+vx*length,sy|
00000980  2b 76 79 2a 6c 65 6e 67  74 68 2c 61 6e 67 2b 28  |+vy*length,ang+(|
00000990  73 61 6e 67 25 2b b3 28  61 6d 75 74 25 2f 35 29  |sang%+.(amut%/5)|
000009a0  2a 28 b3 28 32 29 2a 32  2d 33 29 29 2c 64 65 70  |*(.(2)*2-3)),dep|
000009b0  25 2b 31 2c 6c 65 6e 67  74 68 2a 28 b3 28 6c 6d  |%+1,length*(.(lm|
000009c0  75 74 25 29 2b 6c 63 68  25 29 2f 31 30 30 29 0d  |ut%)+lch%)/100).|
000009d0  04 7e 68 f2 64 72 61 77  28 73 78 2b 76 78 2a 6c  |.~h.draw(sx+vx*l|
000009e0  65 6e 67 74 68 2c 73 79  2b 76 79 2a 6c 65 6e 67  |ength,sy+vy*leng|
000009f0  74 68 2c 61 6e 67 2d 28  73 61 6e 67 25 2b b3 28  |th,ang-(sang%+.(|
00000a00  61 6d 75 74 25 2f 35 29  2a 28 b3 28 32 29 2a 32  |amut%/5)*(.(2)*2|
00000a10  2d 33 29 29 2c 64 65 70  25 2b 31 2c 6c 65 6e 67  |-3)),dep%+1,leng|
00000a20  74 68 2a 28 b3 28 6c 6d  75 74 25 29 2b 6c 63 68  |th*(.(lmut%)+lch|
00000a30  25 29 2f 31 30 30 29 0d  04 88 05 cd 0d 04 92 05  |%)/100).........|
00000a40  e1 0d 04 9c 04 0d 04 a6  18 dd f2 6c 28 78 30 25  |...........l(x0%|
00000a50  2c 79 30 25 2c 78 31 25  2c 79 31 25 29 0d 04 b0  |,y0%,x1%,y1%)...|
00000a60  10 ea 20 64 78 25 2c 64  79 25 2c 61 25 0d 04 ba  |.. dx%,dy%,a%...|
00000a70  29 e7 20 64 65 70 25 3e  3d 32 20 f2 6c 32 28 78  |). dep%>=2 .l2(x|
00000a80  30 25 2c 79 30 25 2c 78  31 25 2c 79 31 25 2c 64  |0%,y0%,x1%,y1%,d|
00000a90  65 70 25 29 3a e1 0d 04  c4 1b 64 78 25 3d 78 31  |ep%):.....dx%=x1|
00000aa0  25 2d 78 30 25 3a 64 79  25 3d 79 31 25 2d 79 30  |%-x0%:dy%=y1%-y0|
00000ab0  25 0d 04 ce 0e e3 20 61  25 3d 30 20 b8 20 33 0d  |%..... a%=0 . 3.|
00000ac0  04 d8 4e f2 6c 32 28 78  30 25 2b 61 25 2a 64 78  |..N.l2(x0%+a%*dx|
00000ad0  25 2f 34 2c 79 30 25 2b  61 25 2a 64 79 25 2f 34  |%/4,y0%+a%*dy%/4|
00000ae0  2c 78 30 25 2b 28 61 25  2b 31 29 2a 64 78 25 2f  |,x0%+(a%+1)*dx%/|
00000af0  34 2c 79 30 25 2b 28 61  25 2b 31 29 2a 64 79 25  |4,y0%+(a%+1)*dy%|
00000b00  2f 34 2c 64 65 70 25 2b  61 25 2f 34 29 0d 04 e2  |/4,dep%+a%/4)...|
00000b10  05 ed 0d 04 ec 05 e1 0d  04 f6 04 0d 05 00 1d dd  |................|
00000b20  f2 6c 32 28 78 30 25 2c  79 30 25 2c 78 31 25 2c  |.l2(x0%,y0%,x1%,|
00000b30  79 31 25 2c 64 65 70 29  0d 05 0a 24 21 70 61 74  |y1%,dep)...$!pat|
00000b40  68 25 3d 32 3a 70 61 74  68 25 21 34 3d 78 30 25  |h%=2:path%!4=x0%|
00000b50  3a 70 61 74 68 25 21 38  3d 79 30 25 0d 05 14 28  |:path%!8=y0%...(|
00000b60  70 61 74 68 25 21 31 32  3d 38 3a 70 61 74 68 25  |path%!12=8:path%|
00000b70  21 31 36 3d 78 31 25 3a  70 61 74 68 25 21 32 30  |!16=x1%:path%!20|
00000b80  3d 79 31 25 0d 05 1e 19  70 61 74 68 25 21 32 34  |=y1%....path%!24|
00000b90  3d 34 3a 70 61 74 68 25  21 32 38 3d 30 0d 05 28  |=4:path%!28=0..(|
00000ba0  2f c8 99 26 34 30 37 30  34 2c 70 61 74 68 25 2c  |/..&40704,path%,|
00000bb0  30 2c 74 72 61 6e 73 25  2c 30 2c 74 68 69 63 6b  |0,trans%,0,thick|
00000bc0  25 2f 64 65 70 2c 63 61  70 25 2c 30 0d 05 32 05  |%/dep,cap%,0..2.|
00000bd0  e1 0d 05 3c 15 86 20 78  30 25 2c 79 30 25 2c 78  |...<.. x0%,y0%,x|
00000be0  31 25 2c 79 31 25 0d 05  46 05 e1 0d 05 50 04 0d  |1%,y1%..F....P..|
00000bf0  05 5a 0a dd f2 70 6c 6f  74 0d 05 64 08 eb 20 32  |.Z...plot..d.. 2|
00000c00  30 0d 05 6e 0b f2 75 64  5f 70 61 6c 0d 05 78 1b  |0..n..ud_pal..x.|
00000c10  f2 64 72 61 77 28 36 34  30 2a 34 2c 30 2c 30 2c  |.draw(640*4,0,0,|
00000c20  31 2c 6c 65 6e 25 29 0d  05 82 05 e1 0d 05 8c 04  |1,len%).........|
00000c30  0d 05 96 0c dd f2 75 64  5f 70 61 6c 0d 05 a0 19  |......ud_pal....|
00000c40  ea 20 72 65 64 25 2c 67  72 6e 25 2c 62 6c 75 25  |. red%,grn%,blu%|
00000c50  2c 63 6f 6c 25 0d 05 aa  0f e3 20 63 25 3d 31 20  |,col%..... c%=1 |
00000c60  b8 20 31 35 0d 05 b4 17  72 65 64 25 3d 63 25 2a  |. 15....red%=c%*|
00000c70  72 25 2b 63 25 2a 72 25  2f 31 36 0d 05 be 17 67  |r%+c%*r%/16....g|
00000c80  72 6e 25 3d 63 25 2a 67  25 2b 63 25 2a 67 25 2f  |rn%=c%*g%+c%*g%/|
00000c90  31 36 0d 05 c8 17 62 6c  75 25 3d 63 25 2a 62 25  |16....blu%=c%*b%|
00000ca0  2b 63 25 2a 62 25 2f 31  36 0d 05 d2 22 72 65 64  |+c%*b%/16..."red|
00000cb0  25 2b 3d 62 72 74 25 3a  e7 20 72 65 64 25 3e 32  |%+=brt%:. red%>2|
00000cc0  35 35 20 72 65 64 25 3d  32 35 35 0d 05 dc 22 67  |55 red%=255..."g|
00000cd0  72 6e 25 2b 3d 62 72 74  25 3a e7 20 67 72 6e 25  |rn%+=brt%:. grn%|
00000ce0  3e 32 35 35 20 67 72 6e  25 3d 32 35 35 0d 05 e6  |>255 grn%=255...|
00000cf0  22 62 6c 75 25 2b 3d 62  72 74 25 3a e7 20 62 6c  |"blu%+=brt%:. bl|
00000d00  75 25 3e 32 35 35 20 62  6c 75 25 3d 32 35 35 0d  |u%>255 blu%=255.|
00000d10  05 f0 21 e7 20 74 6f 67  25 20 63 6f 6c 25 3d 28  |..!. tog% col%=(|
00000d20  31 36 2d 63 25 29 20 8b  20 63 6f 6c 25 3d 63 25  |16-c%) . col%=c%|
00000d30  0d 05 fa 19 fb 20 63 6f  6c 25 2c 72 65 64 25 2c  |..... col%,red%,|
00000d40  67 72 6e 25 2c 62 6c 75  25 0d 06 04 05 ed 0d 06  |grn%,blu%.......|
00000d50  0e 10 fb 20 30 2c 30 2c  36 34 2c 31 32 38 0d 06  |... 0,0,64,128..|
00000d60  18 05 e1 0d 06 22 04 0d  06 2c 0a dd f2 69 6e 69  |....."...,...ini|
00000d70  74 0d 06 36 37 de 20 70  61 6c 25 20 35 2c 74 72  |t..67. pal% 5,tr|
00000d80  61 6e 73 25 20 32 34 2c  63 61 70 25 20 34 2c 70  |ans% 24,cap% 4,p|
00000d90  61 74 68 25 20 31 30 32  34 3a 6e 75 6d 25 3d 31  |ath% 1024:num%=1|
00000da0  3a 21 63 61 70 25 3d 30  0d 06 40 41 6d 75 74 25  |:!cap%=0..@Amut%|
00000db0  3d 33 30 3a 61 6d 75 74  25 3d 33 30 3a 73 61 6e  |=30:amut%=30:san|
00000dc0  67 25 3d 31 32 3a 6c 65  6e 25 3d 35 31 32 3a 6c  |g%=12:len%=512:l|
00000dd0  6d 75 74 25 3d 34 30 3a  6c 63 68 25 3d 36 30 3a  |mut%=40:lch%=60:|
00000de0  64 65 70 74 68 25 3d 31  32 0d 06 4a 21 72 25 3d  |depth%=12..J!r%=|
00000df0  38 3a 67 25 3d 31 36 3a  62 25 3d 32 3a 74 6f 67  |8:g%=16:b%=2:tog|
00000e00  25 3d 30 3a 62 72 74 25  3d 30 0d 06 54 27 74 72  |%=0:brt%=0..T'tr|
00000e10  61 6e 73 25 21 30 3d 31  32 38 30 2a 32 35 36 2f  |ans%!0=1280*256/|
00000e20  28 31 32 38 30 2a 34 29  20 2a 20 26 31 30 30 30  |(1280*4) * &1000|
00000e30  30 0d 06 5e 19 74 72 61  6e 73 25 21 34 3d 30 3a  |0..^.trans%!4=0:|
00000e40  74 72 61 6e 73 25 21 38  3d 30 0d 06 68 28 74 72  |trans%!8=0..h(tr|
00000e50  61 6e 73 25 21 31 32 3d  31 30 32 34 2a 32 35 36  |ans%!12=1024*256|
00000e60  2f 28 31 32 38 30 2a 34  29 20 2a 20 26 31 30 30  |/(1280*4) * &100|
00000e70  30 30 0d 06 72 1b 74 72  61 6e 73 25 21 31 36 3d  |00..r.trans%!16=|
00000e80  30 3a 74 72 61 6e 73 25  21 32 30 3d 30 0d 06 7c  |0:trans%!20=0..||
00000e90  0d 74 68 69 63 6b 25 3d  36 34 0d 06 86 05 e1 0d  |.thick%=64......|
00000ea0  ff                                                |.|
00000ea1