home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
06-08.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
768b
|
45 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
CONST Vertices = 10
DIM XY(Vertices*2)
DIM WorkArray(700)
REM (x,y) coordinates of vertices
DATA 200,100, 300, 80, 400,100, 400,220, 300,320
DATA 240,320, 160,240, 160,200, 200,160, 210,150
OldMode = FGgetmode
IF FGtestmode(16,1) THEN
FGsetmode 16
ELSEIF FGtestmode(15,1) THEN
FGsetmode 15
ELSE
PRINT "This program requires a 640 x 350 EGA graphics mode."
STOP
END IF
FOR I = 0 TO Vertices*2-1
READ XY(I)
NEXT
FGsetcolor 1
FGpolyoff -120, -25
FGpolyline XY(), Vertices
FGpolyoff 200, -25
FGpolyfill XY(), WorkArray(), Vertices
FGwaitkey
FGsetcolor 2
FGsetclip 480, 639, 175, 349
FGpolyfill XY(), WorkArray(), Vertices
FGwaitkey
FGsetmode OldMode
FGreset
END