[Pascal ABC.NET] Поворот рисунка

[Mihail90]

Всем доброго времени суток. У меня возникла проблема с поворотом рисунка (из файла). Я добавил рисунок в PascalABC, по следующему коду:

uses 
    GraphABC; 
var 
    pict: Picture; 
begin 
    pict := Picture.Create('<путь к файлу-рисунку>'); 
    pict.Draw(0, 0); 
end.

Как мне его повернуть рисунок на определенный заданный угол? Уже неделю мучаюсь с этой задачей. ПОМОГИТЕ ПОЖАЛУЙСТА!!!


_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

[NetSpace]

где-то тут на форуме такое уже обсуждалось. там был поворот не на 90, 180 и 270 градусов, а на произвольный угол. вот там-то и начинались проблемы с пустыми пикселями.
в задача считаем, что вращаем относительно верхнего левого угла рисунка.
задаёте угол поворота ф
находите пиксель с координатами x,y.
определяете его текущий угол фo = арктангенс (y/x)
определяете радиус-вектор пикселя r = корень(x*x + y*y)
к этому углу прибавляете ваш новый угол ф = фo + ф
и считаете новые координаты вашего нового повёрнутого пикселя:
x = r* косинус (ф)
y = r*синус (ф)
рисуете ваш новый пиксель в точке с координатами x,y

[Serge_Bliznykov]

Сообщение от Mihail90

PascalABC.Net

вариант с поворотом системы координат не рассматривали?

uses ABCObjects,GraphABC;
 
var
  p: PictureABC;
 
begin
  //Coordinate.Origin := Window.Center;
  Coordinate.Origin := Point.Create(100,100);
  Coordinate.Angle := 45;
 
  p:= PictureABC.Create(0,0,'D:\temp\fnt1.png');
end.

или, что тоже самое, так:

uses GraphABC;
var 
    pict: Picture; 
begin
  Coordinate.Origin := Point.Create(100,100);
  Coordinate.Angle := 90;
  pict := Picture.Create('D:\temp\fnt1.png'); 
  pict.Draw(0, 0);  
end.

[Mihail90]

Спасибо, вроде работает!