Category : C Source Code
Archive   : ICONVRT2.ZIP
Filename : IC_DEMO.PAS

 
Output of file : IC_DEMO.PAS contained in archive : ICONVRT2.ZIP

Program IC_DEMO;

Uses
Crt,
FGMain,
FGSVGA,
FGBitMap,
FGMisc;

{$I DRFRANK2.16}

Var
OldMode : Integer;
BMode : Integer;
X, Y : Integer;

BEGIN
OldMode := FG_GetMode;
FG_SVGAInit(1);
If FG_TestMode(29, 1) = 1 Then
FG_SetMode(29)
Else
If FG_TestMode(28, 1) = 1 Then
FG_SetMode(28)
Else
If FG_TestMode(18, 1) = 1 Then
FG_SetMode(18)
Else
Begin
ClrScr;
Writeln('Sorry, you need at least 640 X 480 X 16 Video');
Halt;
End;

FG_WaitFor(36);

X := 0;
Y := 31;
While X < FG_GetMaxX Do
Begin
While Y <= FG_GetMaxY Do
Begin
FG_Move(X, Y);
FG_DrwImage(DRFRANK2, 16, 32);
Inc(Y, 32);
End;
Y := 31;
Inc(X, 32);
End;

FG_WaitKey;

FG_SetMode(OldMode);
FG_Reset;
END.