home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
expas.arj
/
TEMP
/
12-06.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-01-20
|
966b
|
53 lines
program main;
uses fgmain, fgmisc;
var
old_mode : integer;
hidden : integer;
x : integer;
begin
{ initialize the video environment }
fg_initpm;
if (fg_testmode(13,3) = 0) then
begin
writeln('This program requires EGA.');
exit;
end;
old_mode := fg_getmode;
fg_setmode(13);
{ draw the background on page two }
fg_setpage(2);
fg_setcolor(1);
fg_rect(0,319,0,199);
fg_setcolor(15);
fg_move(160,100);
fg_ellipse(20,20);
{ slide the object across the screen }
hidden := 1;
fg_setcolor(10);
for x := -10 to 319 do
begin
if x mod 4 = 0 then
begin
fg_setpage(hidden);
fg_transfer(0,319,0,199,0,199,2,hidden);
fg_clprect(x,x+19,96,105);
fg_setvpage(hidden);
hidden := 1 - hidden;
fg_waitfor(1);
end;
end;
{ restore the original video mode and return to DOS }
fg_setmode(old_mode);
fg_reset;
end.