home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / image / image2-example.dba < prev   
Encoding:
Text File  |  2004-09-22  |  799 b   |  38 lines
  1. rem Image Functionality
  2.  
  3. rem Fill screen
  4. load image "image.bmp", 1
  5. for x=0 to 10 : for y=0 to 10
  6. paste image 1,x*64,y*64
  7. next y : next x
  8.  
  9. rem Main loop
  10. do
  11.  
  12. rem Produce random values
  13. ImageNumber=rnd(10000)
  14. X=rnd(640)
  15. Y=rnd(480)
  16. X1=rnd(320)
  17. Y1=rnd(240)
  18. X2=X1+1+rnd(319)
  19. Y2=Y1+1+rnd(239)
  20.  
  21. rem Try each command at random
  22. if rnd(5)=1 then LOAD IMAGE "image.bmp", ImageNumber
  23. if rnd(5)=1 then GET IMAGE ImageNumber, X1, Y1, X2, Y2
  24. if IMAGE EXIST(ImageNumber)=1
  25.  if rnd(5)=1 then PASTE IMAGE ImageNumber, X, Y
  26.  if rnd(5)=1 then PASTE IMAGE ImageNumber, X, Y, 1
  27. endif
  28.  
  29. rem Display data
  30. set cursor 0,0
  31. print "IMAGE EXPRESSION DATA"
  32. print
  33. print "image:";ImageNumber
  34. print "exist:";IMAGE EXIST(ImageNumber)
  35. if IMAGE EXIST(ImageNumber)=1 then DELETE IMAGE ImageNumber
  36.  
  37. loop
  38.