{Macro to transfer the overlay 
coordinates from one image along 
with branch dynamics information
into the analysis results array}
{E.S.Ruthazer, 2001}
macro 'extract dynamics information';
var i,n,cur,dyn,k,j,p: integer;
begin;
resetcounter;
k:=0;
n:=Get('LinkNumber');
if n=0 then Exit('Not a linked image');
for j:=Firstcell(n) to Lastcell(n) do begin;
      CloseCell; {just in case}
      SelectCell(j);
      cur:=GetValue('branchtip',j);
      if cur <1 then dyn:=4 else begin
        dyn:=0;  {0 =transient (default), 1=lost, 2=added, 3=stable, 4=non-branch}
        for i:=1 to LastCell(1) do if GetValue('branchtip',i)=cur then dyn:=1;
        for i:=FirstCell(nImages) to Lastcell(nImages) do if GetValue('branchtip',i) = cur then dyn:=dyn+2;         
      end {if};
       
      for p := 1 to nPoints do begin
          k:=k+1;SetCounter(k);
          rArea[k]:=j;
          rX[k]:=XPos(p);
          rY[k]:=YPos(p);
          rMean[k]:=ZPos(p);
          rStdDev[k]:=dyn;
      end;{for p}
    end;{for j}
SetCounter(k);
SetOptions('Area,X-Y Center,Mean,Std. Dev.');
end;{macro}