;;
;; STARTUP for Pacmart
;;
;; Last Change: Thu Aug 19 12:10:22 2010
;;
; Copyright 2008 Rainer Koehler
;
; This file is part of Pacmart.
;
; Pacmart 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 2 of the License, or
; (at your option) any later version.
;
; Pacmart 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 Pacmart; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
;
Pacmaroot=getenv('HOME')+'/oyster/source/proprietary/rainer/pacmart'

!path =	EXPAND_PATH('+'+Pacmaroot) + ':' + $
	EXPAND_PATH('+'+getenv('HOME')+'/oyster/proprietary/rainer/cmephem') + ':' + $
      	EXPAND_PATH('+'+getenv('HOME')+'/oyster/source/idlastro/pro') + ':' + !path

device,retain=2,decomposed=1
;
; open a window so IDL figures out how many colors we have.
; This is necessary for the automatic truecolor-detection.
window,0 & wdelete

!QUIET = 1
print,"Compiling Pacmart..."

.run fbtUtilities
.run fbtEwsError
.run fbtError
.run fbtFitsFile
.run fbtFitsImage
.run fbtFitsHeader
.run fbtFitsExtension
.run fbtFitsTable
.run fbtTableGui.pro
.run fbtFitsFileList

.run prima_tables
.run utilities
.run defaults
.run FSU.pro
.run fct_magnitude
.run fbt_read

.run labdark
.run labflat
.run skybackground
.run spectral_resp
.run skarflat	;; needs blackbody from spectral_resp
.run environment
.run star
.run astrometry
.run baseline
.run scired2

.run utilities

init_defaults


;;.run test_labdark.pro
;;.run test_labflat.pro
;;.run test_skyback.pro
;;.run test_starflat.pro
.run test_FSUresponse.pro
.run test_VLTIresponse.pro
.run test_starspectrum.pro
.run test_sciave.pro
.run test_scired1.pro
;;.run scired3/test_scired3.pro

.run test_scired2
;;? .run test_adrian

.run rkplot
.run table_utilities
.run fbtv
.run phase

COMMON fbtable_export, fbtable_data

!QUIET = 0

!PROMPT = "Pacmart> "
print,''
;;print,"Welcome to the Pacma Recipe Tester"
