Digital Workshop

//Assume that the musician pressed NumPad -, and that you use a Pub variable or Page variable named newspeed.
//Assume that the Trigger and Action above increase or decrease the value of newspeed
//You need something like the following line of code (in your loop)
myscrollspeed = newspeed ;

//a method to control scroll speed boundaries.  Let's assume valid scroll speeds are 0 to 10 (end values included)

//scripted action to increment variable    -- under the NumPad+  key trigger
if (newspeed >= 0 && newspeed <= 9)
{
newspeed +=1 ;
wait(0)
}

//scripted action to deccrement variable    -- under the NumPad-  key trigger
if (newspeed >= 1 && newspeed <= 10)
{
newspeed -=1 ;
wait(0)
}

//- - - - - - -   Script to control vertical scrolling of a Frame/Image, then advance to next frame in MultiFrame and scroll again - - - - - -
// note: within the comment lines themselves I often use 'single quotes' simply to highlight a label (and not imply a string value)
//here we set a speed factor for scrolling.  this should be very small for smooth scrolling
//set the rate for looping: 'loopBPS' (Beats per second) set at 1000 gives a wait state of  0.001 seconds
//  'loopBPS'  at 10,000  scrolls a long sheet in about 15 seconds;  to go slower... set at 1,000 seems to give 30 sec. ??
loopBPS = 260 ;
looprate =  1 / loopBPS ;
upper =  15000;         
//this will be used as the 'upper limit' for 'i' in the LOOP below   
//(high number makes for smooth action when combined with 'fractional percentage' scroll factor)
ifactor = upper/100;
PageFlipDelay =  7 ;    //number of seconds to 'wait' after reaching end of one page and before turning to next page (or rather 'sheet')
//'framecounter' variable is used to regulate how we view the frames in a multiframe (know which one is active or current)
framecounter = 1 ;

function DoScroll_or_Advance()
{
var MFchildren = MultiFrame_1.GetNumberChildren() ;
var theGoFrame =  MFchildren - framecounter ;
wait(5)
drumObject.Hide()
wait(25)
for (i=0;i < upper ; i++)
{
//start scrolling --- note 'looprate' set above is the PRIMARY means to control scroll rate,
//however 'upper' and 'ifactor' may be played with as well.
MultiFrame_1.GetChild(theGoFrame).SetScrollPosition( i/ifactor +0.3, -1 )                           
// the '+0.3' SHOULD WORK to avoid falling short, e.g. 99.843 percent scroll
wait(looprate)
   //next we monitor if we've reached 100 percent scroll position.
   //Actually, this is an IMPLIED test... we're assuming that 'upper' and 'ifactor' are properly set to get there,
   //then 'i' is a simple conditional test.
    if ( i == upper -1)
    {
    ////use the 'currscroll' and 'Debug' lines for testing purposes -- to verify that the loop control, 'i',
//and scroll amount that is set achieves 100 percent Scrolling.
    //currscroll = MultiFrame_1.GetChild(theGoFrame).GetScrollInfo()
    //Debug.trace( MultiFrame_1.GetChild(theGoFrame).GetName() + "   currscroll.vpos  is  "+  currscroll.vpos  +"\n")
    framecounter += 1 ;
      if ( framecounter <= MFchildren )
      {
            //Explanation of this next line for 'wait'. We need a little delay, PageFlipDelay,
            //after reaching 100 percent Scroll and before 'turning the page'
      PageTurning_Bar.Show()
      Vec_ProgressBar1.MoveX(200, PageFlipDelay, true )
      PageTurning_Bar.Hide()
      Vec_ProgressBar1.MoveX(-200, 0, false )
      //now Turn-the-Page  (not Opus page, but the 'sheet music')
      MultiFrame_1.Forward()
      wait(0.3)
      DoScroll_or_Advance()
      }
      else
      {
      
   
      //Do something to indicate "Choose the Another Song/Title in the Playlist"
      //Note:  the next line is simply a placeholder action (you need to decide how you want to handle reaching the end)
      NextObject.Show()

      }

    } //end if


} //end for

}
//end function

//  'loopBPS'  at 10,000  scrolls a long sheet in about 15 seconds;  to go slower... set at 1,000 seems to give 30 sec. ??
loopBPS = newspeed ;
looprate =  1 / loopBPS ;

//- - - - - - - - -
wait(looprate)

function DoScroll_or_Advance()
{
var MFchildren = MultiFrame_1.GetNumberChildren() ;
var theGoFrame =  MFchildren - framecounter ;
var butStatus = Buttonplus
var butStatus1 = Buttonminus
wait(5)
            
for (i=0;i < upper ; i++)
{
//start scrolling --- note 'looprate' set above is the PRIMARY means to control scroll rate,
//however 'upper' and 'ifactor' may be played with as well.
MultiFrame_1.GetChild(theGoFrame).SetScrollPosition( i/ifactor +0.3, -1 )
            // Trying for mouse input
            
            {
            butStatus = Buttonplus.GetState()
            if (butStatus == true)
            {
            i = i+20
            }
            }
            
            {
            butStatus1 = Buttonminus.GetState()
            if (butStatus1 == true)
            {
            i=i-20
            }
            }