| 1 | #pragma rtGlobals=1 // Use modern global access method. |
|---|
| 2 | #pragma version=4.0 |
|---|
| 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 |
|---|
| 12 | #include "SANSModelPicker_v40" version>=4.00 |
|---|
| 13 | //utility procedures |
|---|
| 14 | #include "GaussUtils_v40" version>=4.00 |
|---|
| 15 | #include "PlotUtilsMacro_v40" version>=4.00 |
|---|
| 16 | #include "PlotManager_v40" version>=4.00 |
|---|
| 17 | |
|---|
| 18 | #include "Wrapper_v40" |
|---|
| 19 | #include "PlotUtils2D_v40" |
|---|
| 20 | #include "GizmoCylinder_v40" |
|---|
| 21 | |
|---|
| 22 | Menu "SANS Models" |
|---|
| 23 | "Fit Manager", Init_WrapperPanel() |
|---|
| 24 | "Load Model Functions",Execute/P "INSERTINCLUDE \"SANSModelPicker_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "ModelPicker_Panel()" |
|---|
| 25 | "Plot Manager", Show_Plot_Manager() |
|---|
| 26 | "Freeze Model" |
|---|
| 27 | "Write Model Data" |
|---|
| 28 | "-" |
|---|
| 29 | Submenu "Packages" |
|---|
| 30 | "Sum Two Models",Execute/P "INSERTINCLUDE \"SumSANSModels_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Init_SumModelPanel()" |
|---|
| 31 | "Global Fitting",Execute/P "INSERTINCLUDE \"GlobalFit2_NCNR_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "WM_NewGlobalFit1#InitNewGlobalFitPanel()" |
|---|
| 32 | "Determine Invariant",Execute/P "INSERTINCLUDE \"Invariant_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "Make_Invariant_Panel()" |
|---|
| 33 | "Do Linear Fits",Execute/P "INSERTINCLUDE \"LinearizedFits_v40\"";Execute/P "COMPILEPROCEDURES ";Execute/P "A_OpenFitPanel()" |
|---|
| 34 | End |
|---|
| 35 | "-" |
|---|
| 36 | Submenu "2D Utilities" |
|---|
| 37 | "Generate Fake QxQy Data",FakeQxQy() |
|---|
| 38 | "Show Cylinder Orientation" |
|---|
| 39 | "Change Angle" |
|---|
| 40 | end |
|---|
| 41 | "-" |
|---|
| 42 | "Feedback or Bug Report",OpenTracTicketPage() |
|---|
| 43 | "Open Help Movie Page",OpenHelpMoviePage() |
|---|
| 44 | End |
|---|
| 45 | |
|---|
| 46 | Function OpenTracTicketPage() |
|---|
| 47 | DoAlert 1,"Your web browser will open to a page where you can submit your bug report or feature request. OK?" |
|---|
| 48 | if(V_flag==1) |
|---|
| 49 | BrowseURL "http://danse.chem.utk.edu/trac/newticket" |
|---|
| 50 | endif |
|---|
| 51 | End |
|---|
| 52 | |
|---|
| 53 | Function OpenHelpMoviePage() |
|---|
| 54 | DoAlert 1,"Your web browser will open to a page where you can view help movies. OK? (You must have QuickTime installed)" |
|---|
| 55 | if(V_flag==1) |
|---|
| 56 | BrowseURL "ftp://webster.ncnr.nist.gov/pub/sans/kline/movies/" |
|---|
| 57 | endif |
|---|
| 58 | End |
|---|
