Update of /cvsroot/foo/foo/elkfoo/src
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv29792/src
Modified Files:
snd.m soundfile.m
Log Message:
added 24-bit support for soundfiles ('pcm24 symbol)
Index: soundfile.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/soundfile.m,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** soundfile.m 28 Feb 2005 16:37:18 -0000 1.8
--- soundfile.m 22 May 2006 22:18:35 -0000 1.9
***************
*** 131,134 ****
--- 131,137 ----
s.format |= SF_FORMAT_PCM_16;
break;
+ case SND_PCM24:
+ s.format |= SF_FORMAT_PCM_24;
+ break;
case SND_LONG:
s.format |= SF_FORMAT_PCM_32;
***************
*** 250,253 ****
--- 253,259 ----
ret = Intern("short");
break;
+ case SF_FORMAT_PCM_24:
+ ret = Intern("pcm24");
+ break;
case SF_FORMAT_PCM_32:
ret = Intern("long");
Index: snd.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/snd.m,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** snd.m 20 Jun 2005 08:57:13 -0000 1.7
--- snd.m 22 May 2006 22:18:35 -0000 1.8
***************
*** 54,57 ****
--- 54,58 ----
{"char", SND_CHAR},
{"short", SND_SHORT},
+ {"pcm24", SND_PCM24},
{"long", SND_LONG},
{"float", SND_FLOAT},
***************
*** 210,222 ****
t = sndTypes[2].name;
break;
! case SF_FORMAT_PCM_32:
t = sndTypes[3].name;
break;
! case SF_FORMAT_FLOAT:
t = sndTypes[4].name;
break;
! case SF_FORMAT_DOUBLE:
t = sndTypes[5].name;
break;
default:
Primitive_Error("unknown sound file format: ~a",
--- 211,226 ----
t = sndTypes[2].name;
break;
! case SF_FORMAT_PCM_24:
t = sndTypes[3].name;
break;
! case SF_FORMAT_PCM_32:
t = sndTypes[4].name;
break;
! case SF_FORMAT_FLOAT:
t = sndTypes[5].name;
break;
+ case SF_FORMAT_DOUBLE:
+ t = sndTypes[6].name;
+ break;
default:
Primitive_Error("unknown sound file format: ~a",
|
