Difference between revisions of "FindColorSpiral2"

From SCAR Divi Manual
Jump to: navigation, search
Line 1: Line 1:
 
==Definition==
 
==Definition==
 
<source lang="scar" lines="false">
 
<source lang="scar" lines="false">
function FindColorSpiral2(var x, y: Integer; Color, xs, ys, xe, ye: Integer): Boolean;
+
function FindColorSpiral2(var X, Y: Integer; const Color, XS, YS, XE, YE: Integer): Boolean;
 
</source>
 
</source>
  
Line 7: Line 7:
 
SCAR Divi 3.00 > Current
 
SCAR Divi 3.00 > Current
  
*Before SCAR Divi 3.33, the search would not start in the middle of the search area if '''x''' or '''y''' are smaller than 0.
+
*Before SCAR Divi 3.33, the search would not start in the middle of the search area if '''X''' or '''Y''' are smaller than 0.
  
 
==Description==
 
==Description==

Revision as of 18:11, 19 April 2012

Definition

function FindColorSpiral2(var X, Y: Integer; const Color, XS, YS, XE, YE: Integer): Boolean;

Availability

SCAR Divi 3.00 > Current

  • Before SCAR Divi 3.33, the search would not start in the middle of the search area if X or Y are smaller than 0.

Description

This function searches for a given color specified by Color using a spiral pattern. The search area is given as a set of upper-left (XS, YS) and lower-right (XE, YE) coordinates which are specified relative to the selected client window. If the given search area is invalid (XS > XE or YS > YE), an exception is thrown.

The search will start at the coordinates given by (X, Y), if these coordinates are outside of the bounds of the search area, the function will start searching at the center of the search area.

The function returns false if the color was not found, if it was it returns true and the coordinates of the center of the entire spanning area of the found color in (X, Y). The search will stop after the first instance of the color was found.

Example

var
  w, h: Integer;
  x, y: Integer;

begin
  GetClientDimensions(w, h);
  x := w div 2; y := h div 2;
  if FindColorSpiral2(x, y, 0, 0, 0, w - 1, h - 1) then
    WriteLn('Found color at ' + IntToStr(x) + ', ' + IntToStr(y));
end.

See Also