TImageEnProc.MapGrayToColor

Declaration

procedure MapGrayToColor(map: array of TRGB);

Description

Map each gray scale level to specified RGB color using the provided map.
For best results the map should contain 256 entries (if not it will be scaled).

Parameter	Description
map	Array of 256 elements of TRGB values

Note:
◼You can generate 256 color maps using GenerateDicomColorPalette, GenerateColorLuminancePalette, GenerateHuePalette and GenerateGradientPalette
◼To display images with a color map (without modifying the image) use AssignColorMap
◼Color to gray conversion is controlled by: RedToGrayCoef, GreenToGrayCoef, BlueToGrayCoef
◼If the image PixelFormat is not ie24RGB, it will be converted

Demo

Demos\ImageEditing\EveryMethod\EveryMethod.dpr

Method Testing

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

// Apply a gradient palette to image
colorMap := GenerateGradientPalette( clYellow, clGreen, 256 );
ImageEnView1.Proc.MapGrayToColor(colorMap);

// Apply HotMetalBlue palette to image
colorMap := GenerateDicomColorPalette( iectHotMetalBlue );
ImageEnView1.Proc.MapGrayToColor(colorMap);

var
  map: array [0..255] of TRGB;
  i: Integer;
begin
  for i := 0 to 255 do
  begin
    map[i].r := i;
    map[i].g := 255-i;
    map[i].b := i;
  end;
  ImageEnView1.IO.LoadFromFile('grayimage.jpg');
  ImageEnView1.Proc.MapGrayToColor(map);
end;

// Apply Rainbow palette to image
colorMap := GenerateDicomColorPalette( iectRainbow );
ImageEnView1.Proc.MapGrayToColor(colorMap);

// Apply Hot Iron palette to image
colorMap := GenerateDicomColorPalette( iectHotIron );
ImageEnView1.Proc.MapGrayToColor(colorMap);

// Apply PET palette to image
colorMap := GenerateDicomColorPalette( iectPET );
ImageEnView1.Proc.MapGrayToColor(colorMap);

// Apply PET 20 Step palette to image
colorMap := GenerateDicomColorPalette( iectPET20Step );
ImageEnView1.Proc.MapGrayToColor(colorMap);

// Apply Hot Metal Blue palette to image
colorMap := GenerateDicomColorPalette( iectHotMetalBlue );
ImageEnView1.Proc.MapGrayToColor(colorMap);

TImageEnProc.MapGrayToColor