Ãëàâà Èçîáðàæåíèå è óïðàâëåíèå - ÷àñòü 8
Public Sub New( _
ByVal m00 As Double, ByVal m01 As Double, _
ByVal m02 As Double, ByVal m03 As Double, _
ByVal m10 As Double, ByVal m11 As Double, _
ByVal m12 As Double, ByVal m13 As Double, _
ByVal m20 As Double, ByVal m21 As Double, _
ByVal m22 As Double, ByVal m23 As Double, _
ByVal m30 As Double, ByVal m31 As Double, _
ByVal m32 As Double, ByVal m33 As Double)
M(0, 0) = m00 : M(0, 1) = m01 : M(0, 2) = m02
M(0, 3) = m03
M(1, 0) = m10 : M(1, 1) = m11 : M(1, 2) = m12
M(1, 3) = m13
M(2, 0) = m20 : M(2, 1) = m21 : M(2, 2) = m22
M(2, 3) = m23
M(3, 0) = m30 : M(3, 1) = m31 : M(3, 2) = m32
M(3, 3) = m33
End Sub
'Óìíîæåíèå ìàòðèöû íà ìàòðèöó ñïðàâà:
Public Function TimesMatrix( _
ByVal right_matrix As myClassMatrix3D) As myClassMatrix3D
Dim result As New myClassMatrix3D
Dim value As Double
For i As Integer = 0 To 3
For j As Integer = 0 To 3
value = 0
For k As Integer = 0 To 3
value = value + M(i, k) * _
right_matrix.M(k, j)
Next
result.M(i, j) = value
Next
Next
Return result
End Function
'Ïîâîðîò âîêðóã îñè z äî òî÷êè â y-z ïëîñêîñòè:
Public Shared Function GetZRotPointToYZ( _
ByVal pt As myClassPoint3D) As myClassMatrix3D
Dim R As Double = Sqrt(pt.orig_coord(0) * _
pt.orig_coord(0) + _
pt.orig_coord(1) * pt.orig_coord(1))
Dim stheta As Double = pt.orig_coord(0) / R
Dim ctheta As Double = pt.orig_coord(1) / R
Return New myClassMatrix3D( _
ctheta, stheta, 0, 0, _
-stheta, ctheta, 0, 0, _
0, 0, 1, 0, _
0, 0, 0, 1)
End Function
'Ïîâîðîò âîêðóã îñè x äî òî÷êè íà îñè z:
Public Shared Function GetXRotPointToZ( _