Нарисовать эмблему Philips

uses graph;
procedure Zvezda(x1,y1,d,m,u,c:integer);
var a,i,d1:integer;
    p:array[1..9] of pointtype;
begin
d1:=d div m;
a:=u;
for i:=1 to 8 do
  begin
    if i mod 2=0 then
      begin
        p[i].x:=x1+round(d*cos(a*pi/180));
        p[i].y:=y1-round(d*sin(a*pi/180));
      end
    else
      begin
        p[i].x:=x1+round(d1*cos(a*pi/180));
        p[i].y:=y1-round(d1*sin(a*pi/180));
      end;
    a:=a+45;
  end;
p[9].x:=p[1].x;
p[9].y:=p[1].y;
MoveTo(p[1].x,p[1].y);
SetColor(c);
for i:=1 to 9 do
LineTo(p[i].x,p[i].y);
Setfillstyle(1,c);
floodfill(x1,y1,c);
end;
procedure Volna(xc,yc,d,h:integer);
var x,y:real;
    x1,y1:integer;
begin
x:=-d+10;
setlinestyle(0,0,3);
moveto(xc+round(x),round(yc+d-10-sin(0.065*x)));
while x<=d-10 do
 begin
  y:=sin(0.065*x);
  x1:=xc+round(x);
  y1:=yc+d-10+h-round(y*8);
  lineto(x1,y1);
  x:=x+0.01;
 end;
end;
var xc,yc,d,x1,y1,h:integer;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
setbkcolor(15);
d:=100;
setcolor(9);
setlinestyle(0,0,3);
settextstyle(0,0,3);
outtextXY(xc-d+20,yc-d+30,'PHILIPS');
line(xc-d,yc-d,xc+d,yc-d);
line(xc-d,yc-d,xc-d,yc+d);
line(xc+d,yc-d,xc+d,yc+d);
arc(xc,yc+d,180,360,d);
circle(xc,yc+d,d-10);
setlinestyle(0,0,1);
Zvezda(xc-40,yc+40,10,5,45,9);
Zvezda(xc-60,yc+60,20,5,45,9);
Zvezda(xc+40,yc+160,10,5,45,9);
Zvezda(xc+60,yc+140,20,5,45,9);
setlinestyle(0,0,3);
Volna(xc,yc,d,0);
Volna(xc,yc,d,10);
Volna(xc,yc,d,20);
readln
end.