�     >Trees
� By  Tim Jones
� For 32-bit machines
(� (c) BAU January 1994
2:
<0� � �:�;" at line ";�:ș "Hourglass_Smash":�
F� 15
P
�init1
Z	�vars
d
�init2
n
�setup
x�=0
�
�grass
�	�tree
�	�sort
�	�draw
�secs=�/100
�=�;secs � 60;" mins ";secs � 60;".";secs*100 � 100;" secs"
��
�:
�� �vars
�
� Tree
�
t_shape=6
�
t_len=100
�� Grass

g_on=on


g_size=20

g_ang=30

"g_gap=12

,� Branches

6b_sides=15

@b_sects=15

Jb_sprout=3

Tb_splits=3

^b_shrink=0.8

hb_width=10

rb_splitmax=45

|b_splitmin=60

�� Leaves

�l_on=on

�l_num=20

�
l_size=20

�l_gens=1

�� Screen

�
zoom=2000

�outline=off

��

�:

�� �init1

��

�on=�
	off=�
r_pos=0
�
&:
0� �init2
:b_recs=b_sides*b_sects
D*recs=�branches*b_recs+g_size^2+�leaves
Nadd=b_sides*2+1
X2� b_x(�branches),b_y(�branches),b_z(�branches)
bA� b_xa(�branches),b_za(�branches),b_sz(�branches),sort recs*4
l1� b_rd(recs),b_gr(recs),b_bl(recs),b_br(recs)
v;� t_x(3,recs),t_y(3,recs),t_z(3,recs),cos(360),sin(360)
�5� q_x(b_recs+add),q_y(b_recs+add),q_z(b_recs+add)
�:� q_b(b_recs+add),r_x(b_splits),r_z(b_splits),rnd(999)
�ș "OS_UpdateMEMC",64,64
�branches=0
�recs=-1
�b_sz(0)=t_len
��
�:
�� �setup
�� ang,rad,rec,y
�� ang=0 � 360
�  rad=�(ang)
�  cos(ang)=�rad
  sin(ang)=�rad
�
� y=0 � b_sects+1
 "  rad=1-y*(1-b_shrink)/b_sects
*  � ang=0 � b_sides+1
4    rec=y*b_sides+ang
>4    q_x(rec)=rad*cos((ang*360/b_sides+90) � 360)
H    q_y(rec)=y/b_sects
R4    q_z(rec)=rad*sin((ang*360/b_sides+90) � 360)
\0    q_b(rec)=�(180-ang*360/b_sides)/180*2.99
f  �
p�
z� r_pos=0 � 999
�  rnd(r_pos)=�(10000)-1
��
��
�:
�� �tree
�� split,xa,za,ok,t1,t2
��branch(0)
�tree=�(-t_shape)
�branch=0
��
�B  �rotate(0,b_sz(branch),0,xp,yp,zp,b_xa(branch),b_za(branch))
�  ș "Hourglass_On"
�  �
    � split=0 � b_sprout-1
/      r_x(split)=�(b_splitmax*2)-b_splitmax
/      r_z(split)=�(b_splitmax*2)-b_splitmax
$	    �
.    ok=�
8    � t1=0 � b_sprout-1
B      � t2=0 � b_sprout-1
L<        split=�((r_x(t2)-r_x(t1))^2+(r_z(t2)-r_z(t1))^2)
V,        � t1<>t2 � split<b_splitmin ok=�
`      �
j	    �
t
  � ok
~  ș "Hourglass_Off"
�  � split=0 � b_sprout-1
�-    �sprout(branch,r_x(split),r_z(split))
�  �
�  branch+=1
�� branches+1=�branches
��
�:
�� �sprout(nb,xa,za)
�branches+=1
�b_x(branches)=b_x(nb)+xp
�b_y(branches)=b_y(nb)+yp
�b_z(branches)=b_z(nb)+zp
&b_xa(branches)=(b_xa(nb)+xa) � 360

*� b_xa(branches)<0 b_xa(branches)+=360
&b_za(branches)=(b_za(nb)+za) � 360
*� b_za(branches)<0 b_za(branches)+=360
($b_sz(branches)=b_sz(nb)*b_shrink
2�branch(branches)
<�
F:
P� �gen(bb)
Z	� gen
d
gen=-1
n	cnt=0
x�
�  gen+=1
�  cnt+=b_sprout^gen
�� cnt>bb
�=gen
�:
�� �sort
�	� rec
�� rec=0 � recs
�2  sort!(rec*4)=10000*(1000-t_z(0,rec) � 5)+rec
��
�"ș "OS_HeapSort",recs+1,sort,1
��
�:
� �draw
� rec,r
� rec=0 � recs
"  r=���(sort!(rec*4)),4)
,+  �col(b_rd(r),b_gr(r),b_bl(r),b_br(r))
6)  �plot(4,t_x(0,r),t_y(0,r),t_z(0,r))
@)  �plot(4,t_x(1,r),t_y(1,r),t_z(1,r))
J*  �plot(85,t_x(2,r),t_y(2,r),t_z(2,r))
T*  �plot(85,t_x(3,r),t_y(3,r),t_z(3,r))
^  � outline �
h    � 0 Ȝ 255
r+    �plot(4,t_x(0,r),t_y(0,r),t_z(0,r))
|,    �plot(29,t_x(2,r),t_y(2,r),t_z(2,r))
�,    �plot(29,t_x(3,r),t_y(3,r),t_z(3,r))
�,    �plot(29,t_x(1,r),t_y(1,r),t_z(1,r))
�,    �plot(29,t_x(0,r),t_y(0,r),t_z(0,r))
�  �
��
��
�:
�� �branch(bb)
�&� w,rd,gr,bl,rec,n1,n2,n3,n4,point
��leaves(bb)
�w=b_sz(bb)/100*b_width
�� rec=0 � b_recs-1
�
  recs+=1
!  � rec � b_sides=b_sides-1 �
    n1=rec
    n2=rec-(b_sides-1)
&    n3=rec+b_sides
0    n4=rec+1
:	    �
D    n1=rec
N    n2=rec+1
X    n3=rec+b_sides
b    n4=rec+1+b_sides
l  �
vi  �rotate(w*q_x(n1),q_y(n1)*b_sz(bb),w*q_z(n1),t_x(0,recs),t_y(0,recs),t_z(0,recs),b_xa(bb),b_za(bb))
�i  �rotate(w*q_x(n2),q_y(n2)*b_sz(bb),w*q_z(n2),t_x(1,recs),t_y(1,recs),t_z(1,recs),b_xa(bb),b_za(bb))
�i  �rotate(w*q_x(n3),q_y(n3)*b_sz(bb),w*q_z(n3),t_x(2,recs),t_y(2,recs),t_z(2,recs),b_xa(bb),b_za(bb))
�i  �rotate(w*q_x(n4),q_y(n4)*b_sz(bb),w*q_z(n4),t_x(3,recs),t_y(3,recs),t_z(3,recs),b_xa(bb),b_za(bb))
�  � point=0 � 3
�     t_x(point,recs)+=b_x(bb)
�     t_y(point,recs)+=b_y(bb)
�     t_z(point,recs)+=b_z(bb)
�  �
�  b_rd(recs)=�rnd(1)+1
�  b_gr(recs)=b_rd(recs)-1
�  b_bl(recs)=0
�!  b_br(recs)=q_b(rec)+�rnd(5)
�  �box(recs)
�
�
:
 � �plot(kk,xx,yy,zz)
*� ss
4ss=zoom/(1000+zz)
>#� kk,xx*ss+640,(yy-400)*ss+1050
H�
R
\� �branches
f
� gen,num
p	num=0
z� gen=0 � b_splits
�  num+=b_sprout^gen
��
�=num
�:
�
� �leaves
�
� gen,num
�	num=0
�� gen=0 � b_splits
�5  � gen>b_splits-l_gens num+=(b_sprout^gen)*l_num
��
�=num
�:
�� �col(r,g,b,br)
	col=r+g*4+b*16
	&� col+(br � 4)*5.25 Ȝ (br � 3)*64
	�
	$:
	.� �grass
	8	� x,z
	B� � g_on � g_size<=0 �
	L4� x=-g_size*g_gap/2 � (g_size-1)*g_gap/2 � g_gap
	V6  � z=-g_size*g_gap/2 � (g_size-1)*g_gap/2 � g_gap
	`    recs+=1
	j    b_rd(recs)=�rnd(1)
	t    b_gr(recs)=�rnd(2)
	~    b_bl(recs)=0
	�    b_br(recs)=�rnd(2)
	�H    �rotatey(x,-�rnd(4),z,t_x(0,recs),t_y(0,recs),t_z(0,recs),g_ang)
	�N    �rotatey(x,-�rnd(4),z+g_gap,t_x(1,recs),t_y(1,recs),t_z(1,recs),g_ang)
	�N    �rotatey(x+g_gap,-�rnd(4),z,t_x(2,recs),t_y(2,recs),t_z(2,recs),g_ang)
	�T    �rotatey(x+g_gap,-�rnd(4),z+g_gap,t_x(3,recs),t_y(3,recs),t_z(3,recs),g_ang)
	�    �box(recs)
	�  �
	��
	��
	�:
	�+� �rotatey(XX,yy,ZZ,� xx,� yy,� zz,yyy)
	�xx=XX*cos(yyy)-ZZ*sin(yyy)
zz=ZZ*cos(yyy)+XX*sin(yyy)

�
:
.� �rotate(XX,yy,ZZ,� xx,� yy,� zz,xxx,zzz)
(YY=yy*cos(xxx)-ZZ*sin(xxx)
2zz=ZZ*cos(xxx)+yy*sin(xxx)
<xx=XX*cos(zzz)-YY*sin(zzz)
Fyy=YY*cos(zzz)+XX*sin(zzz)
P�
Z:
d� �leaves(bb)
n� l,point,ang,len,rad
x*� b_splits-�gen(bb)>=l_gens � � l_on �
�� l=1 � l_num
�
  recs+=1
�  len=�rnd(b_sz(bb))
�  ang=�rnd(360)
�C  rad=(b_sz(bb)/100*b_width)*(1-len/b_sz(bb)*b_shrink)+l_size/2
�b  �rotate(rad*cos(ang),len,rad*sin(ang),t_x(0,recs),t_y(0,recs),t_z(0,recs),b_xa(bb),b_za(bb))
�  b_rd(recs)=�rnd(1)
�  b_gr(recs)=�rnd(2)
�  b_bl(recs)=0
�  b_br(recs)=�rnd(5)
�  t_x(0,recs)+=b_x(bb)
�  t_y(0,recs)+=b_y(bb)
�  t_z(0,recs)+=b_z(bb)
  � point=1 � 3
9    t_x(point,recs)=t_x(0,recs)-l_size/2+�rnd(l_size)
9    t_y(point,recs)=t_y(0,recs)-l_size/2+�rnd(l_size)
"9    t_z(point,recs)=t_z(0,recs)-l_size/2+�rnd(l_size)
,  �
6  �box(recs)
@�
J�
T:
^
� �box(n)
h)�col(b_rd(n),b_gr(n),b_bl(n),b_br(n))
r'�plot(4,t_x(0,n),t_y(0,n),t_z(0,n))
|(�plot(29,t_x(1,n),t_y(1,n),t_z(1,n))
�(�plot(29,t_x(3,n),t_y(3,n),t_z(3,n))
�(�plot(29,t_x(2,n),t_y(2,n),t_z(2,n))
�(�plot(29,t_x(0,n),t_y(0,n),t_z(0,n))
��
�:
�� �rnd(r_max)
�r_pos=(r_pos+1) � 1000
�=rnd(r_pos) � (r_max+1)
�

00000000  0d 00 0a 10 f4 20 20 20  20 20 3e 54 72 65 65 73  |.....     >Trees|
00000010  0d 00 14 13 f4 20 42 79  20 20 54 69 6d 20 4a 6f  |..... By  Tim Jo|
00000020  6e 65 73 0d 00 1e 19 f4  20 46 6f 72 20 33 32 2d  |nes..... For 32-|
00000030  62 69 74 20 6d 61 63 68  69 6e 65 73 0d 00 28 1a  |bit machines..(.|
00000040  f4 20 28 63 29 20 42 41  55 20 4a 61 6e 75 61 72  |. (c) BAU Januar|
00000050  79 20 31 39 39 34 0d 00  32 05 3a 0d 00 3c 30 ee  |y 1994..2.:..<0.|
00000060  20 85 20 f6 3a f1 3b 22  20 61 74 20 6c 69 6e 65  | . .:.;" at line|
00000070  20 22 3b 9e 3a c8 99 20  22 48 6f 75 72 67 6c 61  | ";.:.. "Hourgla|
00000080  73 73 5f 53 6d 61 73 68  22 3a e0 0d 00 46 08 eb  |ss_Smash":...F..|
00000090  20 31 35 0d 00 50 0a f2  69 6e 69 74 31 0d 00 5a  | 15..P..init1..Z|
000000a0  09 f2 76 61 72 73 0d 00  64 0a f2 69 6e 69 74 32  |..vars..d..init2|
000000b0  0d 00 6e 0a f2 73 65 74  75 70 0d 00 78 07 d1 3d  |..n..setup..x..=|
000000c0  30 0d 00 82 0a f2 67 72  61 73 73 0d 00 8c 09 f2  |0.....grass.....|
000000d0  74 72 65 65 0d 00 96 09  f2 73 6f 72 74 0d 00 a0  |tree.....sort...|
000000e0  09 f2 64 72 61 77 0d 00  aa 0e 73 65 63 73 3d 91  |..draw....secs=.|
000000f0  2f 31 30 30 0d 00 b4 3d  f1 3b 73 65 63 73 20 81  |/100...=.;secs .|
00000100  20 36 30 3b 22 20 6d 69  6e 73 20 22 3b 73 65 63  | 60;" mins ";sec|
00000110  73 20 83 20 36 30 3b 22  2e 22 3b 73 65 63 73 2a  |s . 60;".";secs*|
00000120  31 30 30 20 83 20 31 30  30 3b 22 20 73 65 63 73  |100 . 100;" secs|
00000130  22 0d 00 be 05 e0 0d 00  c8 05 3a 0d 00 d2 0b dd  |".........:.....|
00000140  20 f2 76 61 72 73 0d 00  dc 0a f4 20 54 72 65 65  | .vars..... Tree|
00000150  0d 00 e6 0d 74 5f 73 68  61 70 65 3d 36 0d 00 f0  |....t_shape=6...|
00000160  0d 74 5f 6c 65 6e 3d 31  30 30 0d 00 fa 0b f4 20  |.t_len=100..... |
00000170  47 72 61 73 73 0d 01 04  0b 67 5f 6f 6e 3d 6f 6e  |Grass....g_on=on|
00000180  0d 01 0e 0d 67 5f 73 69  7a 65 3d 32 30 0d 01 18  |....g_size=20...|
00000190  0c 67 5f 61 6e 67 3d 33  30 0d 01 22 0c 67 5f 67  |.g_ang=30..".g_g|
000001a0  61 70 3d 31 32 0d 01 2c  0e f4 20 42 72 61 6e 63  |ap=12..,.. Branc|
000001b0  68 65 73 0d 01 36 0e 62  5f 73 69 64 65 73 3d 31  |hes..6.b_sides=1|
000001c0  35 0d 01 40 0e 62 5f 73  65 63 74 73 3d 31 35 0d  |5..@.b_sects=15.|
000001d0  01 4a 0e 62 5f 73 70 72  6f 75 74 3d 33 0d 01 54  |.J.b_sprout=3..T|
000001e0  0e 62 5f 73 70 6c 69 74  73 3d 33 0d 01 5e 10 62  |.b_splits=3..^.b|
000001f0  5f 73 68 72 69 6e 6b 3d  30 2e 38 0d 01 68 0e 62  |_shrink=0.8..h.b|
00000200  5f 77 69 64 74 68 3d 31  30 0d 01 72 11 62 5f 73  |_width=10..r.b_s|
00000210  70 6c 69 74 6d 61 78 3d  34 35 0d 01 7c 11 62 5f  |plitmax=45..|.b_|
00000220  73 70 6c 69 74 6d 69 6e  3d 36 30 0d 01 86 0c f4  |splitmin=60.....|
00000230  20 4c 65 61 76 65 73 0d  01 90 0b 6c 5f 6f 6e 3d  | Leaves....l_on=|
00000240  6f 6e 0d 01 9a 0c 6c 5f  6e 75 6d 3d 32 30 0d 01  |on....l_num=20..|
00000250  a4 0d 6c 5f 73 69 7a 65  3d 32 30 0d 01 ae 0c 6c  |..l_size=20....l|
00000260  5f 67 65 6e 73 3d 31 0d  01 b8 0c f4 20 53 63 72  |_gens=1..... Scr|
00000270  65 65 6e 0d 01 c2 0d 7a  6f 6f 6d 3d 32 30 30 30  |een....zoom=2000|
00000280  0d 01 cc 0f 6f 75 74 6c  69 6e 65 3d 6f 66 66 0d  |....outline=off.|
00000290  01 d6 05 e1 0d 01 e0 05  3a 0d 01 ea 0c dd 20 f2  |........:..... .|
000002a0  69 6e 69 74 31 0d 01 f4  05 87 0d 01 fe 08 6f 6e  |init1.........on|
000002b0  3d b9 0d 02 08 09 6f 66  66 3d a3 0d 02 12 0b 72  |=.....off=.....r|
000002c0  5f 70 6f 73 3d 30 0d 02  1c 05 e1 0d 02 26 05 3a  |_pos=0.......&.:|
000002d0  0d 02 30 0c dd 20 f2 69  6e 69 74 32 0d 02 3a 1a  |..0.. .init2..:.|
000002e0  62 5f 72 65 63 73 3d 62  5f 73 69 64 65 73 2a 62  |b_recs=b_sides*b|
000002f0  5f 73 65 63 74 73 0d 02  44 2a 72 65 63 73 3d a4  |_sects..D*recs=.|
00000300  62 72 61 6e 63 68 65 73  2a 62 5f 72 65 63 73 2b  |branches*b_recs+|
00000310  67 5f 73 69 7a 65 5e 32  2b a4 6c 65 61 76 65 73  |g_size^2+.leaves|
00000320  0d 02 4e 13 61 64 64 3d  62 5f 73 69 64 65 73 2a  |..N.add=b_sides*|
00000330  32 2b 31 0d 02 58 32 de  20 62 5f 78 28 a4 62 72  |2+1..X2. b_x(.br|
00000340  61 6e 63 68 65 73 29 2c  62 5f 79 28 a4 62 72 61  |anches),b_y(.bra|
00000350  6e 63 68 65 73 29 2c 62  5f 7a 28 a4 62 72 61 6e  |nches),b_z(.bran|
00000360  63 68 65 73 29 0d 02 62  41 de 20 62 5f 78 61 28  |ches)..bA. b_xa(|
00000370  a4 62 72 61 6e 63 68 65  73 29 2c 62 5f 7a 61 28  |.branches),b_za(|
00000380  a4 62 72 61 6e 63 68 65  73 29 2c 62 5f 73 7a 28  |.branches),b_sz(|
00000390  a4 62 72 61 6e 63 68 65  73 29 2c 73 6f 72 74 20  |.branches),sort |
000003a0  72 65 63 73 2a 34 0d 02  6c 31 de 20 62 5f 72 64  |recs*4..l1. b_rd|
000003b0  28 72 65 63 73 29 2c 62  5f 67 72 28 72 65 63 73  |(recs),b_gr(recs|
000003c0  29 2c 62 5f 62 6c 28 72  65 63 73 29 2c 62 5f 62  |),b_bl(recs),b_b|
000003d0  72 28 72 65 63 73 29 0d  02 76 3b de 20 74 5f 78  |r(recs)..v;. t_x|
000003e0  28 33 2c 72 65 63 73 29  2c 74 5f 79 28 33 2c 72  |(3,recs),t_y(3,r|
000003f0  65 63 73 29 2c 74 5f 7a  28 33 2c 72 65 63 73 29  |ecs),t_z(3,recs)|
00000400  2c 63 6f 73 28 33 36 30  29 2c 73 69 6e 28 33 36  |,cos(360),sin(36|
00000410  30 29 0d 02 80 35 de 20  71 5f 78 28 62 5f 72 65  |0)...5. q_x(b_re|
00000420  63 73 2b 61 64 64 29 2c  71 5f 79 28 62 5f 72 65  |cs+add),q_y(b_re|
00000430  63 73 2b 61 64 64 29 2c  71 5f 7a 28 62 5f 72 65  |cs+add),q_z(b_re|
00000440  63 73 2b 61 64 64 29 0d  02 8a 3a de 20 71 5f 62  |cs+add)...:. q_b|
00000450  28 62 5f 72 65 63 73 2b  61 64 64 29 2c 72 5f 78  |(b_recs+add),r_x|
00000460  28 62 5f 73 70 6c 69 74  73 29 2c 72 5f 7a 28 62  |(b_splits),r_z(b|
00000470  5f 73 70 6c 69 74 73 29  2c 72 6e 64 28 39 39 39  |_splits),rnd(999|
00000480  29 0d 02 94 1c c8 99 20  22 4f 53 5f 55 70 64 61  |)...... "OS_Upda|
00000490  74 65 4d 45 4d 43 22 2c  36 34 2c 36 34 0d 02 9e  |teMEMC",64,64...|
000004a0  0e 62 72 61 6e 63 68 65  73 3d 30 0d 02 a8 0b 72  |.branches=0....r|
000004b0  65 63 73 3d 2d 31 0d 02  b2 11 62 5f 73 7a 28 30  |ecs=-1....b_sz(0|
000004c0  29 3d 74 5f 6c 65 6e 0d  02 bc 05 e1 0d 02 c6 05  |)=t_len.........|
000004d0  3a 0d 02 d0 0c dd 20 f2  73 65 74 75 70 0d 02 da  |:..... .setup...|
000004e0  13 ea 20 61 6e 67 2c 72  61 64 2c 72 65 63 2c 79  |.. ang,rad,rec,y|
000004f0  0d 02 e4 11 e3 20 61 6e  67 3d 30 20 b8 20 33 36  |..... ang=0 . 36|
00000500  30 0d 02 ee 10 20 20 72  61 64 3d b2 28 61 6e 67  |0....  rad=.(ang|
00000510  29 0d 02 f8 13 20 20 63  6f 73 28 61 6e 67 29 3d  |)....  cos(ang)=|
00000520  9b 72 61 64 0d 03 02 13  20 20 73 69 6e 28 61 6e  |.rad....  sin(an|
00000530  67 29 3d b5 72 61 64 0d  03 0c 05 ed 0d 03 16 15  |g)=.rad.........|
00000540  e3 20 79 3d 30 20 b8 20  62 5f 73 65 63 74 73 2b  |. y=0 . b_sects+|
00000550  31 0d 03 20 22 20 20 72  61 64 3d 31 2d 79 2a 28  |1.. "  rad=1-y*(|
00000560  31 2d 62 5f 73 68 72 69  6e 6b 29 2f 62 5f 73 65  |1-b_shrink)/b_se|
00000570  63 74 73 0d 03 2a 19 20  20 e3 20 61 6e 67 3d 30  |cts..*.  . ang=0|
00000580  20 b8 20 62 5f 73 69 64  65 73 2b 31 0d 03 34 19  | . b_sides+1..4.|
00000590  20 20 20 20 72 65 63 3d  79 2a 62 5f 73 69 64 65  |    rec=y*b_side|
000005a0  73 2b 61 6e 67 0d 03 3e  34 20 20 20 20 71 5f 78  |s+ang..>4    q_x|
000005b0  28 72 65 63 29 3d 72 61  64 2a 63 6f 73 28 28 61  |(rec)=rad*cos((a|
000005c0  6e 67 2a 33 36 30 2f 62  5f 73 69 64 65 73 2b 39  |ng*360/b_sides+9|
000005d0  30 29 20 83 20 33 36 30  29 0d 03 48 1a 20 20 20  |0) . 360)..H.   |
000005e0  20 71 5f 79 28 72 65 63  29 3d 79 2f 62 5f 73 65  | q_y(rec)=y/b_se|
000005f0  63 74 73 0d 03 52 34 20  20 20 20 71 5f 7a 28 72  |cts..R4    q_z(r|
00000600  65 63 29 3d 72 61 64 2a  73 69 6e 28 28 61 6e 67  |ec)=rad*sin((ang|
00000610  2a 33 36 30 2f 62 5f 73  69 64 65 73 2b 39 30 29  |*360/b_sides+90)|
00000620  20 83 20 33 36 30 29 0d  03 5c 30 20 20 20 20 71  | . 360)..\0    q|
00000630  5f 62 28 72 65 63 29 3d  94 28 31 38 30 2d 61 6e  |_b(rec)=.(180-an|
00000640  67 2a 33 36 30 2f 62 5f  73 69 64 65 73 29 2f 31  |g*360/b_sides)/1|
00000650  38 30 2a 32 2e 39 39 0d  03 66 07 20 20 ed 0d 03  |80*2.99..f.  ...|
00000660  70 05 ed 0d 03 7a 13 e3  20 72 5f 70 6f 73 3d 30  |p....z.. r_pos=0|
00000670  20 b8 20 39 39 39 0d 03  84 1b 20 20 72 6e 64 28  | . 999....  rnd(|
00000680  72 5f 70 6f 73 29 3d b3  28 31 30 30 30 30 29 2d  |r_pos)=.(10000)-|
00000690  31 0d 03 8e 05 ed 0d 03  98 05 e1 0d 03 a2 05 3a  |1..............:|
000006a0  0d 03 ac 0b dd 20 f2 74  72 65 65 0d 03 b6 1a ea  |..... .tree.....|
000006b0  20 73 70 6c 69 74 2c 78  61 2c 7a 61 2c 6f 6b 2c  | split,xa,za,ok,|
000006c0  74 31 2c 74 32 0d 03 c0  0e f2 62 72 61 6e 63 68  |t1,t2.....branch|
000006d0  28 30 29 0d 03 ca 14 74  72 65 65 3d b3 28 2d 74  |(0)....tree=.(-t|
000006e0  5f 73 68 61 70 65 29 0d  03 d4 0c 62 72 61 6e 63  |_shape)....branc|
000006f0  68 3d 30 0d 03 de 05 f5  0d 03 e8 42 20 20 f2 72  |h=0........B  .r|
00000700  6f 74 61 74 65 28 30 2c  62 5f 73 7a 28 62 72 61  |otate(0,b_sz(bra|
00000710  6e 63 68 29 2c 30 2c 78  70 2c 79 70 2c 7a 70 2c  |nch),0,xp,yp,zp,|
00000720  62 5f 78 61 28 62 72 61  6e 63 68 29 2c 62 5f 7a  |b_xa(branch),b_z|
00000730  61 28 62 72 61 6e 63 68  29 29 0d 03 f2 17 20 20  |a(branch))....  |
00000740  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00000750  22 0d 03 fc 07 20 20 f5  0d 04 06 1e 20 20 20 20  |"....  .....    |
00000760  e3 20 73 70 6c 69 74 3d  30 20 b8 20 62 5f 73 70  |. split=0 . b_sp|
00000770  72 6f 75 74 2d 31 0d 04  10 2f 20 20 20 20 20 20  |rout-1.../      |
00000780  72 5f 78 28 73 70 6c 69  74 29 3d b3 28 62 5f 73  |r_x(split)=.(b_s|
00000790  70 6c 69 74 6d 61 78 2a  32 29 2d 62 5f 73 70 6c  |plitmax*2)-b_spl|
000007a0  69 74 6d 61 78 0d 04 1a  2f 20 20 20 20 20 20 72  |itmax.../      r|
000007b0  5f 7a 28 73 70 6c 69 74  29 3d b3 28 62 5f 73 70  |_z(split)=.(b_sp|
000007c0  6c 69 74 6d 61 78 2a 32  29 2d 62 5f 73 70 6c 69  |litmax*2)-b_spli|
000007d0  74 6d 61 78 0d 04 24 09  20 20 20 20 ed 0d 04 2e  |tmax..$.    ....|
000007e0  0c 20 20 20 20 6f 6b 3d  b9 0d 04 38 1b 20 20 20  |.    ok=...8.   |
000007f0  20 e3 20 74 31 3d 30 20  b8 20 62 5f 73 70 72 6f  | . t1=0 . b_spro|
00000800  75 74 2d 31 0d 04 42 1d  20 20 20 20 20 20 e3 20  |ut-1..B.      . |
00000810  74 32 3d 30 20 b8 20 62  5f 73 70 72 6f 75 74 2d  |t2=0 . b_sprout-|
00000820  31 0d 04 4c 3c 20 20 20  20 20 20 20 20 73 70 6c  |1..L<        spl|
00000830  69 74 3d b6 28 28 72 5f  78 28 74 32 29 2d 72 5f  |it=.((r_x(t2)-r_|
00000840  78 28 74 31 29 29 5e 32  2b 28 72 5f 7a 28 74 32  |x(t1))^2+(r_z(t2|
00000850  29 2d 72 5f 7a 28 74 31  29 29 5e 32 29 0d 04 56  |)-r_z(t1))^2)..V|
00000860  2c 20 20 20 20 20 20 20  20 e7 20 74 31 3c 3e 74  |,        . t1<>t|
00000870  32 20 80 20 73 70 6c 69  74 3c 62 5f 73 70 6c 69  |2 . split<b_spli|
00000880  74 6d 69 6e 20 6f 6b 3d  a3 0d 04 60 0b 20 20 20  |tmin ok=...`.   |
00000890  20 20 20 ed 0d 04 6a 09  20 20 20 20 ed 0d 04 74  |   ...j.    ...t|
000008a0  0a 20 20 fd 20 6f 6b 0d  04 7e 18 20 20 c8 99 20  |.  . ok..~.  .. |
000008b0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
000008c0  04 88 1c 20 20 e3 20 73  70 6c 69 74 3d 30 20 b8  |...  . split=0 .|
000008d0  20 62 5f 73 70 72 6f 75  74 2d 31 0d 04 92 2d 20  | b_sprout-1...- |
000008e0  20 20 20 f2 73 70 72 6f  75 74 28 62 72 61 6e 63  |   .sprout(branc|
000008f0  68 2c 72 5f 78 28 73 70  6c 69 74 29 2c 72 5f 7a  |h,r_x(split),r_z|
00000900  28 73 70 6c 69 74 29 29  0d 04 9c 07 20 20 ed 0d  |(split))....  ..|
00000910  04 a6 0f 20 20 62 72 61  6e 63 68 2b 3d 31 0d 04  |...  branch+=1..|
00000920  b0 1a fd 20 62 72 61 6e  63 68 65 73 2b 31 3d a4  |... branches+1=.|
00000930  62 72 61 6e 63 68 65 73  0d 04 ba 05 e1 0d 04 c4  |branches........|
00000940  05 3a 0d 04 ce 17 dd 20  f2 73 70 72 6f 75 74 28  |.:..... .sprout(|
00000950  6e 62 2c 78 61 2c 7a 61  29 0d 04 d8 0f 62 72 61  |nb,xa,za)....bra|
00000960  6e 63 68 65 73 2b 3d 31  0d 04 e2 1c 62 5f 78 28  |nches+=1....b_x(|
00000970  62 72 61 6e 63 68 65 73  29 3d 62 5f 78 28 6e 62  |branches)=b_x(nb|
00000980  29 2b 78 70 0d 04 ec 1c  62 5f 79 28 62 72 61 6e  |)+xp....b_y(bran|
00000990  63 68 65 73 29 3d 62 5f  79 28 6e 62 29 2b 79 70  |ches)=b_y(nb)+yp|
000009a0  0d 04 f6 1c 62 5f 7a 28  62 72 61 6e 63 68 65 73  |....b_z(branches|
000009b0  29 3d 62 5f 7a 28 6e 62  29 2b 7a 70 0d 05 00 26  |)=b_z(nb)+zp...&|
000009c0  62 5f 78 61 28 62 72 61  6e 63 68 65 73 29 3d 28  |b_xa(branches)=(|
000009d0  62 5f 78 61 28 6e 62 29  2b 78 61 29 20 83 20 33  |b_xa(nb)+xa) . 3|
000009e0  36 30 0d 05 0a 2a e7 20  62 5f 78 61 28 62 72 61  |60...*. b_xa(bra|
000009f0  6e 63 68 65 73 29 3c 30  20 62 5f 78 61 28 62 72  |nches)<0 b_xa(br|
00000a00  61 6e 63 68 65 73 29 2b  3d 33 36 30 0d 05 14 26  |anches)+=360...&|
00000a10  62 5f 7a 61 28 62 72 61  6e 63 68 65 73 29 3d 28  |b_za(branches)=(|
00000a20  62 5f 7a 61 28 6e 62 29  2b 7a 61 29 20 83 20 33  |b_za(nb)+za) . 3|
00000a30  36 30 0d 05 1e 2a e7 20  62 5f 7a 61 28 62 72 61  |60...*. b_za(bra|
00000a40  6e 63 68 65 73 29 3c 30  20 62 5f 7a 61 28 62 72  |nches)<0 b_za(br|
00000a50  61 6e 63 68 65 73 29 2b  3d 33 36 30 0d 05 28 24  |anches)+=360..($|
00000a60  62 5f 73 7a 28 62 72 61  6e 63 68 65 73 29 3d 62  |b_sz(branches)=b|
00000a70  5f 73 7a 28 6e 62 29 2a  62 5f 73 68 72 69 6e 6b  |_sz(nb)*b_shrink|
00000a80  0d 05 32 15 f2 62 72 61  6e 63 68 28 62 72 61 6e  |..2..branch(bran|
00000a90  63 68 65 73 29 0d 05 3c  05 e1 0d 05 46 05 3a 0d  |ches)..<....F.:.|
00000aa0  05 50 0e dd 20 a4 67 65  6e 28 62 62 29 0d 05 5a  |.P.. .gen(bb)..Z|
00000ab0  09 ea 20 67 65 6e 0d 05  64 0a 67 65 6e 3d 2d 31  |.. gen..d.gen=-1|
00000ac0  0d 05 6e 09 63 6e 74 3d  30 0d 05 78 05 f5 0d 05  |..n.cnt=0..x....|
00000ad0  82 0c 20 20 67 65 6e 2b  3d 31 0d 05 8c 17 20 20  |..  gen+=1....  |
00000ae0  63 6e 74 2b 3d 62 5f 73  70 72 6f 75 74 5e 67 65  |cnt+=b_sprout^ge|
00000af0  6e 0d 05 96 0c fd 20 63  6e 74 3e 62 62 0d 05 a0  |n..... cnt>bb...|
00000b00  08 3d 67 65 6e 0d 05 aa  05 3a 0d 05 b4 0b dd 20  |.=gen....:..... |
00000b10  f2 73 6f 72 74 0d 05 be  09 ea 20 72 65 63 0d 05  |.sort..... rec..|
00000b20  c8 12 e3 20 72 65 63 3d  30 20 b8 20 72 65 63 73  |... rec=0 . recs|
00000b30  0d 05 d2 32 20 20 73 6f  72 74 21 28 72 65 63 2a  |...2  sort!(rec*|
00000b40  34 29 3d 31 30 30 30 30  2a 28 31 30 30 30 2d 74  |4)=10000*(1000-t|
00000b50  5f 7a 28 30 2c 72 65 63  29 20 81 20 35 29 2b 72  |_z(0,rec) . 5)+r|
00000b60  65 63 0d 05 dc 05 ed 0d  05 e6 22 c8 99 20 22 4f  |ec........".. "O|
00000b70  53 5f 48 65 61 70 53 6f  72 74 22 2c 72 65 63 73  |S_HeapSort",recs|
00000b80  2b 31 2c 73 6f 72 74 2c  31 0d 05 f0 05 e1 0d 05  |+1,sort,1.......|
00000b90  fa 05 3a 0d 06 04 0b dd  20 f2 64 72 61 77 0d 06  |..:..... .draw..|
00000ba0  0e 0b ea 20 72 65 63 2c  72 0d 06 18 12 e3 20 72  |... rec,r..... r|
00000bb0  65 63 3d 30 20 b8 20 72  65 63 73 0d 06 22 1c 20  |ec=0 . recs..". |
00000bc0  20 72 3d bb c2 c3 28 73  6f 72 74 21 28 72 65 63  | r=...(sort!(rec|
00000bd0  2a 34 29 29 2c 34 29 0d  06 2c 2b 20 20 f2 63 6f  |*4)),4)..,+  .co|
00000be0  6c 28 62 5f 72 64 28 72  29 2c 62 5f 67 72 28 72  |l(b_rd(r),b_gr(r|
00000bf0  29 2c 62 5f 62 6c 28 72  29 2c 62 5f 62 72 28 72  |),b_bl(r),b_br(r|
00000c00  29 29 0d 06 36 29 20 20  f2 70 6c 6f 74 28 34 2c  |))..6)  .plot(4,|
00000c10  74 5f 78 28 30 2c 72 29  2c 74 5f 79 28 30 2c 72  |t_x(0,r),t_y(0,r|
00000c20  29 2c 74 5f 7a 28 30 2c  72 29 29 0d 06 40 29 20  |),t_z(0,r))..@) |
00000c30  20 f2 70 6c 6f 74 28 34  2c 74 5f 78 28 31 2c 72  | .plot(4,t_x(1,r|
00000c40  29 2c 74 5f 79 28 31 2c  72 29 2c 74 5f 7a 28 31  |),t_y(1,r),t_z(1|
00000c50  2c 72 29 29 0d 06 4a 2a  20 20 f2 70 6c 6f 74 28  |,r))..J*  .plot(|
00000c60  38 35 2c 74 5f 78 28 32  2c 72 29 2c 74 5f 79 28  |85,t_x(2,r),t_y(|
00000c70  32 2c 72 29 2c 74 5f 7a  28 32 2c 72 29 29 0d 06  |2,r),t_z(2,r))..|
00000c80  54 2a 20 20 f2 70 6c 6f  74 28 38 35 2c 74 5f 78  |T*  .plot(85,t_x|
00000c90  28 33 2c 72 29 2c 74 5f  79 28 33 2c 72 29 2c 74  |(3,r),t_y(3,r),t|
00000ca0  5f 7a 28 33 2c 72 29 29  0d 06 5e 11 20 20 e7 20  |_z(3,r))..^.  . |
00000cb0  6f 75 74 6c 69 6e 65 20  8c 0d 06 68 12 20 20 20  |outline ...h.   |
00000cc0  20 e6 20 30 20 c8 9c 20  32 35 35 0d 06 72 2b 20  | . 0 .. 255..r+ |
00000cd0  20 20 20 f2 70 6c 6f 74  28 34 2c 74 5f 78 28 30  |   .plot(4,t_x(0|
00000ce0  2c 72 29 2c 74 5f 79 28  30 2c 72 29 2c 74 5f 7a  |,r),t_y(0,r),t_z|
00000cf0  28 30 2c 72 29 29 0d 06  7c 2c 20 20 20 20 f2 70  |(0,r))..|,    .p|
00000d00  6c 6f 74 28 32 39 2c 74  5f 78 28 32 2c 72 29 2c  |lot(29,t_x(2,r),|
00000d10  74 5f 79 28 32 2c 72 29  2c 74 5f 7a 28 32 2c 72  |t_y(2,r),t_z(2,r|
00000d20  29 29 0d 06 86 2c 20 20  20 20 f2 70 6c 6f 74 28  |))...,    .plot(|
00000d30  32 39 2c 74 5f 78 28 33  2c 72 29 2c 74 5f 79 28  |29,t_x(3,r),t_y(|
00000d40  33 2c 72 29 2c 74 5f 7a  28 33 2c 72 29 29 0d 06  |3,r),t_z(3,r))..|
00000d50  90 2c 20 20 20 20 f2 70  6c 6f 74 28 32 39 2c 74  |.,    .plot(29,t|
00000d60  5f 78 28 31 2c 72 29 2c  74 5f 79 28 31 2c 72 29  |_x(1,r),t_y(1,r)|
00000d70  2c 74 5f 7a 28 31 2c 72  29 29 0d 06 9a 2c 20 20  |,t_z(1,r))...,  |
00000d80  20 20 f2 70 6c 6f 74 28  32 39 2c 74 5f 78 28 30  |  .plot(29,t_x(0|
00000d90  2c 72 29 2c 74 5f 79 28  30 2c 72 29 2c 74 5f 7a  |,r),t_y(0,r),t_z|
00000da0  28 30 2c 72 29 29 0d 06  a4 07 20 20 cd 0d 06 ae  |(0,r))....  ....|
00000db0  05 ed 0d 06 b8 05 e1 0d  06 c2 05 3a 0d 06 cc 11  |...........:....|
00000dc0  dd 20 f2 62 72 61 6e 63  68 28 62 62 29 0d 06 d6  |. .branch(bb)...|
00000dd0  26 ea 20 77 2c 72 64 2c  67 72 2c 62 6c 2c 72 65  |&. w,rd,gr,bl,re|
00000de0  63 2c 6e 31 2c 6e 32 2c  6e 33 2c 6e 34 2c 70 6f  |c,n1,n2,n3,n4,po|
00000df0  69 6e 74 0d 06 e0 0f f2  6c 65 61 76 65 73 28 62  |int.....leaves(b|
00000e00  62 29 0d 06 ea 1a 77 3d  62 5f 73 7a 28 62 62 29  |b)....w=b_sz(bb)|
00000e10  2f 31 30 30 2a 62 5f 77  69 64 74 68 0d 06 f4 16  |/100*b_width....|
00000e20  e3 20 72 65 63 3d 30 20  b8 20 62 5f 72 65 63 73  |. rec=0 . b_recs|
00000e30  2d 31 0d 06 fe 0d 20 20  72 65 63 73 2b 3d 31 0d  |-1....  recs+=1.|
00000e40  07 08 21 20 20 e7 20 72  65 63 20 83 20 62 5f 73  |..!  . rec . b_s|
00000e50  69 64 65 73 3d 62 5f 73  69 64 65 73 2d 31 20 8c  |ides=b_sides-1 .|
00000e60  0d 07 12 0e 20 20 20 20  6e 31 3d 72 65 63 0d 07  |....    n1=rec..|
00000e70  1c 1a 20 20 20 20 6e 32  3d 72 65 63 2d 28 62 5f  |..    n2=rec-(b_|
00000e80  73 69 64 65 73 2d 31 29  0d 07 26 16 20 20 20 20  |sides-1)..&.    |
00000e90  6e 33 3d 72 65 63 2b 62  5f 73 69 64 65 73 0d 07  |n3=rec+b_sides..|
00000ea0  30 10 20 20 20 20 6e 34  3d 72 65 63 2b 31 0d 07  |0.    n4=rec+1..|
00000eb0  3a 09 20 20 20 20 cc 0d  07 44 0e 20 20 20 20 6e  |:.    ...D.    n|
00000ec0  31 3d 72 65 63 0d 07 4e  10 20 20 20 20 6e 32 3d  |1=rec..N.    n2=|
00000ed0  72 65 63 2b 31 0d 07 58  16 20 20 20 20 6e 33 3d  |rec+1..X.    n3=|
00000ee0  72 65 63 2b 62 5f 73 69  64 65 73 0d 07 62 18 20  |rec+b_sides..b. |
00000ef0  20 20 20 6e 34 3d 72 65  63 2b 31 2b 62 5f 73 69  |   n4=rec+1+b_si|
00000f00  64 65 73 0d 07 6c 07 20  20 cd 0d 07 76 69 20 20  |des..l.  ...vi  |
00000f10  f2 72 6f 74 61 74 65 28  77 2a 71 5f 78 28 6e 31  |.rotate(w*q_x(n1|
00000f20  29 2c 71 5f 79 28 6e 31  29 2a 62 5f 73 7a 28 62  |),q_y(n1)*b_sz(b|
00000f30  62 29 2c 77 2a 71 5f 7a  28 6e 31 29 2c 74 5f 78  |b),w*q_z(n1),t_x|
00000f40  28 30 2c 72 65 63 73 29  2c 74 5f 79 28 30 2c 72  |(0,recs),t_y(0,r|
00000f50  65 63 73 29 2c 74 5f 7a  28 30 2c 72 65 63 73 29  |ecs),t_z(0,recs)|
00000f60  2c 62 5f 78 61 28 62 62  29 2c 62 5f 7a 61 28 62  |,b_xa(bb),b_za(b|
00000f70  62 29 29 0d 07 80 69 20  20 f2 72 6f 74 61 74 65  |b))...i  .rotate|
00000f80  28 77 2a 71 5f 78 28 6e  32 29 2c 71 5f 79 28 6e  |(w*q_x(n2),q_y(n|
00000f90  32 29 2a 62 5f 73 7a 28  62 62 29 2c 77 2a 71 5f  |2)*b_sz(bb),w*q_|
00000fa0  7a 28 6e 32 29 2c 74 5f  78 28 31 2c 72 65 63 73  |z(n2),t_x(1,recs|
00000fb0  29 2c 74 5f 79 28 31 2c  72 65 63 73 29 2c 74 5f  |),t_y(1,recs),t_|
00000fc0  7a 28 31 2c 72 65 63 73  29 2c 62 5f 78 61 28 62  |z(1,recs),b_xa(b|
00000fd0  62 29 2c 62 5f 7a 61 28  62 62 29 29 0d 07 8a 69  |b),b_za(bb))...i|
00000fe0  20 20 f2 72 6f 74 61 74  65 28 77 2a 71 5f 78 28  |  .rotate(w*q_x(|
00000ff0  6e 33 29 2c 71 5f 79 28  6e 33 29 2a 62 5f 73 7a  |n3),q_y(n3)*b_sz|
00001000  28 62 62 29 2c 77 2a 71  5f 7a 28 6e 33 29 2c 74  |(bb),w*q_z(n3),t|
00001010  5f 78 28 32 2c 72 65 63  73 29 2c 74 5f 79 28 32  |_x(2,recs),t_y(2|
00001020  2c 72 65 63 73 29 2c 74  5f 7a 28 32 2c 72 65 63  |,recs),t_z(2,rec|
00001030  73 29 2c 62 5f 78 61 28  62 62 29 2c 62 5f 7a 61  |s),b_xa(bb),b_za|
00001040  28 62 62 29 29 0d 07 94  69 20 20 f2 72 6f 74 61  |(bb))...i  .rota|
00001050  74 65 28 77 2a 71 5f 78  28 6e 34 29 2c 71 5f 79  |te(w*q_x(n4),q_y|
00001060  28 6e 34 29 2a 62 5f 73  7a 28 62 62 29 2c 77 2a  |(n4)*b_sz(bb),w*|
00001070  71 5f 7a 28 6e 34 29 2c  74 5f 78 28 33 2c 72 65  |q_z(n4),t_x(3,re|
00001080  63 73 29 2c 74 5f 79 28  33 2c 72 65 63 73 29 2c  |cs),t_y(3,recs),|
00001090  74 5f 7a 28 33 2c 72 65  63 73 29 2c 62 5f 78 61  |t_z(3,recs),b_xa|
000010a0  28 62 62 29 2c 62 5f 7a  61 28 62 62 29 29 0d 07  |(bb),b_za(bb))..|
000010b0  9e 13 20 20 e3 20 70 6f  69 6e 74 3d 30 20 b8 20  |..  . point=0 . |
000010c0  33 0d 07 a8 20 20 20 20  20 74 5f 78 28 70 6f 69  |3...     t_x(poi|
000010d0  6e 74 2c 72 65 63 73 29  2b 3d 62 5f 78 28 62 62  |nt,recs)+=b_x(bb|
000010e0  29 0d 07 b2 20 20 20 20  20 74 5f 79 28 70 6f 69  |)...     t_y(poi|
000010f0  6e 74 2c 72 65 63 73 29  2b 3d 62 5f 79 28 62 62  |nt,recs)+=b_y(bb|
00001100  29 0d 07 bc 20 20 20 20  20 74 5f 7a 28 70 6f 69  |)...     t_z(poi|
00001110  6e 74 2c 72 65 63 73 29  2b 3d 62 5f 7a 28 62 62  |nt,recs)+=b_z(bb|
00001120  29 0d 07 c6 07 20 20 ed  0d 07 d0 1a 20 20 62 5f  |)....  .....  b_|
00001130  72 64 28 72 65 63 73 29  3d a4 72 6e 64 28 31 29  |rd(recs)=.rnd(1)|
00001140  2b 31 0d 07 da 1d 20 20  62 5f 67 72 28 72 65 63  |+1....  b_gr(rec|
00001150  73 29 3d 62 5f 72 64 28  72 65 63 73 29 2d 31 0d  |s)=b_rd(recs)-1.|
00001160  07 e4 12 20 20 62 5f 62  6c 28 72 65 63 73 29 3d  |...  b_bl(recs)=|
00001170  30 0d 07 ee 21 20 20 62  5f 62 72 28 72 65 63 73  |0...!  b_br(recs|
00001180  29 3d 71 5f 62 28 72 65  63 29 2b a4 72 6e 64 28  |)=q_b(rec)+.rnd(|
00001190  35 29 0d 07 f8 10 20 20  f2 62 6f 78 28 72 65 63  |5)....  .box(rec|
000011a0  73 29 0d 08 02 05 ed 0d  08 0c 05 e1 0d 08 16 05  |s)..............|
000011b0  3a 0d 08 20 18 dd 20 f2  70 6c 6f 74 28 6b 6b 2c  |:.. .. .plot(kk,|
000011c0  78 78 2c 79 79 2c 7a 7a  29 0d 08 2a 08 ea 20 73  |xx,yy,zz)..*.. s|
000011d0  73 0d 08 34 15 73 73 3d  7a 6f 6f 6d 2f 28 31 30  |s..4.ss=zoom/(10|
000011e0  30 30 2b 7a 7a 29 0d 08  3e 23 f0 20 6b 6b 2c 78  |00+zz)..>#. kk,x|
000011f0  78 2a 73 73 2b 36 34 30  2c 28 79 79 2d 34 30 30  |x*ss+640,(yy-400|
00001200  29 2a 73 73 2b 31 30 35  30 0d 08 48 05 e1 0d 08  |)*ss+1050..H....|
00001210  52 04 0d 08 5c 0f dd 20  a4 62 72 61 6e 63 68 65  |R...\.. .branche|
00001220  73 0d 08 66 0d ea 20 67  65 6e 2c 6e 75 6d 0d 08  |s..f.. gen,num..|
00001230  70 09 6e 75 6d 3d 30 0d  08 7a 16 e3 20 67 65 6e  |p.num=0..z.. gen|
00001240  3d 30 20 b8 20 62 5f 73  70 6c 69 74 73 0d 08 84  |=0 . b_splits...|
00001250  17 20 20 6e 75 6d 2b 3d  62 5f 73 70 72 6f 75 74  |.  num+=b_sprout|
00001260  5e 67 65 6e 0d 08 8e 05  ed 0d 08 98 08 3d 6e 75  |^gen.........=nu|
00001270  6d 0d 08 a2 05 3a 0d 08  ac 0d dd 20 a4 6c 65 61  |m....:..... .lea|
00001280  76 65 73 0d 08 b6 0d ea  20 67 65 6e 2c 6e 75 6d  |ves..... gen,num|
00001290  0d 08 c0 09 6e 75 6d 3d  30 0d 08 ca 16 e3 20 67  |....num=0..... g|
000012a0  65 6e 3d 30 20 b8 20 62  5f 73 70 6c 69 74 73 0d  |en=0 . b_splits.|
000012b0  08 d4 35 20 20 e7 20 67  65 6e 3e 62 5f 73 70 6c  |..5  . gen>b_spl|
000012c0  69 74 73 2d 6c 5f 67 65  6e 73 20 6e 75 6d 2b 3d  |its-l_gens num+=|
000012d0  28 62 5f 73 70 72 6f 75  74 5e 67 65 6e 29 2a 6c  |(b_sprout^gen)*l|
000012e0  5f 6e 75 6d 0d 08 de 05  ed 0d 08 e8 08 3d 6e 75  |_num.........=nu|
000012f0  6d 0d 08 f2 05 3a 0d 08  fc 14 dd 20 f2 63 6f 6c  |m....:..... .col|
00001300  28 72 2c 67 2c 62 2c 62  72 29 0d 09 06 12 63 6f  |(r,g,b,br)....co|
00001310  6c 3d 72 2b 67 2a 34 2b  62 2a 31 36 0d 09 10 26  |l=r+g*4+b*16...&|
00001320  e6 20 63 6f 6c 2b 28 62  72 20 80 20 34 29 2a 35  |. col+(br . 4)*5|
00001330  2e 32 35 20 c8 9c 20 28  62 72 20 80 20 33 29 2a  |.25 .. (br . 3)*|
00001340  36 34 0d 09 1a 05 e1 0d  09 24 05 3a 0d 09 2e 0c  |64.......$.:....|
00001350  dd 20 f2 67 72 61 73 73  0d 09 38 09 ea 20 78 2c  |. .grass..8.. x,|
00001360  7a 0d 09 42 1a e7 20 ac  20 67 5f 6f 6e 20 84 20  |z..B.. . g_on . |
00001370  67 5f 73 69 7a 65 3c 3d  30 20 e1 0d 09 4c 34 e3  |g_size<=0 ...L4.|
00001380  20 78 3d 2d 67 5f 73 69  7a 65 2a 67 5f 67 61 70  | x=-g_size*g_gap|
00001390  2f 32 20 b8 20 28 67 5f  73 69 7a 65 2d 31 29 2a  |/2 . (g_size-1)*|
000013a0  67 5f 67 61 70 2f 32 20  88 20 67 5f 67 61 70 0d  |g_gap/2 . g_gap.|
000013b0  09 56 36 20 20 e3 20 7a  3d 2d 67 5f 73 69 7a 65  |.V6  . z=-g_size|
000013c0  2a 67 5f 67 61 70 2f 32  20 b8 20 28 67 5f 73 69  |*g_gap/2 . (g_si|
000013d0  7a 65 2d 31 29 2a 67 5f  67 61 70 2f 32 20 88 20  |ze-1)*g_gap/2 . |
000013e0  67 5f 67 61 70 0d 09 60  0f 20 20 20 20 72 65 63  |g_gap..`.    rec|
000013f0  73 2b 3d 31 0d 09 6a 1a  20 20 20 20 62 5f 72 64  |s+=1..j.    b_rd|
00001400  28 72 65 63 73 29 3d a4  72 6e 64 28 31 29 0d 09  |(recs)=.rnd(1)..|
00001410  74 1a 20 20 20 20 62 5f  67 72 28 72 65 63 73 29  |t.    b_gr(recs)|
00001420  3d a4 72 6e 64 28 32 29  0d 09 7e 14 20 20 20 20  |=.rnd(2)..~.    |
00001430  62 5f 62 6c 28 72 65 63  73 29 3d 30 0d 09 88 1a  |b_bl(recs)=0....|
00001440  20 20 20 20 62 5f 62 72  28 72 65 63 73 29 3d a4  |    b_br(recs)=.|
00001450  72 6e 64 28 32 29 0d 09  92 48 20 20 20 20 f2 72  |rnd(2)...H    .r|
00001460  6f 74 61 74 65 79 28 78  2c 2d a4 72 6e 64 28 34  |otatey(x,-.rnd(4|
00001470  29 2c 7a 2c 74 5f 78 28  30 2c 72 65 63 73 29 2c  |),z,t_x(0,recs),|
00001480  74 5f 79 28 30 2c 72 65  63 73 29 2c 74 5f 7a 28  |t_y(0,recs),t_z(|
00001490  30 2c 72 65 63 73 29 2c  67 5f 61 6e 67 29 0d 09  |0,recs),g_ang)..|
000014a0  9c 4e 20 20 20 20 f2 72  6f 74 61 74 65 79 28 78  |.N    .rotatey(x|
000014b0  2c 2d a4 72 6e 64 28 34  29 2c 7a 2b 67 5f 67 61  |,-.rnd(4),z+g_ga|
000014c0  70 2c 74 5f 78 28 31 2c  72 65 63 73 29 2c 74 5f  |p,t_x(1,recs),t_|
000014d0  79 28 31 2c 72 65 63 73  29 2c 74 5f 7a 28 31 2c  |y(1,recs),t_z(1,|
000014e0  72 65 63 73 29 2c 67 5f  61 6e 67 29 0d 09 a6 4e  |recs),g_ang)...N|
000014f0  20 20 20 20 f2 72 6f 74  61 74 65 79 28 78 2b 67  |    .rotatey(x+g|
00001500  5f 67 61 70 2c 2d a4 72  6e 64 28 34 29 2c 7a 2c  |_gap,-.rnd(4),z,|
00001510  74 5f 78 28 32 2c 72 65  63 73 29 2c 74 5f 79 28  |t_x(2,recs),t_y(|
00001520  32 2c 72 65 63 73 29 2c  74 5f 7a 28 32 2c 72 65  |2,recs),t_z(2,re|
00001530  63 73 29 2c 67 5f 61 6e  67 29 0d 09 b0 54 20 20  |cs),g_ang)...T  |
00001540  20 20 f2 72 6f 74 61 74  65 79 28 78 2b 67 5f 67  |  .rotatey(x+g_g|
00001550  61 70 2c 2d a4 72 6e 64  28 34 29 2c 7a 2b 67 5f  |ap,-.rnd(4),z+g_|
00001560  67 61 70 2c 74 5f 78 28  33 2c 72 65 63 73 29 2c  |gap,t_x(3,recs),|
00001570  74 5f 79 28 33 2c 72 65  63 73 29 2c 74 5f 7a 28  |t_y(3,recs),t_z(|
00001580  33 2c 72 65 63 73 29 2c  67 5f 61 6e 67 29 0d 09  |3,recs),g_ang)..|
00001590  ba 12 20 20 20 20 f2 62  6f 78 28 72 65 63 73 29  |..    .box(recs)|
000015a0  0d 09 c4 07 20 20 ed 0d  09 ce 05 ed 0d 09 d8 05  |....  ..........|
000015b0  e1 0d 09 e2 05 3a 0d 09  ec 2b dd 20 f2 72 6f 74  |.....:...+. .rot|
000015c0  61 74 65 79 28 58 58 2c  79 79 2c 5a 5a 2c f8 20  |atey(XX,yy,ZZ,. |
000015d0  78 78 2c f8 20 79 79 2c  f8 20 7a 7a 2c 79 79 79  |xx,. yy,. zz,yyy|
000015e0  29 0d 09 f6 1e 78 78 3d  58 58 2a 63 6f 73 28 79  |)....xx=XX*cos(y|
000015f0  79 79 29 2d 5a 5a 2a 73  69 6e 28 79 79 79 29 0d  |yy)-ZZ*sin(yyy).|
00001600  0a 00 1e 7a 7a 3d 5a 5a  2a 63 6f 73 28 79 79 79  |...zz=ZZ*cos(yyy|
00001610  29 2b 58 58 2a 73 69 6e  28 79 79 79 29 0d 0a 0a  |)+XX*sin(yyy)...|
00001620  05 e1 0d 0a 14 05 3a 0d  0a 1e 2e dd 20 f2 72 6f  |......:..... .ro|
00001630  74 61 74 65 28 58 58 2c  79 79 2c 5a 5a 2c f8 20  |tate(XX,yy,ZZ,. |
00001640  78 78 2c f8 20 79 79 2c  f8 20 7a 7a 2c 78 78 78  |xx,. yy,. zz,xxx|
00001650  2c 7a 7a 7a 29 0d 0a 28  1e 59 59 3d 79 79 2a 63  |,zzz)..(.YY=yy*c|
00001660  6f 73 28 78 78 78 29 2d  5a 5a 2a 73 69 6e 28 78  |os(xxx)-ZZ*sin(x|
00001670  78 78 29 0d 0a 32 1e 7a  7a 3d 5a 5a 2a 63 6f 73  |xx)..2.zz=ZZ*cos|
00001680  28 78 78 78 29 2b 79 79  2a 73 69 6e 28 78 78 78  |(xxx)+yy*sin(xxx|
00001690  29 0d 0a 3c 1e 78 78 3d  58 58 2a 63 6f 73 28 7a  |)..<.xx=XX*cos(z|
000016a0  7a 7a 29 2d 59 59 2a 73  69 6e 28 7a 7a 7a 29 0d  |zz)-YY*sin(zzz).|
000016b0  0a 46 1e 79 79 3d 59 59  2a 63 6f 73 28 7a 7a 7a  |.F.yy=YY*cos(zzz|
000016c0  29 2b 58 58 2a 73 69 6e  28 7a 7a 7a 29 0d 0a 50  |)+XX*sin(zzz)..P|
000016d0  05 e1 0d 0a 5a 05 3a 0d  0a 64 11 dd 20 f2 6c 65  |....Z.:..d.. .le|
000016e0  61 76 65 73 28 62 62 29  0d 0a 6e 19 ea 20 6c 2c  |aves(bb)..n.. l,|
000016f0  70 6f 69 6e 74 2c 61 6e  67 2c 6c 65 6e 2c 72 61  |point,ang,len,ra|
00001700  64 0d 0a 78 2a e7 20 62  5f 73 70 6c 69 74 73 2d  |d..x*. b_splits-|
00001710  a4 67 65 6e 28 62 62 29  3e 3d 6c 5f 67 65 6e 73  |.gen(bb)>=l_gens|
00001720  20 84 20 ac 20 6c 5f 6f  6e 20 e1 0d 0a 82 11 e3  | . . l_on ......|
00001730  20 6c 3d 31 20 b8 20 6c  5f 6e 75 6d 0d 0a 8c 0d  | l=1 . l_num....|
00001740  20 20 72 65 63 73 2b 3d  31 0d 0a 96 18 20 20 6c  |  recs+=1....  l|
00001750  65 6e 3d a4 72 6e 64 28  62 5f 73 7a 28 62 62 29  |en=.rnd(b_sz(bb)|
00001760  29 0d 0a a0 13 20 20 61  6e 67 3d a4 72 6e 64 28  |)....  ang=.rnd(|
00001770  33 36 30 29 0d 0a aa 43  20 20 72 61 64 3d 28 62  |360)...C  rad=(b|
00001780  5f 73 7a 28 62 62 29 2f  31 30 30 2a 62 5f 77 69  |_sz(bb)/100*b_wi|
00001790  64 74 68 29 2a 28 31 2d  6c 65 6e 2f 62 5f 73 7a  |dth)*(1-len/b_sz|
000017a0  28 62 62 29 2a 62 5f 73  68 72 69 6e 6b 29 2b 6c  |(bb)*b_shrink)+l|
000017b0  5f 73 69 7a 65 2f 32 0d  0a b4 62 20 20 f2 72 6f  |_size/2...b  .ro|
000017c0  74 61 74 65 28 72 61 64  2a 63 6f 73 28 61 6e 67  |tate(rad*cos(ang|
000017d0  29 2c 6c 65 6e 2c 72 61  64 2a 73 69 6e 28 61 6e  |),len,rad*sin(an|
000017e0  67 29 2c 74 5f 78 28 30  2c 72 65 63 73 29 2c 74  |g),t_x(0,recs),t|
000017f0  5f 79 28 30 2c 72 65 63  73 29 2c 74 5f 7a 28 30  |_y(0,recs),t_z(0|
00001800  2c 72 65 63 73 29 2c 62  5f 78 61 28 62 62 29 2c  |,recs),b_xa(bb),|
00001810  62 5f 7a 61 28 62 62 29  29 0d 0a be 18 20 20 62  |b_za(bb))....  b|
00001820  5f 72 64 28 72 65 63 73  29 3d a4 72 6e 64 28 31  |_rd(recs)=.rnd(1|
00001830  29 0d 0a c8 18 20 20 62  5f 67 72 28 72 65 63 73  |)....  b_gr(recs|
00001840  29 3d a4 72 6e 64 28 32  29 0d 0a d2 12 20 20 62  |)=.rnd(2)....  b|
00001850  5f 62 6c 28 72 65 63 73  29 3d 30 0d 0a dc 18 20  |_bl(recs)=0.... |
00001860  20 62 5f 62 72 28 72 65  63 73 29 3d a4 72 6e 64  | b_br(recs)=.rnd|
00001870  28 35 29 0d 0a e6 1a 20  20 74 5f 78 28 30 2c 72  |(5)....  t_x(0,r|
00001880  65 63 73 29 2b 3d 62 5f  78 28 62 62 29 0d 0a f0  |ecs)+=b_x(bb)...|
00001890  1a 20 20 74 5f 79 28 30  2c 72 65 63 73 29 2b 3d  |.  t_y(0,recs)+=|
000018a0  62 5f 79 28 62 62 29 0d  0a fa 1a 20 20 74 5f 7a  |b_y(bb)....  t_z|
000018b0  28 30 2c 72 65 63 73 29  2b 3d 62 5f 7a 28 62 62  |(0,recs)+=b_z(bb|
000018c0  29 0d 0b 04 13 20 20 e3  20 70 6f 69 6e 74 3d 31  |)....  . point=1|
000018d0  20 b8 20 33 0d 0b 0e 39  20 20 20 20 74 5f 78 28  | . 3...9    t_x(|
000018e0  70 6f 69 6e 74 2c 72 65  63 73 29 3d 74 5f 78 28  |point,recs)=t_x(|
000018f0  30 2c 72 65 63 73 29 2d  6c 5f 73 69 7a 65 2f 32  |0,recs)-l_size/2|
00001900  2b a4 72 6e 64 28 6c 5f  73 69 7a 65 29 0d 0b 18  |+.rnd(l_size)...|
00001910  39 20 20 20 20 74 5f 79  28 70 6f 69 6e 74 2c 72  |9    t_y(point,r|
00001920  65 63 73 29 3d 74 5f 79  28 30 2c 72 65 63 73 29  |ecs)=t_y(0,recs)|
00001930  2d 6c 5f 73 69 7a 65 2f  32 2b a4 72 6e 64 28 6c  |-l_size/2+.rnd(l|
00001940  5f 73 69 7a 65 29 0d 0b  22 39 20 20 20 20 74 5f  |_size).."9    t_|
00001950  7a 28 70 6f 69 6e 74 2c  72 65 63 73 29 3d 74 5f  |z(point,recs)=t_|
00001960  7a 28 30 2c 72 65 63 73  29 2d 6c 5f 73 69 7a 65  |z(0,recs)-l_size|
00001970  2f 32 2b a4 72 6e 64 28  6c 5f 73 69 7a 65 29 0d  |/2+.rnd(l_size).|
00001980  0b 2c 07 20 20 ed 0d 0b  36 10 20 20 f2 62 6f 78  |.,.  ...6.  .box|
00001990  28 72 65 63 73 29 0d 0b  40 05 ed 0d 0b 4a 05 e1  |(recs)..@....J..|
000019a0  0d 0b 54 05 3a 0d 0b 5e  0d dd 20 f2 62 6f 78 28  |..T.:..^.. .box(|
000019b0  6e 29 0d 0b 68 29 f2 63  6f 6c 28 62 5f 72 64 28  |n)..h).col(b_rd(|
000019c0  6e 29 2c 62 5f 67 72 28  6e 29 2c 62 5f 62 6c 28  |n),b_gr(n),b_bl(|
000019d0  6e 29 2c 62 5f 62 72 28  6e 29 29 0d 0b 72 27 f2  |n),b_br(n))..r'.|
000019e0  70 6c 6f 74 28 34 2c 74  5f 78 28 30 2c 6e 29 2c  |plot(4,t_x(0,n),|
000019f0  74 5f 79 28 30 2c 6e 29  2c 74 5f 7a 28 30 2c 6e  |t_y(0,n),t_z(0,n|
00001a00  29 29 0d 0b 7c 28 f2 70  6c 6f 74 28 32 39 2c 74  |))..|(.plot(29,t|
00001a10  5f 78 28 31 2c 6e 29 2c  74 5f 79 28 31 2c 6e 29  |_x(1,n),t_y(1,n)|
00001a20  2c 74 5f 7a 28 31 2c 6e  29 29 0d 0b 86 28 f2 70  |,t_z(1,n))...(.p|
00001a30  6c 6f 74 28 32 39 2c 74  5f 78 28 33 2c 6e 29 2c  |lot(29,t_x(3,n),|
00001a40  74 5f 79 28 33 2c 6e 29  2c 74 5f 7a 28 33 2c 6e  |t_y(3,n),t_z(3,n|
00001a50  29 29 0d 0b 90 28 f2 70  6c 6f 74 28 32 39 2c 74  |))...(.plot(29,t|
00001a60  5f 78 28 32 2c 6e 29 2c  74 5f 79 28 32 2c 6e 29  |_x(2,n),t_y(2,n)|
00001a70  2c 74 5f 7a 28 32 2c 6e  29 29 0d 0b 9a 28 f2 70  |,t_z(2,n))...(.p|
00001a80  6c 6f 74 28 32 39 2c 74  5f 78 28 30 2c 6e 29 2c  |lot(29,t_x(0,n),|
00001a90  74 5f 79 28 30 2c 6e 29  2c 74 5f 7a 28 30 2c 6e  |t_y(0,n),t_z(0,n|
00001aa0  29 29 0d 0b a4 05 e1 0d  0b ae 05 3a 0d 0b b8 11  |)).........:....|
00001ab0  dd 20 a4 72 6e 64 28 72  5f 6d 61 78 29 0d 0b c2  |. .rnd(r_max)...|
00001ac0  1a 72 5f 70 6f 73 3d 28  72 5f 70 6f 73 2b 31 29  |.r_pos=(r_pos+1)|
00001ad0  20 83 20 31 30 30 30 0d  0b cc 1b 3d 72 6e 64 28  | . 1000....=rnd(|
00001ae0  72 5f 70 6f 73 29 20 83  20 28 72 5f 6d 61 78 2b  |r_pos) . (r_max+|
00001af0  31 29 0d ff                                       |1)..|
00001af4