home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / bitmap / exam04.dba < prev    next >
Encoding:
Text File  |  2000-01-24  |  1.3 KB  |  66 lines

  1. rem ========================================
  2. rem DARK BASIC EXAMPLE PROGRAM 4
  3. rem ========================================
  4. rem This program will set the current bitmap 
  5. rem ----------------------------------------
  6.  
  7. rem Set the ink to white and paper color to black 
  8. ink 0,1
  9.  
  10. rem This will load some bitmap into memory
  11. load bitmap "pics\bitmap0.bmp"
  12. load bitmap "pics\bitmap1.bmp",1
  13.  
  14. rem Becase this program will copy one bitmap to another
  15. rem we nead a copy of bitmap 0
  16. load bitmap "pics\bitmap0.bmp",11
  17.  
  18. bitmapnumber=0
  19.  
  20. rem This command will allow you to draw on any bitmap        
  21. rem but you can only see a bitmap if it is bitmap 0 
  22. set current bitmap 0
  23.  
  24. print "PLEASE PRESS THE LEFT MOUSE BUTTON"
  25.  
  26. rem Loop forever
  27. do
  28.  
  29. rem Check for left mouse button 
  30. if mouseclick()=1
  31.     bitmapnumber=bitmapnumber+1
  32.     if bitmapnumber>1
  33.         bitmapnumber=0
  34.     endif
  35.     if bitmapnumber>0
  36.  
  37.         rem Clear the screen first
  38.         cls 0
  39.  
  40.         rem Copy bitmap to screen bitmap
  41.         copy bitmap bitmapnumber,0
  42.  
  43.         print "PLEASE PRESS THE LEFT MOUSE BUTTON"
  44.  
  45.     else
  46.  
  47.         rem Clear the screen first
  48.         cls 0
  49.  
  50.         rem Copy bitmap to screen bitmap 
  51.         copy bitmap 11,0
  52.  
  53.         print "PLEASE PRESS THE LEFT MOUSE BUTTON"
  54.  
  55.     endif
  56.  
  57.     rem Wait for left mouse button to be release
  58.     repeat
  59.     until mouseclick()=0
  60.  
  61. endif
  62.  
  63. rem End of loop
  64. loop
  65.  
  66.