Анимация: развевающийся на ветру Российский флаг

uses graphABC,crt;
var x,y,k: integer; xx,yy,a,h,w: real;
begin
lockdrawing;
hidecursor;
setwindowsize(400,400);
repeat
a:=0; k:=10; h:=10; w:=0.5;
while a<=6 do
      begin
      clearwindow;
      xx:=1*k; yy:=H*sin( w*xx + a );
      while xx<=2.9*k do
            begin
            y:=round( H*sin( w*xx + a ));
            x:=round(xx*k);
            putpixel(x,y+100,clblack);
            putpixel(x,y+150,clblack);
            putpixel(x,y+200,clblack);
            putpixel(x,y+250,clblack);
            xx:=xx+0.02;
            end;
      line(100,100+round(yy),100,250+round(yy));
      line(290,100-round(yy),290,250-round(yy));
      floodfill(200,230,clred);
      floodfill(200,170,clblue);
      a:=a+0.2;
      sleep(100);
      redraw;
      end;
until keypressed;
end.

uses graphABC;
var x,y,k: integer; xx,yy,a,h,w: real;
begin
lockdrawing;
setwindowsize(400,400);
for var i:=1 to 100 do
  begin
a:=0; k:=10; h:=10; w:=0.5;
while a<=6 do
      begin
      clearwindow;
      xx:=1*k; yy:=H*sin( w*xx + a );
      while xx<=2.9*k do
            begin
            y:=round( H*sin( w*xx + a ));
            x:=round(xx*k);
            putpixel(x,y+100,clblack);
            putpixel(x,y+150,clblack);
            putpixel(x,y+200,clblack);
            putpixel(x,y+250,clblack);
            xx:=xx+0.02;
            end;
      line(100,100+round(yy),100,250+round(yy));
      line(290,100-round(yy),290,250-round(yy));
      floodfill(200,230,clred);
      floodfill(200,170,clblue);
      a:=a+0.2;
      sleep(100);
      redraw;
      end;
   end;
end.

uses graphABC,crt;
var x,y,k: integer; xx,yy,a,h,w: real;
begin
lockdrawing;
hidecursor;
setwindowsize(400,400);
repeat
a:=0; k:=10; h:=10; w:=0.5;
while a<=6 do
      begin
      clearwindow(clskyblue);
      setbrushcolor(clbrown);
      rectangle(90,60,100,400);
      xx:=1*k; yy:=H*sin( w*xx + a );
      while xx<=2.9*k do
            begin
            y:=round( H*sin( w*xx + a ));
            x:=round(xx*k);
            putpixel(x,y+100,clblack);
            putpixel(x,y+150,clblack);
            putpixel(x,y+200,clblack);
            putpixel(x,y+250,clblack);
            xx:=xx+0.02;
            end;
      line(100,100+round(yy),100,250+round(yy));
      line(290,100-round(yy),290,250-round(yy));
      floodfill(200,130,clwhite);
      floodfill(200,230,clred);
      floodfill(200,170,clblue);
      a:=a+0.2;
      sleep(100);
      redraw;
      end;
until keypressed;
end.

uses graphABC,crt;                       //подключаю модуль графики и crt, так как анимация будет до нажатия любой кнопки
var x,y,k: integer; xx,yy,a,h,w: real;   //переменные для координат - целого типа и
                                         //вещественного - для параметров синусоиды / косинусоиды
                                         //y(x)= H*sin( w*x + a );
                                         //Где H задаёт аплитуду, w - период/частота, а - фазу( смещение )
begin
lockdrawing;                             //блокировка рисования на графическом окне
hidecursor;                              //спрятать курсор
setwindowsize(400,400);                  //размер окна
repeat                                   //цикл с постусловием: повторять, пока не будет нажата кнопка
a:=0; k:=10; h:=10; w:=0.5;              //начальное значение переменных
while a<=6 do                            //фаза (смещение) от 0 до 6
      begin
      clearwindow(clskyblue);            //очистить окно
      setbrushcolor(clbrown);            //это палка - цвет коричневый
      rectangle(90,60,100,400);          //прямоугольник
      xx:=1*k; yy:=H*sin( w*xx + a );    //задаю параметры синусоиды
      while xx<=2.9*k do                 //строю синусоиды (4 шт, разница только в координатах по х)
            begin
            y:=round( H*sin( w*xx + a ));
            x:=round(xx*k);
            putpixel(x,y+100,clblack);   //графики рисуются точками
            putpixel(x,y+150,clblack);
            putpixel(x,y+200,clblack);
            putpixel(x,y+250,clblack);
            xx:=xx+0.02;                //шаг по х 0,02
            end;
      line(100,100+round(yy),100,250+round(yy));  //линия - край флага слева
      line(290,100-round(yy),290,250-round(yy));  //и справа, важно учесть колебания в зависимости от фазы
      floodfill(200,130,clwhite);                 //заливаю полученные области
      floodfill(200,230,clred);
      floodfill(200,170,clblue);
      a:=a+0.2;                                   //шаг для смещения (фазы) 0,02
      sleep(100);                                //пауза
      redraw;                                    //перерисовка
      end;
until keypressed;                               //конец цикла
end.