vmpreturnheaderparameter.m

vmp is the file generate from Brainvoyager which can link vtc file and the 3D image. This toolbox he

function returnVal = vmpReturnHeaderParameter(path, vmp, parameter);

% syntax : returnVal = vmpReturnHeaderParameter(path, vmp, parameter)
% 
% optional values for the 'parameter' variable: (should be a string variable)
% 'ver', 'NrOfMaps', 'MapType', 'NrOfLags', 'ClusterSize','CritThreshold',
% 'MaxThreshold', 'df1', 'df2' , 'MapName', 'DimX', 'DimY', 'DimZ', 'XStart', 'XEnd', 
% 'YStart', 'YEnd', 'ZStart', 'ZEnd', 'resolution'
% 
% the function return a the value of the header parameter (specified in the
% 'parameter' variable) of the [path vmp '.vmp'] 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 vmp '.vmp'],'r+');

% READ HEADER

ver = fread(fid,1,'short');
if strcmp(parameter,'ver'), returnVal = ver; fclose('all'); return; end
NrOfMaps = fread(fid,1,'short');
if strcmp(parameter,'NrOfMaps'), returnVal = NrOfMaps; fclose('all'); return; end
MapType = fread(fid,1,'short');
if strcmp(parameter,'MapType'), returnVal = MapType; fclose('all'); return; end
NrOfLags = fread(fid,1,'short');
if strcmp(parameter,'NrOfLags'), returnVal = NrOfLags; fclose('all'); return; end
ClusterSize = fread(fid,1,'short');
if strcmp(parameter,'ClusterSize'), returnVal = ClusterSize; fclose('all'); return; end
CritThreshold = fread(fid,1,'float');
if strcmp(parameter,'CritThreshold'), returnVal = CritThreshold; fclose('all'); return; end
MaxThreshold = fread(fid,1,'float');
if strcmp(parameter,'MaxThreshold'), returnVal = MaxThreshold; fclose('all'); return; end
df1 = fread(fid,1,'short');
if strcmp(parameter,'df1'), returnVal = df1; fclose('all'); return; end
df2 = fread(fid,1,'short');
if strcmp(parameter,'df2'), returnVal = df2; fclose('all'); return; end
MapName = [];
a = 'a';
while a ~= 0
  a = fread(fid,1,'char');
  MapName = [MapName a];
end
if strcmp(parameter,'MapName'), returnVal = char(MapName); fclose('all');return; end
DimX = fread(fid,1,'short');
if strcmp(parameter,'DimX'), returnVal = DimX; fclose('all'); return; end
DimY = fread(fid,1,'short');
if strcmp(parameter,'DimY'), returnVal = DimY; fclose('all'); return; end
DimZ = fread(fid,1,'short');
if strcmp(parameter,'DimZ'), returnVal = DimZ; 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
resolution = fread(fid,1,'short');
if strcmp(parameter,'resolution'), returnVal = resolution; fclose('all'); return; end