Sorry your browser is not supported!

D3D_Font 1, "Arial", 15, 0, 0, 0

Obj = Make3DText( "3D Text", 1200.0, 1, 1)
Img = LoadImage( ".\Resources\Images\PavementDiffuse.png", 0 )
Texture Object Obj, Img

Do
   Position Camera 30.0 * Sin( Timer() * 0.05 ), 1.0, 30.0 * Cos( Timer() * 0.05 ) : Point Camera 0.0, 0.0, 0.0
   Sync
Loop
End
Function Make3DText( Text$, Scale#, Quality, Alignment )
   Obj = GetBlankObjNo()
   D3D_Make_3DText Obj, 1, Text$, 0.5, Quality, Alignment

   MyFVF As Dword : MyFVF = 338
   Convert Object FVF Obj, MyFVF
   Set Object Light Obj, 1

   Scale Object Obj, Scale#, Scale#, Scale#
   Set Object Normals Obj
   Fade Object Obj, CapValue#( Scale#, 0.0, 600.0 )
EndFunction Obj

Function Make3DText( Text$, Scale#, Quality, Alignment )
   Obj = GetBlankObjNo()
   D3D_Make_3DText Obj, 1, Text$, 0.5, Quality, Alignment

   Mesh = GetBlankMshNo()
   Make Mesh From Object Mesh, Obj : Delete Object Obj : Save Mesh "Temp.x", Mesh : Delete Mesh Mesh
   Load Object "Temp.x", Obj : Delete File "Temp.x"
   
   Set Object Light Obj, 1
   Scale Object Obj, Scale#, Scale#, Scale#
   Set Object Normals Obj
   Fade Object Obj, CapValue#( Scale#, 0.0, 600.0 )
EndFunction Obj

autocam off
sync on
hide mouse
load object "texto.dbo",1
load image "coche.bmp",1
texture object 1,1
scale object 1,1000,1000,1000

`giving UV to whole mesh
lock vertexdata for limb 1,0
vertices = get vertexdata vertex count()
 for i = 0 to vertices
        x# = get vertexdata position x(i)
        y# = get vertexdata position y(i)
        z# = get vertexdata position z(i)
        set vertexdata uv i,x#,y#
 next i
unlock vertexdata

`scaling texture and scrolling a bit
scale object texture 1,0.3,-1
scroll object texture 1,0,-0.5


position camera -50,1,-6
point camera 0,0,0
a#=76
cam#=356
do
paste image 1,0,0

set cursor 0,120
print vertices, " vertex "

control camera using arrowkeys 0,0.01,0.01
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.01
if rightkey() then move camera right 0.01



sync
loop