{Macros for measuring greyscale valuies from a set of scanned rock samples. This is a decent example of of a very simple Macro Set}  


macro 'Magnifier tool [f1]'
begin ; SelectTool('magnifier'); end;

macro 'Rectangle tool [f2]'
begin  killroi; Requiresversion(1.6); SelectTool('rectangle'); end;

macro 'Grabber tool [f3]'
begin ; SelectTool('grabber'); end;

macro 'Straightline tool [f4]'
begin  ; SelectTool('straightline'); end;

Macro 'Shrink ROI [f5]' begin InsetRoi(5) end;

Macro  'Select ROI * [f6]'
  var
x,y: integer;
Begin
  StopCapturing;
  GetMouse(x,y);
  MakeRoi(x-.5*50,y-.5*50,50,50);
end:


Macro 'Grow ROI [f7]' begin InsetRoi(-5) end;

macro 'Kill Roi [f8]'
begin
KillRoi;
End;

Macro 'measure grey level [1]'
begin
SetOptions('mean,std. dev,min/max');
measure;
end;

macro 'Eyedropper tool [E]'
begin  ; SelectTool('picker'); end;