new user distribution of PEARL procedures
This commit is contained in:
194
pearl/pearl-menu.ipf
Normal file
194
pearl/pearl-menu.ipf
Normal file
@ -0,0 +1,194 @@
|
||||
#pragma rtGlobals=1 // Use modern global access method.
|
||||
#pragma ModuleName = PearlMenu
|
||||
#pragma version = 1.01
|
||||
|
||||
// main menu for PEARL data acquisition and analysis packages
|
||||
|
||||
// $Id$
|
||||
// author: matthias.muntwiler@psi.ch
|
||||
// Copyright (c) 2013-14 Paul Scherrer Institut
|
||||
|
||||
// Licensed under the Apache License, Version 2.0 (the "License");
|
||||
// you may not use this file except in compliance with the License.
|
||||
// You may obtain a copy of the License at
|
||||
// http://www.apache.org/licenses/LICENSE-2.0
|
||||
|
||||
menu "PEARL"
|
||||
|
||||
submenu "Data Files"
|
||||
PearlMenuEnableFunc("pearl_data_explorer") + "Data Explorer", /Q, pearl_data_explorer()
|
||||
help = {"Data explorer panel with file import and preview", "Requires ARPES package and HDF5 XOP"}
|
||||
PearlMenuEnableFunc("ad_load_dialog") + "AD HDF5", /Q, ad_load_dialog("")
|
||||
help = {"Import area detector HDF5 data file", "Requires ARPES package and HDF5 XOP"}
|
||||
end
|
||||
|
||||
submenu "On-the-Fly Data"
|
||||
PearlMenuEnableFunc("otf_rename_folders") + "Shorten OTF Folder Names", /Q, otf_rename_folders("010")
|
||||
help = {"Renames otf_xxxxxx_yyyyyy_zzzz data folders to otf_yyyyyy (removing date and suffix)", "Requires Optics package"}
|
||||
PearlMenuEnableFunc("otf_gather_batch") + "Gather OTF Batch", /Q, otf_gather_batch("current_ch1", "photonenergy", "otf_batch")
|
||||
help = {"Copies data from all otf_* folders into otf_batch folder", "Requires Optics package"}
|
||||
PearlMenuEnableFunc("PearlOpticsPreviewPanel") + "OTF Preview", /Q, PearlOpticsPreviewPanel()
|
||||
help = {"Opens a preview panel for OTF data in otf_* folders", "Requires Optics package"}
|
||||
end
|
||||
|
||||
submenu "Scienta Analyser"
|
||||
PearlMenuEnableFunc("ad_display_profiles") + "Scienta Live View", /Q, PearlLiveDisplay("X03DA-SCIENTA:", "EA", "(65280,54528,48896)")
|
||||
help = {"Display preview panel with latest image from Scienta", "Requires ARPES package and EPICS XOP"}
|
||||
PearlMenuEnableFunc("ast_setup") + "Angle Scan Tracker", /Q, PearlAnglescanTracker("X03DA-SCIENTA:", "(65280,54528,48896)")
|
||||
help = {"Preview of acquired angle scan data and current detection angles.", "Requires ARPES package and EPICS XOP"}
|
||||
end
|
||||
|
||||
submenu "Cameras"
|
||||
PearlMenuEnableFunc("ad_display_profiles") + "Exit Slit Live View", /Q, PearlLiveDisplay("X03DA-OP-PS1:", "OP", "(65280,54528,48896)")
|
||||
help = {"Display preview panel with latest image from Scienta", "Requires ARPES package and EPICS XOP"}
|
||||
PearlMenuEnableFunc("ad_display_profiles") + "Manipulator Live View", /Q, PearlLiveDisplay("X03DA-ES-PS1:", "ES", "(65280,54528,48896)")
|
||||
help = {"Display live panel of the exit slit camera", "Requires ARPES package and EPICS XOP"}
|
||||
end
|
||||
|
||||
submenu "Display"
|
||||
PearlMenuEnableFunc("ad_display_profiles") + "2D Profiles", /Q, Display2dProfiles()
|
||||
help = {"Profiles display of 2D data", "Requires ARPES package"}
|
||||
PearlMenuEnableFunc("ad_display_brick") + "3D Slicer", /Q, Display3dSlicer()
|
||||
help = {"Slice and profiles display of 3D data", "Requires ARPES package"}
|
||||
PearlMenuEnableFunc("ad_display_brick") + "3D Gizmo", /Q, DisplayGizmoSlicer()
|
||||
help = {"Gizmo display of 3D data", "Requires ARPES package"}
|
||||
end
|
||||
|
||||
submenu "Services"
|
||||
PearlMenuEnableFunc("pearl_elog") + "ELOG Experiments", /Q, pearl_elog("Experiments")
|
||||
help = {"Create entries in ELOG experiments logbook"}
|
||||
PearlMenuEnableFunc("pearl_elog") + "ELOG Calculations", /Q, pearl_elog("Calculations")
|
||||
help = {"Create entries in ELOG calculations logbook"}
|
||||
end
|
||||
|
||||
submenu "Sample Preparation"
|
||||
PearlMenuEnableFunc("ann_ramp_start") + "Annealing Ramp", /Q, panel_ramp_gen()
|
||||
help = {"Sample annealing ramp generator"}
|
||||
end
|
||||
|
||||
submenu "Packages"
|
||||
"Load ARPES Package", /Q, LoadPearlArpes()
|
||||
help = {"Data processing and analysis for ARPES experiments"}
|
||||
"Load Preparation Package", /Q, LoadPearlPreparation()
|
||||
help = {"Process control for sample preparation"}
|
||||
"Load Optics Package", /Q, LoadPearlOptics()
|
||||
help = {"Data processing and analysis for beamline commissioning"}
|
||||
end
|
||||
end
|
||||
|
||||
function /s PearlMenuEnableFunc(funcname)
|
||||
// checks whether a function name exists
|
||||
// and conditionally returns a prefix which disables the menu item
|
||||
// if the function does not exist
|
||||
string funcname
|
||||
if (exists(funcname) >= 3)
|
||||
return ""
|
||||
else
|
||||
return "("
|
||||
endif
|
||||
end
|
||||
|
||||
function LoadPearlOptics()
|
||||
execute /p/q/z "INSERTINCLUDE \"pearl-optics\""
|
||||
execute /p/q/z "COMPILEPROCEDURES "
|
||||
execute /p/q/z "PearlOpticsPanel#po_InitPanel()"
|
||||
execute /p/q/z "BuildMenu \"PEARL\""
|
||||
end
|
||||
|
||||
function LoadPearlArpes()
|
||||
execute /p/q/z "INSERTINCLUDE \"pearl-arpes\""
|
||||
execute /p/q/z "COMPILEPROCEDURES "
|
||||
execute /p/q/z "BuildMenu \"PEARL\""
|
||||
end
|
||||
|
||||
function LoadPearlPreparation()
|
||||
execute /p/q/z "INSERTINCLUDE \"pearl-preparation\""
|
||||
execute /p/q/z "COMPILEPROCEDURES "
|
||||
execute /p/q/z "BuildMenu \"PEARL\""
|
||||
end
|
||||
|
||||
function Display2dProfiles()
|
||||
dfref dfBefore = GetDataFolderDFR()
|
||||
Execute /q/z "CreateBrowser prompt=\"Select 2D wave\", showWaves=1, showVars=0, showStrs=0"
|
||||
dfref dfAfter = GetDataFolderDFR()
|
||||
SetDataFolder dfBefore
|
||||
|
||||
SVAR list = S_BrowserList
|
||||
NVAR flag = V_Flag
|
||||
|
||||
if ((flag != 0) && (ItemsInList(list) >= 1))
|
||||
string brickname = StringFromList(0, list)
|
||||
string cmd
|
||||
sprintf cmd, "ad_display_profiles(%s)", brickname
|
||||
execute /q/z cmd
|
||||
endif
|
||||
end
|
||||
|
||||
function Display3dSlicer()
|
||||
dfref dfBefore = GetDataFolderDFR()
|
||||
Execute /q/z "CreateBrowser prompt=\"Select 3D wave\", showWaves=1, showVars=0, showStrs=0"
|
||||
dfref dfAfter = GetDataFolderDFR()
|
||||
SetDataFolder dfBefore
|
||||
|
||||
SVAR list = S_BrowserList
|
||||
NVAR flag = V_Flag
|
||||
|
||||
if ((flag != 0) && (ItemsInList(list) >= 1))
|
||||
string brickname = StringFromList(0, list)
|
||||
string cmd
|
||||
sprintf cmd, "ad_display_slice(%s)", brickname
|
||||
execute /q/z cmd
|
||||
sprintf cmd, "ad_brick_slicer(%s)", brickname
|
||||
execute /q/z cmd
|
||||
endif
|
||||
end
|
||||
|
||||
function DisplayGizmoSlicer()
|
||||
dfref dfBefore = GetDataFolderDFR()
|
||||
Execute /q/z "CreateBrowser prompt=\"Select 3D wave\", showWaves=1, showVars=0, showStrs=0"
|
||||
dfref dfAfter = GetDataFolderDFR()
|
||||
SetDataFolder dfBefore
|
||||
|
||||
SVAR list = S_BrowserList
|
||||
NVAR flag = V_Flag
|
||||
|
||||
if ((flag != 0) && (ItemsInList(list) >= 1))
|
||||
string brickname = StringFromList(0, list)
|
||||
string cmd
|
||||
sprintf cmd, "ad_display_brick(%s)", brickname
|
||||
execute /q/z cmd
|
||||
sprintf cmd, "ad_brick_slicer(%s)", brickname
|
||||
execute /q/z cmd
|
||||
endif
|
||||
end
|
||||
|
||||
function PearlLiveDisplay(epicsname, nickname, wbRGB)
|
||||
string epicsname // base name of the detector, e.g. X03DA-SCIENTA:
|
||||
// image1: and cam1: are appended by the function
|
||||
// see ad_connect
|
||||
string nickname // nick name under which this detector is referred to in Igor
|
||||
// must be a valid data folder name
|
||||
// see ad_connect
|
||||
string wbRGB // window background color, e.g. "(32768,49152,55296)"
|
||||
string cmd
|
||||
sprintf cmd, "ad_connect(\"%s\", \"%s\")", epicsname, nickname
|
||||
execute /q/z cmd
|
||||
sprintf cmd, "ad_display_profiles(root:pearl_epics:%s:image)", nickname
|
||||
execute /q/z cmd
|
||||
sprintf cmd, "ModifyGraph wbRGB=%s", wbRGB
|
||||
execute /q/z cmd
|
||||
sprintf cmd, "add_roi_controls()"
|
||||
execute /q/z cmd
|
||||
end
|
||||
|
||||
function PearlAnglescanTracker(epicsname, wbRGB)
|
||||
string epicsname // base name of the detector, e.g. X03DA-SCIENTA:
|
||||
// image1: and cam1: are appended by the function
|
||||
// see ast_setup
|
||||
string wbRGB // window background color, e.g. "(32768,49152,55296)"
|
||||
string cmd
|
||||
sprintf cmd, "ast_setup()"
|
||||
execute /q/z cmd
|
||||
sprintf cmd, "ModifyGraph wbRGB=%s", wbRGB
|
||||
execute /q/z cmd
|
||||
end
|
||||
Reference in New Issue
Block a user