dicom_set_imfinfo_values.m
853593394513aterrier-plotUpdate

dicom_set_imfinfo_values.m
View Options

			function out = dicom_set_imfinfo_values(in, file)
			%DICOM_SET_IMFINFO_VALUES Get IMFINFO-specific values from DICOM data.

			% Copyright 1993-2010 The MathWorks, Inc.

			out = in;

			if (nargin == 2)

			% Allow Info struct to act as input to DICOMREAD.
			out.FileStruct = file;
			out.FileStruct.FID = -1;
			out.StartOfPixelData = ftell(file.FID);

			end

			% Fill other IMFINFO-specific values

			if (isfield(in, 'Columns'))
			out.Width = in.Columns;
			end

			if (isfield(in, 'Rows'))
			out.Height = in.Rows;
			end

			if (isfield(in, 'BitsStored'))
			out.BitDepth = in.BitsStored;
			end

			if (isfield(in, 'PhotometricInterpretation'))

			% See PS 3.3-1999 Sec. C.7.6.3.1.2.

			switch (in.PhotometricInterpretation)
			case {'MONOCHROME1', 'MONOCHROME2'}
			out.ColorType = 'grayscale';

			case {'PALETTE COLOR'}
			out.ColorType = 'indexed';

			case {'RGB', 'HSV', 'ARGB', 'CMYK', 'YBR_FULL', 'YBR_FULL_422', ...
			'YBR_PARTIAL_422'}
			out.ColorType = 'truecolor';

			end

			end

			if (isfield(in, 'RecognitionCode'))

			% This retired code (0008,0010) should only be present in ACR-NEMA.

			out.Format = 'ACR/NEMA';
			out.FormatVersion = in.RecognitionCode;

			end