Перевести из Delphi в С++. Программа рисует 4 шестиугольника

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure RISOVAN;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
 Form1: TForm1;
 a,b,c,d:double;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.RISOVAN;
var
 i,R,Xi,Yi:integer;
 Rect:TRect;
 Xok,Yok,Rkv:integer;
begin
 R:=50; Xok:=form1.Width div 2; Yok:=form1.Height div 2; Rkv:=150;
 // Очистка экрана
 Rect.Right:=0; Rect.Bottom:=0;
 Rect.Left:=form1.ClientWidth; Rect.Top:=form1.ClientHeight;
 form1.Canvas.FillRect(Rect);
 // 1
 Xi:=trunc(R*cos(a*pi/180+2*1*pi/6))+Xok-Rkv;
 Yi:=trunc(R*sin(a*pi/180+2*1*pi/6))+Yok;
 form1.Canvas.MoveTo(Xi,Yi);
 for i:=2 to 7 do
  begin
   Xi:=trunc(R*cos(a*pi/180+2*i*pi/6))+Xok-Rkv;
   Yi:=trunc(R*sin(a*pi/180+2*i*pi/6))+Yok;
   form1.Canvas.LineTo(Xi,Yi);
  end;
 // 2
 Xi:=trunc(R*cos(b*pi/180+2*1*pi/6))+Xok;
 Yi:=trunc(R*sin(b*pi/180+2*1*pi/6))+Yok-Rkv;
 form1.Canvas.MoveTo(Xi,Yi);
 for i:=2 to 7 do
  begin
   Xi:=trunc(R*cos(b*pi/180+2*i*pi/6))+Xok;
   Yi:=trunc(R*sin(b*pi/180+2*i*pi/6))+Yok-Rkv;
   form1.Canvas.LineTo(Xi,Yi);
  end;
 // 3
 Xi:=trunc(R*cos(c*pi/180+2*1*pi/6))+Xok;
 Yi:=trunc(R*sin(c*pi/180+2*1*pi/6))+Yok+Rkv;
 form1.Canvas.MoveTo(Xi,Yi);
 for i:=2 to 7 do
  begin
   Xi:=trunc(R*cos(c*pi/180+2*i*pi/6))+Xok;
   Yi:=trunc(R*sin(c*pi/180+2*i*pi/6))+Yok+Rkv;
   form1.Canvas.LineTo(Xi,Yi);
  end;
 // 4
 Xi:=trunc(R*cos(d*pi/180+2*1*pi/6))+Xok+Rkv;
 Yi:=trunc(R*sin(d*pi/180+2*1*pi/6))+Yok;
 form1.Canvas.MoveTo(Xi,Yi);
 for i:=2 to 7 do
  begin
   Xi:=trunc(R*cos(d*pi/180+2*i*pi/6))+Xok+Rkv;
   Yi:=trunc(R*sin(d*pi/180+2*i*pi/6))+Yok;
   form1.Canvas.LineTo(Xi,Yi);
  end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 a:=0; b:=0; c:=0; d:=0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 a:=a+3; if a>360 then a:=a-360;
 b:=b+7; if b>360 then b:=b-360;
 c:=c-5; if c<0 then c:=c+360;
 d:=d-10; if d<0 then d:=d+360;
 RISOVAN;
end;
 
end.