Version 3.1

This commit is contained in:
Gary Scavone
2013-09-25 14:44:17 +02:00
committed by Stephen Sinclair
parent 868787a5f9
commit 4b6500d3de
140 changed files with 5171 additions and 632 deletions

View File

@@ -102,7 +102,7 @@ bind . <Destroy> +myExit
proc myExit {} {
global outID
puts $outID [format "NoteOff 0.0 1 64 127" ]
puts $outID [format "NoteOff 0.0 1 64.0 127.0" ]
flush $outID
puts $outID [format "ExitProgram"]
flush $outID