Graphics3D 800, 600, 32, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

;Globs
Global FPS#
Dim Tmp#(101, 1)

;Camera
Global Cam = CreateCamera()
CameraClsColor Cam, 40, 40, 255
PositionEntity Cam, 0, 0, -1.5
CameraRange Cam, .01, 1000

;Entity
Entity = CreateTorus(8, .5) ; 8 Segments, 5=InnerRadius
EntityTexture Entity, LoadTexture(\"Texture.jpg\")
Surf = GetSurface(Entity, 1)
For i = 0 To CountVertices(Surf) - 1
  VertexTexCoords Surf, i, VertexX(Surf, i), VertexY(Surf, i), VertexZ(Surf, i)
Next
CreateLight()

While Not KeyHit(1)
  rot# = MilliSecs() / 10
  RotateEntity Entity, rot#, rot#, rot#

  ;FPS
  loops = loops + 1
  If MilliSecs() - time1 > 500 Then
    FPS# = loops * 2
    loops = 0
    time1 = MilliSecs()
  End If

  RenderWorld
  Text 10, 10, \"FPS = \" + fps
  Flip 0
Wend
End

Function CreateTorus(seg#, rad#)
Mesh = CreateMesh()
Surf = CreateSurface(Mesh)
For i = 1 To seg + 1
  w# = 360 * i / seg
  Tmp#(i, 0) = Cos(w#) / 2
  Tmp#(i, 1) = Sin(w#) / 2
Next
For i = 1 To seg
  sCreatePolygon(Surf, Tmp#(i, 0), -.5, Tmp#(i, 1), Tmp#(i, 0), .5, Tmp#(i, 1), Tmp#(i + 1, 0), -.5, Tmp#(i + 1, 1))
  sCreatePolygon(Surf, Tmp#(i + 1, 0), .5, Tmp#(i + 1, 1), Tmp#(i + 1, 0), -.5, Tmp#(i + 1, 1), Tmp#(i, 0), .5, Tmp#(i, 1))
  sCreatePolygon(Surf, Tmp#(i, 0) * rad#, -.5, Tmp#(i, 1) * rad#, Tmp#(i + 1, 0) * rad#, -.5, Tmp#(i + 1, 1) * rad#, Tmp#(i, 0) * rad#, .5, Tmp#(i, 1) * rad#)
  sCreatePolygon(Surf, Tmp#(i + 1, 0) * rad#, .5, Tmp#(i + 1, 1) * rad#, Tmp#(i, 0) * rad#, .5, Tmp#(i, 1) * rad#, Tmp#(i + 1, 0) * rad#, -.5, Tmp#(i + 1, 1) * rad#)
Next
For i = 1 To seg
  sCreatePolygon(Surf, Tmp#(i, 0), -.5, Tmp#(i, 1), Tmp#(i + 1, 0), -.5, Tmp#(i + 1, 1), Tmp#(i, 0) * rad#, -.5, Tmp#(i, 1) * rad#)
  sCreatePolygon(Surf, Tmp#(i + 1, 0), -.5, Tmp#(i + 1, 1), Tmp#(i + 1, 0) * rad#, -.5, Tmp#(i + 1, 1) * rad#, Tmp#(i, 0) * rad#, -.5, Tmp#(i, 1) * rad#)
Next
For i = 1 To seg
  sCreatePolygon(Surf, Tmp#(i, 0), .5, Tmp#(i, 1), Tmp#(i, 0) * rad#, .5, Tmp#(i, 1) * rad#, Tmp#(i + 1, 0), .5, Tmp#(i + 1, 1))
  sCreatePolygon(Surf, Tmp#(i + 1, 0), .5, Tmp#(i + 1, 1), Tmp#(i, 0) * rad#, .5, Tmp#(i, 1) * rad#, Tmp#(i + 1, 0) * rad#, .5, Tmp#(i + 1, 1) * rad#)
Next
UpdateNormals Mesh
Return Mesh
End Function

Function sCreatePolygon(Surf, x1#, y1#, z1#, x2#, y2#, z2#, x3#, y3#, z3#)
v1 = AddVertex(Surf, x1#, y1#, z1#)
v2 = AddVertex(Surf, x2#, y2#, z2#)
v3 = AddVertex(Surf, x3#, y3#, z3#)
AddTriangle Surf, v1, v2, v3
End Function