From f618466c25d43f3bae9e40920273bf77de1e1149 Mon Sep 17 00:00:00 2001
From: leochanj105 <leochanj@live.unc.edu>
Date: Mon, 19 Oct 2020 23:09:30 -0400
Subject: initial sd-vbs

initial sd-vbs

add sd-vbs

sd-vbs
---
 .../common/toolbox/toolbox_basic/pyramid/session.m | 26 ++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 SD-VBS/common/toolbox/toolbox_basic/pyramid/session.m

(limited to 'SD-VBS/common/toolbox/toolbox_basic/pyramid/session.m')

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 @@
+%image_dir = '/home/barad-dur/d/malik/jshi/';
+%I = gifread([image_dir,'tape9/t9a1_L.40.gif']);
+I = pgmread('car100x100_0001');
+Io = I;
+
+B = [];
+
+done = 0;
+st = 2;
+sz = size(I);
+while (~done),
+   w = max(1,round(0.05*size(I,1)));
+   b = zeros(round(0.5*size(Io)),round(0.5*size(I)));
+   %J = smooth(I,w);
+   %I = J(1:st:size(J,1),1:st:size(J,2));
+   I = reduce(I);
+   sz = [sz;size(I)];
+   b(1:size(I,1),1:size(I,2)) = I;
+   disp(int2str(size(I,1)));
+
+   B = [B,b];
+
+   if (size(I,1) < 8),
+    done = 1;
+   end
+end
-- 
cgit v1.2.2