Tcl/Tk: Reproduzir sons

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:

This entry was posted in Tcl-Tk and tagged , , , , . Bookmark the permalink.