source: trunk/src/toolbox_calib/ima_read_calib.m @ 1064

Last change on this file since 1064 was 1000, checked in by g7moreau, 7 years ago
  • Remove tab
File size: 2.6 KB
Line 
1
2if ~exist('calib_name')|~exist('format_image'),
3    data_calib;
4    return;
5end;
6
7check_directory;
8
9if ~exist('n_ima'),
10    data_calib;
11    return;
12end;
13
14check_active_images;
15
16images_read = active_images;
17
18
19if exist('image_numbers'),
20    first_num = image_numbers(1);
21end;
22
23% Just to fix a minor bug:
24if ~exist('first_num'),
25    first_num = image_numbers(1);
26end;
27
28image_numbers = first_num:n_ima-1+first_num;
29
30no_image_file = 0;
31
32i = 1;
33
34while (i <= n_ima), % & (~no_image_file),
35
36    if active_images(i),
37
38        %fprintf(1,'Loading image %d...\n',i);
39
40        if ~type_numbering,
41            number_ext =  num2str(image_numbers(i));
42        else
43            number_ext = sprintf(['%.' num2str(N_slots) 'd'],image_numbers(i));
44        end;
45
46        ima_name = [calib_name  number_ext '.' format_image];
47
48        if i == ind_active(1),
49            fprintf(1,'Loading image ');
50        end;
51
52        if exist(ima_name),
53
54            fprintf(1,'%d...',i);
55
56            if format_image(1) == 'p',
57                if format_image(2) == 'p',
58                    Ii = double(loadppm(ima_name));
59                else
60                    Ii = double(loadpgm(ima_name));
61                end;
62            else
63                if format_image(1) == 'r',
64                    Ii = readras(ima_name);
65                else
66                    Ii = double(imread(ima_name));
67                end;
68            end;
69
70            if size(Ii,3)>1,
71                Ii = 0.299 * Ii(:,:,1) + 0.5870 * Ii(:,:,2) + 0.114 * Ii(:,:,3);
72            end;
73
74            eval(['I_' num2str(i) ' = Ii;']);
75
76        else
77
78            %fprintf(1,'%d...no image...',i);
79
80            images_read(i) = 0;
81
82            %no_image_file = 1;
83
84        end;
85
86    end;
87
88    i = i+1;
89
90end;
91
92
93ind_read = find(images_read);
94
95
96if isempty(ind_read),
97
98    fprintf(1,'\nWARNING! No image were read\n');
99
100    no_image_file = 1;
101
102else
103    %fprintf(1,'\nWARNING! Every exsisting image in the directory is set active.\n');
104
105    if no_image_file,
106
107        %fprintf(1,'WARNING! Some images were not read properly\n');
108    end;
109
110
111    fprintf(1,'\n');
112
113    if size(I_1,1)~=480,
114        small_calib_image = 1;
115    else
116        small_calib_image = 0;
117    end;
118
119    [Hcal,Wcal] = size(I_1);     % size of the calibration image
120
121    [ny,nx] = size(I_1);
122
123    clickname = [];
124
125    map = gray(256);
126
127    %string_save = 'save calib_data n_ima type_numbering N_slots image_numbers format_image calib_name Hcal Wcal nx ny map small_calib_image';
128
129    %eval(string_save);
130
131    disp('done');
132    %click_calib;
133
134end;
135
136if ~(exist('map')==1), map = gray(256); end;
137
138active_images = images_read;
139
Note: See TracBrowser for help on using the repository browser.