pearl-menu.ipf

Go to the documentation of this file.

#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=1     // Use modern global access method.
#pragma ModuleName = PearlMenu
#pragma version = 1.03
 
// main menu for PEARL data acquisition and analysis packages
 
// $Id$
// author: matthias.muntwiler@psi.ch
// Copyright (c) 2013-25 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"}
        PearlMenuEnableFunc("sample_tracker") + "Sample Tracker", /Q, PearlSampleTracker(1)
        help = {"Live tracking and adjustment of sample position.", "Requires ARPES package and EPICS XOP"}
    end
    
    submenu "Cameras"
        PearlMenuEnableFunc("ad_display_profiles") + "Exit Slit Camera", /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 Camera", /Q, PearlCameraDisplay("X03DA-ES-PS1:", "ES", "(32767,32767,32767)")
        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 "Process"
        PearlMenuEnableFunc("asp_show_panel") + "XPD scans", /Q, asp_show_panel()
        help = {"Data processing of two-pi angle scans", "Requires ARPES package"}
    end
    
    submenu "Services"
        PearlMenuEnableFunc("pearl_elog") + "Open ELOG Panel", /Q, pearl_elog("")
        help = {"Open an ELOG panel to send entries to an ELOG logbook"}
        PearlMenuEnableFunc("pearl_scilog") + "Open SciLog Panel", /Q, pearl_scilog("")
        help = {"Open a panel to send entries to a SciLog logbook"}
    end
    
    submenu "Sample Preparation"
        PearlMenuEnableFunc("ramp_generator") + "Annealing Ramp", /Q, ramp_generator()
        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)
    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 "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
    string nickname
    string wbRGB
    
    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, "ad_add_overlay(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 PearlCameraDisplay(epicsname, nickname, wbRGB)
    string epicsname
    string nickname
    string wbRGB
    
    string cmd
    sprintf cmd, "ad_connect(\"%s\", \"%s\")", epicsname, nickname
    execute /q/z cmd
    sprintf cmd, "display; appendimage root:pearl_epics:%s:image", nickname
    execute /q/z cmd
    sprintf cmd, "ModifyGraph wbRGB=%s", wbRGB
    execute /q/z cmd
    cmd = "ModifyGraph height={Plan,1,left,bottom}"
    execute /q/z cmd
end
 
function PearlAnglescanTracker(epicsname, wbRGB)
    string epicsname
    string wbRGB
    
    string cmd
    sprintf cmd, "ast_setup()"
    execute /q/z cmd
    sprintf cmd, "ModifyGraph wbRGB=%s", wbRGB
    execute /q/z cmd
end
 
function PearlSampleTracker(action)
    variable action
    string cmd
    sprintf cmd, "sample_tracker(%u)", action
    execute /q/z cmd
end