3D wire frame box

[rino_2]

Hi,
I’m sure you have all seen the 3D wire frame boxes that can be rotated with the arrow keys? Does anybody know how to program it? If so I would love to see some code. Thanks

here is some code I wrote, add 4 lines, 2 shapes(rectangles), and 2 timers, and set the form's keypreview property to true


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf KeyCode = vbKeyRight Then
Timer2.Enabled = True
Timer1.Enabled = fale
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Timer1.Enabled = False
Timer2.Enabled = fale
End Sub

Private Sub Form_Load()
Shape1.Left = 1770
Shape1.Top = 1350
Shape2.Left = 2385
Shape2.Top = 1695
Line1.X1 = 2385
Line2.X1 = 3600
Line3.X1 = 2385
Line4.X1 = 3600

Line1.X2 = 1755
Line2.X2 = 3000
Line3.X2 = 1755
Line4.X2 = 3000

Line1.Y1 = 1695
Line2.Y1 = 1695
Line3.Y1 = 2610
Line4.Y1 = 2610

Line1.Y2 = 1350
Line2.Y2 = 1350
Line3.Y2 = 2265
Line4.Y2 = 2265
End Sub

Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 10
Shape2.Left = Shape2.Left - 10
Line2.X2 = Line2.X2 + 10
Line2.X1 = Line2.X1 - 10

Line1.X2 = Line1.X2 + 10
Line1.X1 = Line1.X1 - 10

Line3.X2 = Line3.X2 + 10
Line3.X1 = Line3.X1 - 10

Line4.X2 = Line4.X2 + 10
Line4.X1 = Line4.X1 - 10
End Sub

Private Sub Timer2_Timer()
Shape1.Left = Shape1.Left - 10
Shape2.Left = Shape2.Left + 10
Line2.X2 = Line2.X2 - 10
Line2.X1 = Line2.X1 + 10

Line1.X2 = Line1.X2 - 10
Line1.X1 = Line1.X1 + 10

Line3.X2 = Line3.X2 - 10
Line3.X1 = Line3.X1 + 10

Line4.X2 = Line4.X2 - 10
Line4.X1 = Line4.X1 + 10
End Sub

oh yeah, set the timers interval to 100
if you want it to be smoother than set it to 1

[parksie]

Take a look at the ROTATE3D program at http://matthart.com

If you want, I can knock up an OpenGL version of this. (Simpler to understand).

[rino_2]

Thanks for the help Guys! Parksie, an OpenGL Version would be nice.

[parksie]

Coming shortly...

[rino_2]

Thanks Parksie, can't wait!

[parksie]

Okay...first, go to http://www.parksie.uklinux.net/simplegl/SimpleGL.html

This will give a short explanation, and a link to the type library. Then download http://www.parksie.uklinux.net/cube.zip for the project file.