Skip to content

Instantly share code, notes, and snippets.

@deathponta
Created November 15, 2018 11:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save deathponta/b82ddbb96f3a06bc89b57cbf43002999 to your computer and use it in GitHub Desktop.
Save deathponta/b82ddbb96f3a06bc89b57cbf43002999 to your computer and use it in GitHub Desktop.
再生速度を変更
/*
プレイバックスピードを変更します。ただそれだけの物語。
*/
proc ChangePlaybackSpeed(){
string $window = "ChangePlaybackSpeed";
if( window( "-ex" , $window ) ){
deleteUI $window;
}
window( "-t" , $window , "-w" , 300 , "-tb" , true , $window );
rowLayout( "-nc" , 5 );
button( "-l" , "0.1" , "-w" , 50 , "-bgc" , 0,0,0.5 , "-c" , "Change(0.1)" );
button( "-l" , "0.5" , "-w" , 50 , "-bgc" , 0,0,0.3 , "-c" , "Change(0.5)" );
button( "-l" , "1.0" , "-w" , 50 , "-bgc" , 0.3,0.3,0.3 , "-c" , "Change(1)" );
button( "-l" , "1.5" , "-w" , 50 , "-bgc" , 0.3,0,0 , "-c" , "Change(1.5)" );
button( "-l" , "2.0" , "-w" , 50 , "-bgc" , 0.5,0,0 , "-c" , "Change(2)" );
showWindow $window;
}
proc Change( float $_val ){
playbackOptions( "-ps" , $_val );
print( "再生速度を " + playbackOptions( "-q" , "-ps" ) + " に変更" );
}
ChangePlaybackSpeed();
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment