Построение графика кардиоиды (Pascal -> С++)

uses crt,graph;
   var x0,y0,x,y,a,dx,dy,cv:integer;
       t:real;
 
 procedure mygraphinit;
 var Dr,Md,Err:integer;
 begin
  Dr:=detect;
  initgraph (Dr,Md,'D:\TP\BGI');
  Err:=graphresult;
   if err<>grok then
    writeln(Grapherrormsg(err))
 end;
 
 procedure Kard (cx,cy,cv:integer;u:real);
           var dx,dy,x,y,r:integer;
               t:real;
           begin
           t:=0;
           dx:=round(a*cos(t)*(1+cos(t)));
           dy:=round(a*sin(t)*(1+cos(t))/2);
           x:=cx+round(dx*cos(u)-dy*sin(u));
           y:=cy-round(dx*sin(u)+dy*cos(u));
 
           moveto(x,y);
           while t<=2*pi do
               begin
               dx:=round(a*cos(t)*(1+cos(t)));
               dy:=round(a*sin(t)*(1+cos(t))/2);
               x:=cx+round(dx*cos(u)-dy*sin(u));
               y:=cy-round(dx*sin(u)+dy*cos(u));
               setcolor(cv);
               lineto(x,y);
               t:=t+0.001;
               end;
               setfillstyle(3,cv);
               r:=a div 2;
               floodfill(cx+round(r*cos(u)-r*sin(u)),cy-round(r*sin(u)+r*cos(u)),cv);
           end;
 BEGIN
 clrscr;
 repeat
 write('radius[50..120] a=');
 readln(a);
 until a in [50..120];
 repeat
 write ('cvet [1..15] cv=');
 readln(cv);
 until cv in [1..15];
 
 mygraphinit;
 
 x0:=getmaxX div 2;
 y0:=getmaxY div 2;
 line(x0,0,x0,getmaxY);
 line(0,y0,getmaxX,y0);
 setcolor(8);
 settextstyle(1,0,2);
 outtextxy(1,1,'KARDIOIDA');
 outtextxy(320,0,'Y');
 outtextxy(600,240,'X');
 
 Kard(x0+100,y0-80,cv,pi/3);
 Kard(x0-100,y0-80,cv,5*pi/7.45);
 Kard(x0-100,y0+80,cv,4*pi/3);
 Kard(x0+100,y0+80,cv,11*pi/6.6);
 
 readln;
closegraph;
 
 END.