pearl-menu.ipf

Go to the documentation of this file.

#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






























































string PearlMenuEnableFunc(string 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
};

variable 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\""
};

variable LoadPearlArpes(){
    execute /p/q/z "INSERTINCLUDE \"pearl-arpes\""
    execute /p/q/z "COMPILEPROCEDURES "
    execute /p/q/z "BuildMenu \"PEARL\""
};

variable LoadPearlPreparation(){
    execute /p/q/z "INSERTINCLUDE \"pearl-preparation\""
    execute /p/q/z "COMPILEPROCEDURES "
    execute /p/q/z "BuildMenu \"PEARL\""
};

variable 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
};

variable 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
};

variable 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
};

variable PearlLiveDisplay(string epicsname, string nickname, string 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
};

variable PearlAnglescanTracker(string epicsname, string 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
};