home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
14-10.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
1KB
|
58 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DIM Solid(32), Hollow(32)
Rem Solid values
DATA &hE03F,&hE03F,&hE03F,&h0007,&h0007,&h0007,&h0007,&h0007
DATA &h0007,&h0007,&hE03F,&hE03F,&hE03F,&hFFFF,&hFFFF,&hFFFF
DATA &h0000,&h0F80,&h0F80,&h0F80,&h7FF0,&h7FF0,&h7FF0,&h7FF0
DATA &h7FF0,&h0F80,&h0F80,&h0F80,&h0000,&h0000,&h0000,&h0000
REM Hollow values
DATA &hE03F,&hEFBF,&hEFBF,&h0F87,&h7FF7,&h7FF7,&h7FF7,&h7FF7
DATA &h7FF7,&h0F87,&hEFBF,&hEFBF,&hE03F,&hFFFF,&hFFFF,&hFFFF
DATA &h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0200,&h0000
DATA &h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0000
OldMode = FGgetmode
FGsetmode FGautomode
IF FGmouseini < 0 THEN
FGsetmode OldMode
FGreset
STOP
END IF
FOR I = 0 TO 31
Read Solid(I)
NEXT
FOR I = 0 TO 31
Read Hollow(I)
NEXT
FGsetcolor 15
FGrect 0, FGgetmaxx, 0, FGgetmaxy
FGsetcolor 12
Column = FGxalpha(FGgetmaxx/2) - 6
LastRow = FGyalpha(FGgetmaxy) + 1
FOR Row = 0 TO LastRow
FGlocate Row, Column
FGtext "example 14-10", 13
NEXT
FGmousevis 1
FGwaitkey
FGmouseptr Solid(), 6, 6
FGwaitkey
FGmouseptr Hollow(), 6, 6
FGwaitkey
FGsetmode OldMode
FGreset
END