Var width, height: integer; flatarea: integer; subj: string; Macro 'Measure Total DNA/='; Begin RequiresVersion(1.52); subj:=GetString('Enter tiff file to work on: ','starter'); Open(subj); SelectWindow(subj); SelectAll; Copy; GetPicSize(width, height); SetNewSize(width, height); MakeNewWindow('work copy'); Paste; SetThreshold(2); MakeBinary; OutlineParticles(1); SetOptions('Area;Mean;X-Y Center;Headings'); SetParticleSize(10,10000); AnalyzeParticles; SetThreshold(192); MakeBinary; OutlineParticles(0); IgnoreParticlesTouchingEdge(1); IncludeInteriorHoles(1); SetParticleSize(10,10000); AnalyzeParticles; flatarea:=rArea[1]; SelectAll; ChangeValues(1,255,1); Copy; SelectWindow(subj); SetOption;Paste; Multiply; SelectAll; ResetCounter; SetOptions('Mean;X-Y Center;Std.Dev.;User1;User2;Headings'); SetUser1Label('Area'); SetUser2Label('Volume'); SetPrecision(0.6); Measure; rUser1[1]:=flatarea; rUser2[1]:=flatarea*rMean[1]; SelectWindow('work copy'); Dispose; SelectWindow(subj); Dispose; ShowResults; end;