Changeset 972 for trunk/src/series/extract_multitif.m

Timestamp:

Nov 15, 2016, 5:22:14 PM (7 years ago)

Author:

sommeria

Message:

multitif updated

File:

• trunk/src/series/extract_multitif.m (modified) (5 diffs)

trunk/src/series/extract_multitif.m

@@ -59 +59 @@
 %=======================================================================
 
-function ParamOut=ima2netcdf(Param)
+function ParamOut=extract_multitif(Param)
 
 %%%%%%%%%%%%%%%%%    INPUT PREPARATION MODE (no RUN)    %%%%%%%%%%%%%%%%%
@@ -73 +73 @@
     ParamOut.OutputDirExt='.png';%set the output dir extension
     ParamOut.OutputFileMode='NbSlice';% '=NbInput': 1 output file per input file index, '=NbInput_i': 1 file per input file index i, '=NbSlice': 1 file per slice
-    
+     ParamOut.CheckOverwriteVisible='on'; % manage the overwrite of existing files (default=1)
     %% root input file(s) and type
     % check the existence of the first file in the series
@@ -148 +148 @@
 %count=316;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%CORRECTION EXP08: 4684 images -> start at 316 start 67->_11_1
 %count=1934%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%CORRECTION EXP07: 3066 images
-%% loop on the files 
+%% loop on the files  
 for ifile=1:numel(ListFile)
     update_waitbar(WaitbarHandle,ifile/numel(ListFile))
@@ -158 +158 @@
     NbFrames=numel(imfinfo(ImageName));
     % loop on the frames within the tiff file
-    for iframe=1:NbFrames      
-        A=imread(ImageName,iframe);
-
-        if isequal(ImagesPerLevel,1)% mode series 
+    for iframe=1:NbFrames       
+        if isequal(ImagesPerLevel,1)% mode series
             i_index=count+1;
             OutputFile=fullfile(OutputDir,['img_' num2str(count+1) '.png']);
-        else % indices i and j 
+        else % indices i and j
             i_index=fix(count/ImagesPerLevel)+1;
             j_index=mod(count,ImagesPerLevel)+1;
             OutputFile=fullfile(OutputDir,['img_' num2str(i_index) '_' num2str(j_index) '.png']);
         end
-        imwrite(A,OutputFile,'BitDepth',16)
+        if Param.CheckOverwrite ||~exist(OutputFile,'file')
+            A=imread(ImageName,iframe);
+            imwrite(A,OutputFile,'BitDepth',16);
+            disp([OutputFile ' written'])
+        else
+            disp([OutputFile ' already exists'])
+        end
         count=count+1;
     end
 end
+
+% for ifile=1:numel(ListFile)
+%     update_waitbar(WaitbarHandle,ifile/numel(ListFile))
+%     if ~isempty(RUNHandle)&& ~strcmp(get(RUNHandle,'BusyAction'),'queue')
+%         disp('program stopped by user')
+%         break
+%     end
+%     ImageName=fullfile(DirImages,ListFile{ifile});
+%     NbFrames=numel(imfinfo(ImageName));
+%     % loop on the frames within the tiff file
+%     for iframe=1:NbFrames      
+%         A=imread(ImageName,iframe);
+% 
+%         if isequal(ImagesPerLevel,1)% mode series 
+%             i_index=count+1;
+%             OutputFile=fullfile(OutputDir,['img_' num2str(count+1) '.png']);
+%         else % indices i and j 
+%             i_index=fix(count/ImagesPerLevel)+1;
+%             j_index=mod(count,ImagesPerLevel)+1;
+%             OutputFile=fullfile(OutputDir,['img_' num2str(i_index) '_' num2str(j_index) '.png']);
+%         end
+%         imwrite(A,OutputFile,'BitDepth',16)
+%         count=count+1;
+%     end
+% end
 
 %% create the xml file of PCO camera
@@ -181 +210 @@
 
 %% remove initial files if transfer OK
-    if i_index== (size(XmlInput.Time,1)-1)
-
-        [SUCCESS,MESSAGE]=rmdir(DirImages,'s')
-       
-    end
+%     if i_index== (size(XmlInput.Time,1)-1)
+% 
+%         [SUCCESS,MESSAGE]=rmdir(DirImages,'s')
+%        
+%     end