Компьютерная графика, мультимедиа и игры на Visual C#

         

Глава Изображение и управление - часть 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)

        Next

        'Записываем массив координат 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))

            Next

        Next

    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)




Содержание  Назад  Вперед