Changeset 249


Ignore:
Timestamp:
Jan 25, 2008 11:49:42 AM (15 years ago)
Author:
ajj
Message:

Improved cosmetics of USANS data loader popup.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/USANS_SlitSmearing.ipf

    r239 r249  
    8080        NewPanel /W=(600,300,1000,700)/N=USANS_Slope as "USANS Slope Extrapolation" 
    8181        SetDrawLayer UserBack 
    82         Button button_OK,pos={294,317},size={100,20},title="Accept Slope",font="Geneva" 
     82        Button button_OK,pos={270,360},size={100,20},title="Accept Slope",font="Geneva" 
    8383        Button button_OK,proc=USANS_Slope_ButtonProc 
    84         Button button_SlopeCalc,pos={233,317},size={55,20},title="Calculate Slope",font="Geneva" 
     84        Button button_SlopeCalc,pos={270,310},size={100,20},title="Calculate",font="Geneva" 
    8585        Button button_SlopeCalc,proc=USANS_Slope_ButtonProc 
    86         SetVariable setvar_numpnts, pos={43,350}, size={150,19}, title="# Points",fSize=13 
     86        SetVariable setvar_numpnts, pos={20,310}, size={130,19}, title="# Points",fSize=13 
    8787        SetVariable setvar_numpnts, value= USANS_slope_numpnts  
    88         SetVariable setvar_Slope,pos={43,321},size={100,19},title="Slope",fSize=13 
     88        SetVariable setvar_Slope,pos={160,310},size={90,19},title="Slope",fSize=13 
    8989        SetVariable setvar_Slope,limits={-inf,inf,0},value= USANS_m 
    9090        Display/W=(9,6,402,305)/HOST=USANS_Slope $(basestr+"_i") vs $(basestr+"_q") 
    9191        RenameWindow #,SlopePlot 
     92        ErrorBars/W=USANS_Slope#SlopePlot $(basestr+"_i"), Y wave=($(basestr+"_s"),$(basestr+"_s")) 
    9293        ModifyGraph log=1 
     94        ModifyGraph mode=3,msize=3,marker=1,rgb=(0,0,0) 
    9395        SetActiveSubwindow ## 
    9496         
     
    105107        String basestr 
    106108        Variable nend 
     109         
     110        NVAR USANS_m 
    107111         
    108112        Wave iw = $(basestr+"_i") 
     
    142146        //      Make/O/T Constr={"K2<0","K2 > -20"} 
    143147                //(set background to zero and hold fixed) 
    144                 CurveFit/H="100" Power kwCWave=P_coef  iw[(num-1-nend),(num-1)] /X=qw /W=sw /D  
     148                CurveFit/H="100" Power kwCWave=P_coef  iw[(num-1-nend),(num-1)] /X=qw /W=sw  
    145149                extr_hqi=P_coef[0]+P_coef[1]*extr_hqq^P_coef[2] 
    146150         
Note: See TracChangeset for help on using the changeset viewer.