Ãëàâà Èçîáðàæåíèå è óïðàâëåíèå - ÷àñòü 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.