Retinal Prosthesis Dissertation - Student Home Pages

%Essentially tprior was the (t-1) scene
% [w1, w2, w3] = size (tprior);
%fprintf ('tprior is %3.f rows, %3.f columns, %0.f colour planes. \n', w1, w2, w3);
% [z1, z2, z3] = size (receive);
%fprintf ('receive is %3.f rows, %3.f columns, %0.f colour planes\n', z1, z2, z3);
%From "load up the cell array" to here for scene presently at receiver
%ALTER THIS SCENE RECEIVED AT (t-1) {tprior} BY THE CHANGES
NumOfChanges = ka;
for ka = 1: NumOfChanges %Where "NumOfChanges" refers to pixel count
%Setting variables "row" and "col" to their relevant planes
row = checka {ka} (: 5);
col = checka {ka} (: 4);
tprior (row, col, 1:6) = checka {ka};
%checks {ks} = checka {ka};
%sonscene(:,:,:) = [checka{ka}(:,:,1),checka{ka}(:,:,2),checka{ka}(:,:,3)]
%sonscene = checka {ka};
% address = [checka {ka} (: 5); checka {ka} (: 4)];
% fprintf (fid,'%2.f %2.f\n', address);
end
subplot (2, 3, 5)
imshow (tprior (: 1:3)), title ('Tprior with changes');
%figure, imshow (tprior (: 1:3)), title ('Tprior with changes');
%Name of this file is "scan.m", which adds two further planes to an image
%These planes will represent the "Control word" of addressing for a 128
%by 128 test scene for use by AER routing
function [f] = scan (f, m, n);
%SCAN adds further planes
pixelcount = m*n;
%Setting up the yellow plane
%fR = grandfatherscene (: 1);
%fG = grandfatherscene (: 2);
%c = 255 - fR;
%m = 255 - fG;
%grandfatherscene (: 4) = c;
%grandfatherscene (: 5) = m;
for count = 1 :( m*n)
fB = f (: 3);
y = (255-fB);
f (: 6) = y;
count = count+1;
end
%Getting the size of the inputted scene
% [d1, d2, d3] = size (f);
%fprintf ('\nThe rows of this reference scene are %4.f pixels\n', d1);
%fprintf ('The columns of this reference scene are %4.f pixels\n', d2);
%fprintf ('%0.f colour planes exist in this viewed scene\n', d3);
rx = 1;
cy = 1;
rowhigh = rx + m -1;
colhigh = cy + n -1;
137 of 200