home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
10-17.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
960b
|
50 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DIM Source AS STRING*2560
DIM Dest AS STRING*3700
REM initialize the video environment
FGsetmode 19
REM draw a blue rectangle with a thick white border
FGsetcolor 9
FGrect 0, 63, 0, 39
FGsetcolor 15
FGboxdepth 5, 5
FGbox 0, 63, 0, 39
FGmove 32, 20
FGjustify 0, 0
FGprint "SCALE", 5
REM retrieve the rectangle as a mode-specific bitmap
FGmove 0, 39
FGgetimage Source, 64, 40
FGwaitkey
REM expand the bitmap by 10 pixels in each direction and
REM then display it in the lower left corner of the screen
FGmove 0, 199
FGscale Source, Dest, 64, 40, 74, 50
FGputimage Dest, 74, 50
FGwaitkey
REM reduce the original bitmap by 50% in each direction and
REM then display it in the lower right corner of the screen
FGmove 288, 199
FGscale Source, Dest, 64, 40, 32, 20
FGputimage Dest, 32, 20
FGwaitkey
REM restore 80x25 text mode and exit
FGsetmode 3
FGreset
END