, ByVal generation As int32, ByRef allboxes As list(Of box))
If generation - 1 < 0 Then
Exit Sub
End If
Dim subboxes As New List(Of Box)
Dim corners As Point3d()=box.getcorners
Dim xvec As Vector3d = (corners(1) - corners(0)) / 3
Dim yvec As Vector3d = (corners(3) - corners(0)) / 3
Dim zvec As Vector3d = (corners(4) - corners(0)) / 3
box.transform(transform.Scale(corners(0), 1 / 3))
For m As int32=0 To 2
For n As Int32=0 To 2
For k As int32=0 To 2
If Not (m * m + n * n = 2) And Not (n * n + k * k = 2) And Not (k * k + m * m = 2) Then
Dim sub_box As Box = box
Dim transvec As Vector3d = xvec * m + yvec * n + zvec * k
sub_box.Transform(transform.Translation(transvec))
allboxes.Add(sub_box)
subD_box(sub_box, generation - 1, allboxes)
' all_boxes.remove(sub_box)
End If
Next
Next
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''…
tually drawing lines on top of the planes (one for each grid line within the plane)? Is this the approach the custom preview component takes? I'm just curious.
Also, is there a way to easily expose just the x and y axis as their uaual colors (so one can tell which way the plane is oriented)? My guess is you would have to treat the lines created in the middle of the loop to go from -4 to 0 instead of -4 to 4 (in order to expose 0 to 4).
Is this on the right track? I haven't had any time to play around with it yet.
Thanks,
Brian
…