home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
egagraph.zip
/
EGADEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-07-23
|
1KB
|
63 lines
program EGADemo;
(*
These routine is designed to be called from Turbo Pascal.
It has been tested on both EGA and 640x480 modes on the
Video 7 graphics board. If you find a way to make it faster,
let me know.
James Billmeyer
Soft-Touch Computer Systems
7716 Balboa Blvd., Unit D
Van Nuys, Ca. 91406
(818) 781-4400
*)
var
i,j,k : integer;
procedure SetEGAMode;
BEGIN
INLINE($b8/$10/$00/$cd/$10);
END;
PROCEDURE Plot(x,y,Color : INTEGER); External 'PLOT.BIN';
PROCEDURE Line(x1,y1,x2,y2,color : integer); External 'LINE.BIN';
PROCEDURE Box(x1,y1,x2,y2 : INTEGER; Fill : BOOLEAN; Color : INTEGER); External 'BOX.BIN';
begin
clrscr;
SetEGAMode;
box(0,0,639,349,true,1);
box(5,5,639,349,true,2);
box(10,10,600,300,true,3);
box(15,15,550,250,true,4);
box(20,20,500,200,true,5);
box(40,40,450,150,true,6);
box(60,60,400,130,true,7);
box(80,80,350,100,true,8);
for j := 1 to 16 do
begin
for i := 0 to 639 do
begin
line(349,0,i,349,j + 2);
end;
for i := 0 to 639 do
begin
line(i,0,349,349,j + 3);
end;
for i := 0 to 349 do
begin
line(0,150,639,i,j + 4);
end;
for i := 0 to 349 do
begin
line(639,150,0,i,j + 5);
end;
end;
textmode(C80);
end.