audioformat.monkey2 717 B

12345678910111213141516171819202122232425262728293031323334353637
  1. Namespace std.audio
  2. #rem monkeydoc Audio formats.
  3. | AudioFormat | Description
  4. |:--------------|:-----------
  5. | `Unknown` | Unknown format.
  6. | `Mono8` | 8 bit mono.
  7. | `Mono16` | 16 bit mono.
  8. | `Stereo8` | 8 bit stereo.
  9. | `Stereo16` | 16 bit stereo.
  10. #end
  11. Enum AudioFormat
  12. Unknown=0
  13. Mono8=1
  14. Mono16=2
  15. Stereo8=3
  16. Stereo16=4
  17. End
  18. #rem monkeydoc Number of bytes per audio sample.
  19. Returns the number of bytes per audio sample for the given audio format.
  20. @param format The audio format.
  21. #end
  22. Function BytesPerSample:Int( format:AudioFormat )
  23. Select format
  24. Case AudioFormat.Mono8 Return 1
  25. Case AudioFormat.Mono16 Return 2
  26. Case AudioFormat.Stereo8 Return 2
  27. Case AudioFormat.Stereo16 Return 4
  28. End
  29. Return 0
  30. End