
Originally Posted by
Ollybest
you guys way overthink things
?
another tip, tunnel/black shifts between 0 and 1 in RS, tolerance wont do alone on 0, so CTS2 it 100 sat mod
Simba Code:
Function FindObj: Boolean;
Var
tmpCTS, i, l, r, counter:integer;
ObjTPA:TPointArray;
ObjATPA:T2DPointArray;
x,y:integer;
Begin
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.00, 100.0);
FindColorsTolerance(ObjTPA, 0, MSX1, MSY1, MSX2, MSY2, 5);
SplitTPAWrap(ObjTPA, XV, ObjATPA);
SortATPASize(ObjATPA,True);
End;

Originally Posted by
BMWxi
I have to say Olly, that is easier. I still need think of a way to avoid the pink one though.
Something like olly's +
Simba Code:
SortATPAFrom(ObjATPA, Point(MSX1, MSY1+20));
DeleteValueInATPA(ObjATPA, 1);