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

  1. Rem * Title  : Scroll Texture
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st April 2000
  4. rem ==========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 17
  6. rem ==========================================
  7. rem This program scrolls an objects UV data
  8. rem ------------------------------------------
  9.  
  10. rem Make new objects
  11. make object sphere 1,100
  12. make object cylinder 2,80
  13.  
  14. rem Apply a texture
  15. load image "skin.bmp",1
  16. texture object 1,1
  17. texture object 2,1
  18.  
  19. rem Shift the intial UV data
  20. scroll object texture 1,0.0,0.9
  21.  
  22. rem Main loop
  23. do
  24.  
  25. rem Scroll the texture via object
  26. scroll object texture 1,0.01,0.0
  27.  
  28. rem Scroll the texture via limb
  29. scroll limb texture 2,0,0.0,0.01
  30.  
  31. rem End of loop
  32. loop
  33.  
  34.