With Warehouse.Warehouse3D[Object3DIndex] Do

   For Y := 0 To (6 * Grid) - 1 Do

    For X := 0 To Grid - 1 Do

     Begin

      D := Y Div Grid;

      A := X * (Width / (Grid - 1)) - (Width * 0.5);

      B := (Y - Grid * D) * (Width / (Grid - 1)) - (Width * 0.5);

      C := (Width * 0.5) * ((D Mod 2) * 2 - 1);

      E := ((D Div 2) - 2) * (-1) Div 2;

      F := ((D + 2) Div 2 Mod 2 - 1) * (-1);

      G := D Div 2 Div 2;

      Point[_XY2(X, Y, Grid)].X := E * A + F * C + G * B;

      Point[_XY2(X, Y, Grid)].Y := E * B + F * A + G * C;

      Point[_XY2(X, Y, Grid)].Z := E * C + F * B + G * A;

      Point[_XY2(X, Y, Grid)].Exists := TRUE;

      Color[_XY2(X, Y, Grid)] := $00FF00;

     End;