home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / camera3d / exam06.dba < prev    next >
Encoding:
Text File  |  1999-11-19  |  830 b   |  37 lines

  1. Rem * Title  : Camera Range
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st Sept 99
  4. rem ==========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 6
  6. rem ==========================================
  7. rem This program sets the camera range
  8. rem ------------------------------------------
  9.  
  10. rem Make simple 3D scene
  11. make matrix 1,6000,6000,25,25
  12. position matrix 1,-3000,0,-3000
  13. for t=1 to 10
  14.     make object sphere t,100
  15.     position object t,-500+rnd(1000),0,rnd(1000)
  16. next t
  17.  
  18. rem Position camera
  19. position camera 0,100,0
  20.  
  21. rem Range value
  22. backvalue=2000
  23.  
  24. rem Begin loop
  25. do
  26.  
  27. rem Set new camera viewing range
  28. if backvalue>500 then backvalue=backvalue-5
  29. set camera range 1,backvalue
  30.  
  31. rem Turn the camera
  32. if leftkey()=1 then turn camera left 3
  33. if rightkey()=1 then turn camera right 3
  34.  
  35. rem End loop
  36. loop
  37.