Igor Sleep Controller

Menu "Misc"
    "Igor Sleep Controller",/Q,InitSleepControl(0)
End
 
function InitSleepControl(keepWin)
    variable keepWin
    
    if(!keepWin)
        dowindow /k SleepControlWin
        NewPanel /k=1/w=(25,25,149,123)/n=SleepControlWin
    endif
    newdatafolder /o root:Packages
    newdatafolder /o root:Packages:SleepControl
    dfref df=root:Packages:SleepControl
    nvar /z/sdfr=df sleepControlVal
    if(!nvar_exists(sleepControlVal))
        variable /g df:sleepControlVal=3
        nvar /z/sdfr=df sleepControlVal
    endif
    Slider sleepControl pos={5,2}, size={25,86}, vert=1, variable=sleepControlVal, limits={0,4,1}, ticks=-1, proc=SleepControlSlider
    TitleBox fast_,pos={42,2},size={63,21},title="High Power"
    TitleBox slow_,pos={42,70},size={61,21},title="Low Power" 
end
 
function SleepControlSlider(info)
    struct wmslideraction &info
    
    if(info.eventCode & 1)
        variable sleepTicks=min(60,(4-info.curVal)^3)
        string cmd
        sprintf cmd,"SetProcessSleep %d",sleepTicks
        Execute/P/Q cmd
    endif
end