;+
; Project     : SOLAR-B - EIS
;
; Name        : EIS_CPT_mechanism_control_default
;
; Purpose     : Generates default structure EIS_mechanism_control.
;
; Explanation : Sets up default values for structure EIS_mechanism_control.
;
; Use         : < s = EIS_CPT_mechanism_control_default() >
;
; Inputs      : None.
;
; Opt. Inputs : None.
;
; Outputs     : s : STRUCTURE of type EIS_mechanism_control.
;
; Opt. Outputs: None.
;
; Keywords    : None,
;
; Calls       : None.
;
; Common      : None.
;
; Restrictions: None.
;
; Side effects: None.
;
; Category    : EIS_CPT.
;
; Prev. Hist. : None.
;
; Written     : Martin Carter RAL 29/09/04
;
; Modified    : Version 0.1, 10/12/04, MKC
;                 Changed definition of slit direction.
;               Version 0.2, 24/06/05, MKC
;                 Changed INT values to UINT.
;               Version 0.3, 20/07/05, MKC
;                 Added number of slit changes tag.
;
; Version     : 0.3, 20/07/05
;-
;**********************************************************

FUNCTION eis_cpt_mechanism_control_default

      ; generate structure

  s = {EIS_mechanism_control}

  ; slit_direction           : INT direction to move the slit mechanism :
  ;                               -1 : reverse direction i.e 0->3
  ;                                1 : forward direction i.e 0->1

  s.slit_direction = 1 ; choose forward direction

  ; coarse_mirror_range      : [2]UINT +x and -x limits.
  ;                            Range is 0x4195 to 0xFFFF and 0x0000 to 0x1408.

  s.coarse_mirror_range = ['4195'XU,'1408'XU]

  ; fine_mirror_range        : [2]UINT range 0-2400 corresponding to 0-300"
  ;                            (was 2927 in previous documentation giving 360").

  s.fine_mirror_range = [0, 2400]


  ; number_of_slit_changes    : UINT number of allowed slit changes per planning period.

  s.number_of_slit_changes = 2U

  ; return structure

  RETURN, s

END