Format par4Gbl_Main8c.m

workflow/templates/easy/par4Gbl_Main8c.m

@@ -42,7 +42,7 @@ global tptLength
 numRows=24; % for Single Vertical 
 numCols=16; % for Single Vertical 
 
-%*************CIRCLE related*************************
+% CIRCLE related
 doCircle=1; % use Circle area analysis 14_0807
 radius=14;
 ImParMat(10)=radius;
@@ -52,11 +52,10 @@ try
   clf(fhconsole,'reset')
 catch ME
 end
-close
 
-%******************************************
+close
 EASYconsole
-%******************************************
+
 try
   load(ExpOutmat)
   copyfile(ExpOutmat,(fullfile(matDir,'BkUp',strcat((num2str(datenum(now))),'.mat'))))
@@ -77,7 +76,7 @@ catch
   % by EASY versions after 20_0819.
   load(fullfile(resDir,'PTmats','Nbdg')) %Left in to accomodate loads of work before 20_0819
 end
-%++++++++++++++Load Fotos stored data++++++++++++++++++++
+% Load Fotos stored data
 try
   load(fullfile(resDir,'Fotos','Coordinates'))
 catch
@@ -90,23 +89,19 @@ try
   load(fullfile(resDir,'Fotos','anlZones'))
 catch
 end
-%******autoImCF*******************
+% autoImCF
 try
   load(fullfile(resDir,'PTmats','NCFparms'))    
 catch ME
   load parameters   
 end
 
-%************Get Print Times*******************************
+% Get Print Times
 PrintTimes=[];
-if ispc
-  expDir=fullfile(ExpPath,'\');
-elseif (isunix || ismac)
-   expDir=ExpPath
-end 
+expDir=fullfile(ExpPath);
 scLst={};
 
-%**************Parameter Entry******************
+% Parameter Entry
 NImParamRadiusGui(expDir) % Ncode 122111replaced removed  ,numOfPrtTimes)
 width=24;
 widthEx=width-1; % width extention from reference point
@@ -114,7 +109,7 @@ dither=ImParMat(6);
 radius=ImParMat(10);
 NIcircle
 
-%***************** Load Stuff************************* 
+% Load Stuff
 lastPlateOnLastScan=1; % Ncode
 
 if size(scLst,1)==1
@@ -143,10 +138,10 @@ selScanNumLst=[];
 Scanfiles=[];
 pathname=[];
 
+% TODO BCR this probably doesn't need to be here but I'm leaving it for now
 if ispc
   cd(char(strcat(expDir,scLst(1))))
-end
-if isunix
+elseif (isunix || ismac)
   cd(fullfile(expDir,cell2mat(scLst(1))));
 end
 Scanfiles=[];