Sub svivon_Click
vert.x = Array As Float(2, 2, 2, 2,-2,-2,-2,-2, 0 , .5, .5, .5, .5,-.5,-.5,-.5,-.5 )
vert.y = Array As Float(2, 2,-2,-2, 2, 2,-2,-2, -5, 5, 5,2,2, 5, 5,2,2 )
vert.z = Array As Float(2,-2,-2, 2, 2,-2,-2, 2, 0, .5,-.5,-.5, .5, .5,-.5,-.5, .5 )
pitch = 0
Yaw = 45
roll = 45
posx = 0
posy = 1.5
posz = 30
viewangle = 45
posx = 0
posy = 1.5
posz = 30
Dim pol(14) As String
Dim color(14) As Int
pol(0) = "3,2,1,0"
pol(1) = "2,6,5,1"
pol(2) = "6,7,4,5"
pol(3) = "0,4,7,3"
pol(4) = "0,1,5,4"
' pol(5) = "2,3,7,6"
pol(5) = "2,3,8"
pol(6) = "6,2,8"
pol(7) = "7,6,8"
pol(8) = "3,7,8"
pol(9) = "12,11,10,9"
pol(10) = "11,15,14,10"
pol(11) = "15,16,13,14"
pol(12) = "9,13,16,12"
pol(13) = "9,10,14,13"
color(0) = Colors.Blue
color(1) = Colors.cyan
color(2) = Colors.Red
color(3) = Colors.Rgb(255,128,192)
color(4) = Colors.Green
color(5) = Colors.Rgb(255,128,192)
color(6) = Colors.Red
color(7) = Colors.White
color(8) = Colors.blue
color(9) = Colors.blue
color(10) = Colors.cyan
color(11) = Colors.Red
color(12) = Colors.Rgb(255,128,192)
color(13) = Colors.Red
Set_body
End Sub