Ãëàâà Èçîáðàæåíèå è óïðàâëåíèå - ÷àñòü 4
N_2_myArrayVB = i + 1 'Âòîðàÿ ãðàíèöà â ìàññèâå.
Next
Next
'Ïðåîáðàçîâûâàåì îñè(axes):
For k As Integer = 0 To 3
Axes(k).Transformation(tr)
Next
'Ðàññ÷èòûâàåì ýëåìåíòû ìàññèâà äëÿ ðèñîâàíèÿ îñåé:
i = N_2_myArrayVB - 1
x1 = Axes(0).trans_coord(0)
y1 = Axes(0).trans_coord(1)
For k As Integer = 1 To 3
x2 = Axes(k).trans_coord(0)
y2 = Axes(k).trans_coord(1)
'Ìîæíî ðèñîâàòü îñè êîîðäèíàò è çäåñü:
'e.Graphics.DrawLine(myPen, x1, y1, x2, y2)
'Çàïèñûâàåì â ìàññèâ êîîðäèíàò:
i = i + 2
myArrayVB(i, 0) = x1
myArrayVB(i, 1) = y1
myArrayVB(i + 1, 0) = x2
myArrayVB(i + 1, 1) = y2
N_3_myArrayVB = i + 1 '×èñëî âñåõ ÷èñåë â ìàññèâå.
Next
'Ðèñóåì ïðè ïîìîùè ìàññèâà êîîðäèíàò myArrayVB(2000, 1).
'Ðèñóåì ëèíèè, ïàðàëëåëüíûå ïëîñêîñòè xz:
Dim myPen As New Pen(Color.Black, 0)
i = -2
For x As Integer = 0 To x_max
For y As Integer = 1 To y_max
i = i + 2
x1 = myArrayVB(i, 0)
y1 = myArrayVB(i, 1)
x2 = myArrayVB(i + 1, 0)
y2 = myArrayVB(i + 1, 1)
e.Graphics.DrawLine(myPen, x1, y1, x2, y2)
Next
Next
'Ðèñóåì ëèíèè, ïàðàëëåëüíûå ïëîñêîñòè yz:
i = N_1_myArrayVB - 1
For y As Integer = 0 To y_max
For x As Integer = 1 To x_max
i = i + 2
x1 = myArrayVB(i, 0)
y1 = myArrayVB(i, 1)
x2 = myArrayVB(i + 1, 0)
y2 = myArrayVB(i + 1, 1)
e.Graphics.DrawLine(myPen, x1, y1, x2, y2)
Next
Next
'Ðèñóåì òðè îñè êîîðäèíàò:
i = N_2_myArrayVB - 1
Dim myPen2 As New Pen(Color.Red, 0)