TV3D学习例程2-建立一个茶壶模型[原创]

Option Explicit
'引擎
Private TV8 As TVEngine
'模型
Private Teapot As TVMesh
'显示模型的场景
Private Scene As TVScene

Private DoLoop As Boolean

Private Sub cmdQuit_Click()

    DoLoop = False

End Sub

Private Sub Form_Load()

    Set TV8 = New TVEngine

    TV8.Init3DWindowedMode Picture1.hWnd

    TV8.DisplayFPS = True
 '定义场景
    Set Scene = New TVScene
 '定义模型
    Set Teapot = New TVMesh
 '告诉场景，要在场景中建立模型了
    Set Teapot = Scene.CreateMeshBuilder
 '建立了一个茶壶模型
    Teapot.CreateTeapot
 '设置位置
    Teapot.SetPosition 0, 0, 10

    Form1.Show

    DoLoop = True
    Main_Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)

    DoLoop = False

    Main_Quit

End Sub

Private Sub Main_Loop()

    
    Do

        DoEvents

        TV8.Clear

        Scene.RenderAllMeshes

        TV8.RenderToScreen

    Loop Until DoLoop = False

    Main_Quit

End Sub

Private Sub Main_Quit()

    Set Teapot = Nothing

    Set Scene = Nothing

    Set TV8 = Nothing

    End

End Sub