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

y:=y+s3;

Until y=y4+s3

else xpos[y,byte(y3<y4)]:=x3;

y:=y4;

if y4<>y1 then

Repeat

xpos[y,byte(y4<y1)]:=integer(x1-x4)*(y-y4) div (y1-y4)+x4;

y:=y+s4;

Until y=y1+s4

else xpos[y,byte(y1<y4)]:=x4;

for y:=mny to mxy do HLine(Base,y,xpos[y,0],xpos[y,1],c);

end;

Procedure Line;

Var

dx,dy,sx,sy,d,d1,d2,x,y,i:Integer;

begin

dx:=Abs(x2-x1);

dy:=Abs(y2-y1);

if x2>=x1 then sx:=+1 else sx:=-1;

if y2>=y1 then sy:=+1 else sy:=-1;

Mem[Base:(y1 shl 8)+(y1 shl 6)+x1]:=Color;

if dy<=dx then

begin

d:=(dy shl 1)-dx;

d1:=dy shl 1;

d2:=(dy-dx) shl 1;

x:=x1+sx;

y:=y1;

for i:=1 to dx do