dicom_write_stream.m
2279cfd782f9Bashardoust_SystCoord

dicom_write_stream.m
View Options

			function [file, msg] = dicom_write_stream(file, data_streams)
			%DICOM_WRITE_STREAM Write an encoded stream to a file.
			% [FILE, MSG] = DICOM_WRITE_STREAM(FILE, STREAMS) writes the UINT8 data
			% streams stored in the cell array STREAMS to the message specified in
			% FILE. An updated FILE structure is returned along with any
			% diagnostic information in the MSG character array.
			%
			% See also DICOM_OPEN_MSG, DICOM_GET_MSG.

			% Copyright 1993-2010 The MathWorks, Inc.


			msg = '';

			if (file.FID < 0)

			msg = message('images:dicomwrite:invalidFID',...
			file.Filename);
			return

			end

			% Write the DICOM preamble.
			count1 = fwrite(file.FID, repmat(uint8(0), [128 1]), 'uint8');
			count2 = fwrite(file.FID, uint8([68 73 67 77]), 'uint8'); % DICM

			if ((count1 + count2) ~= 132)

			msg = message('images:dicomwrite:preambleTruncated',...
			file.Filename);
			return

			end

			% Write the data to the file.
			for p = 1:length(data_streams)
			count = fwrite(file.FID, data_streams{p}, 'uint8');

			if (count ~= numel(data_streams{p}))
			msg = message('images:dicomwrite:dataTruncated',...
			file.Filename);

			return

			end

			end