{macros for fluo-3 microscopy:  khi 1-12-1994
primitive version-calibration not included}
var
        left, top, width, height: integer;

Macro 'get averaged pict[a]';
 var
  year, month, day, hour, minute, second, dayofweek: integer;
 begin
  {capture;}
  averageFrames('Average', 40);
  moveto(0, 10);
  getTime(year, month, day, hour, minute, second, dayofweek);
  write(month,'-',day,' ', hour, minute,'h');
  saveAs;
 end;

macro 'dispose[d]';
begin
 dispose;
end;

macro 'purge[p]';
begin
 disposeAll;
end;

macro 'enhance[e]';
begin
 enhanceContrast;
end;

macro 'initForMeas[i]';
var
  picID: integer;
 begin
  resetCounter;
  picID:=PicNumber;
  NewTextWindow('My Results', 150, 300);
  setFont('geneva');
  setFontSize(10);
  writeln( 'ID',  chr(9), 'mean', chr(9),  'file');
  selectPic(picID)
 end;

Macro 'measure intensity[m]';{include the ref}
var
        left, top, width, height, PicID, i: integer;
 name: string;
begin
  picID:=PicNumber;
  getRoi(left, top, width, height);
  if width=0 then
   begin
    putMessage('requires a selection');
    exit;
   end;
  for i:=1 to nPics do begin
    selectPic(i);
    restoreRoi;
    setOptions('Mean');
{if the measurement starts from a phase contrast frame, two lines below
marked with ** should be made active}
    {if PicNumber<>picID then begin} {**}
     measure;
     markSelection;
    name:=windowTitle;
    selectWindow('My Results');
    writeln ( rCount:1:0, chr(9), rMean[rCount]:1:3, chr(9),  name);
    {end;} {**}
  end;
  selectWindow('My Results');
  selectPic(PicID);
  restoreRoi;
end;