home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / tutorial / programs / sample09.dba < prev   
Encoding:
Text File  |  1999-08-30  |  806 b   |  45 lines
  1. Rem * Title  : Tutorial Sample 9
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1/8/99
  4. rem Load stone floor bitmap into image
  5. LOAD BITMAP "floor.bmp",1
  6. GET IMAGE 1,0,0,128,128
  7. DELETE BITMAP 1
  8.  
  9. rem Activate manual syncronization and hide mouse
  10. SYNC ON : HIDE MOUSE
  11.  
  12. rem Make a 3D landscape
  13. MAKE MATRIX 1,10000.0,10000.0,25,25
  14.  
  15. rem Texture landscape
  16. PREPARE MATRIX TEXTURE 1,1,1,1
  17.  
  18. rem Randomise landscape
  19. RANDOMIZE MATRIX 1,100.0
  20.  
  21. rem Activate and distance fogging
  22. FOG ON
  23. FOG COLOR 0
  24. FOG DISTANCE 5000
  25.  
  26. rem Begin loop
  27. DO
  28.  
  29. rem Control camera turret
  30. IF LEFTKEY()=1 THEN angle#=angle#-3.0
  31. IF RIGHTKEY()=1 THEN angle#=angle#+3.0
  32.  
  33. rem Ensure angle stays within range
  34. angle#=wrapvalue(angle#)
  35.  
  36. rem Update camera
  37. YROTATE CAMERA angle#
  38.  
  39. rem Refresh screen
  40. SYNC
  41.  
  42. rem End loop
  43. LOOP
  44.  
  45.