Новогодняя графика

Program ELKA;
 
Uses CRT, GraphABC;
 
Procedure Shar(xx,yy: integer);
begin
 setpencolor(clblack);
 setbrushcolor(clred);
  circle(xx,yy,10);
 setbrushcolor(clmaroon);
 setpencolor(clmaroon);
  circle(xx+2,yy+2,5);
end;
 
Procedure Zvezda(x,y,r:integer);
var a:array[1..11,1..2] of integer;
    i:integer;
    u:real;
begin
u:=pi/2;
for i:=1 to 11 do
 begin
  if odd(i) then
   begin
    a[i,1]:=x+round(r*cos(u));
    a[i,2]:=y-round(r*sin(u));
   end
  else
   begin
    a[i,1]:=x+round(r*cos(u)*0.38);
    a[i,2]:=y-round(r*sin(u)*0.38);
   end;
  u:=u+pi/5;
 end;
setpencolor(clYellow);
setbrushcolor(clYellow);
polygon(a,11);
end;
 
Procedure Triangle(x,y,r: integer);
begin
 setpencolor(clgreen);
  line(x-r,y,x,y-(r*2));
  line(x,y-(r*2),x+r,y);
  line(x-r,y,x+r,y);
 floodfill(x,y-2,clgreen);
  Shar(x-r,y+10);
  Shar(x+r,y+10);
end;
 
Procedure Gir(x,y,r: integer);
var i: integer;
begin
i:=-r;
while i<=r do
      begin
      if (getpixel(x+i,y+i)=clgreen) then
       begin
       setbrushcolor(clrandom);
       setpencolor(clrandom);
       circle(x+i,y+i,6);
       end;
      inc(i,10);
      end;
end;
 
Procedure Sugrob(x,y,n,s: integer);
begin
 Repeat
  y:=Round(6*sin(x/18));
  PutPixel(x,n-y,clNavy);
  x:=x+1;
 until x>s;
end;
 
Procedure Star(R,x,y,m,n,t: integer);
begin
 Repeat
  x:=m+round(R*sin(t)*sin(t)*sin(t));
  y:=n+round(R*cos(t)*cos(t)*cos(t));
  PutPixel(x,y,clYellow);
  t:=t+1;
 until t>3600;
end;
 
Procedure Sneginka(R,x,y,a,b,t: integer);
begin
 Repeat
  x:=a+round(2*R*sin(t)+R*sin(-5*t));
  y:=b+round(2*R*cos(t)+R*cos(-5*t));
  PutPixel(x,y,clBlue);
  t:=t+1;
 until t>3600;
end;
 
BEGIN
HideCursor;
SetWindowTitle('Зима...Зимушка...Зима');
Setwindowsize(400,500);
Lockdrawing;
 Repeat
  Clearwindow;
  {---Цвет окна---}
  SetPenColor(clNavy);
  SetBrushColor(clNavy);
  Rectangle(0,0,400,440);
  SetPenColor(clSkyBlue);
  SetBrushColor(clSkyBlue);
  Rectangle(0,440,400,500);
  {---Сугробы---}
  Sugrob(10,0,460,120);
  Sugrob(110,0,490,280);
  Sugrob(270,0,470,390);
  {---Звёзды---}
  Star(11,0,0,370,20,0);
  Star(11,0,0,125,125,0);
  Star(10,0,0,25,275,0);
  Star(12,0,0,325,75,0);
  Star(10,0,0,380,250,0);
  {---Звезда на ёлке---}
  Zvezda(200,90,22);
  {---Снежинки---}
  Sneginka(3,0,0,75,185,0);
  Sneginka(3,0,0,270,30,0);
  Sneginka(3,0,0,340,320,0);
  Sneginka(3,0,0,320,200,0);
  Sneginka(3,0,0,55,350,0);
  Sneginka(3,0,0,125,25,0);
  {---Ёлочка---}
  Triangle(200,200,50);
  Triangle(200,300,80);
  Triangle(200,400,100);
  SetPenColor(clbrown);
  SetBrushColor(clbrown);
  Rectangle(180,401,220,440);
  {---Подарки---}
  SetPenColor(clRed);
  SetBrushColor(clFuchsia);
  Rectangle(20,380,80,445);
  SetPenColor(clRed);
  Line(50,380,50,440);
  Line(20,410,80,410);
  SetPenColor(clDkGray);
  SetBrushColor(clPurple);
  Rectangle(315,350,395,450);
  SetPenColor(clDkGray);
  Line(355,350,355,450);
  Line(315,400,395,400);
 
  SetPenColor(clBlack);
  SetBrushColor(clYellow);
  Circle(50,50,40); 
  Circle(80,50,30);
  SetBrushColor(clNavy);
  SetPenColor(clNavy); 
  Circle(81,50,30);
  {---Гирлянда---}
  Gir(200,200,70);
  Gir(200,300,100);
  Gir(200,400,150);
  sleep(135);
  redraw;
 Until false;
 
END.