home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / display / display1-example.dba < prev    next >
Encoding:
Text File  |  2004-09-22  |  1.0 KB  |  44 lines
  1. rem Display Showcase
  2. bitsperpixel=screen depth()/8
  3.  
  4. rem Standard Setup Code for all examples
  5. sync on : sync rate 0
  6. set text font "arial" : set text size 16
  7. set text to bold : set text transparent
  8.  
  9. rem Load nice backdrop
  10. load bitmap "backdrop.jpg"
  11.  
  12. rem Main loop
  13. desc$="Direct Display Access"
  14. do
  15.  
  16. rem Draw to the visual bitmap
  17. ink rgb(0,0,0),0 : box 0,240,640,480
  18. ink rgb(255,255,0),0 : circle mousex(),mousey(),8
  19.  
  20. rem Read from display and write elsewhere
  21. lock backbuffer
  22. ptr=get backbuffer ptr()
  23. pitch=get backbuffer pitch()
  24. adv=pitch*(get backbuffer height()/2)
  25. chunk=(screen width()-40)*bitsperpixel
  26. chunka#=wrapvalue(chunka#+8)
  27. for y=0 to get backbuffer height()/2 step 2
  28.  chunkx=20+((cos(wrapvalue(chunka#+(y*2))))*15)
  29.  copy memory ptr+adv+(y*pitch)+(chunkx*bitsperpixel),ptr+(y*pitch),chunk
  30. next y
  31. unlock backbuffer
  32.  
  33. rem Show Framerate
  34. text 20,screen height()-40,desc$
  35. fps$="DBPro Fps: "+str$(screen fps())
  36. text screen width()-20-text width(fps$),screen height()-40,fps$
  37.  
  38. rem Update screen
  39. sync
  40.  
  41. rem End loop
  42. loop
  43.  
  44.