home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 10-17.BAS < prev    next >
BASIC Source File  |  1995-01-20  |  960b  |  50 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Source AS STRING*2560
  6. DIM Dest   AS STRING*3700
  7.  
  8. REM initialize the video environment
  9.  
  10. FGsetmode 19
  11.  
  12. REM draw a blue rectangle with a thick white border
  13.  
  14. FGsetcolor 9
  15. FGrect 0, 63, 0, 39
  16. FGsetcolor 15
  17. FGboxdepth 5, 5
  18. FGbox 0, 63, 0, 39
  19. FGmove 32, 20
  20. FGjustify 0, 0
  21. FGprint "SCALE", 5
  22.  
  23. REM retrieve the rectangle as a mode-specific bitmap
  24.  
  25. FGmove 0, 39
  26. FGgetimage Source, 64, 40
  27. FGwaitkey
  28.  
  29. REM expand the bitmap by 10 pixels in each direction and  
  30. REM then display it in the lower left corner of the screen
  31.  
  32. FGmove 0, 199
  33. FGscale Source, Dest, 64, 40, 74, 50
  34. FGputimage Dest, 74, 50
  35. FGwaitkey
  36.  
  37. REM reduce the original bitmap by 50% in each direction and
  38. REM then display it in the lower right corner of the screen
  39.  
  40. FGmove 288, 199
  41. FGscale Source, Dest, 64, 40, 32, 20
  42. FGputimage Dest, 32, 20
  43. FGwaitkey
  44.  
  45. REM restore 80x25 text mode and exit
  46.  
  47. FGsetmode 3
  48. FGreset
  49. END
  50.