-- $Id: precollimator_03.lua,v 1.2 2000/02/11 21:21:29 gaetz Exp $

-- File : precollimator_03.lua

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

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

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

  assembly_name    = 'precollimator'
  assembly_version = '03'

  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 == 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 )