, Visual C#


         

Dim x1, y1, x2, y2


N_3_myArrayVB As Integer
' myArrayVB(i, j)
' ,
' xz:
Dim x1, y1, x2, y2 As Single
i = -2 ' .
For x As Integer = 0 To x_max
With Points(x, 0)
x2 = .trans_coord(0)
y2 = .trans_coord(1)
End With
For y As Integer = 1 To y_max
x1 = x2 : y1 = y2
With Points(x, y)
x2 = .trans_coord(0)
y2 = .trans_coord(1)
End With
' :
'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_1_myArrayVB = i + 1 ' .
Next
Next
' myArrayVB(i, j)
' ,
' yz:
i = N_1_myArrayVB - 1
For y As Integer = 0 To y_max
With Points(0, y)
x2 = .trans_coord(0)
y2 = .trans_coord(1)
End With
For x As Integer = 1 To x_max
x1 = x2 : y1 = y2
With Points(x, y)
x2 = .trans_coord(0)
y2 = .trans_coord(1)
End With
' :
'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