jens/matlab
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

commit stale changes

Browse Source
This commit is contained in:
jens
2026-07-26 21:41:38 +02:00
parent 9e208c70e8
commit dced0e2563
3 changed files with 61 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
common/io/wavread.m
+28
View File
@@ -0,0 +1,28 @@
## Copyright (C) 2025 jens
##
## This program is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program. If not, see <https://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {} {@var{retval} =} wavread (@var{input1}, @var{input2})
##
## @seealso{}
## @end deftypefn
## Author: jens <jens@phobos>
## Created: 2025-08-22
function retval = wavread (filename)
retval = audioread(filename)
endfunction
common/io/wavw16.m
+4 -4
View File
@@ -7,7 +7,7 @@ function wavw16(waveData,sRate,wavefile)
% y The sampled data to save (8 bit max) % y The sampled data to save (8 bit max)
% Fs The rate at which the data was sampled % Fs The rate at which the data was sampled
% wavefile A string containing the name of the .WAV file to create % wavefile A string containing the name of the .WAV file to create
% %
% Note: WAVWRITE will create an 8-bit, simgle channel wave file. Non 8-bit % Note: WAVWRITE will create an 8-bit, simgle channel wave file. Non 8-bit
% sample data will be truncated. % sample data will be truncated.
% %
@@ -18,7 +18,7 @@ function wavw16(waveData,sRate,wavefile)
if nargin~=3 if nargin~=3
error('WAVWRITE needs three arguments!'); error('WAVWRITE needs three arguments!');
end end
if isstr(waveData) %old symtax, reorder args if ischar(waveData) %old symtax, reorder args
tmp = waveData; tmp = waveData;
waveData = wavefile; waveData = wavefile;
wavefile = sRate; wavefile = sRate;
@@ -46,7 +46,7 @@ if fid ~= -1
fwrite(fid,'fmt ','uchar'); fwrite(fid,'fmt ','uchar');
fwrite(fid,16,'ulong'); fwrite(fid,16,'ulong');
fwrite(fid,1,'ushort'); % PCM format fwrite(fid,1,'ushort'); % PCM format
fwrite(fid,1,'ushort'); % 1 channel fwrite(fid,1,'ushort'); % 1 channel
fwrite(fid,sRate,'ulong'); % samples per second fwrite(fid,sRate,'ulong'); % samples per second
fwrite(fid,2*sRate,'ulong'); % average bytes per second fwrite(fid,2*sRate,'ulong'); % average bytes per second
@@ -59,7 +59,7 @@ if fid ~= -1
fwrite(fid,2*nsamples,'ulong'); fwrite(fid,2*nsamples,'ulong');
fwrite(fid,waveData,'short'); fwrite(fid,waveData,'short');
if ((ceil(nsamples/2))~=(nsamples/2)) if ((ceil(nsamples/2))~=(nsamples/2))
fwrite(fid,0,'short'); fwrite(fid,0,'short');
end; end;
fclose(fid); fclose(fid);
common/io/wavwrite.m
+29
View File
@@ -0,0 +1,29 @@
## Copyright (C) 2025 jens
##
## This program is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program. If not, see <https://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {} {@var{retval} =} wavwrite (@var{input1}, @var{input2})
##
## @seealso{}
## @end deftypefn
## Author: jens <jens@phobos>
## Created: 2025-08-22
function retval = wavwrite (y, fs, filename)
audiowrite(filename, y, fs)
retval = 0;
endfunction