Private Sub test()
 
        'testwürfel:
        'eckpunktearray:
        Dim pts As New List(Of Vector3)
        pts.Add(New Vector3(0, 0, 0))
        pts.Add(New Vector3(1, 0, 0))
        pts.Add(New Vector3(0, 1, 0))
        pts.Add(New Vector3(1, 1, 0))
        pts.Add(New Vector3(0, 0, 1))
        pts.Add(New Vector3(1, 0, 1))
        pts.Add(New Vector3(0, 1, 1))
        pts.Add(New Vector3(1, 1, 1))
 
        Dim resArr As Single(,)
        ReDim Preserve resArr(0 To pts.Count - 1, 0 To 2)
 
        Dim cnt As Integer = 0
 
        For Each v As Vector3 In pts
            'hier müsste nun das resArr gefüllt werden. 
            cnt += 1
        Next
 
    End Sub

LG,Robert

Beitrag wurde zuletzt am 10.08.09 um 18:10:17 editiert.