/*  
This macro is for measuring lengths & areas of objects in images collected with the Zeiss AxioObserver Z1
on the second floor of Skirball using a 10X lens, no optivar (magnifying eyepiece), and 1 X 1 camera binning.


Instructions:
  To get set up:
    Analyze > Set Measurments and check Area (upper left of window)
    Plugins > Macros > Install... and select this macro.

  To measure files:
    Open image.
    Draw region of interest. 
    type letter "q" or Plugins > Macros > Set scale for measurements for 10X lens [q]
    Do next image

*/


var tab = " \t ";

macro "Set scale for measurements for 10X lens [q]" {
   t = getTitle();
   run("Properties...", "channels=1 slices=1 frames=1 unit=um pixel_width=0.4540000 pixel_height=0.4540000 voxel_depth=0");
   run("Measure");
   area = getResult("Area", nResults()-1);
   getPixelSize(unit, pixelWidth, pixelHeight);
   print(t + tab + d2s(area,1) + tab + unit + "_squared");
   selectWindow("Log");
}