{
These two macros enable the user to outline and label objects on an
image using any of the six reserved colors and to then save the resulting
text and graphics as a separate file. Note that you can change any of the
first five predefined colors (red, green, blue, yellow, cyan) by 
double-clicking at the bottom of the LUT window with the
eye dropper tool.
}

macro 'Setup Image for Markup [S]';
{
Sets pixels with values in the range 0-7 to zero so we can
draw graphics and text on the image using the 6 reserved colors
(pixel values 1-6).
}
begin
  if not((RedLut[6]=255) and (GreenLut[6]=0) and (BlueLut[6]=255)) then begin
     PutMessage('Use "LUT Options" to reserve 6 colors.');
     exit;
  end;
  SelectAll;
  ChangeValues(0,7,0);
  KIllRoi;
end;


macro 'Extract Graphics [E]';
{
Creates a copy of the current image with pixels in the range 8-255
set to zero. The resulting image has only the text and graphics drawn
using the 6 reserved colors (pixel values 1-6).
} 
begin
  if not((RedLut[6]=255) and (GreenLut[6]=0) and (BlueLut[6]=255)) then begin
     PutMessage('Use "LUT Options" to reserve 6 colors.');
     exit;
  end;
  Duplicate(concat(WindowTitle,'-M'));
  ChangeValues(8,255,0);
end;