home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / sprite / exam06.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  1.7 KB  |  75 lines

  1. Rem * Title  : Stretching a Sprite
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ===================================================
  5. rem DARK BASIC EXAMPLE PROGRAM 6
  6. rem ===================================================
  7. rem This program will draw a stretch a sprite on screen 
  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 Load a bitmap on to the screen
  14. load bitmap "face.bmp"
  15.  
  16. rem Grab image 1 from bitmap
  17. get image 1,18,17,156,196
  18.  
  19. rem Clear the Screen
  20. cls
  21.  
  22. rem Now we will make a sprite
  23. sprite 1,100,100,1
  24.  
  25. rem get sprite width and find the middle of it going across
  26. rem get sprite height and find the middle of it going down
  27. rem new offset for sprite 1 
  28.  
  29. offset sprite 1,(sprite width(1)/2),(sprite height(1)/2)
  30.  
  31. rem the is were on screen sprite will appear
  32. acrossscreen=0
  33. downscreen=0
  34.  
  35. rem press left mouse button to quit
  36. rem move mouse left,right,up and down to stretch sprite
  37.  
  38. rem Temporarily size the sprite
  39. size sprite 1,640,480
  40. sleep 500
  41.  
  42. repeat
  43.  
  44.     if returnkey()=1
  45.         cls 0
  46.         set cursor 0,440
  47.         print "using the stretch sprite command"
  48.         print " sprite x ",sprite x(1);
  49.         print " sprite y ",sprite y(1);
  50.         print " sprite scale x ",sprite scale x(1);
  51.         print " sprite scale y ",sprite scale y(1)
  52.         repeat:until returnkey()<>1
  53.         cls
  54.     endif
  55.  
  56.     rem draw the sprite at the new position
  57.     sprite 1,acrossscreen,downscreen,1
  58.  
  59.     rem resize sprite
  60.     stretch sprite 1,mousex(),mousey()
  61.     
  62. until mouseclick()=1
  63.  
  64. rem clear the screen
  65. cls 
  66.  
  67. rem remove the sprite from memory
  68. delete sprite 1
  69.  
  70. rem remove image 1 from memory
  71. delete image 1
  72.  
  73. rem End the program
  74. end
  75.