anchor.diff:  function GetLength(A,B:TKMPointF): single; overload;
   begin
     Result := sqrt(sqr(A.x-B.x) + sqr(A.y-B.y));
  -end;
  -
  -
  -function GetLength(A:TKMPointF): single; overload;
  -begin
  -  Result := sqrt(sqr(A.x) + sqr(A.y));
  -end;
  -
  -
  -function Normalize(var A:TKMPointF): TKMPointF;
  -var Len:single;
  -begin
  -  Len := GetLength(A);
  -  Result.X := A.X /Len;
  -  Result.Y := A.Y /Len;
   end;
   
   
  
positive.code: begin
    Result := ( P1.X = P2.X ) and ( P1.Y = P2.Y );
  end;
  
  function KMSamePointF(P1,P2:TKMPointF; Epsilon:single): boolean;
  begin
  
negative.code:   w:=A.Y; A.Y:=B.Y; B.Y:=w;
  end;
  
  
  end.
  