source: specdomain/src/round1/test/testbarrier.mac @ 907

# $Id: testbarrier.mac 907 2012-06-11 22:53:33Z jemian $
# sample file to test sphinx documentation of SPEC macro files

#%
# This file contains SPEC macro fragments to test various 
# parts of the SPHINX documentation builder.

###############################################################################
#        User macros to configure spec with the Image Server program
###############################################################################

def ccdhelp '
    printf("\nUser macros for the BCDA ccd package\n")
    printf("\t%c%sccdsetup\n",27,"[1m")
    # ...
'

local A2Rp0
      A2Rp0 = 15.759                    ;#  A2Rp center


#==============================================================================
#%
# common/shutter
# ==============
# 
# NAME
#   shutter.mac
# 
# SUMMARY
#   Commands to control a fast photon shutter.
# 
# DESCRIPTION
#   The macro causes the fast photon shutter to be opened immediately prior to
#   any count command, and closed again upon its completion. A configurable
#   delay time assures that the shutter is fully open before issuing the
#   count command.
# 
#   The photon shutter is controlled via an EPICS binary output channel, and
#   the shutter status is optionally monitored via a binary input channel (in
#   which case the delay time is not used, but the monitor signal is used to
#   check for completion of the opening process).
# 
# AUTHOR
#   Christian M. Schlepuetz (CS, cschlep)
# 
# CREATION DATE
#   2004/11/06
# 
# COPYRIGHT
#   Copyright 2006-2011 by the above authors (see AUTHOR/AUTHORS)
# 
#   This program is free software: you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation, either version 3 of the License, or
#   (at your option) any later version.
# 
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
# 
#   You should have received a copy of the GNU General Public License
#   along with this program.  If not, see http://www.gnu.org/licenses/.
# 
# VERSION::
# 
#   $. Date: 2010-11-04 19:06:06 -0400 (Thu, 04 Nov 2010) $
#   $. Author: cschlep $
#   $. URL: file:///data/svn/software/spec/trunk/common/shutter.mac $
#   $. Revision: 17 $
# 
# DEPENDENCIES
#   Chained macro definitions affected by this macro:
#   - user_precount
#   - user_getcounts
#   - cleanup_always
# 
# HISTORY
#   2004/11/06 (CS):
#   
#   - modified the first original version to comply with naming and format 
#     conventions
#   - implemented help-file support and wrote help texts.
#     2010/03/30 (CS):
#   - added the following global variables to make macro more easily portable::
# 
#           SHUTTER_CONTROL_PV      # EPICS PV name for the shutter control (bo)
#           SHUTTER_CONTROL_OPEN    # EPICS control value for open shutter
#           SHUTTER_CONTROL_CLOSED  # EPICS control value for closed shutter
#           SHUTTER_STATUS_PV       # EPICE PV name for the shutter status (bi)
#           SHUTTER_STATUS_OPEN     # EPICS status value for open shutter
#           SHUTTER_STATUS_CLOSED   # EPICS status value for closed shutter
#           SHUTTER_IS_ON           # flag for automatic shutter control
#           SHUTTER_SLEEP_TIME      # SPEC sleep time after opening shutter
# 
#   2010/07/23 (CS):
#   - added SVN keywords (replacing CVS keywords)
# 
#   2011/12/19 (CS):
#   - reformatted code documentation to work with ROBODoc
#   - added shutter_setup with following internal macros:
# 
#     * _shutter_print_setup
#     * _shutter_set_option
#     * _clear_screen
# 
#   - replaced SHUTTER_STATUS* with SHUTTER_MONITOR*
#   - replaced global variables _OPEN with _OPEN_VAL and
#     _CLOSED with _CLOSED_VAL
#
#==============================================================================

