VPF::Rotate a 2D Point - Форум программистов

Poseidon

Дата 19.5.2005, 01:27 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: нет
Всего: 133

Код

const 
  PIDiv180 = 0.017453292519943295769236907684886; 

procedure Rotate(RotAng: Double; x, y: Double; var Nx, Ny: Double); 
var 
  SinVal: Double; 
  CosVal: Double; 
begin 
  RotAng := RotAng * PIDiv180; 
  SinVal := Sin(RotAng); 
  CosVal := Cos(RotAng); 
  Nx := x * CosVal - y * SinVal; 
  Ny := y * CosVal + x * SinVal; 
end;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

---------------------------------------------------------------------------------

Код

const 
  PIDiv180 = 0.017453292519943295769236907684886; 

procedure Rotate(RotAng: Double; x, y, ox, oy: Double; var Nx, Ny: Double); 
begin 
  Rotate(RotAng, x - ox, y - oy, Nx, Ny); 
  Nx := Nx + ox; 
  Ny := Ny + oy; 
end; 



procedure Rotate(RotAng: Double; x, y: Double; var Nx, Ny: Double); 
var 
  SinVal: Double; 
  CosVal: Double; 
begin 
  RotAng := RotAng * PIDiv180; 
  SinVal := Sin(RotAng); 
  CosVal := Cos(RotAng); 
  Nx := x * CosVal - y * SinVal; 
  Ny := y * CosVal + x * SinVal; 
end;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »