улитка (паскаль)

[Sined121]

вот прога:
uses Crt, Graph;

const
A = 100;
B = 70;
L = 180;

var
grDriver, grMode : Integer;
MidX, MidY : Integer;

procedure DrawOsi;
begin
{vivod OSEI}
setcolor(red);
moveto(1, Midy);
lineto(GetMaxX, Midy);
moveto(MidX, 1);
lineto(MidX, GetMaxY);
end;

procedure Draw(dx : integer; dy : integer; fi : real; sy : real);
var
g : Integer;
t : Real;
NX, NY : Real;
X, Y : Real;
poly : Array [0..L*2] Of PointType;
begin
fi := fi * Pi / 180;
for g := 0 to 2*L do begin
t := g * Pi / 180;
X := A * Sqr(Cos(t)) + B * Cos(t);
Y := A * Cos(t) * Sin(t) + B * Sin(t);

NX := (X-dx)*cos(fi) - (Y-dy)*sin(fi);
NY := (X-dx)*sin(fi)*sy + (Y-dy)*cos(fi)*sy;

X := MidX + NX;
Y := MidY - NY;

poly[g].x := round (X);
poly[g].y := round(Y);

end;
DrawOsi;
setcolor(yellow);
SetFillStyle(LtSlashFill, yellow);
FillPoly(2*L+1, poly);
delay(60000); delay(60000);
ClearDevice;
end;

begin
grDriver := Detect;
InitGraph(grDriver, grMode, '');


outtextxy(100,70,'ulitka_pascalya') ;
setcolor(green);


outtextxy(135,140,'Vipolnil_magon') ;

setcolor(red);

outtextxy(100,210,'proveril_Kulakov a_T_N');


readln;
cleardevice;

MidX := GetMaxX div 2;
MidY := GetMaxY div 2;

Draw(0, 0, 0, 1);

Draw(25, 0, L/3, 0.5);
Draw(0, 20, 5*L/6, 1);
Draw(-25, 0, 4*L/3, 0.5);
Draw(0, -20, 11*L/6, 1);

CloseGraph;
end.

[Sined121]

нужно сделать движение от одной фигуры к другой

[Sined121]

пытаюсь через цикл:
MidX := GetMaxX div 2;
MidY := GetMaxY div 2;

Draw(0, 0, 0, 1);

for j:=0 to 25 do

{Draw(j, 0, 0, 1);}
Draw(j, 0, L/3, 0.5);


Draw(0, 20, 5*L/6, 1);
Draw(-25, 0, 4*L/3, 0.5);
Draw(0, -20, 11*L/6, 1);

[Sined121]

а она двигается не туда. как поступить с этой анимацией

[Sined121]

через динамику это накладно делать