pro fig_fit_bsc, hc=hc, ps=ps, eps=eps, fileout=fileout, bsc_file=bsc_file, $
		xoffs=xoffs, yoffs=yoffs, qtest=qtest, $
		xsize=xsize, ysize=ysize
;+
; NAME:
;  fig_fit_bsc
; PURPOSE:
;  Prepare an example fit_bsc plot (showing BCS spectrum with fit overlayed)
; CALLING SEQUENCE:
;  fig_fit_bsc, /hc			; Send to printer
;  fig_fit_bsc, /ps			; Create a PostScript file
;  fig_fit_bsc, /eps			; Create an Encapsulated PostScript file
; OPTIONAL INPUT PARAMETERS:
;  xoffs,yoffs	= X and Y offset (in cm)
;  xsize,ysize  = (cm) Size of the plot page.
;                 Defaults: xsize=2.54*6.5 cm,    ysize=2.54*5.5 cm
;  bsc_file	= bsc file to read
;  fileout	= To specify the output PS file name
;  hc,ps,eps	= As shown above
; PROCEDURE:
;  Will read the first spectrum from a bsc file and call mk_fit_bsc_eps to set up
;  the parameters to call bcs_spec_plot
;
; MODIFICATION HISTORY:
;  29-dec-93, J. R. Lemen LPARL, written.
;  6-Jan-94 (MDM) - Added XSIZE and YSIZE options
;-

if n_elements(bsc_file) eq 0 then bsc_file = 'bsc920906.example_fit'
if n_elements(fileout)  eq 0 then file_out = 'idl.ps'
rd_bsc, bsc_file, 0, index,data		; Read the first spectrum
if gt_bsc_chan(index) eq 3 then xrange = [3.17,3.2]	; Set up X range for Ca XIX

mk_fit_bsc_eps,index,data, hc=hc, ps=ps, eps=eps, 	$
	xoffs=xoffs, yoffs=yoffs, xrange=xrange,	$
	xsize=xsize, ysize=ysize, 			$
	/noatomic, nodate = 1 - keyword_set(qtest),	$
	file=fileout

end