Графика, эффект развевающегося флага Опции

[Kaliban]

Народ, помогите с графикой.
Задание такое:

Подготовив несколько заготовок полотнища флага, добиться эффекта его движения (флаг реет). Цвет флага изменять. Задействовать модуль graph.

Нужно все обязательно сделать с помощью модуля.
С самим флагом и заменой цвета проблем не возникло.
Нужно добиться движения, используя sinx и cosx плюс (предположительно) операторы, которые закомментены в конце.

код прилагается

program gr;
uses graph,crt;

var
x,y,c,mo,dr: integer;
begin
dr:= detect;
initgraph(dr,mo,'');

 randomize;
 setbkcolor(black);
 setfillstyle(1,white);
 rectangle(220,170,450,220);
 bar(220,170,450,220);

 setbkcolor(black);
 setfillstyle(1,blue);
 rectangle(220,220,450,270);
 bar(220,220,450,270);

 setbkcolor(black);
 setfillstyle(1,red);
 rectangle(220,270,450,320);
 bar(220,270,450,320);

 readln;
 repeat;
 x:=random(getmaxcolor)+10;
 setcolor(x); setfillstyle(1,x);
 rectangle(220,170,450,220);
 bar(220,170,450,220);
 delay(65000);delay(65000);delay(65000);delay(65000);

 y:=random(getmaxcolor)+10;
 setcolor(y); setfillstyle(1,y);
 rectangle(220,220,450,270);
 bar(220,220,450,270);
 delay(65000);delay(65000);delay(65000);delay(65000);

 c:=random(getmaxcolor)+10;
 setcolor©; setfillstyle(1,c);
 rectangle(220,270,450,320);
 bar(220,270,450,320);
 delay(65000);delay(65000);delay(65000);delay(65000);

until keypressed;

cleardevice;

{ b:=imagesize(); getmem(); getimage();

cleardevice;

begin
 putimage();
 inc();
 end;   }

readln;
end.

Сообщение отредактировано: Kaliban - 20.05.2007 16:38

[мисс_граффити]

посмотри здесь:
http://www.sources.ru/pascal/demo/sinmap.htm

оно?