音楽とかソフトとか

私信ですが、さくっとテキストを共有できるものが無かったのでこちらに書いてます。setParamで、左ブランクから先行発声までの間を再生する機能を追加する手順です。

1) Ctrl+Alt+dでコンソールを表示する。

2) 以下をコピペする。

--------ここから
proc tp {} {
global paramS v
set start 0
set end -1
set ls $v(listSeq)
if {[array get paramS "$ls,S"] != ""} {
set start [expr int($v(sampleRate) * $paramS($ls,S))]
}
if {[array get paramS "$ls,P"] != ""} {
set end [expr int($v(sampleRate) * $paramS($ls,P))]
}
togglePlay $start $end
}

bind . <Control-t> tp
--------ここまで

これで、Ctrl+tを押すと左ブランク~先行発声を再生するようになります。(ただし突貫で拡張しているので、起動する度に同じ作業をしないといけません)。




もう一件追記です。以下は先行発声から右ブランクまでの間を再生する機能追加手順です。

1) Ctrl+Alt+dでコンソールを表示する。

2) 以下をコピペする。

--------ここから
proc tpPE {} {
global paramS v
set start 0
set end -1
set ls $v(listSeq)
if {[array get paramS "$ls,P"] != ""} {
set start [expr int($v(sampleRate) * $paramS($ls,P))]
}
if {[array get paramS "$ls,E"] != ""} {
set end [expr int($v(sampleRate) * $paramS($ls,E))]
}
togglePlay $start $end
}

bind . <Alt-t> tpPE
--------ここまで

これで、Alt+tを押すと先行発声~右ブランクを再生するようになります。(ただし突貫で拡張しているので、起動する度に同じ作業をしないといけません)。





このような部分指定再生機能は需要ありそうなので、設定窓で開始・終了パラメータを指定して特定のショートカットキーを押すと指定区間を再生させるような機能はあっても良いのかもと思いました。
スポンサーサイト

PageTop

コメント


管理者にだけ表示を許可する