Private markierterWürfel As Integer
    Sub Intersect(ByVal x As Single, ByVal y As Single)' Mauskoordinaten
        On Error Resume Next
        Dim Near As Vector3
        Dim Far As Vector3
        Dim Closest As IntersectInformation
        Near = New Vector3(x, y, 0)
        Far = New Vector3(x, y, 1)
 
        Near.Unproject(DxDevice.Viewport, DxDevice.Transform.Projection, _
          DxDevice.Transform.View, DxDevice.Transform.World)
        Far.Unproject(DxDevice.Viewport, DxDevice.Transform.Projection, _
        DxDevice.Transform.View, DxDevice.Transform.World)
        Far.Subtract(Near)
 
        For wrf As Integer = 0 To Würfel.Length - 1
            If Würfel(wrf).Intersect(Far, Near) Then
                markierterWürfel = wrf
            End If
        Next
    End Sub

__________________________________________________
Ich programmiere in Visual Basic 2005 .Net Pro.
My Homepage