Как поворачивать фигуру не изменяя её размер?

@Jinjon213 · Регистрация: 09.11.2019

Author24 — интернет-сервис помощи студентам

Скажите,как можно поворачивать фигуру не изменяя её размер?

Delphi

anvas.Pen.Color:=clBlack;    
     Canvas.Brush.Color:=clYellow;
 
     Canvas.Chord(195,200,275,160,150,180,725,180);

@Puporev · 24.05.2020, 11:56

Фигуры типа rectangle, ellipse можно повернуть только на угол пропорциональный 90 градусам, меняя значения осей.
На другие углы только рисовать.
Например повернутый эллипс.

Delphi

procedure TForm1.FormPaint(Sender: TObject);
 {поворот по Х}
function rot_x(x,y:integer;t:real):integer;
begin
rot_x:=round(x*cos(t)-y*sin(t));
end;
{поворот по Y}
function rot_y(x,y:integer;t:real):integer;
begin
rot_y:=round(x*sin(t)+y*cos(t));
end;
{рисование эллипса под заданным углом u}
var a,b,x,y,n,sx,sy,rx,ry,i:integer;
    u,du:real;
begin
//центр эллипса
x:=clientwidth div 2;
y:=clientheight div 2;
u:=pi/4;//угол поворота
//полуоси эллипса
a:=100;
b:=50;
n:=50; //количество точек на эллипсе
//координаты начальной точки рисования
sx:=x+rot_x(a,0,u);
sy:=y+rot_y(a,0,u);
//рисование
with Canvas do
 begin
  pen.color:=clRed;
  moveto(sx,sy);
  du:=0;//угол поворота точек
  for i:=1 to 4*n do //4 четверти
   begin
    du:=du+2*pi/n;
    rx:=round(a*cos(du));
    ry:=round(b*sin(du));
    lineto(x+rot_x(rx,ry,u),y+rot_y(rx,ry,u));
   end;
  lineto(sx,sy);
 end;
end;

@GoodWeather · 24.05.2020, 16:00

Под Windows можно использовать WinAPI - SetWorldTransform().

@GoodWeather 884 / 586 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	24.05.2020, 16:00	3
	Под Windows можно использовать WinAPI - `SetWorldTransform()`. 2