, Visual C#


         


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)