Ignore:
Timestamp:
Mar 31, 2010 2:54:41 PM (13 years ago)
Author:
ajj
Message:

Update to CatVSTable to show sample position, TISANE to fix a couple of startup bugs and FuzzySpheres? to add the lorentzian term.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/TISANE.ipf

    r609 r656  
    2626 
    2727Function Init_TISANE() 
    28         String/G root:MyGlobals:gTISANE_logfile 
    29         Variable/G      root:MyGlobals:AIMTYPE_XY=0 // XY Event 
    30         Variable/G      root:MyGlobals:AIMTYPE_XYM=2 // XY Minor event 
    31         Variable/G      root:MyGlobals:AIMTYPE_MIR=1 // Minor rollover event 
    32         Variable/G      root:MyGlobals:AIMTYPE_MAR=3 // Major rollover event 
    33  
    34         Variable/G root:MyGlobals:gTISANE_time_msw = 0 
    35         Variable/G root:MyGlobals:gTISANE_time_lsw = 0 
    36         Variable/G root:MyGlobals:gTISANE_t_longest = 0 
    37  
    38         Variable/G root:MyGlobals:gTISANE_tsdisp //Displayed slice 
    39         Variable/G root:MyGlobals:gTISANE_nslices = 10  //Number of time slices 
    40         Variable/G root:MyGlobals:gTISANE_slicewidth  = 1000 //Slicewidth in us  
    41          
    42         Variable/G root:MyGlobals:gTISANE_prescan // Do we prescan the file? 
    43         Variable/G root:MyGlobals:gTISANE_logint = 1 
    44  
    45         SetDataFolder root: 
    46         NewDataFolder/O/S root:TISANE 
     28        String/G root:Packages:NIST:gTISANE_logfile 
     29        Variable/G      root:Packages:NIST:AIMTYPE_XY=0 // XY Event 
     30        Variable/G      root:Packages:NIST:AIMTYPE_XYM=2 // XY Minor event 
     31        Variable/G      root:Packages:NIST:AIMTYPE_MIR=1 // Minor rollover event 
     32        Variable/G      root:Packages:NIST:AIMTYPE_MAR=3 // Major rollover event 
     33 
     34        Variable/G root:Packages:NIST:gTISANE_time_msw = 0 
     35        Variable/G root:Packages:NIST:gTISANE_time_lsw = 0 
     36        Variable/G root:Packages:NIST:gTISANE_t_longest = 0 
     37 
     38        Variable/G root:Packages:NIST:gTISANE_tsdisp //Displayed slice 
     39        Variable/G root:Packages:NIST:gTISANE_nslices = 10  //Number of time slices 
     40        Variable/G root:Packages:NIST:gTISANE_slicewidth  = 1000 //Slicewidth in us  
     41         
     42        Variable/G root:Packages:NIST:gTISANE_prescan // Do we prescan the file? 
     43        Variable/G root:Packages:NIST:gTISANE_logint = 1 
     44 
     45        NVAR nslices = root:Packages:NIST:gTISANE_nslices 
     46         
     47        SetDataFolder root: 
     48        NewDataFolder/O/S root:Packages:NIST:TISANE 
     49         
     50        Make/O/N=(XBINS,YBINS,nslices) slicedData 
     51        Duplicate/O slicedData logslicedData 
     52        Duplicate/O slicedData dispsliceData 
    4753         
    4854        SetDataFolder root: 
     
    5157Proc TISANE() 
    5258        PauseUpdate; Silent 1           // building window... 
    53         NewPanel/K=1 /W=(100,50,600,680)/N=TISANE 
     59        NewPanel/K=2 /W=(100,50,600,680)/N=TISANE 
    5460        DoWindow/C TISANE 
    5561        ModifyPanel fixedSize=1,noEdit =1 
     
    5965        Button button0,proc=LoadTISANELog_Proc 
    6066        SetVariable setvar3,pos= {20,590},size={460,20},title=" ",fSize=12 
    61         SetVariable setvar3,disable=2,variable=root:myGlobals:gTISANE_logfile 
     67        SetVariable setvar3,disable=2,variable=root:Packages:NIST:gTISANE_logfile 
    6268        CheckBox chkbox1,pos={170,15},title="Prescan file? (increases load time)" 
    63         CheckBox chkbox1,variable = root:myGlobals:gTISANE_prescan 
     69        CheckBox chkbox1,variable = root:Packages:NIST:gTISANE_prescan 
     70        Button doneButton,pos={400,10}, size={50,20},title="Done",fSize=12 
     71        Button doneButton,proc=TISANEDone_Proc 
    6472         
    6573        //DrawLine 10,35,490,35 
     
    6775        Button button1,proc=ProcessLog_Proc 
    6876        SetVariable setvar1,pos={170,50},size={160,20},title="Number of slices",fSize=12 
    69         SetVariable setvar1,value=root:myGlobals:gTISANE_nslices 
     77        SetVariable setvar1,value=root:Packages:NIST:gTISANE_nslices 
    7078        SetVariable setvar2,pos={330,50},size={160,20},title="Slice Width (us)",fSize=12 
    71         SetVariable setvar2,value=root:myGlobals:gTISANE_slicewidth 
     79        SetVariable setvar2,value=root:Packages:NIST:gTISANE_slicewidth 
    7280        //DrawLine 10,65,490,65 
    7381         
    7482        CheckBox chkbox2,pos={20,95},title="Log Intensity",value=1 
    75         CheckBox chkbox2,variable=root:myGlobals:gTISANE_logint,proc=LogInt_Proc 
     83        CheckBox chkbox2,variable=root:Packages:NIST:gTISANE_logint,proc=LogInt_Proc 
    7684        SetVariable setvar0,pos={320,90},size={160,20},title="Display Time Slice",fSize=12 
    77         SetVariable setvar0,value= root:myGlobals:gTISANE_tsdisp 
     85        SetVariable setvar0,value= root:Packages:NIST:gTISANE_tsdisp 
    7886        SetVariable setvar0,proc=sliceSelect_Proc 
    7987        Display/W=(20,120,480,580)/HOST=TISANE/N=TISANE_slicegraph 
    80         AppendImage/W=TISANE#TISANE_slicegraph/T :TISANE:dispsliceData 
     88        AppendImage/W=TISANE#TISANE_slicegraph/T root:Packages:NIST:TISANE:dispsliceData 
    8189        ModifyImage/W=TISANE#TISANE_slicegraph  ''#0 ctab= {*,*,Rainbow,0} 
    8290        ModifyImage/W=TISANE#TISANE_slicegraph ''#0 ctabAutoscale=3 
     
    98106         
    99107        Variable fileref 
    100         SVAR filename = root:MyGlobals:gTISANE_logfile 
    101         NVAR prescan = root:MyGlobals:gTISANE_prescan 
    102         NVAR slicewidth = root:MyGlobals:gTISANE_slicewidth 
    103         NVAR nslices = root:MyGlobals:gTISANE_nslices 
    104         NVAR t_longest = root:MyGlobals:gTISANE_t_longest 
     108        SVAR filename = root:Packages:NIST:gTISANE_logfile 
     109        NVAR prescan = root:Packages:NIST:gTISANE_prescan 
     110        NVAR slicewidth = root:Packages:NIST:gTISANE_slicewidth 
     111        NVAR nslices = root:Packages:NIST:gTISANE_nslices 
     112        NVAR t_longest = root:Packages:NIST:gTISANE_t_longest 
    105113         
    106114        Open/R/D fileref 
     
    115123End 
    116124 
     125Function TISANEDone_Proc(ba) : ButtonControl 
     126        STRUCT WMButtonAction &ba 
     127         
     128        String win = ba.win 
     129        switch (ba.eventCode) 
     130                case 2: 
     131                        DoWindow/K TISANE 
     132                        break 
     133        endswitch 
     134 
     135End 
     136 
    117137Function ProcessLog_Proc(ctrlName) : ButtonControl 
    118138        String ctrlName 
    119139 
    120         NVAR slicewidth = root:MyGlobals:gTISANE_slicewidth 
    121         NVAR nslices = root:MyGlobals:gTISANE_nslices 
     140        NVAR slicewidth = root:Packages:NIST:gTISANE_slicewidth 
     141        NVAR nslices = root:Packages:NIST:gTISANE_nslices 
    122142         
    123143        ProcessLog(nslices,slicewidth) 
     
    129149        Variable checked 
    130150                 
    131         SetDataFolder root:TISANE 
     151        SetDataFolder root:Packages:NIST:TISANE 
    132152        if(checked) 
    133153                Duplicate/O logslicedData dispsliceData 
     
    145165        String varName 
    146166         
    147         NVAR nslices = root:MyGlobals:gTISANE_nslices 
    148         NVAR selectedslice = root:MyGlobals:gTISANE_tsdisp 
     167        NVAR nslices = root:Packages:NIST:gTISANE_nslices 
     168        NVAR selectedslice = root:Packages:NIST:gTISANE_tsdisp 
    149169         
    150170        if(varNum < 0) 
     
    163183        Variable nslices,slicewidth 
    164184         
    165         NVAR time_msw = root:MyGlobals:gTISANE_time_msw 
    166         NVAR time_lsw = root:MyGlobals:gTISANE_time_lsw 
    167         NVAR t_longest = root:MyGlobals:gTISANE_t_longest 
    168          
    169         NVAR logint = root:MyGlobals:gTISANE_logint 
    170          
    171         SVAR filepathstr = root:MyGlobals:gTISANE_logfile 
    172         SetDataFolder root:TISANE 
     185        NVAR time_msw = root:Packages:NIST:gTISANE_time_msw 
     186        NVAR time_lsw = root:Packages:NIST:gTISANE_time_lsw 
     187        NVAR t_longest = root:Packages:NIST:gTISANE_t_longest 
     188         
     189        NVAR logint = root:Packages:NIST:gTISANE_logint 
     190         
     191        SVAR filepathstr = root:Packages:NIST:gTISANE_logfile 
     192        SetDataFolder root:Packages:NIST:TISANE 
    173193 
    174194        //Create bin lookup 
     
    258278        Variable nticks,nslices 
    259279         
    260         WAVE t_lookup = root:TISANE:t_lookup 
     280        WAVE t_lookup = root:Packages:NIST:TISANE:t_lookup 
    261281         
    262282        Variable i 
     
    275295Function PreProcessLog() 
    276296         
    277         NVAR time_msw = root:MyGlobals:gTISANE_time_msw 
    278         NVAR time_lsw = root:MyGlobals:gTISANE_time_lsw 
    279         NVAR t_longest = root:MyGlobals:gTISANE_t_longest 
    280          
    281         SVAR filepathstr = root:MyGlobals:gTISANE_logfile 
    282         SetDataFolder root:TISANE 
     297        NVAR time_msw = root:Packages:NIST:gTISANE_time_msw 
     298        NVAR time_lsw = root:Packages:NIST:gTISANE_time_lsw 
     299        NVAR t_longest = root:Packages:NIST:gTISANE_t_longest 
     300         
     301        SVAR filepathstr = root:Packages:NIST:gTISANE_logfile 
     302        SetDataFolder root:Packages:NIST:TISANE 
    283303 
    284304        Variable fileref 
Note: See TracChangeset for help on using the changeset viewer.