Conversion of an old IMAGE macro

Posted by Alexander Luckenbach on Mar 18, 2007; 4:21pm
URL: http://imagej.273.s1.nabble.com/Conversion-of-an-old-IMAGE-macro-tp3700028.html

We are not familiar with IMAGEJ macro-programming and we have to convert few old IMAGE 1.6.1
macros to the new java macro language of IMAGEJ 1.37. We did find all of the old macro
commands in IMAGEJ. Where can we get further Information ?
Can any one help us with the conversion of the following code ?


{--------------------------------------------------------------------}

var  {Global variables}
  RoiLeft,RoiTop,RoiWidth,RoiHeight,PlotColor:integer;
  GelWidth,GelHeight,MaxPlotWindowHeight:integer;
  GelWindow,PlotWindow,PlotLeft,PlotTop,PlotWidth,PlotHeight:integer;
  hMargin,vMargin,nLanes,SavePlotTop:integer;
  LeftMargin,TopMargin,RightMargin,BottomMargin:integer;
  FirstBackgroundPlot:boolean;

{--------------------------------------------------------------------}

macro 'Setup Analysis';

begin
  RequiresVersion(1.50);
  InvertY(false);
  WandAutoMeasure(true);
  AdjustAreas(false);
  LabelParticles(true);
  IncludeInteriorHoles(true);
  SetPrecision(3);
  SetOptions('X-Y Center');
  SetScale(2.85,'mm');
  SetFontSize(9);
  SetText('Right Justified');
  SetLineWidth(1);
  ReduceNoise;
  PutMessage('Blot kontrollieren und ggf. mit Tools korrigieren');  
end;
{--------------------------------------------------------------------}

macro 'Adjust Density';

begin
  Sharpen;
  ReduceNoise;
  {- SubtractBackground('2D Remove Streaks',100);       -}
  AutoThreshold;
  {- ReduceNoise; -}
  ReduceNoise;
  PutMessage('Density kontrollieren und ggf. adjustieren');
end;
{--------------------------------------------------------------------}

macro 'Analyze Blobs';

begin
  SetOptions('X-Y Center');
  SetParticleSize(10,999999);
  SetScale(2.85,'mm');
  AnalyzeParticles;
  ShowResults;
  SetExport('Measurements');
  Beep;
end;
{--------------------------------------------------------------------}

Thanks in advance for help.
Regards
------------------------------------------------------
Dr. Alexander H. Luckenbach
ADCT ___________________________  Stuttgart - Tuebingen / Germany
Applied Diagnostic Computer Technology