paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 23:00:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix typo in DotProduct (TAGeometry), some cleanup

Browse Source 
git-svn-id: trunk@54013 -
This commit is contained in:
wp 2017-01-27 22:43:41 +00:00
parent 3df8a5c390
commit a84ac921d2
1 changed files with 1 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/tachart/tageometry.pas
View File

@ -83,8 +83,6 @@ function ProjToRect(
const APt: TDoublePoint; const ARect: TDoubleRect): TDoublePoint;
function RectIntersectsRect(
var ARect: TDoubleRect; const AFixed: TDoubleRect): Boolean;
function RectIntersectsRectAlt(R1, R2: TDoubleRect): Boolean; overload;
function RectIntersectsRectAlt(R1, R2: TRect): Boolean; overload;
function RotatePoint(const APoint: TDoublePoint; AAngle: Double): TDoublePoint; overload;
function RotatePoint(const APoint: TPoint; AAngle: Double): TPoint; overload;
function RotatePointX(AX, AAngle: Double): TPoint;
@ -131,7 +129,7 @@ end;
function DotProduct(A, B: TDoublePoint): Double;
begin
Result := A.X * B.X + A.Y + B.Y;
Result := A.X * B.X + A.Y * B.Y;
end;
function DoublePoint(AX, AY: Double): TDoublePoint; inline;
@ -617,18 +615,6 @@ begin
RangesIntersect(a.Y, b.Y, AFixed.a.Y, AFixed.b.Y, a.Y, b.Y);
end;
function RectIntersectsRectAlt(R1, R2: TDoubleRect): Boolean;
begin
Result := RectIntersectsRect(R1, R2);
end;
function RectIntersectsRectAlt(R1, R2: TRect): Boolean;
var
R: TRect;
begin
Result := IntersectRect(R, R1, R2);
end;
function RotatePoint(const APoint: TDoublePoint; AAngle: Double): TDoublePoint;
var
sa, ca: Extended;