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

    'Преобразование не имеет 0, 0, 0, 1 в последнем столбце:

    Public Sub TransformAllDataFull(ByRef M(,) As Single)

        TransformDataFull(M, 1, NumLines)

    End Sub

    'Применяем матрицу переноса (translation matrix)

    'ко всем выделенным линиям, используя MatrixApplyFull.

    'Преобразование не имеет 0, 0, 0, 1 в последнем столбце:

    Public Sub TransformDataFull(ByRef M(,) As Single, _

    ByVal line1 As Integer, ByVal line2 As Integer)

        Dim i As Integer

        For i = line1 To line2

            MatrixApplyFull(Lines(i).fr_points, M, _

            Lines(i).fr_tr_points)

            MatrixApplyFull(Lines(i).to_points, M, _

            Lines(i).to_tr_points)

        Next i

    End Sub

    'Вводим перем-ю N_Graphics для номера многих геом-х изобр-й.

    'Номер первого изображения равен 1:

    Dim N_Graphics As Integer = 1

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

    Public Sub DrawSolid(ByVal bmp As Bitmap, _

    ByVal first_line As Integer, ByVal last_line As Integer, _

    ByVal color As Color, ByVal clear As Boolean)

        Dim k As Integer

        Dim x1 As Single : Dim y1 As Single

        Dim x2 As Single : Dim y2 As Single

        Dim g As Graphics : Dim pen As Pen

        'Задаем толщину линии рисования, например, 2

        '(цвет линии мы задали в процедуре Designing):

        pen = New Pen(color, 2)

        'Связываем объект g с изображением bmp:

        g = Graphics.FromImage(bmp)

        If clear Then g.Clear(System.Drawing.Color.Black)

        'Объявляем индексы элементов всех массивов:

        Dim i, j As Integer

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

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

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

        If N_Graphics = 2 Then GoTo M2

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

        'Задаем границы индексов первого массива myArrayVB(i, j)