annotate aim-mat/tools/ReadBytes.m @ 4:537f939baef0 tip

various bug fixes and changed copyright message
author Stefan Bleeck <bleeck@gmail.com>
date Tue, 16 Aug 2011 14:37:17 +0100
parents 20ada0af3d7d
children
rev   line source
tomwalters@0 1 % support file for 'aim-mat'
tomwalters@0 2 %
tomwalters@0 3 % This external file is included as part of the 'aim-mat' distribution package
bleeck@3 4 % (c) 2011, University of Southampton
bleeck@3 5 % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3 6 % download of current version is on the soundsoftware site:
bleeck@3 7 % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3 8 % documentation and everything is on http://www.acousticscale.org
bleeck@3 9
tomwalters@0 10
tomwalters@0 11 %%%%%%%%%%%%%%%%%%%%%%%%%%%
tomwalters@0 12 %
tomwalters@0 13 % File: ReadBytes.m
tomwalters@0 14 % Purpose: Reads a number of bytes from file.
tomwalters@0 15 % Comments:
tomwalters@0 16 % Author: L. P. O'Mard
tomwalters@0 17 % Revised by:
tomwalters@0 18 % Created:
tomwalters@0 19 % Updated:
tomwalters@0 20 % Copyright: (c) 2000, University of Essex
tomwalters@0 21 %
tomwalters@0 22 %%%%%%%%%%%%%%%%%%%%%%%%%%%
tomwalters@0 23
tomwalters@0 24 function bytes = ReadBytes(fid, n, swapBytes)
tomwalters@0 25
tomwalters@0 26 bytes=fread(fid, n, 'char');
tomwalters@0 27
tomwalters@0 28 if (swapBytes ~= 0)
tomwalters@0 29 for i = 1:n/2
tomwalters@0 30 temp = bytes(i);
tomwalters@0 31 swapIndex = n - i + 1;
tomwalters@0 32 bytes(i) = bytes(swapIndex);
tomwalters@0 33 bytes(swapIndex) = temp;
tomwalters@0 34 end;
tomwalters@0 35 end;
tomwalters@0 36