source: sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/PlotManager.ipf @ 171

#pragma rtGlobals=1             // Use modern global access method.
#pragma version=3.00
#pragma IgorVersion=6.0


//////////////////////////////////////////
//
// Plot manager that is largely based on the plot manager in the Reduction package
//
// "A_" is crudely prepended to function names to avoid conflicts
//
// -- data folders will sitll overlap, but should not be an issue
//
// 28SEP07 SRK
//
//////////////////////////////////////////
Macro Show_Plot_Manager()
        A_Init_OneDLoader()
        DoWindow/F Plot_Manager
        if(V_flag==0)
                A_Plot_Manager()
        endif
        A_OneDLoader_GetListButton("")
End

Window A_Plot_Manager() : Panel
        PauseUpdate; Silent 1           // building window...
        NewPanel /W=(658,347,1018,737)/N=Plot_Manager/K=1 as "Plot Manager"
        ModifyPanel cbRGB=(37265,65535,32896)

        Button button0,pos={165,353},size={50,20},proc=A_PlotManager_Done,title="Done"
        PopupMenu popup0,pos={15,225},size={233,20},title="Data in Memory"
        PopupMenu popup0,mode=1,value= #"A_OneDDataInMemory()"
        Button button2,pos={122,259},size={100,20},proc=A_PlotManager_Append,title="Append Data"
        Button button3,pos={15,259},size={80,20},proc=A_PlotManager_newGraph,title="New Graph"
        Button button4,pos={15,293},size={220,20},proc=A_PlotManager_Kill,title="Remove Selection From Memory"
        Button button5,pos={15,323},size={220,20},proc=A_PlotManager_KillAll,title="Remove All Data From Memory"
        ListBox fileList,pos={13,11},size={206,179}
        ListBox fileList,listWave=root:myGlobals:OneDLoader:fileWave
        ListBox fileList,selWave=root:myGlobals:OneDLoader:selWave,mode= 4
        Button button6,pos={238,153},size={100,20},proc=A_OneDLoader_LoadButton,title="Load File(s)"
        Button button6,help={"Loads the selected files into memory and will graph them if that option is checked"}
        Button button7,pos={238,20},size={100,20},proc=A_OneDLoader_NewFolderButton,title="New Folder"
        Button button7,help={"Select a new data folder"}
        GroupBox group0,pos={222,108},size={50,4},title="Shift-click to load"
        GroupBox group0_1,pos={222,123},size={50,4},title="multiple files"
        GroupBox group1,pos={7,207},size={350,4}
EndMacro

//uses the same data folder listing as the wrapper
// if it's right there, it's right here
Function/S A_OneDDataInMemory()
        String list = W_DataSetPopupList()
        return(list)
end


Function A_PlotManager_Done(ctrlName) : ButtonControl
        String ctrlName
        DoWindow/K Plot_Manager
End

Function A_PlotManager_Append(ctrlName) : ButtonControl
        String ctrlName
        //appends data set from memory
        
        //get the current selection
        ControlInfo popup0
        if(strlen(S_Value)==0 || cmpstr(S_Value,"No data loaded")==0)
                Abort "You must load data from a file into memory before appending the data"
        Endif
        
        A_PM_doAppend(S_Value)
        
        DoWindow/F Plot_Manager
End

//actually does the appending
//pass it the name of the wave, find the q-i-s waves
Function A_PM_doAppend(DF)
        String DF
        //appends data set from memory
        String qStr,eStr,istr
        Variable rr,gg,bb
        
        if(cmpstr(WinList("*", ";","WIN:1"),"") == 0 )
                DoAlert 0,"There are no open graphs. Please use the New Graph button"
                return(0)
        endif
        
        SetDataFolder $("root:"+DF)
        //iStr will end in "i"
        qStr = DF+"_q"
        eStr = DF+"_s"
        iStr = DF+"_i"
        
        rr = abs(trunc(enoise(65535)))
        gg = abs(trunc(enoise(65535)))
        bb = abs(trunc(enoise(65535)))
        
        // append to whatever is top-most graph
        AppendToGraph $iStr vs $qStr
        ModifyGraph log=1,mode($istr)=3,marker($iStr)=19,msize($iStr)=2,rgb($iStr)=(rr,gg,bb)
        ErrorBars $iStr Y,wave=($eStr,$eStr)

        SetDataFolder root:
End

Proc A_PlotManager_newGraph(ctrlName) : ButtonControl
        String ctrlName
        
        //get the current selection
        ControlInfo popup0
        if(strlen(S_Value)==0 || cmpstr(S_Value,"No data loaded")==0)
                Abort "You must load data from a file into memory before plotting the data"
        Endif
        
        A_PM_doNewGraph(S_Value)
        DoWindow/F Plot_Manager
End

