1:

procedure RotateInit(Starmap: Array[1..1000,1..3] of integer);					

1:

function Collide(Starmap: Array[1..100,1..3] of integer):Fragments:array [1..100,1..3] of integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Function Tform1.Rotate(a: Real; b: Real;deg: integer):Trealarray;
begin
  Result[1]:=cos(deg) * a + sin(deg) * b;
  Result[2]:=cos(deg) * b - sin(deg) * a;
{
Rotation um X-Achse: a=Y, b=Z
Rotation um Y-Achse: a=Z, b=X
Rotation um Z-Achse: a=X, b=Y
}
end;