source: trunk/src/toolbox_calib/check_directory.m @ 919

Last change on this file since 919 was 908, checked in by g7moreau, 9 years ago
  • Update Copyright to 2015
File size: 5.7 KB
Line 
1%=======================================================================
2% Copyright 2008-2015, LEGI UMR 5519 / CNRS UJF G-INP, Grenoble, France
3%   http://www.legi.grenoble-inp.fr
4%   Joel.Sommeria - Joel.Sommeria (A) legi.cnrs.fr
5%
6%     This file is part of the toolbox UVMAT.
7%
8%     UVMAT is free software; you can redistribute it and/or modify
9%     it under the terms of the GNU General Public License as published
10%     by the Free Software Foundation; either version 2 of the license,
11%     or (at your option) any later version.
12%
13%     UVMAT is distributed in the hope that it will be useful,
14%     but WITHOUT ANY WARRANTY; without even the implied warranty of
15%     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16%     GNU General Public License (see LICENSE.txt) for more details.
17%=======================================================================
18
19% This small script looks in the direcory and checks if the images are there.
20%
21% This works only on Matlab 5.x (otherwise, the dir commands works differently)
22
23% (c) Jean-Yves Bouguet - Dec. 27th, 1999
24
25l = dir([calib_name '*']);
26
27Nl = size(l,1);
28Nima_valid = 0;
29ind_valid = [];
30loc_extension = [];
31length_name = size(calib_name,2);
32
33if Nl > 0,
34   
35    for pp = 1:Nl,
36       
37        filenamepp =  l(pp).name;
38        if isempty(calib_name),
39            iii = 1;
40        else
41            iii = findstr(filenamepp,calib_name);
42        end;
43       
44        loc_ext = findstr(filenamepp,format_image);
45        string_num = filenamepp(length_name+1:loc_ext - 2);
46       
47        if isempty(str2num(string_num)),
48            iii = [];
49        end;
50       
51       
52        if ~isempty(iii),
53            if (iii(1) ~= 1),
54                iii = [];
55            end;
56        end;
57       
58       
59       
60        if ~isempty(iii) & ~isempty(loc_ext),
61           
62            Nima_valid = Nima_valid + 1;
63            ind_valid = [ind_valid pp];
64            loc_extension = [loc_extension loc_ext(1)];
65           
66        end;
67       
68    end;
69   
70    if (Nima_valid==0),
71       
72        % try the upper case format:
73       
74        format_image = upper(format_image);
75       
76       
77       
78        for pp = 1:Nl,
79           
80            filenamepp =  l(pp).name;
81           
82            if isempty(calib_name),
83                iii = 1;
84            else
85                iii = findstr(filenamepp,calib_name);
86            end;       
87           
88            loc_ext = findstr(filenamepp,format_image);
89            string_num = filenamepp(length_name+1:loc_ext - 2);
90           
91            if isempty(str2num(string_num)),
92                iii = [];
93            end;
94           
95           
96            if ~isempty(iii),
97                if (iii(1) ~= 1),
98                    iii = [];
99                end;
100            end;
101           
102           
103           
104            if ~isempty(iii) & ~isempty(loc_ext),
105               
106                Nima_valid = Nima_valid + 1;
107                ind_valid = [ind_valid pp];
108                loc_extension = [loc_extension loc_ext(1)];
109               
110            end;
111           
112        end;
113       
114        if (Nima_valid==0),
115           
116            fprintf(1,'No image found. File format may be wrong.\n');
117           
118        else
119           
120           
121            % Get all the string numbers:
122           
123            string_length = zeros(1,Nima_valid);
124            indices =  zeros(1,Nima_valid);
125           
126           
127            for ppp = 1:Nima_valid,
128               
129                name = l(ind_valid(ppp)).name;
130                string_num = name(length_name+1:loc_extension(ppp) - 2);
131                string_length(ppp) = size(string_num,2);
132                indices(ppp) = str2num(string_num);
133               
134            end;
135           
136            % Number of images...
137            first_num = min(indices);
138            n_ima = max(indices) - first_num + 1;
139           
140            if min(string_length) == max(string_length),
141               
142                N_slots = min(string_length);
143                type_numbering = 1;
144               
145            else
146               
147                N_slots = 1;
148                type_numbering = 0;
149               
150            end;
151           
152            image_numbers = first_num:n_ima-1+first_num;
153           
154            %%% By default, all the images are active for calibration:
155           
156            active_images = ones(1,n_ima);
157           
158           
159           
160        end;
161       
162    else
163       
164        % Get all the string numbers:
165       
166        string_length = zeros(1,Nima_valid);
167        indices =  zeros(1,Nima_valid);
168       
169       
170        for ppp = 1:Nima_valid,
171           
172            name = l(ind_valid(ppp)).name;
173            string_num = name(length_name+1:loc_extension(ppp) - 2);
174            string_length(ppp) = size(string_num,2);
175            indices(ppp) = str2num(string_num);
176           
177        end;
178       
179        % Number of images...
180        first_num = min(indices);
181        n_ima = max(indices) - first_num + 1;
182       
183        if min(string_length) == max(string_length),
184           
185            N_slots = min(string_length);
186            type_numbering = 1;
187           
188        else
189           
190            N_slots = 1;
191            type_numbering = 0;
192           
193        end;
194       
195        image_numbers = first_num:n_ima-1+first_num;
196       
197        %%% By default, all the images are active for calibration:
198       
199        active_images = ones(1,n_ima);
200       
201    end;
202   
203else
204   
205    fprintf(1,'No image found. Basename may be wrong.\n');
206   
207end;
208
Note: See TracBrowser for help on using the repository browser.