; set location variables

; The 'projtop' variable is the name of the project top-level directory
; if it isn't the current directory, set it before this point.  Useful:
;  projtop = getenv('HOME')+'/ast/contour'

if not keyword_set(projtop) then begin &$
  spawn, 'pwd', pwd, pwderr &$
  projtop = pwd[0] &$
endif
cscalfiledir = projtop+'/cscalfile'

; These can be used as defaults in some of the routines.  They are
; always avoidable.
setenv, 'PROJTOP='  + projtop
setenv, 'CSCALFILEDIR=' + cscalfiledir

; make sure the pipeline directories are in the path
!path = !path+':+'+expand_path('+'+file_expand_path('idl'))