Erster Einfall:
Delphi-Quellcode:
procedure Rotate90(var Stein: TSpielstein);
var
i, temp: Integer;
begin
for i := 1 to 4 do begin
temp := -Stein[i].x - Stein[0].x
Stein[i].x - Stein[0].x := Stein[i].y - Stein[0].y;
Stein[i].y - Stein[0].y := temp;
end;
end;
Ist nur was mir gerade dazu eingefallen ist, ich hab's nicht überprüft, probier einfach mal ob's funktioniert.