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

        'Создаем объект g класса Graphics:

        Dim g As Graphics

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

        g = Graphics.FromImage(bmp)

        'Задаем белый цвет типа Window

        'для элемента управления PictureBox1: 

        g.Clear(SystemColors.Window)

        'Высвобождаем ресурсы от графического объекта g:

        g.Dispose()

        'Преобразуем точки:

        TransformAllDataFull(MatrixProjection)

        'Проектируем и рисуем выбранное на CheckBox тело:

        If CheckBox1.CheckState = _

        System.Windows.Forms.CheckState.Checked Then

            DrawSolid(bmp, Tetrahedron, Cube - 1, _

            System.Drawing.Color.Red, False)

        End If

        If CheckBox2.CheckState = _

        System.Windows.Forms.CheckState.Checked Then _

        DrawSolid(bmp, Cube, Octahedron - 1, _

        System.Drawing.Color.Black, False)

        If CheckBox3.CheckState = _

        System.Windows.Forms.CheckState.Checked Then _

        DrawSolid(bmp, Octahedron, Dodecahedron - 1, _

        System.Drawing.Color.Green, False)

        If CheckBox4.CheckState = _

        System.Windows.Forms.CheckState.Checked Then _

        DrawSolid(bmp, Dodecahedron, Icosahedron_first - 1, _

        System.Drawing.Color.Blue, False)

        If CheckBox5.CheckState = _

        System.Windows.Forms.CheckState.Checked Then _

        DrawSolid(bmp, Icosahedron_first, Icosahedron_last, _

        System.Drawing.Color.Orange, False)

        If CheckBox6.CheckState = _

        System.Windows.Forms.CheckState.Checked Then _

        DrawSolid(bmp, 1, Tetrahedron - 1, _

        System.Drawing.Color.Salmon, False)

    End Sub

    'Рассчитываем параметры геометрических тел и осей:

    Private Sub СalculateParameters()

        Dim theta1 As Single : Dim theta2 As Single

        Dim s1 As Single : Dim s2 As Single

        Dim c1 As Single : Dim c2 As Single

        Dim S As Single : Dim R As Single

        Dim H As Single : Dim A As Single