home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / bobs / exam10.dba < prev    next >
Encoding:
Text File  |  2000-01-25  |  644 b   |  31 lines
  1. Rem * Title  : Saving An Image
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st January 2000
  4. rem ===================================================
  5. rem DARK BASIC EXAMPLE PROGRAM 10
  6. rem ===================================================
  7. rem This program will load and save an image
  8. rem ---------------------------------------------------
  9.  
  10. rem Create an image
  11. for t=1 to 100
  12. dot rnd(100),rnd(100)
  13. next t
  14. get image 1,0,0,100,100
  15.  
  16. rem Save the Image
  17. save image "image.bmp",1
  18.  
  19. rem Clear everything
  20. delete image 1
  21. cls
  22.  
  23. rem Load the Image
  24. load image "image.bmp",2
  25.  
  26. rem Paste Image
  27. paste image 2,50,50
  28.  
  29. rem End the program
  30. end
  31.