From: <ad...@us...> - 2007-11-30 09:53:56
|
Revision: 4328 http://octave.svn.sourceforge.net/octave/?rev=4328&view=rev Author: adb014 Date: 2007-11-30 01:54:00 -0800 (Fri, 30 Nov 2007) Log Message: ----------- Use int16/int32 rather than short/long to avoid 64bit issues (For Piotr Kopec) Modified Paths: -------------- trunk/octave-forge/main/audio/inst/sound.m Modified: trunk/octave-forge/main/audio/inst/sound.m =================================================================== --- trunk/octave-forge/main/audio/inst/sound.m 2007-11-29 23:31:54 UTC (rev 4327) +++ trunk/octave-forge/main/audio/inst/sound.m 2007-11-30 09:54:00 UTC (rev 4328) @@ -97,12 +97,12 @@ else ## write sun .au format header to the pipe fwrite(fid, toascii(".snd"), 'char'); - fwrite(fid, 24, 'long', 0, 'ieee-be'); - fwrite(fid, -1, 'long', 0, 'ieee-be'); - fwrite(fid, 3, 'long', 0, 'ieee-be'); - fwrite(fid, rate, 'long', 0, 'ieee-be'); - fwrite(fid, channels, 'long', 0, 'ieee-be'); - fwrite(fid, 32767*clip(data,[-1, 1])', 'short', 0, 'ieee-be'); + fwrite(fid, 24, 'int32', 0, 'ieee-be'); + fwrite(fid, -1, 'int32', 0, 'ieee-be'); + fwrite(fid, 3, 'int32', 0, 'ieee-be'); + fwrite(fid, rate, 'int32', 0, 'ieee-be'); + fwrite(fid, channels, 'int32', 0, 'ieee-be'); + fwrite(fid, 32767*clip(data,[-1, 1])', 'int16', 0, 'ieee-be'); pclose(fid); endif end @@ -115,9 +115,9 @@ ## else ## fid=popen(["ssh ", host, " ", sound_play_utility], "w"); ## end -## fwrite(fid, rate, 'long'); -## fwrite(fid, channels, 'long'); -## fwrite(fid, 32767*clip(data,[-1, 1])', 'short'); +## fwrite(fid, rate, 'int32'); +## fwrite(fid, channels, 'int32'); +## fwrite(fid, 32767*clip(data,[-1, 1])', 'int16'); ## pclose(fid); %!demo This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |