Составить алгоритм по имеющейся процедуре бинаризации

[KSanch]

Примерно понимаю как работает программа, только не пойму что такое LO в функции, и как эту функцию в алгоритм засунуть( и не понимаю вот это что зачем

Bitmap.PixelFormat := pf24Bit;
  C1 := ColorToRGB(Color1);
  C2 := ColorToRGB(Color2);
Dest := Bitmap.ScanLine[y];

Чем вообще выступает переменная Dest, и почему она в степень потом :-| Помогите пожалуйста, очень срочно

procedure Threshold(Bitmap: TBitmap; Value: Byte; Color1, Color2: TColor); //Порог между двумя цветами на Bitmap
type
  TRGB = record
  B, G, R: Byte;
  end;
  pRGB = ^TRGB;
function ColorToRGB(Color: TColor): TRGB;
 begin
   with Result do
    begin
      R := Lo(Color);
      G := Lo(Color shr 8);
      B := Lo((Color shr 8) shr 8);
    end;
 end;
var
  x, y: Word;
  C1, C2: TRGB;
  Dest: pRGB;
begin
  Bitmap.PixelFormat := pf24Bit;
  C1 := ColorToRGB(Color1);
  C2 := ColorToRGB(Color2);
  for y := 0 to Bitmap.Height - 1 do
  begin
    Dest := Bitmap.ScanLine[y];
    for x := 0 to Bitmap.Width - 1 do
    begin
      //если среднеарифметическое R, G и B больше Value,
      //то точку (x, y) закрашиваем цветом Color1,
      //иначе - цветом Color2
      if (Dest^.r + Dest^.g + Dest^.b) / 3 > Value then
        Dest^ := C1
      else
        Dest^ := C2;
      Inc(Dest);
    end;
  end;
end;

[northener]

только не пойму что такое LO в функции

А в справке посмотреть в лом?
Lo

Чем вообще выступает переменная Dest, и почему она в степень потом

Это не степень. Это разименование указателя pRGB = ^TRGB;
Может учебник почитаешь?

[KSanch]

Сообщение от northener

А в справке посмотреть в лом?
Это не степень. Это разименование указателя pRGB = ^TRGB;
Может учебник почитаешь?

Если, наверное , было время читать учебники, то не писал бы на форум. И не скажешь тогда зачем форумы придумали? Чтобы отправлять всех читать учебники? Не хочешь помочь лучше бы не писал

[Serge_Bliznykov]

KSanch, а почему Вы огрызаетесь вместо того, чтобы поблагодарить?
Вам ответили на оба ваших вопроса.
Ещё что-то осталось непонятным?!

[KSanch]

Все, всем спасибо. Получилось как то так.
Оператор Bmp.PixelFormat:=pf24bit устанавливает, что каждый из трех основных цветов будет выражаться кодом из 8 бит.
Операторы C1 :=ColorToRGB(Color1) и C2 := ColorToRGB(Color2) раскладывают полученные цвета на составляющие R, G, B.
Далее идет цикл по всей высоте изображения BMP
В операторе Dest := Bitmap.ScanLine[y] свойство ScanLine обеспечивает быстрый доступ к отдельным пикселям.
Далее идет цикл по всей ширине изображения BMP. За этим следует проверка условия: если среднеарифметическое R, G и B больше Value, то точку (x, y) закрашиваем цветом Color1, иначе - цветом Color2.