Artifact 698da6411516e6c6c11c0d671d4cfa3e5f0a3f03:

• File assets/tclmixer1.2.3/test.tcl — part of check-in [7e37bab220] at 2015-08-10 14:44:04 on branch trunk — refactored tclmixer for thread safety (user: chw size: 523)

package require TclMixer

proc end_MUSIC {} {
    tclmixer::free $::mus
    unset ::mus
}

proc end_SOUND channel {
    incr ::count
    if {$::count < 10} {
	tclmixer::play $::snd
	return
    }
    tclmixer::free $::snd
    unset ::snd
}


set mus [tclmixer::music [file join [file dirname [info script]] test.mod]]
tclmixer::mixConfig -music end_MUSIC
tclmixer::play $mus

set count 0
set snd [tclmixer::sound [file join [file dirname [info script]] reload.ogg]]
tclmixer::mixConfig -sound end_SOUND
tclmixer::play $snd