vtcreturnheaderparameter.m

VTC file is the file format of the Brainvoyager. The FMRI matchine scan human s brain and get the vt

function returnVal = vtcReturnHeaderParameter(path, vtc, parameter);

% syntax : returnVal = vtcReturnHeaderParameter(path, vtc, parameter)
% 
% optional values for the 'parameter' variable: (should be a string variable)
% 'ver' , 'fmrName', 'protocol', 'NoOfVolumes', 'VTC_resolution', 'XStart',
% 'XEnd', 'YStart', 'YEnd', 'ZStart', 'ZEnd', 'HemDelay', 'TR', 'HemDelta',
% 'HemTau', 'SegmentSize', 'SegmentOffset'
% 
% the function return a the value of the header parameter (specified in the
% 'parameter' variable) of the [path vtc '.vtc'] file
% 
% This function was written by:
% Hagar Gelbard
% Rafi Malach's Lab
% Weizmann Institute of Science
% Rehovot, Israel
% [e-mail]

% open the file for reading and writing
fid = fopen([path vtc '.vtc'],'r+');

% READ HEADER

ver = fread(fid,1,'short');
if strcmp(parameter,'ver'), returnVal = ver; fclose('all'); return; end	

% read fmr name
fmr = [];
a = 'a';
while a ~= 0
  a = fread(fid,1,'char');
  fmr = [fmr a];
end
if strcmp(parameter,'fmrName'), returnVal = char(fmr); fclose('all'); return; end

% read protocol name
protocol = [];
a = 'a';
while a ~= 0
  a = fread(fid,1,'char');
  protocol = [protocol a];
end
if strcmp(parameter,'protocol'), returnVal = char(protocol); fclose('all'); return; end

% read important parameters
NoOfVolumes = fread(fid,1,'short');
if strcmp(parameter,'NoOfVolumes'), returnVal = NoOfVolumes; fclose('all'); return; end
VTC_resolution  = fread(fid,1,'short');
if strcmp(parameter,'VTC_resolution'), returnVal = VTC_resolution; fclose('all'); return; end
XStart = fread(fid,1,'short');
if strcmp(parameter,'XStart'), returnVal = XStart; fclose('all'); return; end
XEnd = fread(fid,1,'short');
if strcmp(parameter,'XEnd'), returnVal = XEnd; fclose('all'); return; end
YStart = fread(fid,1,'short');
if strcmp(parameter,'YStart'), returnVal = YStart; fclose('all'); return; end
YEnd = fread(fid,1,'short');
if strcmp(parameter,'YEnd'), returnVal = YEnd; fclose('all'); return; end
ZStart = fread(fid,1,'short');
if strcmp(parameter,'ZStart'), returnVal = ZStart; fclose('all'); return; end
ZEnd = fread(fid,1,'short');
if strcmp(parameter,'ZEnd'), returnVal = ZEnd; fclose('all'); return; end
HemDelay = fread(fid,1,'short');
if strcmp(parameter,'HemDelay'), returnVal = HemDelay; fclose('all'); return; end
TR = fread(fid,1,'float');
if strcmp(parameter,'TR'), returnVal = TR; fclose('all'); return; end
HemDelta = fread(fid,1,'float');
if strcmp(parameter,'HemDelta'), returnVal = HemDelta; fclose('all'); return; end
HemTau = fread(fid,1,'float');
if strcmp(parameter,'HemTau'), returnVal = HemTau; fclose('all'); return; end
SegmentSize = fread(fid,1,'short');
if strcmp(parameter,'SegmentSize'), returnVal = SegmentSize; fclose('all'); return; end
SegmentOffset = fread(fid,1,'short');
if strcmp(parameter,'SegmentOffset'), returnVal = SegmentOffset; fclose('all'); return; end