home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / image / image1-example.dba < prev    next >
Encoding:
Text File  |  2004-09-22  |  607 b   |  30 lines
  1. rem Image Showcase
  2.  
  3. rem Standard Setup Code for all examples
  4. sync on : sync rate 0
  5. set text font "arial" : set text size 16
  6. set text to bold : set text transparent
  7.  
  8. rem Load image
  9. load image "image.bmp",1
  10. desc$="Fast Image Pasting (1000 per cycle)"
  11.  
  12. rem Main loop
  13. do
  14.  
  15. rem Paste a thousand images on screen per cycle
  16. for t=1 to 1000
  17.  paste image 1,rnd(680)-16,rnd(520)-32,1
  18. next t
  19.  
  20. rem Show Framerate
  21. text 20,screen height()-40,desc$
  22. fps$="DBPro Fps: "+str$(screen fps())
  23. text screen width()-20-text width(fps$),screen height()-40,fps$
  24.  
  25. rem Update screen
  26. sync
  27.  
  28. rem End loop
  29. loop
  30.