A primeira coisa a se fazer é carregar o pacote Snack:
% package require sound 2.2
Se o número da versão do pacote for retornado, significa que ele está presente e foi carregado. Se não, é preciso verificar a instalação do seu sistema antes de prosseguir.
Em seguida, selecione o arquivo:
% snack::sound s -file "/caminho/do/arquivo.wav"
Daí, é só mandar tocar:
% s play -block 1
Exemplo de função:
proc SomNaCaixa { arquivoDeSom } {
package require sound
snack::sound s -file "$arquivoDeSom"
s play -block 1
}
SomNaCaixa "/caminho/do/arquivo.mp3"
O Snack é multiplataforma e suporta os formatos WAV, AU, AIFF, MP3, CSL, SD, SMP e NIST/Sphere. Também reproduz streaming.
Mais informações:
