Реферат: Разработка игровой программы на языке программирования Turbo Pascal

Procedure VLine(Base:Word;x,y1,y2:Integer;Color:Byte);

Procedure HLine(Base:Word;y,x1,x2:Integer;Color:Byte);

Procedure Bar(Base:Word;x1,y1,x2,y2:Integer;Color:Byte);

Procedure Polygon(Base:Word;x1,y1,x2,y2,x3,y3,x4,y4:Integer;c:Byte);

Function InitVirtualPage:Boolean;

Procedure DoneVirtualPage;

IMPLEMENTATION

Var

VirtualPage:Pointer;

{$L VGA13H.OBJ}

Function DetectVGA; external;

Procedure SetGraphMode; external;

Procedure SetTextMode; external;

Procedure MakePixelSquare; external;

Procedure CopyBase; external;

Procedure ClearBase; external;

Procedure FillBase; external;

Procedure MoveBase; external;

Procedure TileBase; external;

Procedure PutPixel; external;

Function GetPixel; external;

Procedure HLine; external;

Procedure VLine; external;

Procedure Polygon;

Var

xpos:array [0..199,0..1] of Word;

mny,mxy,y:Integer;

i:Word;

s1,s2,s3,s4:Shortint;