Mercurial > hg > aimmat
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 |