home *** CD-ROM | disk | FTP | other *** search
/ 3D Game Programming for Teens (2nd Edition) / 3DGPFT2E.iso / Source / Chapter05 / demo05-04.bb < prev    next >
Encoding:
Text File  |  2009-01-21  |  409 b   |  23 lines
  1. ; demo05-04.bb - Resizing a cone
  2. ; ------------------
  3. Graphics3D 640,480 
  4. SetBuffer BackBuffer()
  5.  
  6. Const ESC_KEY = 1
  7. ; Create camera 
  8. camera = CreateCamera()
  9. ; Create a light 
  10. light = CreateLight()
  11.  
  12. ;Create the cone
  13. cone=CreateCone()
  14. PositionEntity cone,0,0,5
  15. ScaleEntity cone, 3,0.5,1
  16.  
  17.  
  18. ; This following code makes our program run 
  19. While Not KeyDown(ESC_KEY)
  20.     RenderWorld 
  21.     Flip
  22. Wend
  23. End