Difference between revisions of "TPADistToPointEx"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> procedure TPADistToPointEx(const TPA: TPointArray; const Point: TPoint; out MinDist, MaxDist: Extended; out MinPoint, MaxPoin...") |
(No difference)
|
Latest revision as of 14:27, 21 November 2012
Contents
[hide]Definition
procedure TPADistToPointEx(const TPA: TPointArray; const Point: TPoint; out MinDist, MaxDist: Extended; out MinPoint, MaxPoint: TPoint);Availability
SCAR Divi 3.37 > Current
Description
Calculates the minimum and maximum distance of the TPoint Point, to all of the points in the TPointArray TPA and returns the distances in MinDist and MaxDist. The point from TPA that was closest to Point is returned in MinPoint, the one furthest in MaxPoint.
Example
var MinDist, MaxDist: Extended; PMin, PMax: TPoint; begin TPADistToPointEx([Point(0, 0), Point(3, 0)], Point(1, 1), MinDist, MaxDist, PMin, PMax); WriteLn(FloatToStr(MinDist) + ' - ' + FloatToStr(MaxDist)); WriteLn(PointToStr(PMin) + ' - ' + PointToStr(PMax)); end.
Output:
1.4142135623731 - 2.23606797749979 (0,0) - (3,0)
