Проблемы с мышью и координатами 3D

[PilatP]

Помогите кто нибуть!
Нужна функция которая будет рисовать обьект на ландшафте под курсором!
вот то что я наваял но она не точная

Код: Выделить всё

Dim NMouseX, NMouseY, Xdist As Single ', Aspect As Single
Dim  Mouse_3D As D3DVECTOR

Public Sub Mouse_Val_Z(MouseX as Integer,MouseY as Integer )

NMouseX = 1# - (2# * (MouseX / Разрешение_Экрана_X))
NMouseY = -1# + (2# * (MouseY / Разрешение_Экрана_Y))

Xdist = 500 - ((NMouseY * 500) / 0.45)

Mouse_3D.X = (((CamPos.X * -NMouseX) + (Sin(AngleConv)) * Xdist))
Mouse_3D.Z = (CamPos.Z + (Cos(AngleConv)) * Xdist) '1000 + CamPos.Z
Mouse_3D.Y = 50
result = DistancePoints(CamPos, Mouse_3D)
End Sub

DrawMesh Shar, Mouse_3D.X, 5, Mouse_3D.Z, 0, 0, 0, 0.1, 0.1, 0.1



Плиз помогите кто я уже запарился

[Mikle]

Почитай тему:
viewtopic.php?f=6&t=20872&st=0&sk=t&sd=a
Там в примерах ландшафта есть функция RayInterSector, как раз для нахождения таких координат.

[PilatP]

Привет Mikle!
Тема давняя, но для меня она так и не решена!!!
Ты дал эту ссылку.

Почитай тему:
viewtopic.php?f=6&t=20872&st=0&sk=t&sd=a
Там в примерах ландшафта есть функция RayInterSector, как раз для нахождения таких координат.

И она работает, но мне нужно чтобы мышка(курсор) не блокировался, а определение Vectora шло не из центра Экрана от туда где находится мышка(Вид от Третего литца! я вижу героя и окружение /ланд,деревья,и пр./ и мышкой выбираю куда идти герою! )
я пробовал RayInterSector подставлять значения в Angle и Pitch(Diff)и значения положения курсора по Х и Y, но ни чего не получилось, Прошу помоги ,замучался второй месяц не могу здвинутся с места!

[DirectXManiac]

Для этого нужно переделать координаты мыши из 2д в 3д.

Код: Выделить всё

Public Function GetMousePickDirection(X As Single, Y As Single) As D3DVECTOR
Dim Mtemp As D3DMATRIX
Dim Mtemp2 As D3DMATRIX
Dim view As D3DVIEWPORT8

d3dDevice.GetTransform D3DTS_WORLD, Mtemp
d3dDevice.GetViewport view
On Local Error Resume Next
Cursor.X = X
Cursor.Y = Y
Cursor.z = 0
d3dDevice.GetTransform D3DTS_VIEW, Mtemp2
D3DXVec3Unproject vNear, Cursor, view, pjm, Mtemp2, Mtemp
Cursor.z = 1
D3DXVec3Unproject vFar, Cursor, view, pjm, Mtemp2, Mtemp
D3DXVec3Subtract GetMousePickDirection, vFar, vNear
End Function

С помощью этой функции переделываешь координаты в направление луча и скармливаешь RayIntersection.

[Mikle]

Демка старая, выкладываю ещё раз.
Тут, пока кнопки мыши не нажаты - мы движемся, но курсор всегда в центре, если нажать кнопку мыши (любую), то вращение мышью прекращается, можно указывать любое направление, RayInterSector рассчитает и покажет точку пересечения.

[PilatP]

Спасибо что откликнулись сегодня гляну и напишу результат!