home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / basic3d / exam16.dba < prev    next >
Encoding:
Text File  |  2000-01-25  |  954 b   |  44 lines

  1. Rem * Title  : Mesh Animation
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st January 2000
  4. rem ==========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 16
  6. rem ==========================================
  7. rem This program animates a multi-mesh object
  8. rem ------------------------------------------
  9.  
  10. rem Manual syncronisation
  11. sync on
  12.  
  13. rem Create three meshes
  14. make object sphere 1,100 : make mesh from object 1,1 : delete object 1
  15. make object cylinder 2,100 : make mesh from object 2,2 : delete object 2
  16. make object cone 3,100 : make mesh from object 3,3 : delete object 3
  17.  
  18. rem Make new object
  19. make object cube 1,100
  20.  
  21. rem Main loop
  22. do
  23.  
  24. rem Animate object using meshes
  25. inc pacer
  26. if pacer>5
  27.  
  28.     rem Pacer controls speed of animation
  29.     pacer=0
  30.  
  31.     rem Frame controls which mesh is used in animation
  32.     inc frame
  33.     if frame=3 then frame=0
  34.     change mesh 1,0,1+frame
  35.  
  36. endif
  37.  
  38. rem Update screen
  39. sync
  40.  
  41. rem End of loop
  42. loop
  43.  
  44.