program BarbFisher;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}


const
  TESS_FILTER_MOUSEOVER_CHARS: TTesseractFilter = [3, 3, [true, 1, TM_Mean]];


function TRSActionBar.getKeybindAt(slot: integer): Byte;
var
  b: TBox;
  s2: string;
  bmp, i, j, c: Integer;
  h, s, l: Extended;
  mBmp: TMufasaBitmap;
begin
  smartImage.drawBox(self.getSlotBox(slot), false, clRed);
  b.edit(2, 17, -20, -2);

  bmp := bitmapFromClient(b);
  mBmp := GetMufasaBitmap(bmp);

  for i := 1 to mBmp.getWidth do
    for j := 0 to mBmp.getHeight do
    begin
      c := getColor(point(b.x1 + i, b.y1 + j));
      ColorToHSL(c, h, s, l);
      if l < 65.0 then
        mBmp.SetPixel(i, j, HSLToColor(0.00, 0.00, 0.00));
    end;

  FreeBitmap(bmp);
  bmp := mBmp.getIndex();

  try
    Tesseract_ApplyFilter(bmp, TESS_FILTER_MOUSEOVER_CHARS);
    s2 := Tesseract_GetText(bmp, TESS_WHITELIST_LETTERS + TESS_WHITELIST_NUMBERS);
  finally
    FreeBitmap(bmp);
  end;

  writeln(s2);
end;



var
  i: Integer;
begin
  smartEnableDrawing := True;
  disableSRLDebug := True;
  SetupSRL;
  for i := 1 to 14 do
    actionBar.getKeybindAt(i);
end.