Mat
2012-04-09 14:37:08
Any fast method of find a closed door? as I'm stumped atmo.
2012-04-09 14:37:08
2012-04-09 14:48:11
2012-04-09 14:49:07
2012-04-09 14:51:08
2012-04-09 14:54:10
function IsDoorClosed: Boolean;
var
MyTPA : TPointArray;
i: Integer;
aPoints: T2DPointArray;
begin
SetLength(MyTPA, 0);
result := false;
x := MSCX;
y := MSCY;
FindColorsSpiralTolerance(x, y, MyTPA, DoorColor, 180, 125, 370, 180, 13);
aPoints := SplitTPA Ex(MyTPA, 35, 35);
SortATPAFromFirstpoint(aPoints, Point(MSCX, MSCY));
for i := 0 to High(aPoints) do
// DebugATPABounds(aPoints);
begin
writeln(Length(MyTPA));
if (Length(MyTPA) > 400) then
begin
writeln('Door Is closed');
result := true;
break;
end;
end;
end;
2012-04-09 16:59:24
2012-04-10 09:59:19