;+
;
; NAME: 
;       PLOT_OCCS_RES
;
; PURPOSE:
;       This procedure plots out the database of occultation results and
;        uses symbols based on the zenith angle (detector cosine) to the source.
;
; CATEGORY:
;       BATSE, OCCULTS
;
; CALLING SEQUENCE:
;
;
; CALLS:
;	none
;
; INPUTS:
;       X - usually the lower energy edge of a channel in keV, generally at least one
;	days observations are averaged for every data point
;       Y - usually the observed occultation step count rate
;       Cosines - detector cosine for each observation
;       Coslims - upper and lower limits on the cosine range for the plot, to be
;	subdivided into steps of 0.1
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       none explicit, only through commons;
;
; OPTIONAL OUTPUTS:
;	none
;
; KEYWORDS:
;	none
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;	Version 1, ras, June 1996
;-
pro plot_occs_res, x, y, cosines, coslims,xtitle=xtitle,xrange=xrange,$
	yrange=yrange, xtype=xtype, ytype=ytype,ytitle=ytitle,$
	_extra=_extra

symkey = [3,3,3,3,1,2,4,5,6,7]
plot,xtype=fcheck(xtype,0),ytype=fcheck(ytype), $
	xtitle=xtitle, ytitle=ytitle,xrange,yrange,/xsty,/ysty,$
	charsiz=1.5,/nodata,$
	_extra=_extra

	for lim=coslims(0),coslims(1),.1 do begin

  wc=where(cosines gt lim and cosines le lim+.1,nwc) 

  if nwc ge 1 then begin 
	if nwc eq 1 then wc=[wc,wc] 
 	xx= x(wc)
	yy= y(wc)
	sym= fix(10.*(lim+.05))
	oplot, xx, yy, psym=symkey(sym)
  endif   
	endfor





end