Option Explicit
Call recursiveAggregation()
Sub recursiveAggregation()
Dim objArr(13), gens
‘gens = Rhino.GetReal(“how many generations”, 5)
gens = 4
objArr(0) = Rhino.GetObject(“select a starting object”)
objArr(1) = Rhino.GetObject(“select base reference point 1”, 1)
objArr(2) = Rhino.GetObject(“select base reference point 2”, 1)
objArr(3) = Rhino.GetObject(“select base reference point 3”, 1)
objArr(4) = Rhino.GetObject(“select base reference point 4”, 1)
objArr(5) = Rhino.GetObject(“select target 1 reference point 1”, 1)
objArr(6) = Rhino.GetObject(“select target 1 reference point 2”, 1)
objArr(7) = Rhino.GetObject(“select target 1 reference point 3”, 1)
objArr(8) = Rhino.GetObject(“select target 1 reference point 4”, 1)
objArr(9) = Rhino.GetObject(“select target 2 reference point 1”, 1)
objArr(10) = Rhino.GetObject(“select target 2 reference point 2”, 1)
objArr(11) = Rhino.GetObject(“select target 2 reference point 3”, 1)
objArr(12) = Rhino.GetObject(“select target 2 reference point 4”, 1)
objArr(13) = Rhino.GetObject(“select center”, 1)
‘Rhino.EnableRedraw False
aggregate objArr, gens
Rhino.EnableRedraw True
End Sub
Function aggregate(objArr, gens)
Dim count, i, baseArrPts(), tarArrPts1(), tarArrPts2(), objArr1, objArr2
…
