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


         

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


        'Создаем объект 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

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





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий