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


         

Глава Расчет и изображение - часть 5


                    'Записываем координаты точек во 2-й массив,

                    'который будем экспортировать в файл:

                    ii = ii + 2

                    myArrayVB_2(ii, 0) = x2

                    myArrayVB_2(ii, 1) = y2

                    myArrayVB_2(ii + 1, 0) = x0

                    myArrayVB_2(ii + 1, 1) = y0

                    N_1_myArrayVB_2 = ii + 1 'Граница массива.

                    Exit Do

                End If

            End If

        Loop 'Переход в начало цикла Do - Loop.

        'Начало N_first_line и конец N_last_line цикла

        'при рисовании здесь из массива myArrayVB:

        Dim N_first_line, N_last_line As Integer

        N_first_line = 1

        N_last_line = N_1_myArrayVB

        'Передаем значения начала N_first_line

        'и конца цикла N_last_line в элементы массива

        'myArrayVB(0, 0) и myArrayVB(0, 1):

        myArrayVB(0, 0) = N_first_line

        myArrayVB(0, 1) = N_last_line

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

        Dim k As Integer

        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(myPen, x1, y1, x2, y2)

        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 = 1

        N_last_line_2 = N_1_myArrayVB_2

        'Передаем значения начала 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(20000, 1) в файл.

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

        'для записи в файл D:\MyDocs\MyTest_LevelCurves.txt.

        'Файл автоматически "опустошается":

        Dim sw As StreamWriter = _

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

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

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

        For i = 0 To N_x_2

            For j = 0 To N_y_2

                sw.WriteLine(myArrayVB_2(i, j))

            Next

        Next

        sw.Close()

    End Sub

Аналогично можно записать массивы с координатами точек для нескольких геометрических изображений в несколько различных файлов на жестком диске компьютера. И далее в проекте на Visual C#, Visual C++ (или другом языке) можно считывать массивы с координатами точек и выводить эти изображения на экран монитора, а также печатать их на принтере, как будет показано в следующей главе. 




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