home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
09-03.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-31
|
772b
|
34 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DIM PCXpal AS STRING*768
DIM Header AS STRING*128
Status = FGpcxhead("CORAL.PCX"+CHR$(0),Header)
IF Status = -1 THEN
PRINT "Can't open CORAL.PCX."
STOP
ELSEIF Status = -2 THEN
PRINT "CORAL.PCX is not a PCX file."
STOP
END IF
Mode = FGpcxmode(Header)
PRINT USING "Optimal display mode is ##."; Mode
FGpcxrange Header, MinX, MaxX, MinY, MaxY
PRINT USING "Image size is ### by ### pixels."; MaxX-MinX+1, MaxY-MinY+1
Status = FGpcxpal("CORAL.PCX"+CHR$(0),PCXpal)
PRINT "First 16 palette values are:"
J = 1
FOR I = 0 TO 15
R = ASC(MID$(PCXpal,J))
G = ASC(MID$(PCXpal,J+1))
B = ASC(MID$(PCXpal,J+2))
PRINT USING " color ##: R=## G=## B=##"; I, R, G, B
J = J + 3
NEXT
END