diff options
Diffstat (limited to 'SD-VBS/common/toolbox/toolbox_basic/pyramid/session.m')
-rwxr-xr-x | SD-VBS/common/toolbox/toolbox_basic/pyramid/session.m | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/SD-VBS/common/toolbox/toolbox_basic/pyramid/session.m b/SD-VBS/common/toolbox/toolbox_basic/pyramid/session.m new file mode 100755 index 0000000..9d0aa6c --- /dev/null +++ b/SD-VBS/common/toolbox/toolbox_basic/pyramid/session.m | |||
@@ -0,0 +1,26 @@ | |||
1 | %image_dir = '/home/barad-dur/d/malik/jshi/'; | ||
2 | %I = gifread([image_dir,'tape9/t9a1_L.40.gif']); | ||
3 | I = pgmread('car100x100_0001'); | ||
4 | Io = I; | ||
5 | |||
6 | B = []; | ||
7 | |||
8 | done = 0; | ||
9 | st = 2; | ||
10 | sz = size(I); | ||
11 | while (~done), | ||
12 | w = max(1,round(0.05*size(I,1))); | ||
13 | b = zeros(round(0.5*size(Io)),round(0.5*size(I))); | ||
14 | %J = smooth(I,w); | ||
15 | %I = J(1:st:size(J,1),1:st:size(J,2)); | ||
16 | I = reduce(I); | ||
17 | sz = [sz;size(I)]; | ||
18 | b(1:size(I,1),1:size(I,2)) = I; | ||
19 | disp(int2str(size(I,1))); | ||
20 | |||
21 | B = [B,b]; | ||
22 | |||
23 | if (size(I,1) < 8), | ||
24 | done = 1; | ||
25 | end | ||
26 | end | ||