Q about TV8(Truevision8)

[prog_tom]

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

Is there any way to change the color of the 3d text?

[TV3DAdmin]

Hello,

I readed also your post at http://www.TrueVision3DSDK.com what is about the same problem, we'll test your problem and see if it's a bug in the engine, or a mistake on the users side.

Please be patient while we're testing.

Best Regards,
Sigurd De Keyser
TrueVision3D Developer
Http://www.TrueVision3DSDK.com