, Visual C#


- 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)