audioformat.monkey2 309 B

1234567891011121314151617181920
  1. Namespace std.audio
  2. Enum AudioFormat
  3. Mono8=1
  4. Mono16=2
  5. Stereo8=3
  6. Stereo16=4
  7. End
  8. Function BytesPerSample:Int( format:AudioFormat )
  9. Select format
  10. Case AudioFormat.Mono8 Return 1
  11. Case AudioFormat.Mono16 Return 2
  12. Case AudioFormat.Stereo8 Return 2
  13. Case AudioFormat.Stereo16 Return 4
  14. End
  15. Return 0
  16. End