Сообщение от polopok
принцип понятен ,но никак не могу понять как выстаивать само "дерево" с ссылками на элементы уровнем ниже.
|
Ну такое:
добавить записи к боксам
Function boxing(name$,x,y,xf,yf,n,uptree,downtrees)
b.box = New box
b\x=x
b\y=y
b\xf=xf
b\yf=yf
b\n=n
b\name$=name$
b\uptree=uptree
b\downtrees=downtrees (массив из 4-х)
End Function
И вносить значения веток в:
boxing("B",b\x,b\y,b\xf/2,b\yf/2,0,Handle(b),??downtrees??)
Когда создаём новую ветку - вносим верхнюю.
Это в после
For e.ent = Each ent
For b.box = Each box
С downtrees косяк, там код доделывать.
Когда создаётся нижняя ветка - (другой может функцией) вносить нижнюю.
1 поделить рекурсивно область ,порядка 5 и более вложений(создать "дерево")
Ну и у тебя это работает. Просто увеличь i - там хоть 10