Difference between revisions of "Angle16Deg"
From Free Pascal wiki
Jump to navigationJump to searchLine 12: | Line 12: | ||
function Angle16DegToRad(const a_angle16deg:integer):double; | function Angle16DegToRad(const a_angle16deg:integer):double; | ||
begin | begin | ||
− | result := a_angle16deg * Pi * 16 | + | result := a_angle16deg * Pi / ( 180 * 16 ); |
end; | end; | ||
Revision as of 20:58, 27 October 2015
│
English (en) │
français (fr) │
The one angle16deg is 1/16th of a degree. For example, a full circle equals 5760 (= 16*360).
function Angle16DegToRad
Convert Angle16Deg to radian
function Angle16DegToRad(const a_angle16deg:integer):double;
begin
result := a_angle16deg * Pi / ( 180 * 16 );
end;
function RadtoAngle16Deg
Convert radian to Angle16Deg
function RadtoAngle16Deg(const a_radian:double):integer;
begin
result := round ( a_radian * 180 * 16 / Pi );
end;