-
Notifications
You must be signed in to change notification settings - Fork 13
/
DICOMRead.m
153 lines (136 loc) · 6.23 KB
/
DICOMRead.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
function MRS_struct = DICOMRead(MRS_struct, metabfile, waterfile)
% MRS_struct = DICOMRead(MRS_struct, metabfile, waterfile)
% This function is designed to load edited MR spectroscopy data in the
% general form of DICOM data into a Gannet file structure. Files usually
% have the extension '.DCM' or '.dcm', and contain exactly 1 FID per
% file, i.e. an acquisition of 320 averages will yield 320 DCM files.
%
% It is assumed that they are ordered in the order of acquisition.
% Water-suppressed and water-unsuppressed files need to be stored in
% separate folders, e.g. '/user/data/subject01/dcm_gaba/' and
% '/user/data/subject01/dcm_water/', respectively.
%
% Example:
% MRS_struct = DICOMRead(MRS_struct,'/user/data/subject01/dcm_gaba/metab.dcm','/user/data/subject01/dcm_water/water.dcm');
%
% Author:
% Dr. Georg Oeltzschner (Johns Hopkins University, 2016-11-10)
%
% Credits:
%
% Version history:
% 0.9: First version (2016-11-30)
% 0.91: Added function for water data loading (2017-02-03)
% 0.92: Improved header parsing (2017-03-27). Thanks to Maria Yanez Lopez
% and Ines Violante.
% 0.93: Added batch processing function (2017-11-16). Thanks to Dieter
% Meyerhoff.
% 0.94: Added support for CMRR sequence (Eddie Auerbach, CMRR, University
% of Minnesota) (2017-11-20). Thanks to Jim Lagopoulos.
% 0.95: Fills missing voxel geometry parameters in DICOM header with zero
% values. Thanks to Alen Tersakyan.
% 0.96: Fixed to accomodate batch processing of coregister/segmentation.
% (2018-09-19)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% PREPARATION %%%
% Loop over number of datasets
ii = MRS_struct.ii;
% Locate folder and find all files in it.
folder = fileparts(metabfile);
if isempty(folder)
folder = '.';
end
[~,~,ext] = fileparts(metabfile);
dcm_file_list = dir(fullfile(folder, ['*' ext]));
fprintf('\n%d water-suppressed DICOM file(s) found in %s', length(dcm_file_list), folder);
% Ordering of these files is not correct (i.e. 1,10,100,101...). Sort
% naturally.
dcm_file_names = sort_nat({dcm_file_list.name});
% Add folder to filenames (in case GannetLoad is run outside the folder)
dcm_file_names = strcat(folder, filesep, dcm_file_names);
%%% /PREPARATION %%%
%%% HEADER INFO PARSING %%%
DicomHeader = read_dcm_header(metabfile);
MRS_struct.p.seq = DicomHeader.sequenceFileName;
MRS_struct.p.TR(ii) = DicomHeader.TR;
MRS_struct.p.TE(ii) = DicomHeader.TE;
MRS_struct.p.npoints(ii) = DicomHeader.vectorSize;
MRS_struct.p.Navg(ii) = 2*DicomHeader.nAverages;
MRS_struct.p.nrows(ii) = 2*DicomHeader.nAverages;
MRS_struct.p.sw(ii) = 1/DicomHeader.dwellTime * 1E9 * 0.5; % check with oversampling? hence factor 0.5, need to figure out why <=> probably dataset with 512 points, oversampled is 1024
MRS_struct.p.LarmorFreq(ii) = DicomHeader.tx_freq * 1E-6;
MRS_struct.p.voxdim(ii,1) = DicomHeader.VoI_PeFOV;
MRS_struct.p.voxdim(ii,2) = DicomHeader.VoI_RoFOV;
MRS_struct.p.voxdim(ii,3) = DicomHeader.VoIThickness;
MRS_struct.p.VoI_InPlaneRot(ii) = DicomHeader.VoI_InPlaneRot;
MRS_struct.p.voxoff(ii,1) = DicomHeader.PosSag;
MRS_struct.p.voxoff(ii,2) = DicomHeader.PosCor;
MRS_struct.p.voxoff(ii,3) = DicomHeader.PosTra;
MRS_struct.p.NormCor(ii) = DicomHeader.NormCor;
MRS_struct.p.NormSag(ii) = DicomHeader.NormSag;
MRS_struct.p.NormTra(ii) = DicomHeader.NormTra;
%%% /HEADER INFO PARSING %%%
%%% DATA LOADING %%%
% Preallocate array in which the FIDs are to be extracted.
MRS_struct.fids.data = zeros(MRS_struct.p.npoints(ii), length(dcm_file_names));
% Collect all FIDs and sort them into MRS_struct
for jj = 1:length(dcm_file_names)
info_dcm = dicominfo(dcm_file_names{jj});
if isfield(info_dcm, 'SpectroscopyData')
real_fid = info_dcm.SpectroscopyData(1:2:end);
imag_fid = info_dcm.SpectroscopyData(2:2:end);
MRS_struct.fids.data(:,jj) = conj(complex(real_fid, imag_fid));
else
fd = dicom_open(dcm_file_names{jj});
MRS_struct.fids.data(:,jj) = dicom_get_spectrum_siemens(fd);
fclose(fd);
end
end
% It appears that DICOM stores the transients weirdly, 1:n/2 are all ONs,
% and n/2+1:n are all OFFs. Reshuffle them below.
if size(MRS_struct.fids.data,2) > 1
ind = [1:size(MRS_struct.fids.data,2)/2; size(MRS_struct.fids.data,2)/2+1:size(MRS_struct.fids.data,2)];
ind = ind(:);
MRS_struct.fids.data = MRS_struct.fids.data(:,ind);
end
%%% /DATA LOADING %%%
%%% WATER DATA LOADING %%%
% If a water folder name is input to the function, repeat the same loading
% procedure for these files and hand the data over to the water data array
% of the MRS_struct.
% Set up the file name array
if nargin == 3
%%% WATER HEADER INFO PARSING %%%
DicomHeaderWater = read_dcm_header(waterfile);
MRS_struct.p.TR_water(ii) = DicomHeaderWater.TR;
MRS_struct.p.TE_water(ii) = DicomHeaderWater.TE;
%%% /WATER HEADER INFO PARSING %%%
waterfolder = fileparts(waterfile);
if isempty(waterfile)
waterfolder = '.';
end
[~,~,ext] = fileparts(waterfile);
water_file_list = dir(fullfile(waterfolder, ['*' ext]));
fprintf('\n%d water-unsuppressed DICOM file(s) found in %s', length(water_file_list), waterfolder);
water_file_names = sort_nat({water_file_list.name});
water_file_names = strcat(waterfolder, filesep, water_file_names);
% Load the actual water-unsuppressed data
MRS_struct.fids.data_water = zeros(MRS_struct.p.npoints(ii), length(water_file_names));
% Collect all FIDs and sort them into MRS_struct
for jj = 1:length(water_file_names)
info_dcm = dicominfo(water_file_names{jj});
if isfield(info_dcm, 'SpectroscopyData')
real_fid = info_dcm.SpectroscopyData(1:2:end);
imag_fid = info_dcm.SpectroscopyData(2:2:end);
MRS_struct.fids.data_water(:,jj) = conj(complex(real_fid, imag_fid));
else
fd = dicom_open(water_file_names{jj});
MRS_struct.fids.data_water(:,jj) = dicom_get_spectrum_siemens(fd);
fclose(fd);
end
end
MRS_struct.fids.data_water = mean(MRS_struct.fids.data_water,2);
end
%%% /WATER DATA LOADING %%%