, Visual C#


- 11


x2 = Lines(k).to_tr_points(1)

y2 = Lines(k).to_tr_points(2)

' :

'g.DrawLine(pen, _

' (x1 * bmp.Width / 4) + bmp.Width / 2.0F, _

' bmp.Height / 2.0F - (y1 * bmp.Height / 4), _

' (x2 * bmp.Width / 4) + bmp.Width / 2.0F, _

' bmp.Height / 2.0F - (y2 * bmp.Height / 4) _

')

' :

x1 = (x1 * bmp.Width / 4) + bmp.Width / 2.0F

y1 = bmp.Height / 2.0F - (y1 * bmp.Height / 4)

x2 = (x2 * bmp.Width / 4) + bmp.Width / 2.0F

y2 = bmp.Height / 2.0F - (y2 * bmp.Height / 4)

' :

i = i + 2

myArrayVB_2(i, 0) = x1

myArrayVB_2(i, 1) = y1

myArrayVB_2(i + 1, 0) = x2

myArrayVB_2(i + 1, 1) = y2

N_1_myArrayVB_2 = i + 1 ' .

Next

' N_first_line_2 N_last_line_2

' myArrayVB_2:

Dim N_first_line_2, N_last_line_2 As Integer

N_first_line_2 = first_line

N_last_line_2 = last_line

' N_first_line_2

' N_last_line_2

'myArrayVB_2(0, 0) myArrayVB_2(0, 1):

myArrayVB_2(0, 0) = N_first_line_2

myArrayVB_2(0, 1) = N_last_line_2

' myArrayVB_2(200, 1):

i = -1

For k = N_first_line_2 To N_last_line_2

i = i + 2

x1 = myArrayVB_2(i, 0)

y1 = myArrayVB_2(i, 1)

x2 = myArrayVB_2(i + 1, 0)

y2 = myArrayVB_2(i + 1, 1)

g.DrawLine(pen, x1, y1, x2, y2)

Next

' myArrayVB_2(200, 1) .

' sw_2 StreamWriter

' D:\MyDocs\MyTest3D_Graphics_2.txt.




- -  - -  - -