[157] | 1 | #pragma rtGlobals=1 // Use modern global access method. |
---|
[256] | 2 | #pragma version=4.0 |
---|
[157] | 3 | #pragma IgorVersion=6.0 |
---|
| 4 | |
---|
| 5 | //************* |
---|
| 6 | // the list of files to include in the SANS reduction experiment |
---|
| 7 | // - files must be located somewhere in the User Procedures folder |
---|
| 8 | // or sub-folders |
---|
| 9 | // |
---|
| 10 | |
---|
| 11 | //always include the picker |
---|
[256] | 12 | #include "SANSModelPicker_v40" version>=4.00 |
---|
[157] | 13 | //utility procedures |
---|
[256] | 14 | #include "GaussUtils_v40" version>=4.00 |
---|
[403] | 15 | #include "NIST_XML_V40" //added September 2008 |
---|
[256] | 16 | #include "PlotUtilsMacro_v40" version>=4.00 |
---|
| 17 | #include "PlotManager_v40" version>=4.00 |
---|
[157] | 18 | |
---|
[354] | 19 | #include "USANS_SlitSmearing_v40" |
---|
| 20 | #include "WriteModelData_v40" |
---|
[256] | 21 | #include "Wrapper_v40" |
---|
| 22 | #include "PlotUtils2D_v40" |
---|
| 23 | #include "GizmoCylinder_v40" |
---|
[157] | 24 | |
---|
[377] | 25 | #include "CheckVersionFTP" //added June 2008 |
---|
[472] | 26 | #include "WriteQIS" //added Jan 2009 for fileSaveDialog |
---|
[377] | 27 | |
---|
| 28 | |
---|
[172] | 29 | Menu "SANS Models" |
---|
| 30 | "Fit Manager", Init_WrapperPanel() |
---|
[256] | 31 | "Load Model Functions",Execute/P "INSERTINCLUDE \"SANSModelPicker_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "ModelPicker_Panel()" |
---|
[315] | 32 | "Load and Plot Manager", Show_Plot_Manager() |
---|
[200] | 33 | "Freeze Model" |
---|
[176] | 34 | "Write Model Data" |
---|
[172] | 35 | "-" |
---|
[157] | 36 | Submenu "Packages" |
---|
[256] | 37 | "Sum Two Models",Execute/P "INSERTINCLUDE \"SumSANSModels_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SumModelPanel()" |
---|
| 38 | "Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "WM_NewGlobalFit1#InitNewGlobalFitPanel()" |
---|
| 39 | "Determine Invariant",Execute/P "INSERTINCLUDE \"Invariant_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Make_Invariant_Panel()" |
---|
| 40 | "Do Linear Fits",Execute/P "INSERTINCLUDE \"LinearizedFits_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "A_OpenFitPanel()" |
---|
[157] | 41 | End |
---|
[196] | 42 | "-" |
---|
[310] | 43 | Submenu "2D Utilities" |
---|
| 44 | "Generate Fake QxQy Data",FakeQxQy() |
---|
| 45 | "Show Cylinder Orientation" |
---|
| 46 | "Change Angle" |
---|
| 47 | end |
---|
| 48 | "-" |
---|
[196] | 49 | "Feedback or Bug Report",OpenTracTicketPage() |
---|
[250] | 50 | "Open Help Movie Page",OpenHelpMoviePage() |
---|
[377] | 51 | "Check for Updates",CheckForLatestVersion() |
---|
[196] | 52 | End |
---|
| 53 | |
---|
| 54 | Function OpenTracTicketPage() |
---|
[246] | 55 | DoAlert 1,"Your web browser will open to a page where you can submit your bug report or feature request. OK?" |
---|
[196] | 56 | if(V_flag==1) |
---|
| 57 | BrowseURL "http://danse.chem.utk.edu/trac/newticket" |
---|
| 58 | endif |
---|
[250] | 59 | End |
---|
| 60 | |
---|
| 61 | Function OpenHelpMoviePage() |
---|
| 62 | DoAlert 1,"Your web browser will open to a page where you can view help movies. OK? (You must have QuickTime installed)" |
---|
| 63 | if(V_flag==1) |
---|
| 64 | BrowseURL "ftp://webster.ncnr.nist.gov/pub/sans/kline/movies/" |
---|
[400] | 65 | // Andrew has set up a http page too. Try to use this in the future |
---|
| 66 | //BrowseURL "http://www.ncnr.nist.gov/programs/sans/data/movies/reduction_analysis_movies.html" |
---|
[250] | 67 | endif |
---|
[472] | 68 | End |
---|