Code Conversion - C++ to Delphi

[SesillaAndromeda]

Hi all,

Could someone help me to convert this code to Delphi?

Thanks in advance
Sesilla

struct vec3 {
  float x, y, z;
}

void Calc(vec3 *&dest, const vec3 &v0, const vec3 &v1, const vec3 &v2, int level){
  if (level){
    level--;
    vec3 v3 = normalize(v0 + v1);
    vec3 v4 = normalize(v1 + v2);
    vec3 v5 = normalize(v2 + v0);

    Calc(dest, v0, v3, v5, level);
    Calc(dest, v3, v4, v5, level);
    Calc(dest, v3, v1, v4, level);
    Calc(dest, v5, v4, v2, level);
  } else {
    *dest++ = v0;
    *dest++ = v1;
    *dest++ = v2;
  }    
}

void Test(){
  const int nV = 8;

  vec3 *V = new vec3[nV];

  vec3 *D = V;
  
  vec3 px0(1,  0,  0);
  vec3 px1(0,  1,  0);
  vec3 px2(0,  0,  1);

  Calc(D, px0, px1, px2, 5);
}

[Super Vegeta]

Type 
  vec3 = record
   x, y, z: Double
   end;
  vec3ptr = ^vec3;

Operator + (A,B:vec3) Res:vec3;
   begin
   Res.x:=A.x+B.x;
   Res.y:=A.y+B.y;
   Res.z:=A.z+B.z
   end;

Function normalize(V : vec3):vec3;
   Var N:Double;
   begin
   N:=Sqrt(Sqr(V.X)+(Sqr(V.Y)+Sqr(V.Z)));
   With V do begin X/=N; Y/=N; Z/=N end;
   normalize:=V // or Exit(V)
   end;

Procedure Calc(dest:vec3ptr;Const v0,v1,v2:vec3;Level:LongInt);
    Var v3,v4,v5:vec3;
    begin
    If (Level <> 0) then begin
       level-=1;
       
       v3:=Normalize(v0 + v1);
       v4:=Normalize(v1 + v2);
       v5:=Normalize(v2 + v0);
       
       Calc(dest, v0, v3, v5, level);
       Calc(dest, v3, v4, v5, level);
       Calc(dest, v3, v1, v4, level);
       Calc(dest, v5, v4, v2, level)
       end else begin
       Inc(Dest); Dest^:=v0;
       Inc(Dest); Dest^:=v1;
       Inc(Dest); Dest^:=v2
       end
    end;

procedure Test();
   Const nV = 8; 
   Var V,D:vec3ptr; px0,px1,px2:vec3;
   begin
   GetMem(V,nV*SizeOf(vec3));
   D:=V;
   With px0 do begin x:=1; y:=0; z:=0 end;
   With px1 do begin x:=0; y:=1; z:=0 end;
   With px2 do begin x:=0; y:=0; z:=1 end;
   Calc(D, px0, px1, px2, 5)
   end;

I think that's it.