Уже месяца 3 ищу в инете процедуру поворота изображения. Скачал это:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | procedure povorot(bmp1: tbitmap; var bmp2: tbitmap; a: real );
var
x1,y1: integer ;
x2,y2: integer ;
r: single ;
xo, yo: integer ;
s, c: extended ;
begin
xo:=bmp1 . Width div 2 ; yo:=bmp1 . Height div 2 ;
for y2 := 0 to bmp1 . Height - 1 do
for x2 := 0 to bmp1 . Width - 1 do
begin
r := sqrt(sqr(x2 - xo) + sqr(y2 - yo));
SinCos(a + arctan2((y2 - yo), (x2 - xo)), s, c);
x1:=round(xo + r * c); y1:=round(yo + r * s);
if (x1>= 0 ) and (x1<bmp1 . Width) and (y1>= 0 ) and (y1<bmp1 . Height) then
begin
if bmp1 . Canvas . Pixels[x1,y1]<>clwhite then
bmp2 . Canvas . Pixels[x2,y2]:=bmp1 . Canvas . Pixels[x1,y1];
end
else
bmp2 . Canvas . Pixels[x2,y2]:=clwhite;
end ;
end ;
|
После копирования с пояснениями что то случилось...
Вообщем функцию скачал... А че с ней делать незнаю!!! Пожалуйста объясните! Или кинте другую...
И что такое DLL и что с ним (как?) делать киньте ссылку на статейку... плз.