All pastes #477955 Raw Edit

Stuff

public text v1 · immutable
·published 2007-05-08 22:38 UTC
rendered paste body
function checkCircleClick(X,Y: Integer): Boolean;
var
  midx: Integer;
  midy: Integer;
  r: Integer;
begin
  midx:=28;
  midy:=29;
  r:=24;
  if Sqr(midx-X)+Sqr(midy-Y)<=Sqr(r) then
    Result:=  True
  else
    Result:=False
  end
end;