Êîìïüþòåðíàÿ ãðàôèêà, ìóëüòèìåäèà è èãðû íà Visual C#


         

Ãëàâà Èçîáðàæåíèå è óïðàâëåíèå - ÷àñòü 4


                N_2_myArrayVB = i + 1 'Âòîðàÿ ãðàíèöà â ìàññèâå.

            Next

        Next

        'Ïðåîáðàçîâûâàåì îñè(axes):

        For k As Integer = 0 To 3

            Axes(k).Transformation(tr)

        Next

        'Ðàññ÷èòûâàåì ýëåìåíòû ìàññèâà äëÿ ðèñîâàíèÿ îñåé:

        i = N_2_myArrayVB - 1

        x1 = Axes(0).trans_coord(0)

        y1 = Axes(0).trans_coord(1)

        For k As Integer = 1 To 3

            x2 = Axes(k).trans_coord(0)

            y2 = Axes(k).trans_coord(1)

            'Ìîæíî ðèñîâàòü îñè êîîðäèíàò è çäåñü:

            'e.Graphics.DrawLine(myPen, x1, y1, x2, y2)

            'Çàïèñûâàåì â ìàññèâ êîîðäèíàò:

            i = i + 2

            myArrayVB(i, 0) = x1

            myArrayVB(i, 1) = y1

            myArrayVB(i + 1, 0) = x2

            myArrayVB(i + 1, 1) = y2

            N_3_myArrayVB = i + 1 '×èñëî âñåõ ÷èñåë â ìàññèâå.

        Next

        'Ðèñóåì ïðè ïîìîùè ìàññèâà êîîðäèíàò myArrayVB(2000, 1).

        'Ðèñóåì ëèíèè, ïàðàëëåëüíûå ïëîñêîñòè xz:

        Dim myPen As New Pen(Color.Black, 0)

        i = -2

        For x As Integer = 0 To x_max

            For y As Integer = 1 To y_max

                i = i + 2

                x1 = myArrayVB(i, 0)

                y1 = myArrayVB(i, 1)

                x2 = myArrayVB(i + 1, 0)

                y2 = myArrayVB(i + 1, 1)

                e.Graphics.DrawLine(myPen, x1, y1, x2, y2)

            Next

        Next

        'Ðèñóåì ëèíèè, ïàðàëëåëüíûå ïëîñêîñòè yz:

        i = N_1_myArrayVB - 1

        For y As Integer = 0 To y_max

            For x As Integer = 1 To x_max

                i = i + 2

                x1 = myArrayVB(i, 0)

                y1 = myArrayVB(i, 1)

                x2 = myArrayVB(i + 1, 0)

                y2 = myArrayVB(i + 1, 1)

                e.Graphics.DrawLine(myPen, x1, y1, x2, y2)

            Next

        Next

        'Ðèñóåì òðè îñè êîîðäèíàò:

        i = N_2_myArrayVB - 1

        Dim myPen2 As New Pen(Color.Red, 0)




Ñîäåðæàíèå  Íàçàä  Âïåðåä