Janilabo | TPAInDistanceWithTPA((2)Ex(2))

function TPAInDistanceWithTPA(TPA1, TPA2: TPointArray; dist: Integer): Boolean;
var
  h1, i1, h2, i2: Integer;
begin
  h1 := High(TPA1);
  h2 := High(TPA2);
  if ((h1 > -1) and (h2 > -1) and (dist >= 0)) then
    for i1 := 0 to h1 do
      for i2 := 0 to h2 do
      begin
        Result := (dist >= Distance(TPA1[i1].X, TPA1[i1].Y, TPA2[i2].X, TPA2[i2].Y));
        if Result then
          Break;
      end;
end;

function TPAInDistanceWithTPAEx(TPA1, TPA2: TPointArray; dist: Integer; var m_pt1, m_pt2: TPoint): Boolean;
var
  h1, i1, h2, i2: Integer;
begin
  h1 := High(TPA1);
  h2 := High(TPA2);
  if ((h1 > -1) and (h2 > -1) and (dist >= 0)) then
    for i1 := 0 to h1 do
      for i2 := 0 to h2 do
      begin
        Result := (dist >= Distance(TPA1[i1].X, TPA1[i1].Y, TPA2[i2].X, TPA2[i2].Y));
        if Result then
        begin
          m_pt1 := TPA1[i1];
          m_pt2 := TPA2[i2];
          Break;
        end;
      end;
end;

function TPAInDistanceWithTPAEx2(TPA1, TPA2: TPointArray; dist: Integer; var m_pts1, m_pts2: TPointArray): Boolean;
var
  m, h1, i1, h2, i2, r: Integer;
begin
  h1 := High(TPA1);
  h2 := High(TPA2);
  if ((h1 > -1) and (h2 > -1) and (dist >= 0)) then
  begin
    m := Max(h1, h2);
    SetLength(m_pts1, (m + 1));
    SetLength(m_pts2, (m + 1));
    for i1 := 0 to h1 do
      for i2 := 0 to h2 do
      begin
        if (dist >= Distance(TPA1[i1].X, TPA1[i1].Y, TPA2[i2].X, TPA2[i2].Y)) then
        begin
          m_pts1[r] := TPA1[i1];
          m_pts2[r] := TPA2[i2];
          Inc(r);
        end;
      end;
    Result := (r > 0);
    SetLength(m_pts1, r);
    SetLength(m_pts2, r);
  end;
end;

function TPAInDistanceWithTPA2(TPA1, TPA2: TPointArray; minDist, maxDist: Integer): Boolean;
var
  d, h1, i1, h2, i2: Integer;
begin
  h1 := High(TPA1);
  h2 := High(TPA2);
  if ((h1 > -1) and (h2 > -1) and (minDist >= 0) and (minDist <= maxDist)) then
    for i1 := 0 to h1 do
      for i2 := 0 to h2 do
      begin
        d := Distance(TPA1[i1].X, TPA1[i1].Y, TPA2[i2].X, TPA2[i2].Y);
        Result := ((d >= minDist) and (d <= maxDist));
        if Result then
          Break;
      end;
end;

function TPAInDistanceWithTPA2Ex(TPA1, TPA2: TPointArray; minDist, maxDist: Integer; var m_pt1, m_pt2: TPoint): Boolean;
var
  d, h1, i1, h2, i2: Integer;
begin
  h1 := High(TPA1);
  h2 := High(TPA2);
  if ((h1 > -1) and (h2 > -1) and (minDist >= 0) and (minDist <= maxDist)) then
    for i1 := 0 to h1 do
      for i2 := 0 to h2 do
      begin
        d := Distance(TPA1[i1].X, TPA1[i1].Y, TPA2[i2].X, TPA2[i2].Y);
        Result := ((d >= minDist) and (d <= maxDist));
        if Result then
        begin
          m_pt1 := TPA1[i1];
          m_pt2 := TPA2[i2];
          Break;
        end;
      end;
end;

function TPAInDistanceWithTPA2Ex2(TPA1, TPA2: TPointArray; minDist, maxDist: Integer; var m_pts1, m_pts2: TPointArray): Boolean;
var
  d, m, h1, i1, h2, i2, r: Integer;
begin
  h1 := High(TPA1);
  h2 := High(TPA2);
  if ((h1 > -1) and (h2 > -1) and (minDist >= 0) and (minDist <= maxDist)) then
  begin
    m := Max(h1, h2);
    SetLength(m_pts1, (m + 1));
    SetLength(m_pts2, (m + 1));
    for i1 := 0 to h1 do
      for i2 := 0 to h2 do
      begin
        d := Distance(TPA1[i1].X, TPA1[i1].Y, TPA2[i2].X, TPA2[i2].Y);
        if ((d >= minDist) and (d <= maxDist)) then
        begin
          m_pts1[r] := TPA1[i1];
          m_pts2[r] := TPA2[i2];
          Inc(r);
        end;
      end;
    Result := (r > 0);
    SetLength(m_pts1, r);
    SetLength(m_pts2, r);
  end;
end;

var
  ds: TIntArray;
  d, h, i, t: Integer;
  TPA1, TPA2: TPointArray;

begin
  ClearDebug;
  TPA1 := TPAFromBox(Box(16, 151, 20, 153));
  TPA2 := TPAFromBox(Box(0, 0, 15, 15));
  d := Distance(14, 14, 16, 152);
  ds := [(d - 2), (d - 1), d, (d + 1), (d + 2)];
  h := High(ds);
  WriteLn('TPAInDistanceWithTPA:');
  for i := 0 to h do
  begin
    t := GetSystemTime;
    if TPAInDistanceWithTPA(TPA1, TPA2, ds[i]) then
      WriteLn('ds[' + IntToStr(i) + '] - YES! (' + IntToStr(GetSystemTime - t) + ' ms.)')
    else
      WriteLn('ds[' + IntToStr(i) + '] - NO. (' + IntToStr(GetSystemTime - t) + ' ms.)');
  end;
  WriteLn('TPAInDistanceWithTPA2:');
  for i := 0 to h do
  begin
    t := GetSystemTime;
    if TPAInDistanceWithTPA2(TPA1, TPA2, (ds[i] - 3), (ds[i] - 1)) then
      WriteLn('ds[' + IntToStr(i) + '] - YES! (' + IntToStr(GetSystemTime - t) + ' ms.)')
    else
      WriteLn('ds[' + IntToStr(i) + '] - NO. (' + IntToStr(GetSystemTime - t) + ' ms.)');
  end;
  SetLength(TPA1, 0);
  SetLength(TPA2, 0);
  SetLength(ds, 0);
end.