Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

Вращение рисунка   Найти похожие ветки 

 
Dextor   (2004-06-02 15:20) [0]

Как вращать рисунок (BMP или JPEG) ???


 
Jeer ©   (2004-06-02 21:06) [1]

Ключевое слово - матрица вращений.


 
Diver   (2004-06-02 22:17) [2]

uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
 bm, bm1: TBitMap;
 x, y: integer;
 r, a: single;
 xo, yo: integer;
 s, c: extended;
begin
 bm := TBitMap.Create;
 bm.LoadFromFile("ex.bmp");
 xo := bm.Width div 2;
 yo := bm.Height div 2;
 bm1 := TBitMap.Create;
 bm1.Width := bm.Width;
 bm1.Height := bm.Height;
 a := 0;
 repeat
   for y := 0 to bm.Height - 1 do begin
     for x := 0 to bm.Width - 1 do begin
       r := sqrt(sqr(x - xo) + sqr(y - yo));
       SinCos(a + arctan2((y - yo), (x - xo)), s, c);
       bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[
         round(xo + r * c), round(yo + r * s)];
     end;
     Application.ProcessMessages;
   end;
   Form1.Canvas.Draw(xo, yo, bm1);
   a := a + 0.05;
   Application.ProcessMessages;
 until Form1.Tag <> 0;
 bm.Destroy;
 bm1.Destroy;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
3-1089280127
Ted
2004-07-08 13:48
2004.08.15
Помогите с запросом sql. Заранее благодарен


6-1087459368
P@vel
2004-06-17 12:02
2004.08.15
Size Does Matter


14-1091197323
menart
2004-07-30 18:22
2004.08.15
Проблемы админов и программистов


3-1090392282
AndrewK
2004-07-21 10:44
2004.08.15
Построение системы с распределенной базой данных.


1-1091266084
Gear
2004-07-31 13:28
2004.08.15
Работа с потоками в компонентах.