Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
w:=spinedit1.value;
w:=w*Pi/180;
for n:=1 to n-1 do
begin
u:=trunc((xp[1]-x)*cos(w)+(yp[1]-y)*sin(w));
v:=trunc(-(xp[1]-x)*sin(w)+(yp[1]-y)*cos(w));
image1.Canvas.Pixels[u,v]:=clgreen;
image1.Canvas.Pen.Color:=clgreen;
image1.Canvas.Ellipse(u-6,v-6,u+6,v+6);
also bis jetzt macht er mir eine drehunng um den koordinatenursprung. aber ich will ja eigentlich um punkt eins drehen. dazu muss man den abstand von punkt eins zur x und y achse von allen anderen punkten subtrahieren. frage mich aber wie ich das in den quelltext bekommen soll.