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

VideoSegment:=SegA000;

Base1:=VideoSegment;

Page1:=Ptr(Base1,0);

InitVirtualPage;

END.

UNIT VGASpr;

INTERFACE

Uses VGA13h;

Type

BA=Array [0..$FFF0] of Byte;

Var

TopX,TopY,BotX,BotY:Integer;

Procedure SetClipRect(x1,y1,x2,y2:Integer);

Procedure DrawTSpr(Base:Word;x,y:Integer;h,w:Word;Image:Pointer); Procedure DrawOSpr(Base:Word;x,y:Integer;h,w:Word;Image:Pointer); IMPLEMENTATION

Procedure SetClipRect;

Function Max(a,b:Integer):Integer;

begin

if a>b then Max:=a else Max:=b;

end;

Function Min(a,b:Integer):Integer;

begin

if a<b then Min:=a else Min:=b;

end;

begin

TopX:=Max(0,Min(x1,x2));

BotX:=Min(GetMaxX,Max(x1,x2));

TopY:=Max(0,Min(y1,y2));

BotY:=Min(GetMaxY,Max(y1,y2));

end;