Глава Изображение и управление - часть 10

myArrayVB(0, 0) = N_first_line

myArrayVB(0, 1) = N_last_line

'Рисуем при помощи массива координат myArrayVB(200, 1).

i = -1

For k = N_first_line To N_last_line

i = i + 2

x1 = myArrayVB(i, 0)

y1 = myArrayVB(i, 1)

x2 = myArrayVB(i + 1, 0)

y2 = myArrayVB(i + 1, 1)

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

'Записываем массив координат myArrayVB(200, 1) в файл.

'Создаем объект sw класса StreamWriter для записи

'в файл по адресу D:\MyDocs\MyTest3D_Graphics.txt.

If N_Graphics = 1 Then

Dim sw As StreamWriter = _

New StreamWriter("D:\MyDocs\MyTest3D_Graphics.txt")

'Каждый элемент массива myArrayVB(i, j) записываем в файл

'в виде отдельной строки при помощи процедуры WriteLine:

For i = 0 To N_x

For j = 0 To N_y

sw.WriteLine(myArrayVB(i, j))

sw.Close()

End If

M2:

'Если этот метод DrawSolid вызван первый раз

'для рисования первого изображения и N_Graphics = 1,

'то обходим 2-й массив для 2-го изобр-я до метки M_End:

If N_Graphics = 1 Then GoTo M_End

'Программируем второй массив для второго изображения.

'Задаем границы индексов 2-го массива myArrayVB_2(i, j):

Dim N_x_2 As Integer = 200

Dim N_y_2 As Integer = 1

'Задаем массив myArrayVB_2(i, j) переменных типа Single,

'когда i = 0,1,2,3,...,N_x; j = 0,1,2,3,...,N_y:

Dim myArrayVB_2(N_x_2, N_y_2) As Single

'Значение первой границы массива myArrayVB_2:

Dim N_1_myArrayVB_2 As Integer

'Рассчитываем элементы массива myArrayVB_2(i, j)

'для рисования линий второго геом-го изображения:

i = -1 'Задаем до цикла.

For k = first_line To last_line

x1 = Lines(k).fr_tr_points(1)

y1 = Lines(k).fr_tr_points(2)