[foo-cvs] foo/elkfoo/src snd.m,1.7,1.8 soundfile.m,1.8,1.9

[Martin R. <ru...@us...>]

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",