#pragma rtGlobals=1 // Use modern global access method. #pragma version=5.0 #pragma IgorVersion=6.1 //************************** // Vers 1.2 091901 // // an essentially useless routine, but could be dressed up considerably // especially with more HELP for the user // // adds a "SANS" menu, with only 2 items // //**************************** // // only 2 items - almost all of the other items are woefully obsolete // and would generate errors if compiled // Menu "SANS" "Initialize" "SANS Help" "-" "Main Control Panel",DoWindow/F Main_Panel "SASCALC" "-" Submenu "Data Display" "Show 2D SANS Data",DoWindow/F SANS_Data "Show File Table",ShowCatWindow() End Submenu "Input Panels" "Calculate Transmissions",CalcTrans() "Build Reduction Protocols",ReductionProtocolPanel() "Reduce Multiple Files",ReduceMultipleFiles() "Patch Files",PatchFiles() "1D Average",ShowAveragePanel() End Submenu "1-D Processing" "Load and Plot 1D Data",Show_Plot_Manager() "Open FIT Panel",OpenFITPanel() "Sort and Combine data",ShowNSORTPanel() "Subtract 1D Data Sets",OpenSubtract1DPanel() End Submenu "2-D Processing" "2D Work file Math",Show_WorkMath_Panel() "Tile Raw 2D files",Show_Tile_2D_Panel() "Export 2D ASCII data",Export_RAW_Ascii_Panel() End "-" "Check for Updates",CheckForLatestVersion() // Submenu "Utility Routines" // "Clear Work Folders" // "Clear Root Folder" // End End Function SANSHelp() DisplayHelpTopic/Z/K=1 "SANS Data Reduction Tutorial" if(V_flag !=0) DoAlert 0,"The SANS Data Reduction Tutorial Help file could not be found" endif End