Datorgrafika un attēlu apstrādes pamati .6.mājas darbs

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption:=IntToStr(X-x0)+','+IntToStr(y0-Y);
end;
procedure TForm1.Rotate();
var i: integer;
xt,yt: integer;
a: real;
begin
a:=DegToRad(StrToInt(LabeledEdit1.Text));

for i:=1 to 4 do
begin
xt:=Round(x[i]*cos(a)-y[i]*sin(a));
yt:=Round(x[i]*sin(a)+y[i]*cos(a));
x[i]:=xt;
y[i]:=yt;
end;
ToEdit();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Rotate();
Draw();
end;
end.
…