Движение колец и Движение линий сверху

[Iren1993]

1) Необходимо здесь сделать чтобы кольца с краев листа сдвигались на середину и объединялись
2) Необходимо чтобы сверху как бы падали линии(короткие), лучше конечно волнистые и много, чтобы создавалась иллюзия например серпантина

uses Graph, crt;
 
var
 D, r, e : integer;
begin
 {Инициируем графику}
 InitGraph(d, r, 'h:\bp\bgi');
 e := GraphResult;
 if e <> grOk then
 begin
    Writeln('Ошибка перехода в графический режим');
    Exit;
 end;
 {фон}
 Setbkcolor(Red);
 {рамка}
 SetColor(14);
 Rectangle(10, 10, GetMaxX-10, GetMaxY-10);
 {кольца}
 Circle(GetMaxX-320, 250, 35);
 Circle(GetMaxX-320, 250, 30);
 Setfillstyle(1,14);
 Floodfill(GetMaxX-320,282,14);
 Circle(GetMaxX-360, 260, 40);
 Circle(GetMaxX-360, 260, 35);
 Setfillstyle(1,14);
 Floodfill(GetMaxX-398,260,14);
 Floodfill(GetMaxX-322,260,14);
 {текст}
 SetTextStyle(7, 0, 6);
 SetColor(14);
 OutTextXY(40, 90, 'С Днем Свадьбы!!!');
 SetTextStyle(0, 0, 1);
 OutTextXY(70, 200, '');
 ReadKey;
end.

ПОМОГИТЕ ПОЖАЛУЙСТА! Очень нужно...



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Camaro Chevelle]

циклом for рисуешь на месте "старых" кругов круги цветом фона, а затем рисуешь новые круги жёлтым, меняя координату по х с помощью переменной цикла. что касается серпантина можно насыпать пикселей или линий случайными цветами, с их падением будет много проблем наверно, поэтому лучше пусть летают в воздухе, т. е. сначала рисуешь побольше красных (цвета фона) и поменьше остальных... я криво объясняю...

[Iren1993]

Camaro Chevelle, спасибо, я конечно попробую...но я вообще без понятия как это делать...мне бы на примере показать...