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

Poseidon

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

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

Загрузка ...

Delphi developer

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

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

Код

const  
  PIDiv180 = 0.017453292519943295769236907684886; 

procedure Rotate(Rx, Ry, Rz: Double; x, y, z, ox, oy, oz: Double; 
  var Nx, Ny, Nz: Double); 
begin 
  Rotate(Rx, Ry, Rz, x - ox, y - oy, z - oz, Nx, Ny, Nz); 
  Nx := Nx + ox; 
  Ny := Ny + oy; 
  Nz := Nz + oz; 
end; 



procedure Rotate(Rx, Ry, Rz: Double; x, y, z: Double; var Nx, Ny, Nz: Double); 
var  
  TempX: Double; 
  TempY: Double; 
  TempZ: Double; 
  SinX: Double; 
  SinY: Double; 
  SinZ: Double; 
  CosX: Double; 
  CosY: Double; 
  CosZ: Double; 
  XRadAng: Double; 
  YRadAng: Double; 
  ZRadAng: Double; 
begin 
  XRadAng := Rx * PIDiv180; 
  YRadAng := Ry * PIDiv180; 
  ZRadAng := Rz * PIDiv180; 

  SinX := Sin(XRadAng); 
  SinY := Sin(YRadAng); 
  SinZ := Sin(ZRadAng); 

  CosX := Cos(XRadAng); 
  CosY := Cos(YRadAng); 
  CosZ := Cos(ZRadAng); 

  Tempy := y * CosY - z * SinY; 
  Tempz := y * SinY + z * CosY; 
  Tempx := x * CosX - Tempz * SinX; 

  Nz := x * SinX + Tempz * CosX; 
  Nx := Tempx * CosZ - TempY * SinZ; 
  Ny := Tempx * SinZ + TempY * CosZ; 
end;

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

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

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