TrueVision8

VB Code:

Option Explicit
Private TZ As TrueVision8
Private tp As Mesh8
Private ss As Scene8
Private anew As Boolean, FPSVAL As Variant
Private Sub Form_Load()
Set TZ = New TrueVision8
Set tp = New Mesh8
Set ss = New Scene8
Set tp = ss.CreateMeshBuilder
TZ.Init3DWindowedMode Me.hWnd
tp.CreateTeapot
tp.SetPosition 0, 0, 10
TZ.DisplayFPS = True
Form1.WindowState = 2
Form1.Show
anew = True
ou
End Sub
Sub ou()
Do
DoEvents
TZ.Clear
ss.RenderAllMeshes
TZ.RenderToScreen
FPSVAL = TZ.GetFPS
Loop Until anew = False
Set TZ = Nothing
Set ss = Nothing
Set tp = Nothing
End
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
anew = False
Set TZ = Nothing
Set ss = Nothing
Set tp = Nothing
If FPSVAL > 250 Then
MsgBox "YOU HAVE A GREAT 3D CARD! LEND IT TO ME... BUT MY 3DFX VOODOO3 2000 PCI IS 350FPS... SO. NO NEED:)", vbInformation, "FPS"
ElseIf FPSVAL < 100 Then
MsgBox "Your 3D card sucks!!", vbCritical, "SUKS!"
Else
End If
End
End Sub

This is my first time using TrueVision8 Engine. Tell me if you like it. You need to have TrueVision8 5.5 Dll too. Download it at:
http://www.truevision3dsdk.com

Option Explicit
Private TZ As TrueVision8
Private SS As Scene8, ii As Scene8
Private TT As Mesh8, pp As Mesh8
Private OY As Boolean, ll As Single
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload Me
Else
End If
End Sub
Private Sub Form_Load()
Me.Move (-Me.Width + Screen.Width) / 2, (-Me.Height + Screen.Height) / 2
Set TZ = New TrueVision8
TZ.Init3DWindowedMode Me.hWnd
TZ.DisplayFPS = True
Set SS = New Scene8
Set TT = New Mesh8
Set TT = SS.CreateMeshBuilder
 
TT.Create3DText "Prog_Tom", "Arial", "100", 0
TT.EnableSphereMapping True
TT.SetPosition 0, 0, 7
Form1.Show
OY = True
oop
End Sub
Sub oop()
Do
DoEvents
ll = ll + (TZ.TimeElapsed / 40)
TT.SetRotation ll, ll, -ll
TZ.Clear
SS.RenderAllMeshes
TZ.RenderToScreen
Loop Until OY = False
Set TZ = Nothing
Set SS = Nothing
Set TT = Nothing
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
OY = False
Set TZ = Nothing
Set SS = Nothing
Set TT = Nothing
End
End Sub