macro 'Area Measurement';
Var
  his,NumArea,NumPix,a,i:integer;
begin
  NumPix:=nPics;
  For a:=1 to NumPix do begin
  SetPalette('System Palette');
  ResetCounter;
  SetScale(1,'pixel');
  SetOptions('area');
  his:=GetPixel(1,1);
  if his<255 then begin
      ChangeValues(his,his,255);
    end;
  SetDensitySlice(1,254);
  AnalyzeParticles('label, outline');
  NumArea:=rCount;
  For i:=1 to NumArea do begin
  PutMessage('Area ',i,' is ',rArea[i]);
  end;
  Dispose;
end; 