Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement