paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 21:06:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added DegNormalize

Browse Source 
git-svn-id: trunk@27492 -
This commit is contained in:
michael 2014-04-06 16:37:43 +00:00
parent 4563b2994d
commit d45ced0221
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/objpas/math.pp
View File

@ -244,6 +244,15 @@ function gradtodeg(grad : float) : float;inline;
{ one cycle are 2*Pi rad } { one cycle are 2*Pi rad }
function cycletorad(cycle : float) : float;inline; function cycletorad(cycle : float) : float;inline;
function radtocycle(rad : float) : float;inline; function radtocycle(rad : float) : float;inline;
{$ifdef FPC_HAS_TYPE_SINGLE}
Function DegNormalize(deg : single) : single; inline;
{$ENDIF}
{$ifdef FPC_HAS_TYPE_DOUBLE}
Function DegNormalize(deg : double) : double; inline;
{$ENDIF}
{$ifdef FPC_HAS_TYPE_EXTENDED}
Function DegNormalize(deg : extended) : extended; inline;
{$ENDIF}
{ trigoniometric functions } { trigoniometric functions }
@ -670,6 +679,31 @@ function radtocycle(rad : float) : float;inline;
radtocycle:=rad*(1/(2*pi)); radtocycle:=rad*(1/(2*pi));
end; end;
{$ifdef FPC_HAS_TYPE_SINGLE}
Function DegNormalize(deg : single) : single;
begin
Result:=Deg-Trunc(Deg/360)*360;
If Result<0 then Result:=Result+360;
end;
{$ENDIF}
{$ifdef FPC_HAS_TYPE_DOUBLE}
Function DegNormalize(deg : double) : double; inline;
begin
Result:=Deg-Trunc(Deg/360)*360;
If (Result<0) then Result:=Result+360;
end;
{$ENDIF}
{$ifdef FPC_HAS_TYPE_EXTENDED}
Function DegNormalize(deg : extended) : extended; inline;
begin
Result:=Deg-Trunc(Deg/360)*360;
If Result<0 then Result:=Result+360;
end;
{$ENDIF}
{$ifndef FPC_MATH_HAS_TAN} {$ifndef FPC_MATH_HAS_TAN}
function tan(x : float) : float; function tan(x : float) : float;
var var