home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / camera3d / exam07.dba < prev    next >
Encoding:
Text File  |  2000-01-25  |  1.0 KB  |  46 lines

  1. Rem * Title  : Camera Rotation Order
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st January 2000
  4. rem ==========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 7
  6. rem ==========================================
  7. rem This program sets the camera rotation order
  8. rem ------------------------------------------
  9.  
  10. rem Make a simple scene
  11. position camera 100,100,-100
  12. point camera 0,0,0
  13. autocam off
  14. sync on
  15. make matrix 1,1000,1000,25,25
  16. autocam on
  17.  
  18. rem Show camera types
  19. for camera=1 to 2
  20.  
  21. rem 1=camera default / 2=camera reversed
  22. if camera=1 then set camera rotation zyx : s$="Normal"
  23. if camera=2 then set camera rotation xyz : s$="Reversed"
  24.  
  25. rem Slide camera to face floor
  26. for x=0 to 20
  27.     set cursor 0,0 : print s$+" Camera Rotation Order"
  28.     rotate camera x,0,0
  29.     sync
  30. next x
  31.  
  32. rem Circle view
  33. for y=0 to 359
  34.     set cursor 0,0 : print s$+" Camera Rotation Order"
  35.     rotate camera 20,y,0
  36.     sync
  37. next y
  38.  
  39. rem Now wait for keypress
  40. while inkey$()=""
  41.     set cursor 0,0 : print "Press Any key"
  42.     sync
  43. endwhile
  44.  
  45. next camera
  46.