Ignore:
Timestamp:
Oct 1, 2009 10:15:08 AM (13 years ago)
Author:
srkline
Message:

A variety of changes...

  • fixed model strings for Sum_Model
  • /Z flag for RTHelp, Transmission help, FIT help, MRED help
  • added help and done buttons to SASCALC
  • added comments in MonteCarlo?
  • restored the 2-line buttons in USANS panels, now supported in Igor 6.1 (COR_Graph and Main_USANS)
  • added simple text notebook of UCALC configuration, and a save of PNG of the whole panel
  • added help and done buttons to UCALC
  • added links in SANS_Reduction_Help to the simluation help file (not added to SVN yet)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/U_CALC.ipf

    r558 r564  
    113113        Variable/G gAngHigh7 = 95 
    114114        Variable/G gNumPts7 = 10 
    115         Variable/G gCtTime7 = 0 
    116         Variable/G gIncr7 = 3000         
     115        Variable/G gCtTime7 = 3000 
     116        Variable/G gIncr7 = 5    
    117117         
    118118        // results, setup values 
     
    459459        ValDisplay valdisp0_3,limits={0,0,0},barmisc={0,1000},value=root:Packages:NIST:USANS:Globals:U_Sim:g_1DEstTrans 
    460460        ValDisplay valdisp0_3,disable=1 
    461         Button button1,pos={left+20,440},size={150,20},proc=U_SaveButtonProc,title="Save Simulated Data" 
    462  
    463          
     461        Button button1,pos={left+20,400},size={150,20},proc=U_SavePanelProc,title="Save PNG" 
     462        Button button2,pos={left+20,430},size={150,20},proc=U_ConfigTextProc,title="Config Text" 
     463        Button button3,pos={left+20,460},size={150,20},proc=U_SaveButtonProc,title="Save Simulated Data" 
     464 
     465// help, done buttons 
     466        Button U_helpButton,pos={300,440},size={25,20},proc=showUCALCHelp,title="?" 
     467        Button U_helpButton,help={"Show help file for simulation of USANS Data"} 
     468        Button U_DoneButton,pos={350,440},size={50,20},proc=UCALCDoneButton,title="Done" 
     469        Button U_DoneButton,help={"This button will close the panel"} 
     470                 
    464471        SetDataFolder root: 
    465472 
    466473EndMacro 
    467474 
     475Proc UCALCDoneButton(ctrlName): ButtonControl 
     476        String ctrlName 
     477        DoWindow/K UCALC 
     478end 
     479 
     480Proc showUCALCHelp(ctrlName): ButtonControl 
     481        String ctrlName 
     482        DisplayHelpTopic/K=1/Z "UCALC" 
     483        if(V_flag !=0) 
     484                DoAlert 0,"The USANS Simulation Help file could not be found" 
     485        endif 
     486end 
    468487 
    469488// changing theta min - hold incr and #, result is new theta max 
     
    16551674        return(0) 
    16561675end 
     1676 
     1677 
     1678// print out the USANS configuration in some reasonable format 
     1679Function/S USANSConfigurationText() 
     1680 
     1681        String str="",temp 
     1682 
     1683        SetDataFolder root:Packages:NIST:USANS:Globals:U_Sim 
     1684         
     1685        // results, setup values 
     1686        SVAR gTotTimeStr=gTotTimeStr 
     1687         
     1688        Variable ii,num 
     1689        String pathStr="root:Packages:NIST:USANS:Globals:U_Sim:" 
     1690        num=7 
     1691         
     1692        str += "USANS Instrument Configuration:\r\r" 
     1693        str += "Theta Min  Theta Max   Increment   # Points   Count Time\r" 
     1694         
     1695         
     1696        for(ii=1;ii<=num;ii+=1) 
     1697                NVAR ctTime = $(pathStr+"gCtTime"+num2str(ii)) 
     1698                if(ctTime>0) 
     1699                        NVAR angLow = $(pathStr+"gAngLow"+num2str(ii)) 
     1700                        NVAR angHigh = $(pathStr+"gAngHigh"+num2str(ii)) 
     1701                        NVAR incr = $(pathStr+"gIncr"+num2str(ii)) 
     1702                        NVAR numPts = $(pathStr+"gNumPts"+num2str(ii)) 
     1703                         
     1704                        sprintf temp,"%9.3f  %9.3f  %9.3f  %9d  %9d\r",angLow,angHigh,incr,numPts,ctTime 
     1705                        str += temp 
     1706                endif 
     1707        endfor 
     1708         
     1709         
     1710        sprintf temp,"\r\rTotal Counting Time (HR:MIN) = %s\r",gTotTimeStr 
     1711        str += temp 
     1712 
     1713         
     1714   setDataFolder root: 
     1715   return str                     
     1716End 
     1717 
     1718Function DisplayUCALCText() 
     1719 
     1720        if(WinType("USANS_Configuration")==0) 
     1721                NewNotebook/F=0/K=1/N=USANS_Configuration /W=(480,44,880,369) 
     1722        endif 
     1723        //replace the text 
     1724        Notebook USANS_Configuration selection={startOfFile, endOfFile} 
     1725        Notebook USANS_Configuration font="Monaco",fSize=10,text=USANSConfigurationText() 
     1726        return(0) 
     1727end 
     1728 
     1729 
     1730// 
     1731Function U_ConfigTextProc(ba) : ButtonControl 
     1732        STRUCT WMButtonAction &ba 
     1733 
     1734         
     1735        switch( ba.eventCode ) 
     1736                case 2: // mouse up 
     1737                        // click code here 
     1738                         
     1739                                DisplayUCALCText()                                       
     1740                        break 
     1741        endswitch 
     1742 
     1743        return 0 
     1744End 
     1745 
     1746// this will save a graphic of the whole panel that then needs to be opened and printed 
     1747// must be a PNG @ screen resolution 
     1748// 
     1749Function U_SavePanelProc(ba) : ButtonControl 
     1750        STRUCT WMButtonAction &ba 
     1751 
     1752         
     1753        switch( ba.eventCode ) 
     1754                case 2: // mouse up 
     1755                        // click code here 
     1756                         
     1757                        SavePICT/P=home/E=-5/B=72/SNAP=1         
     1758                         
     1759                        // can I reload and print? 
     1760                        // how will the users know where this went and what to do with it? 
     1761                        //                       
     1762                        break 
     1763        endswitch 
     1764 
     1765        return 0 
     1766End 
Note: See TracChangeset for help on using the changeset viewer.