home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / bitmap / exam05.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  802 b   |  31 lines

  1. Rem * Title  : Create a Bitmap
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ==========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 5
  6. rem ==========================================
  7. rem This program will create a bitmap
  8. rem ------------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.  
  13. rem This command will make a new bitmap
  14. rem when you load or create a bitmap
  15. rem the bitmap will be set to the current bitmap for drawing on
  16. create bitmap 1,640,480
  17.  
  18. rem Draw some random cricle on bitmap 1
  19. for t=0 to 200
  20.     circle rnd(640),rnd(480),rnd(100)
  21. next t
  22.  
  23. rem This command will copy bitmap 1 to 0
  24. copy bitmap 1,0
  25.  
  26. rem Will wait for you to press any key
  27. suspend for key
  28.  
  29. rem End the program
  30. end
  31.