home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / exbas.arj / TEMP / 10-18.BAS < prev    next >
BASIC Source File  |  1995-01-20  |  746b  |  42 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Source AS STRING*2560
  6. DIM Dest   AS STRING*3200
  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 "SHEAR", 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 shear the bitmap horizontally and to the right 16 pixels
  30. REM then display it in the lower left corner of the screen  
  31.  
  32. FGmove 0, 199
  33. FGshear Source, Dest, 64, 40, 80, 1
  34. FGputimage Dest, 80, 40
  35. FGwaitkey
  36.  
  37. REM restore 80x25 text mode and exit
  38.  
  39. FGsetmode 3
  40. FGreset
  41. END
  42.