Поворот изображения. Примитивный код.

[Stilet]

Всем О'хайо. Сижу тут в отпуске, делать нече, Барыкина слушаю.
Наткнулся на задачку про вращение изображения на любой угол.
Начал вспоминать самый примитивный способ пересчета полярных координат пикселей, и запнулся на одной ерунде, и никак не вьеду где ошибка.

Есть такой код:

procedure TForm1.FormPaint(Sender: TObject);
var
   CanvasCenterX,CanvasCenterY,
   ImageCenterX,ImageCenterY,
   NewPointX,NewPointY,
   AngleNew,AngleOrigin,Radius
   :Double;
   xImagePoint,yImagePoint,JpegWidth,JpegHeight:Integer;
   PointColor:TColor;
begin
 //Указывается угол поворота, и его пересчет в радианы
 AngleNew:=45;  AngleNew:=3.1415/180*AngleNew;
 //Расчитывается центр канвы, куда идет рисование
 CanvasCenterX:=Width/2; CanvasCenterY:=Height/2;
 //Размеры картинки
 JpegWidth:=jpg.Width;  JpegHeight:=jpg.Height;
 //Ее центр
 ImageCenterX:=JpegWidth/2; ImageCenterY:=JpegHeight/2;

 //Проход циклом по картинке
 for yImagePoint:=0 to JpegHeight-1 do begin
   for xImagePoint:=0 to JpegWidth-1 do begin

     //Расчет радиуса от центра картинки до пикселя
     Radius:=Sqrt(Sqr(ImageCenterX-xImagePoint)+Sqr(ImageCenterY-yImagePoint));
     //Расчет угла, под которым этот пиксель расположен в картинке
     if Radius<>0 then AngleOrigin:=arcsin((ImageCenterY-yImagePoint)/Radius)
     else AngleOrigin:=0;
     //Расчет его нового положения
     NewPointX:=Radius*cos(AngleNew+AngleOrigin)+CanvasCenterX;
     NewPointY:=Radius*sin(AngleNew+AngleOrigin)+CanvasCenterY;

     //Вывод на канву
     PointColor:=jpg.Canvas.Pixels[xImagePoint,yImagePoint];
     Canvas.Pixels[round(NewPointX),round(NewPointY)]:=PointColor;
	 end;
 end;

end;

Так вот проблема в том, что он выводит только половину картинки. Хотя вращает вроде верно
0.jpg

И вот я чет никак в толк не возьму, почему только половинку картинки выводит... Может кто подскажет, где в алгоритме недочет?

P.S. качество этого алгоритма естственно не фонтан, но меня не качество интересует а сам принцип.

[Pavia]

Так как в математике корень это не однозначная функция. А двузначная.
25= (-5)^2,
25= (+5)^2;

sqrt(25)=>+5,
sqrt(25)=>-5;

Перед корнем должен стоять +-. На паскале придётся продублировать код с разными знаками.

[BDA]

if Radius <> 0 then AngleOrigin := arcsin((ImageCenterY - yImagePoint) / Radius)
else AngleOrigin := 0;
if ImageCenterX - xImagePoint < 0 then
    AngleOrigin := pi - AngleOrigin;

Так как arcsin от -pi/2 до pi/2 (всего лишь pi), а весь круг 2*pi.

[Stilet]

От жеж я Олень )))
Плюсую обоим.

procedure TForm1.FormPaint(Sender: TObject);
var
   CanvasCenterX,CanvasCenterY,
   ImageCenterX,ImageCenterY,
   NewPointX,NewPointY,
   AngleNew,AngleOrigin,Radius,RadiusMul
   :Double;
   xImagePoint,yImagePoint,JpegWidth,JpegHeight:Integer;
   PointColor:TColor;
begin
 //Указывается угол поворота, и его пересчет в радианы
 AngleNew:=1;  AngleNew:=3.1415/180*AngleNew;
 //Расчитывается центр канвы, куда идет рисование
 CanvasCenterX:=Width/2; CanvasCenterY:=Height/2;
 //Размеры картинки
 JpegWidth:=jpg.Width;  JpegHeight:=jpg.Height;
 //Ее центр
 ImageCenterX:=JpegWidth/2; ImageCenterY:=JpegHeight/2;
 RadiusMul:=1;
 //Проход циклом по картинке
 for yImagePoint:=0 to JpegHeight-1 do begin
   for xImagePoint:=0 to JpegWidth-1 do begin

     //Расчет радиуса от центра картинки до пикселя
     Radius:=Sqrt(Sqr(ImageCenterX-xImagePoint)+Sqr(ImageCenterY-yImagePoint));

     if (ImageCenterX>xImagePoint) then Radius:=-Radius;

     //Расчет угла, под которым этот пиксель расположен в картинке
     if Radius<>0 then AngleOrigin:=arcsin((ImageCenterY-yImagePoint)/Radius)
     else AngleOrigin:=0;
     //Расчет его нового положения
     NewPointX:=RadiusMul*Radius*cos(AngleNew-AngleOrigin)+CanvasCenterX;
     NewPointY:=RadiusMul*Radius*sin(AngleNew-AngleOrigin)+CanvasCenterY;

     //Вывод на канву
     PointColor:=jpg.Canvas.Pixels[xImagePoint,yImagePoint];
     Canvas.Pixels[round(NewPointX),round(NewPointY)]:=PointColor;
	 end;
 end;

end;

кстати заметил, что если в выражении if (ImageCenterX>xImagePoint) then Radius:=-Radius; знак поменять на "<", то получаю отзеркаливание изображения
Приколько получается.

[min@y™]

Я просто оставлю это здесь.

[Filka]

http://www.efg2.com/Lab/ImageProcess...teScanline.htm

[zvygin1964]

Сообщение от min@y™

Я просто оставлю это здесь.

Красотища !