Turbo pascal

[szymek12]

Mógłby ktoś podać przykład programu rysującego poruszający się obiekt np.kwadrat.

[abc666]

Jakiś kod znaleziony w czeluściach bina chyba działa, jest też jakiś kwadrat i się rusza

Kod: Zaznacz cały

uses crt2, graph;

var
Driver,Mode,f:Integer;
a,b,c,d, kierx,kiery:integer;

procedure Bare(x1,y1,x2,y2:Integer);
Begin
Line(x1,y1,x1,y2);
Line(x1,y1,x2,y1);
Line(x2,y1,x2,y2);
Line(x1,y2,x2,y2);
End;


begin
Driver:=VGA;
Mode:=VGAHi;
clrscr;
InitGraph(Driver, Mode, 'C:\tp\BGI');
ClearDevice;
a:=100;
b:=200;
c:=300;
d:=400;
kierx:=1;
kiery:=1;
repeat
if (a<=1) then kierx:=kierx*-1;
if (c>=640) then kierx:=kierx*-1;
if (b<=1) then kiery:=kiery*-1;
if (d>=480) then kiery:=kiery*-1;
ClearDevice;
a:=a+kierx;
c:=c+kierx;
b:=b+kiery;
d:=d+kiery;
Bare(a,b,c,d);
delay(50);
until keypressed;


readkey;
end.