-- $Id: postcollimator_02.lua,v 1.3 2001/12/18 23:24:47 gaetz Exp $

-- File : postcollimator_02.lua

-- Last rev. 2000-02-11 (tjg)

-- ----------------------------------------------------------------------
$debug
-- ---------------------------------------------------------------------

-- ---------------------------------------------------------------------------
-- used to select a shell and set other parameters
   override()

  assembly_name    = 'postcollimator'
  assembly_version = '02'

  if ( nil == coord_type ) then
     coord_type = 'XRCF'
  end

  AXAF_ROOT = getenv('AXAF_ROOT')

  if ( nil == AXAF_ROOT ) then
    error ( assembly_name .. assembly_version ..
            ': unable to read environmental variable AXAF_ROOT' )
  end

  if ( nil == no_periscope ) then
    periscope = 1
  else
    periscope = 0
  end

  if ( nil == shell ) then
     error( prog .. ': shell not set' )
  end

  if ( nil == config_dir ) then
     config_dir = AXAF_ROOT .. '/simul/databases/apertures/data/'
  end

  if ( nil == config_db ) then
     config_db  = 'hrma_baffle_config_01.rdb'
  end

  dofile( AXAF_ROOT .. '/simul/databases/apertures/BaffleSet_01.lua' )

-- ---------------------------------------------------------------------------
-- test cases
--
-- $endinput

  -- read in parameters for this baffle set
  --
  local baffles = BaffleSet:read_config( assembly_name,
                                         config_dir, config_db, shell, coord_type )

  -- construct the assemblies for this baffle set
  --
  baffles:construct_baffles( debug_plate )