#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") + "Open ELOG Panel", /Q, pearl_elog("")
		help = {"Open an ELOG panel to send entries to an ELOG 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