#==============================================================================
# Define some global variables
# ----------------------------

    global SHUTTER_MAC
           SHUTTER_MAC = DOFILE

    # EPICS PV of the binary output which controls the shutter
    #
    global SHUTTER_CONTROL_PV
           SHUTTER_CONTROL_PV = "X04SA-ES3-SC:FPS"

    global SHUTTER_CONTROL_OPEN_VAL
           SHUTTER_CONTROL_OPEN_VAL = "On"

    global SHUTTER_CONTROL_CLOSED_VAL
           SHUTTER_CONTROL_CLOSED_VAL = "Off"

    # EPICS PV of the binary input which monitors the state of the shutter
    # if SHUTTER_MONITOR_PV = "", no monitoring is performed
    #
    global SHUTTER_MONITOR_PV
           SHUTTER_MONITOR_PV = ""

    global SHUTTER_MONITOR_OPEN_VAL
           SHUTTER_MONITOR_OPEN_VAL = "open"

    global SHUTTER_MONITOR_CLOSED_VAL
           SHUTTER_MONITOR_CLOSED_VAL = "closed"

    global SHUTTER_IS_ON
           SHUTTER_IS_ON = 0

    global SHUTTER_SLEEP_TIME
           SHUTTER_SLEEP_TIME = 0.1


#==============================================================================
# This macro file contains the following commands:
#==============================================================================

#------------------------------------------------------------------------------
#%
# shutter/sh_help, shutter_help
# =============================
#
# Displays the shutter help text.
#
# usage::
# 
#   > sh_help
#
# .. note::
#   The help text is generated by simply displaying the text file
#   shutter_mac.txt, which should reside in the same directory as shutter.mac.
#   If the file does not exist, a generic help text is shown.

def shutter_help 'sh_help'

def sh_help '{
#   =======

  unix (sprintf ("dirname %s", SHUTTER_MAC), _1)
  ll = length (_1)
  if (substr (_1, ll, 1) == "\n") _1 = substr (_1, 1, (ll - 1))
  file = sprintf ("%s/shutter_mac.txt", _1)
  if (file_info (file, "-e")) {
    unix (sprintf ("cat %s", file))
  } else {
    printf("\n  Macros available in file shutter.mac:\n")
    printf(  "                           ===========\n")
    printf("\n")
    printf("  sh_help      - creates this help text\n")
    printf("  shop         - opens the fast shutter\n")
    printf("\n")
  }
}'

# there is more in shutter.mac

#==============================================================================

def _ascan ''

kohzuMove_PV = "32ida:KohzuPutBO"
Und_Delay = 0.1

def kohzuE_cmd(mne,key,p1) '{
     if (key == "set_position") {
      return
     }
}'

def show_und'
   printf("\n%40.40s","Current Undulator Status")
'

  # cleanup macro for ^C usage
  rdef _cleanup3 \'resetUSAXS\'
  rdef _cleanup3 \'\'
     cdef("Fheader", fheader,  "UCOL", 0x20)
     rdef Flabel \'""\'

#==============================================================================

global kohzu_PV kohzuMV_PV UND_PV Und_Off UNDE_TRACK_ON
global       kohzuStop_PV kohzuMode_PV      kohzuMove_PV
global CCD_PREFIX            # EPICS PV for CCD server
global CCD_OVERHEAD_SECS        # readout time
global CCD_OVERHEAD_SECS_MEASURED   # measured readout time

    global @A_name[] @B_name[]
       unglobal @A_name
       unglobal @B_name
global CCD_DARK_NUM CCDDARK CCD_THROW
global MULTI_IMGS # useful 8-ID's imm fileformat; currently not used

constant TWO_PI 6.283
local _newspaper

#==============================================================================

# TODO: need some good test cases for arrays.
# But this is not the highest priority.

#[[extern] shared] [type] array var[cols]
#    Declares a one-dimensional data array.
#
#[[extern] shared] [type] array var[rows][cols]
#    Declares a two-dimensional data array.


#==============================================================================
# End of $Id: testbarrier.mac 907 2012-06-11 22:53:33Z jemian $
#==============================================================================