Ввел понятия точка
| Код | Public Type Point3D ' 3D Point
X As Single
Y As Single
Z As Single
End Type |
и объект
| Код | Public Type Object3D ' 3D car Object
pointCol() As Point3D ' points of the object
ObjCol() As PObject3D ' other Objects
objectsq As Integer ' quantity of PObjects
pointsq As Integer ' quantity of points
enlarge As Single ' enlarge factor
center As Point3D ' center point
End Type |
Открыл справочник по математике Корна и написал процедуру, которая мне create'ует сфера из точек.
| Код | Public Function CreatePointSphere(Radius As Single, _
center As Point3D _
) As Object3D
Dim j As Integer ' counter
Dim k As Integer ' counter
Dim oldcenter As Point3D ' copy of the center point
Dim point As Point3D ' current point
Dim pnum As Integer ' number of the point
Dim sphere As Object3D ' new object
' we do not need enlarge factor for this object
' first point is above the center
point.X = center.X
point.Y = center.Y + Radius
point.Z = center.Z + Radius
oldcenter = center ' copy of center
sphere.pointsq = 683 ' number of points
ReDim sphere.pointCol(sphere.pointsq)
For j = 10 To 190 Step 10
point = RotateZ(point, center, 10)
center.Y = point.Y
For k = 0 To 350 Step 10
sphere.pointCol(pnum) = point
pnum = pnum + 1
point = RotateY(point, center, 10)
Next
center.Y = oldcenter.Y
Next
'sphere.enlarge =1
sphere.center = oldcenter ' set the center point
CreatePointSphere = sphere ' return an object
End Function |
Написал процедуры для вращения точек! на такой-то угол по отношению к такой-то оси, координаты которой нам дает точка center.
| Код | '**************************************************************************'
' '
' DIFFERENT ROTATION FUNCTIONS '
' '
'**************************************************************************'
'**************************************************************************'
' simple rotation around X axis
Public Function RotateX(point As Point3D, _
center As Point3D, _
Angle As Double _
) As Point3D
Dim newpoint As Point3D
Angle = Angle * PI / 180
point.X = point.X - center.X
point.Y = point.Y - center.Y
point.Z = point.Z - center.Z
newpoint.Y = point.Y * Cos(Angle) - point.Z * Sin(Angle)
newpoint.Z = point.Y * Sin(Angle) + point.Z * Cos(Angle)
newpoint.X = newpoint.X + center.X
newpoint.Y = newpoint.Y + center.Y
newpoint.Z = newpoint.Z + center.Z
RotateX = newpoint
End Function
'**************************************************************************'
' simple rotation around Y axis
Public Function RotateY(point As Point3D, _
center As Point3D, _
Angle As Double _
) As Point3D
Dim newpoint As Point3D
Angle = Angle * PI / 180
point.X = point.X - center.X
point.Y = point.Y - center.Y
point.Z = point.Z - center.Z
newpoint.X = point.X * Cos(Angle) + point.Z * Sin(Angle)
newpoint.Z = point.Z * Cos(Angle) - point.X * Sin(Angle)
newpoint.X = newpoint.X + center.X
newpoint.Y = newpoint.Y + center.Y
newpoint.Z = newpoint.Z + center.Z
RotateY = newpoint
End Function
'**************************************************************************'
' simple rotation around Z axis
Public Function RotateZ(point As Point3D, _
center As Point3D, _
Angle As Double _
) As Point3D
Dim newpoint As Point3D
Angle = Angle * PI / 180
point.X = point.X - center.X
point.Y = point.Y - center.Y
point.Z = point.Z - center.Z
newpoint.X = point.X * Cos(Angle) - point.Y * Sin(Angle)
newpoint.Y = point.X * Sin(Angle) + point.Y * Cos(Angle)
newpoint.X = newpoint.X + center.X
newpoint.Y = newpoint.Y + center.Y
newpoint.Z = newpoint.Z + center.Z
RotateZ = newpoint
End Function |
Потом есть процедура вращения всех точек объекта вокруг такой-то оси.
| Код | '**************************************************************************'
' simple rotation around one axis
Public Function RotateObject(object As Object3D, _
angleX As Double, _
angleY As Double, _
angleZ As Double _
) As Object3D
Dim newcenter As Point3D
Dim i As Integer
newcenter = object.center
' rotate around X axis
If (angleX) Then
For i = 0 To object.pointsq
newcenter.X = object.pointCol(i).X
object.pointCol(i) = RotateX(object.pointCol(i), newcenter, angleX * 1)
DoEvents
Next
End If
' rotate around Y axis
If (angleY) Then
For i = 0 To object.pointsq
newcenter.Y = object.pointCol(i).Y
object.pointCol(i) = RotateY(object.pointCol(i), newcenter, angleY * 1)
DoEvents
Next
End If
' rotate around Z axis
If (angleZ) Then
For i = 0 To object.pointsq
newcenter.Z = object.pointCol(i).Z
object.pointCol(i) = RotateZ(object.pointCol(i), newcenter, angleZ * 1)
DoEvents
Next
End If
RotateObject = object
End Function |
Вот так выглядит потом обработка нажатия Command1:
| Код | Private Sub Command1_Click()
Dim center As Point3D
Dim i As Double
Dim sphere2 As Object3D
Dim sphere3 As Object3D
Line (5928, 3500)-(9348, 8688), RGB(0, 0, 255)
DrawWidth = 5 ' Set DrawWidth.
Form1.PSet (6732, 4692), RGB(0, 255, 0)
Form1.PSet (8604, 7572), RGB(0, 255, 0)
DrawWidth = 1 ' Set DrawWidth.
center.X = Screen.Width / 2
center.Y = Screen.Height / 2
center.Z = 2500
sphere = CreatePointSphere(2140, center)
sphere2 = sphere
sphere3 = sphere
Do While True
For i = 0 To 89 Step 1
sphere3 = sphere
sphere = sphere2
RotateObject3D sphere, 0, i, 0
RotateObject3D sphere, -47, 0, 0
RotateObject3D sphere, 0, -37, 0
DrawObject3D sphere
DeleteObject3D sphere3
Sleep 50
Next
Loop
End Sub |
Использовались также процедуры:
| Код | Public Function DrawObject3D(object As Object3D)
Dim j As Integer
For j = 0 To object.pointsq
DrawPoint object.pointCol(j), 2
Next
End Function |
| Код | Public Function DeleteObject3D(object As Object3D)
Dim j As Integer
For j = 0 To object.pointsq
DrawPoint object.pointCol(j), Form1.BackColor
Next
End Function |
| Код | Public Function DrawPoint(point As Point3D, color As Long)
Form1.PSet (point.X, point.Y), color
End Function |
Может чего-то я и забыл.
Вобщем как уже сказал тут еще до фига всего над чем можно поработать, но так принцип понятен.
Весь проект пока не хочу делать public потому, что "идет стройка". Может когда нибудь сделаю короткий проект и засуну его в FAQ, но пока такого не намечается. |
...
. Надо просто повернуть объект на угол i вокруг оси y (i меняется в цикле), ну а потом поворачивать вокруг осей x и y, например, на определенный угол. Получается как бы вращение вокруг "наклоненной оси" 
на проблему и справочники нужные 