Эпитрохоида - Pascal ABC

uses graphABC;
var c,x,y:integer;
    r1,r2,m,h,t,ms:real;
begin
setwindowsize(500,500);
centerwindow;
c:=250;
r1:=1;
r2:=0.2;
m:=r2/r1;//m=0.2
h:=0.3;
ms:=(c-50)/(r1+2*r2);
setpenwidth(2);
setpencolor(clGreen);
circle(c,c,round(r1*ms));
setpencolor(clRed);
t:=0;
while t<=12*pi do
 begin
  x:=c+round((r1*(m+1)*cos(m*t)-h*cos((m+1)*t))*ms);
  y:=c-round((r1*(m+1)*sin(m*t)-h*sin((m+1)*t))*ms);
  if t=0 then moveto(x,y) else lineto(x,y);
  t:=t+0.01;
 end;
end.