% "v7_setup.i"
% Playing with ISIS v0.7 dd 1999-12-06  
%
% Setup various variables, etc.
%


%------------------setup kind of things---------------------
% chatty debug?
_debug_info = 1;

variable device;
device = "/xwin";            % change this to "filename/cps" for color ps

% *dd* alias(es)         % IDL exit!
alias ("quit", "exit");

%------------------------ useful constants -------------------
% the guy thinks in energy...
variable hc = 12.3985;

% grating periods: these are useful for scaling the LRF - expect the
% LRF for each grating to have similar FWHM, etc. when given
% in millimeters.  The wavelength equivalent then scales as the period.
variable p_leg, p_meg, p_heg;
p_leg = 9912.16;
p_meg = 4001.41;
p_heg = 2000.81;

% define output variable for the region_sum function
variable rsout;

%------------------------plot colors-------------------
% Define the PG colors
% Colors are defined in the isisrc file - put this
% list of colors in that same format for comparison...
%
variable black    = 0;  % "0" is the same as 16 = black

variable white    = 1;
variable red      = 2;
variable green    = 3;
variable blue     = 4;
variable ltblue   = 5;
variable purple   = 6;
variable yellow   = 7;
variable orange   = 8;

variable na_clr   = 9;     % looks same as green
variable na_clr   =10;     % looks same as green
variable mediblue =11;  % isisrc: not defined
variable purpblue =12;  % isisrc: not defined
variable pinkish  =13;  % isisrc: not defined, not very distinct?
variable na_clr   =14;     % too dark grey for black background
variable grey     =15;


%----------------setup database, groups, model etc.-----------------
% This is setup in the distributed isisrc ...
%
%variable H, He, C, N, O, Ne, Mg, Al, Si, S, Ar, Ca, Fe, Ni;
%H  = 1;
%He = 2;
%C  = 6;
%N  = 7;
%O  = 8;
%Ne = 10;
%Na = 11;
%Mg = 12;
%Al = 13;
%Si = 14;
%S  = 16;
%Ar = 18;
%Ca = 20;
%Fe = 26;
%Ni = 28;


%--------------------data set setup ----------------
% Setup named variables for the data set name, X and Y axis titles
variable data_set_name, data_xtitle, data_yunit;
% Some defaults...
data_set_name="ISIS Data";
data_xtitle = "Wavelength (A)";
data_yunit = "Counts";

% Generally, from HETG, four spectra are relevant from an
% observation: those formed by the + and - first orders of
% the MEG and HEG gratings:
% map some names to histograms indices in the set
variable megm, megp, hegm, hegp;
% default is for cannonical set of four HETG spectra:
megm=1; megp=2; hegm=3; hegp=4;
% and their colors...
variable cmegm, cmegp, chegm, chegp;
cmegm=red; cmegp=orange; chegm=green; chegp=ltblue;