Ignore:
Timestamp:
Nov 8, 2012 11:45:21 AM (10 years ago)
Author:
srkline
Message:

Changes to the EventModeProcessing? to put some of the functions on the panel as buttons, rather than on the Macros menu.

Added a menu item in the package loader to invoke the event panel. The reduction procedures must be loaded first.

Added Matt's fixes to the rescaling panel so that it will remove the "_RA" suffix when the scaling is reset to I vs q. A benefit of this is that the dependency works again (automatically) - so users could toggle between scalings and adjust coefficients if they desired.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/Wrapper_v40.ipf

    r873 r874  
    20532053        endfor 
    20542054         
    2055         string oldywave 
     2055        string oldywave, xstr, ystr 
    20562056        for (i = 0; i < ItemsInList(listWave,";"); i+=1) 
    20572057                temp = StringFromList(i,listWave,";") 
     
    20612061                WaveDataFolder = WaveString[0] 
    20622062                SetDataFolder $WaveDataFolder 
    2063                         if(stringmatch(WaveToRescale, "*_RA")) 
     2063                ControlInfo/W=RescaleAxisPanel yModel 
     2064                ystr = S_Value 
     2065                ControlInfo/W=RescaleAxisPanel xModel 
     2066                xstr = S_Value 
     2067                        if(cmpstr("I",ystr)==0 && cmpstr("q",xstr)==0) 
     2068                                if(stringmatch(WaveToRescale, "*_i_RA")) 
     2069                                        oldywave = WaveToRescale 
     2070                                        ywave = RemoveEnding(WaveToRescale,"_RA") 
     2071                                        xwave = RemoveEnding(WaveToRescale, "_i_RA")+"_q" 
     2072                                        replacewave/Y/W=$topGraph trace=$oldywave, $ywave 
     2073                                        replacewave/X/W=$topGraph trace=$ywave, $xwave 
     2074                                        swave = RemoveEnding(WaveToRescale, "_i_RA")+"_s" 
     2075                                        if(exists(swave)==1) 
     2076                                                ErrorBars/T=0/W=$topGraph $ywave, Y wave=($swave,$swave)         
     2077                                        endif 
     2078                                elseif (stringmatch(WaveToRescale,  "smeared*")) 
     2079                                        if(stringmatch(WaveToRescale,"*_RA") && stringmatch(WaveToRescale,"!*_qvals*") ) 
     2080                                                oldywave = WaveToRescale 
     2081                                                ywave = RemoveEnding(WaveToRescale,"_RA") 
     2082                                                xwave = "smeared_qvals" 
     2083                                                replacewave/Y/W=$topGraph trace=$oldywave, $ywave 
     2084                                                replacewave/X/W=$topGraph trace=$ywave, $xwave 
     2085                                        endif 
     2086                                elseif(stringmatch(WaveToRescale,"ywave*") && stringmatch(WaveToRescale,"*_RA")) 
     2087                                        oldywave = WaveToRescale 
     2088                                        ywave = RemoveEnding(WaveToRescale,"_RA") 
     2089                                        xwave = ReplaceString("ywave",ywave,"xwave") 
     2090                                        replacewave/Y/W=$topGraph trace=$oldywave, $ywave 
     2091                                        replacewave/X/W=$topGraph trace=$ywave, $xwave                                   
     2092                                elseif(stringmatch(WaveToRescale, "*FitYw*") && stringmatch(WaveToRescale, "*_RA")) 
     2093                                        oldywave = WaveToRescale 
     2094                                        ywave = RemoveEnding(WaveToRescale,"_RA") 
     2095                                        for (k=1; k < numpnts(WaveString); k+=1) 
     2096                                                if (stringmatch(Wavestring[k], "*_q")) 
     2097                                                        xwave = Wavestring[k] 
     2098                                                endif 
     2099                                        endfor 
     2100                                        replacewave/Y/W=$topGraph trace=$oldywave, $ywave 
     2101                                        replacewave/X/W=$topGraph trace=$ywave, $xwave   
     2102                                endif                    
     2103                        elseif(stringmatch(WaveToRescale, "*_RA")) 
    20642104                        elseif (stringmatch(WaveToRescale, "*_i")) 
    20652105                                DoWindow/F topGraph 
     
    20812121                                xwave = "smeared_qvals_RA" 
    20822122                                replacewave/X/W=$topGraph trace=$ywave, $xwave   
    2083                                 ModifyGraph log=0 
    20842123                        elseif(stringmatch(WaveToRescale,"ywave*")) 
    20852124                                oldywave = WaveToRescale 
     
    20982137                                replacewave/Y/W=$topGraph trace=$oldywave, $ywave 
    20992138                                replacewave/X/W=$topGraph trace=$ywave, $xwave   
    2100                                 ModifyGraph log=0 
    21012139                        endif 
    21022140                        SetDataFolder root:Packages:NIST:RescaleAxis 
     2141                        DoUpdate 
    21032142                endfor 
    21042143        endfor 
    21052144        KillWaves/A/Z 
    2106         modifygraph log=0 
    2107                  
    2108         string ylabel, xlabel, ystr, xstr 
     2145                 
     2146        string ylabel, xlabel 
    21092147        ControlInfo/W=RescaleAxisPanel yModel 
    21102148        ystr = S_Value 
     
    21142152        if(cmpstr("I",ystr)==0 && cmpstr("q",xstr)==0) 
    21152153                modifygraph log=1 
     2154        else 
     2155                modifygraph log=0 
    21162156        endif 
    21172157         
Note: See TracChangeset for help on using the changeset viewer.