, Visual C#


- 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




- -  - -  - -