SCAR Code:
Function DensityTPA(TPA: TPointArray; x1, y1, x2, y2: Integer; Percent: Boolean): Extended;
Begin
TB := IntToBox(x1, y1, x2, y2);
L := High(TPA);
For I := 0 To L Do
If PointInBox(TPA[i], TB) Then
M := M + 1;
AW := x2 - x1;
AH := y2 - y1;
Pixels := (AW + 1) * (AH + 1);
Result := M / Pixels;
If Percent Then
Result := Result * 100;
End;
Function ColorDensityAt(Var TPA: TPointArray; Color, Tolerance, x1, y1, x2,
y2: Integer; Percent: Boolean): Extended;
Begin
FindColorsTolerance(TPA, Color, x1, y1, x2, y2, Tolerance);
Result := DensityTPA(TPA, x1, y1, x2, y2, Percent);
End;