Модератор: Mikle
спроецировать полигон на плоскость, первендикулярную нормали полигона.
Задача спроецировать полигон на плоскость
В общем из 3Д координат надо таким образом получить 2Д координаты.
nekeda писал(а):Ты задаёшь условием задачи, что плоскости паралельны, но при таком условии данной задачи нет вообще
Sub AddTriangleEx(V1 As VECTOR, V2 As VECTOR, V3 As VECTOR, ByVal Tex As Long)
Dim VT(1 To 3) As Vertex
Dim SideOne As VECTOR, SideTwo As VECTOR
Dim t As Single
SideOne = VSub(V2, V1)
SideTwo = VSub(V3, V1)
t = Dot(SideOne, SideTwo) / (VLen(SideTwo)^2)
VT(1).Location = V1: VT(1).tu = 0: VT(1).tv = 1
VT(2).Location = V2: VT(2).tu = t: VT(2).tv = 0
VT(3).Location = V3: VT(3).tu = 1: VT(3).tv = 1
AddTriangle VT(1), VT(2), VT(3), Tex
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 15