Function A_PM_doNewGraph(DF)
        String DF

        String qStr,eStr,iStr
        Variable rr,gg,bb
        
        SetDataFolder $("root:"+DF)
        //iStr will end in "i"
        qStr = DF+"_q"
        eStr = DF+"_s"
        iStr = DF+"_i"
        
        rr = abs(trunc(enoise(65535)))
        gg = abs(trunc(enoise(65535)))
        bb = abs(trunc(enoise(65535)))
        
        // always make a new graph
        Display $iStr vs $qStr
        ModifyGraph log=1,mode($istr)=3,marker($iStr)=19,msize($iStr)=2,rgb=(rr,gg,bb)
        ModifyGraph grid=1,mirror=2,standoff=0
        ErrorBars $iStr Y,wave=($eStr,$eStr)
        
        Label left "I(q)"
        SVAR angst = root:myGlobals:gAngstStr
        Label bottom "q (A\\S-1\\M)"
        
        Legend
        
        SetDataFolder root:
End

//kill the specified wave (if possible)
Proc A_PlotManager_Kill(ctrlName) : ButtonControl
        String ctrlName
        
        String DF

        ControlInfo popup0
        DF=S_Value              //this will end in "i"

        KillDataFolder/Z $DF
        ControlUpdate popup0            //refresh the popup, very important if last item removed
End

//kill the specified wave (if possible)
Proc A_PlotManager_KillAll(ctrlName) : ButtonControl
        String ctrlName
        
        String DF

        String list =  A_OneDDataInMemory()
        Variable num=ItemsInList(list),ii
        
        ii=0
        do      
                DF=StringFromList(ii, list  ,";")
                KillDataFolder/Z $DF
                ii+=1
        while(ii<num)
        ControlUpdate popup0            //refresh the popup, very important if all items are removed
End

Proc A_Init_OneDLoader()
        //create the data folder
        NewDataFolder/O/S root:myGlobals:OneDLoader
        //create the waves
        Make/O/T/N=1 fileWave=""
        Make/O/N=1 selWave=0
        Variable/G ind=0
        SetDataFolder root:
End


//prompt for a new path, and get a new listing
Function A_OneDLoader_NewFolderButton(ctrlName) : ButtonControl
        String ctrlName

        A_PickPath()
        A_OneDLoader_GetListButton("")
        return(0)
End

//filters to remove only the files that are named like a raw data file, i.e. "*.SAn"
//does not check to see if they really are RAW files though...(too tedious)
Function A_OneDLoader_GetListButton(ctrlName) : ButtonControl
        String ctrlName
        
        //make sure that path exists
        PathInfo catPathName
        if (V_flag == 0)
                Abort "Folder path does not exist - use \"New Folder\" button on Main Panel"
        Endif
        
        String newList = A_ReducedDataFileList("")
        Variable num
        
        num=ItemsInList(newlist,";")
        WAVE/T fileWave=$"root:myGlobals:OneDLoader:fileWave"
        WAVE selWave=$"root:myGlobals:OneDLoader:selWave"
        Redimension/N=(num) fileWave
        Redimension/N=(num) selWave
        fileWave = StringFromList(p,newlist,";")
        Sort filewave,filewave
End

Function A_OneDLoader_LoadButton(ctrlName) : ButtonControl
        String ctrlName
        
        //loop through the selected files in the list...
        Wave/T fileWave=$"root:myGlobals:OneDLoader:fileWave"
        Wave sel=$"root:myGlobals:OneDLoader:selWave"
        Variable num=numpnts(sel),ii=0
        String fname="",pathStr="",fullPath="",newFileName=""
        
        PathInfo catPathName                    //this is where the files are
        pathStr=S_path
        
        Variable doGraph,cnt

        ControlInfo check0
        doGraph=V_Value
        cnt=0
        // get the current state
        do
                if(sel[ii] == 1)
                        fname=pathStr + fileWave[ii]
                        Execute "A_LoadOneDDataWithName(\""+fname+"\",1)"
                        cnt += 1        //a file was loaded
                endif
                ii+=1
        while(ii<num)

        return(0)
End


//function called by the popups to get a file list of data that can be sorted
// this procedure simply removes the raw data files from the string - there
//can be lots of other junk present, but this is very fast...
//
// could also use the alternate procedure of keeping only file with the proper extension
//
// another possibility is to get a listing of the text files, but is unreliable on 
// Windows, where the data file must be .txt (and possibly OSX)
//
Function/S A_ReducedDataFileList(ctrlName)
        String ctrlName

        String list="",newList="",item=""
        Variable num,ii
        
        //check for the path
        PathInfo catPathName
        if(V_Flag==0)
                DoAlert 0, "Data path does not exist - pick the data path from the button on the main panel"
                Return("")
        Endif
        
        list = IndexedFile(catpathName,-1,"????")
        num=ItemsInList(list,";")
        //print "num = ",num
        for(ii=(num-1);ii>=0;ii-=1)
                item = StringFromList(ii, list  ,";")
                //simply remove all that are not raw data files (SA1 SA2 SA3)
                if( !stringmatch(item,"*.SA1*") && !stringmatch(item,"*.SA2*") && !stringmatch(item,"*.SA3*") )
                        if( !stringmatch(item,".*") && !stringmatch(item,"*.pxp") && !stringmatch(item,"*.DIV"))                //eliminate mac "hidden" files, pxp, and div files
                                newlist += item + ";"
                        endif
                endif
        endfor
        //sort
        newList = SortList(newList,";",0)

        return newlist
End