;+
;PROCEDURE:  strplot, x, y
;INPUT:
;            x:  array of x values.
;            y:  array of y strings.
;PURPOSE:
;    Procedure used to print strings in a "TPLOT" style plot.
;
;KEYWORDS:
;    DATA:     A structure that contains the elements 'x', 'y.'  This
;       is an alternative way of inputing the data.
;    LIMITS:   The limits structure including PLOT and XYOUTS keywords.
;    OVERPLOT: If set, then data is plotted over last plot.
;    DI:       Not used. Exists for backward compatibility.
;
;LAST MODIFIED: @(#)strplot.pro	1.2 98/08/03
;-
pro strplot,x,y,overplot=overplot,di=di,limits=lim,data=data
if keyword_set(data) then begin
  x = data.x
  y = data.y
  extract_tags,stuff,data,except=['x','y']
endif

extract_tags,stuff,lim
extract_tags,plotstuff,stuff,/plot
extract_tags,xyoutstuff,stuff,/xyout
str_element,stuff,'labels',val=labels
labsize = 1.
str_element,stuff,'labsize',val=labsize
chsize = !p.charsize
if not keyword_set(chsize) then chsize = 1.

;noclip = 0
;str_element,stuff,'noclip',noclip

;dprint,dlevel=2,phelp=2,overplot,lim
str_element,stuff,'overplot',overplot
n = n_elements(x)
if not keyword_set(overplot) then $
   plot,/nodata,[x],findgen(n)/n,yrange=[0,1],/ystyle,_extra=plotstuff

z = fltarr(n)

xyouts,x,z,y,charsize=chsize,orien=90.,_extra=xyoutstuff


end
