Повернуть 2D точку

Советы по delphi \ Графика и Игры \ Canvas \ Повернуть 2D точку
Повернуть 2D точку
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; (* End Of Rotate Cartesian Point*)

Название: Повернуть 2D точку
Дата публикации: 2004-08-30 (2708 Прочтено)


	Все о delphi	Delphirus - прграммирование на delphi

blocks.gif

Навигация