ImageEn, unit imageenproc

TImageEnProc.ConvertToBWThreshold

TImageEnProc.ConvertToBWThreshold


Declaration

procedure ConvertToBWThreshold(Threshold: Integer = -1);


Description

Convert a true color image (24 bit) to black & white (1 bit) using a thresholding algorithm.

The image is first converted to gray levels, then all levels less than Threshold are set to black, while the remainder are set to white.
Threshold is an intensity value (0..255).
If Threshold is -1, the threshold value used will be the average level of the original image.
If Threshold is -2, a Maximum Entropy Algorithm is used.

Note: Any selection is ignored. The whole image is converted to the specified palette


Demo

Demo  Demos\ImageEditing\EveryMethod\EveryMethod.dpr


Black and White Conversion Comparison

ImageEnView1.IO.LoadFromFile( 'D:\TestImage.jpg' );

  


// Convert true color image to black & white using the Floyd-Steinberg algorithm
ImageEnView1.Proc.ConvertToBW_FloydSteinberg();

  


// Convert true color image to black & white using a local threshold algorithm (mean)
ImageEnView1.Proc.ConvertToBWLocalThreshold( 4, ietMean );

  


// Convert true color image to black & white using a local threshold algorithm (median)
ImageEnView1.Proc.ConvertToBWLocalThreshold( 4, ietMedian );

  


// Convert true color image to black & white using a local threshold algorithm (min/max mean)
ImageEnView1.Proc.ConvertToBWLocalThreshold( 4, ietMeanMinMax );

  


// Convert true color image to black & white with an ordered dithering method
ImageEnView1.Proc.ConvertToBWOrdered();

  


// Convert true color image to black & white using a thresholding algorithm
ImageEnView1.Proc.ConvertToBWThreshold( 128 );

  


// Convert true color image to black & white using a thresholding algorithm (using the average level)
ImageEnView1.Proc.ConvertToBWThreshold( -1 );

  


// Convert true color image to black & white using a thresholding algorithm (using maximum entropy)
ImageEnView1.Proc.ConvertToBWThreshold( -2 );

  


Example

// All pixels < 128 wil be black >= 128 will be white
ImageEnView1.Proc.ConvertToBWThreshold(128);

// Auto calculate the threshold value as the average of all color levels
ImageEnView1.Proc.ConvertToBWThreshold(-1);

// Use maximum entropy algorithm
ImageEnView1.Proc.ConvertToBWThreshold(-2);

// Count blobs in an image
Test Image:



var
  rects: TList;
  i: integer;
  r: TRect;
begin
  ImageEnView1.Proc.ConvertToBWThreshold(80);     // <= 80 = recommended parameter
  rects := ImageEnView1.Proc.SeparateObjects(4, false);

  // Needed to draw red rectangles around found objects!
  ImageEnView1.Proc.ConvertTo24Bit();

  for i := 0 to rects.Count-1 do
  begin
    r := PRect(rects[i])^;

    // draw boxes
    with ImageEnView1.IEBitmap.Canvas do
    begin
      Pen.Color := clRed;
      Brush.Style := bsClear;
      Rectangle( r.Left, r.Top, r.Right + 1, r.Bottom + 1 );
    end;

    dispose( PRect( rects[i] ));
  end;
  rects.Free();
  ImageEnView1.Update();

  ShowMessage('Found ' + IntToStr( rects.Count ) + ' objects');
End;

Result: