Blame view

rtsLoadImageStack.m 713 Bytes
8be1ab93   David Mayerich   initial commit of...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
  function R = rtsLoadImageStack(directoryName)
  
  fileList = dir(directoryName);
  fileList = fileList(3:length(fileList));
  
  nFiles = length(fileList);
  
  %enable the progress bar
  gui_active(1);
  h = progressbar([], 0, ['Loading ' num2str(nFiles) ' Images...'], 'Load Stack');
  
  
  %load each file into a volume
  for i=1:nFiles
      fileName = [directoryName '\' fileList(i).name];
      image = imread(fileName);
      
      %allocate space
      if i == 1
          R = zeros(size(image, 1), size(image, 2), nFiles, 'uint8');
      end
      R(:, :, i) = image(:, :, 1);
      
      h = progressbar(h, 1/(nFiles));
      if ~gui_active
          progressbar(h, -1);
          break;                            
      end
  end
  
  progressbar(h, -1);