TV3D学习例程3-给茶壶贴图[原创]

Option Explicit

Private TV3D As TVEngine

Private Teapot As TVMesh

Private Scene As TVScene

Private DoLoop As Boolean

Private sngAngle As Single

Private Sub cmdQuit_Click()

    DoLoop = False

End Sub

Private Sub Form_Load()

    Set TV3D = New TVEngine
    
    TV3D.SetDebugFile "c:\debug8.Txt"
 '设置搜索目录路径
    TV3D.SetSearchDirectory App.Path
 '初始化窗口模式
    TV3D.Init3DWindowedMode Picture1.hWnd

    TV3D.DisplayFPS = True
 '设置坐标系统
    TV3D.SetAngleSystem TV_ANGLE_DEGREE

    Set Scene = New TVScene
 '场景中加载材质
    Scene.LoadTexture "..\..\..\Media\texture.bmp", , , "TeapotTexture"

    Set Teapot = New TVMesh

    Set Teapot = Scene.CreateMeshBuilder

    Teapot.CreateTeapot
 '设置材质
    Teapot.SetTexture GetTex("TeapotTexture")

    Teapot.EnableSphereMapping True

    Teapot.SetPosition 0, 0, 10

    sngAngle = 0
    
    '设置角度
    Teapot.SetRotation 0, sngAngle, sngAngle

    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

        
        sngAngle = sngAngle + (TV3D.AccurateTimeElapsed * 0.01)
        Teapot.SetRotation sngAngle, sngAngle, -sngAngle

        TV3D.Clear
 '渲染场景中所有模型
        Scene.RenderAllMeshes

        TV3D.RenderToScreen

    Loop Until DoLoop = False

    Main_Quit

End Sub

Private Sub Main_Quit()
        
    ' We want to quit the project, so we destroy the teapot object.
    Set Teapot = Nothing
    
    ' Then, we destroy the scene object.
    Set Scene = Nothing
    
    ' We finish the frenetic destroy with the TV3D object.
    Set TV3D = Nothing
    
    ' We end the application.
    End

End Sub