Scroll Through a Trace

// scroll in graph with axis width gwidth with step sstep at speed in 60/speed ticks
 
Function scroll_OverTrace(variable gwidth, variable sstep, variable speed)
 
    // sanity check
    if (sstep > gwidth)
        sstep = gwidth/10
    endif
    
    // front graph
    string fgwin    
    fgwin = WinName(0,1,1)
    
    variable lx, rx, gmin, gmax 
    GetAxis/W=$fgwin/Q bottom
    lx = v_min
    rx = v_max
    GetAxis/W=$fgwin/Q left
    gmin = v_min
    gmax = v_max
    
    // top trace
    string tname    
    tname = StringFromList(0,TraceNameList(fgwin,"",1))
    
    wave gwave = TraceNameToWaveRef(fgwin,tname)
    
    // set up new window
    KillWindow/Z LiveTraceScroll
    display/N=LiveTraceScroll gwave
    SetAxis/W=LiveTraceScroll left, gmin, gmax
    SetAxis/W=LiveTraceScroll bottom, lx, gwidth
    DoUpdate/W=LiveTraceScroll
    
    // loop to scroll
    variable ic, nsteps, dx 
    nsteps = (rx - lx)/sstep    
    for (ic=0;ic<nsteps;ic+=1)
        dx = ic*sstep
        SetAxis/W=LiveTraceScroll bottom, lx+dx, gwidth+dx
        sleep/T/Q/PROG={"Stop","",1} 60/speed
        DoUpdate/W=LiveTraceScroll 
    endfor
 
    // return to main window
    DoWindow/F $fgwin
        
    return 0
end