teapot.bb 362 B

123456789101112131415161718192021
  1. Global info1$="Teapot demo"
  2. Global info2$="Features spherical reflection mapping"
  3. Include "../start.bb"
  4. teapot=LoadMesh( "teapot.x" )
  5. tex=LoadTexture( "spheremap.bmp",64+1 )
  6. EntityTexture teapot,tex
  7. EntityFX teapot,1
  8. camera=CreateCamera()
  9. PositionEntity camera,0,0,-3
  10. While Not KeyHit(1)
  11. TurnEntity teapot,.5,.7,1.1
  12. UpdateWorld
  13. RenderWorld
  14. Flip
  15. Wend
  16. End