% Var89.m
%
% Measurement description file
%
% Aki Harma, Agere Systems, Oct. 26, 2001

irdata.date= 'October 26, 2001';
irdata.author='Aki Harma';
irdata.what='Measurements in the varechoic chamber. (89% open)';
% Room
irdata.room.name='Varechoic chamber (Aki0.tas configuration, 89% open, with fiber glass pillow)';
irdata.room.width=6600; % x-dimension
irdata.room.length=5850;% y-dimension
irdata.room.height=2750;% z-dimension
% Sources
irdata.source.name='Cabasse Baltic';
XX=[337 1337 2337 3337 4337 5337 6337];
irdata.source.x=[XX(2:6) XX XX XX XX(2:6)];
YY=[1438 1938 2938 3938 4938];
irdata.source.y=[YY(1)*ones(1,5) YY(2)*ones(1,7) YY(3)*ones(1,7) ...
		   YY(4)*ones(1,7)  YY(5)*ones(1,5)];
irdata.source.z=1600*ones(1,31);
irdata.source.fname=char('v02','v03','v04','v05','v06',...
'v11','v12','v13','v14','v15','v16','v17',...
'v21','v22','v23','v24','v25','v26','v27',...
'v31','v32','v33','v34','v35','v36','v37',...
'v42','v43','v44','v45','v46');
% 
irdata.microphones.name='Panasonic WM-61a'; 
irdata.microphones.x=[2337:100:4536]+100;
irdata.microphones.y=ones(1,22)*500;
irdata.microphones.z=ones(1,22)*1400;

% Visualization

plot3(irdata.source.x,irdata.source.y,irdata.source.z,'*',...
       irdata.microphones.x,irdata.microphones.y,irdata.microphones.z,'+'), 
  grid, axis('ij');
axis([0 irdata.room.width 0 irdata.room.length 0 irdata.room.height]);
xlabel('x-position [mm]');ylabel('y-position [mm]');zlabel('z-position [mm]');

for q=1:length(irdata.source.x),
  text(irdata.source.x(q),irdata.source.y(q),irdata.source.z(q),...
       ['\leftarrow ' irdata.source.fname(q,:)]); 
end
  mmic=length(irdata.microphones.x);
text(irdata.microphones.x(mmic),irdata.microphones.y(mmic), ...
     irdata.microphones.z(mmic),'\leftarrow Microphones');

title(irdata.what);

break;

plot(irdata.source.x,irdata.source.y,'*',...
       irdata.microphones.x,irdata.microphones.y,'+'), 
  grid, axis('ij');
axis([0 irdata.room.width 0 irdata.room.length]);
for q=1:length(irdata.source.x),
  text(irdata.source.x(q),irdata.source.y(q),...
 ['\leftarrow ' irdata.source.fname(q,:)]); 
end

text(irdata.head.x,irdata.head.y,['\leftarrow' irdata.head.name]);