Changeset 840 for trunk/src/series/extract_rdvision.m

Timestamp:

Dec 10, 2014, 11:11:09 PM (9 years ago)

Author:

sommeria

Message:

 

File:

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

trunk/src/series/extract_rdvision.m

@@ -78 +78 @@
     check_dir=cell2mat(ListCells(4,:));% =1 for directories, =0 for files
     ListDir=ListCells(1,find(check_dir & ~check_bad));
-    InputTable=cell(numel(ListDir),5);
-    InputTable(:,2)=ListDir';
+    InputTable=cell(1,5);
+%    InputTable(:,2)=ListDir';
     isel=0;
     for ilist=1:numel(ListDir)
@@ -91 +91 @@
            isel=isel+1;
            InputTable{isel,1}=RootPath;
+           InputTable{isel,2}=ListDir{ilist};
             RootFile=regexprep(ListCellSub{1,seq_index},'.seq$','');
             InputTable{isel,3}=RootFile;
-        end
-        InputTable{isel,4}='*';
+                    InputTable{isel,4}='*';
         InputTable{isel,5}='.seq';
+        end
+
     end
     hseries=findobj(allchild(0),'Tag','series');% find the parent GUI 'series'
@@ -269 +271 @@
     [success,message]=copyfile(filexml,[filexml '~']);%make backup
     if success~=1
-        dips(['errror in xml file backup: ' message]);
+        displ(['errror in xml file backup: ' message]);
         return
     end
@@ -366 +368 @@
 BitDepth=8*SeqData.bytesperpixel;%needed to write images (8 or 16 bits)
 binrepertoire=fullfile(PathDir,SeqData.binrepertoire);
-tic
-OutputDir=fullfile(PathDir,SeqData.sequencename)
+OutputDir=fullfile(PathDir,SeqData.sequencename);
 if exist(OutputDir,'dir')
     errormsg=[OutputDir ' already exist, delete it first'];
@@ -376 +377 @@
     return%not able to create new image dir
 end
+fid=0;
 for ii=1:SeqData.nb_frames
-    fname=fullfile(binrepertoire,sprintf('%s%.5d.bin',SeqData.binfile,SqbData(ii).file_idx));
-    if ii==1 || ~strcmp(fname,fname_prev) % open the bin file if not in use
-        fid=fopen(fname,'rb');
+    OutputFile=fullfile_uvmat(PathDir,SeqData.sequencename,'img','.png',NomTypeNew,i1,[],j1);% TODO: set NomTypeNew from SeqData.mode
+    if ~exist(OutputFile,'file')
+        fname=fullfile(binrepertoire,sprintf('%s%.5d.bin',SeqData.binfile,SqbData(ii).file_idx));
+        if fid==0 || ~strcmp(fname,fname_prev) % open the bin file if not in use
+            if fid~=0
+                fclose(fid);%close the previous bin file
+            end
+            fid=fopen(fname,'rb');
+            fseek(fid,SqbData(ii).offset,-1);%look at the right starting place in the bin file
+            NbBinFile=NbBinFile+1;%counter of binary files (for checking purpose)
+            BinSize(NbBinFile)=0;% strat counter for new bin file
+        else
+            %
+            %         fid=fopen(fname,'rb');% open the new bin file
+%             fseek(fid,SqbData(ii).offset,-1);%look at the right starting place in the bin file
+        end
         fseek(fid,SqbData(ii).offset,-1);%look at the right starting place in the bin file
-        NbBinFile=NbBinFile+1;%counter of binary files (for checking purpose)
-        BinSize(NbBinFile)=0;% strat counter for new bin file
-    else
-        fclose(fid);%close the previous bin file
-        fid=fopen(fname,'rb');% open the new bin file
-        fseek(fid,SqbData(ii).offset,-1);%look at the right starting place in the bin file
-    end
-    fname_prev=fname;
-    A=reshape(fread(fid,SeqData.width*SeqData.height,classname),SeqData.width,SeqData.height);%read the current image
-    A=A';
-    BinSize(NbBinFile)=BinSize(NbBinFile)+SeqData.width*SeqData.height*SeqData.bytesperpixel*8; %record bits read
-    j1=[];
-    if ~isequal(nbfield2,1)
-        j1=mod(ii-1,nbfield2)+1;
-    end
-    i1=floor((ii-1)/nbfield2)+1;
-    OutputFile=fullfile_uvmat(PathDir,SeqData.sequencename,'img','.png',NomTypeNew,i1,[],j1);% TODO: set NomTypeNew from SeqData.mode 
-    try
-        imwrite(A,OutputFile,'BitDepth',BitDepth) % case of 16 bit images
-        disp([OutputFile ' written']);
-        [s,errormsg] = fileattrib(OutputFile,'-w','a'); %set images to read only '-w' for all users ('a')
-        if ~s
-%             disp_uvmat('ERROR',errormsg,checkrun);
+        fname_prev=fname;
+        A=reshape(fread(fid,SeqData.width*SeqData.height,classname),SeqData.width,SeqData.height);%read the current image
+        A=A';
+        BinSize(NbBinFile)=BinSize(NbBinFile)+SeqData.width*SeqData.height*SeqData.bytesperpixel*8; %record bits read
+        j1=[];
+        if ~isequal(nbfield2,1)
+            j1=mod(ii-1,nbfield2)+1;
+        end
+        i1=floor((ii-1)/nbfield2)+1;
+        
+        try
+            imwrite(A,OutputFile,'BitDepth',BitDepth) % case of 16 bit images
+            disp([OutputFile ' written']);
+            % [s,errormsg] = fileattrib(OutputFile,'-w','a'); %set images to read only '-w' for all users ('a')
+            %         if ~s
+            % %             disp_uvmat('ERROR',errormsg,checkrun);
+            %             return
+            %         end
+        catch ME
+            errormsg=ME.message;
             return
         end
-    catch ME
-        errormsg=ME.message;
-        return
     end
 end
 fclose(fid)
-toc
+