% fit_setup.isis

% do these things once:
% add a window
variable winFit, winPS;

% Screen output
winFit = open_plot(device, 1, 2); resize(16,1.4);

% Postscript output uses winPS :
%% Put this call in the routine itself
%%winPS = open_plot("fit.ps/vcps", 1, 2);
%%message(" - - - - - - - - - - - - - - - - - - - - - -");
%%message(" Use close_plot(winPS); to finish output!");
%%message(" - - - - - - - - - - - - - - - - - - - - - -");

% define some variables used by fitting routines (e.g., fit_line.isis)
variable lamcent, lamrange, lamlow, lamhigh, corelow, corehigh;
variable  approxcounts, appwingcounts, corefwhm, wingcont;
variable fdata, cfdata, fxtitle, ftitle, cmodel;
variable fperiod, range_scale;
variable part_order_string;
% for conf() output:
variable conflo, confhi;

% and verbose fitting...
%%fit_verbose;

% default is bin_integral plotting
plot_bin_integral;

% color for the model
cmodel = white;