pro plot_stick,x,y,xrange=xrange,yrange=yrange,noclip=noclip, $
color=color,linestyle=linestyle,thick=thick,title=title, $
subtitle=subtitle,font=font,xmargin=xmargin,ymargin=ymargin, $
xminor=xminor,yminor=yminor,xticks=xticks,xstyle=xstyle, $
yticks=yticks,ystyle=ystyle,xtitle=xtitle,ytitle=ytitle, $
xtickv=xtickv,ytickv=ytickv,xtickn=xtickn,ytickn=ytickn, $
position=position, normal=normal, data=data, device=device, $
clip=clip, background=background, l_color=l_color, charsize=charsize

;	Plots a stick-style plot.

x_save=x

if n_elements(linestyle) le 0 then linestyle=0
if n_elements(color) le 0 then color=!p.color
if n_elements(l_color) le 0 then l_color=!p.color
if n_elements(background) le 0 then color=!p.background
if n_elements(xstyle) le 0 then xstyle=0
if n_elements(ystyle) le 0 then ystyle=0
if n_elements(noclip) le 0 then noclip=0
if n_elements(title) le 0 then title=' '
if n_elements(subtitle) le 0 then subtitle=' '
if n_elements(font) le 0 then font=-1
if n_elements(xminor) le 0 then xminor=0
if n_elements(yminor) le 0 then yminor=0
if n_elements(xticks) le 0 then xticks=0
if n_elements(yticks) le 0 then yticks=0
if n_elements(xtitle) le 0 then xtitle=''
if n_elements(ytitle) le 0 then ytitle=''
if n_elements(xtickv) le 0 then xtickv=0
if n_elements(ytickv) le 0 then ytickv=0
if n_elements(xtickn) le 0 then xtickn=''
if n_elements(ytickn) le 0 then ytickn=''
if n_elements(normal) le 0 then normal=0
if n_elements(data) le 0 then data=1
if n_elements(device) le 0 then device=0
if n_elements(thick) le 0 then thick=1
if n_elements(charsize) le 0 then charsize=!p.charsize


if n_elements(xmargin) le 0 then xmargin=[10,3]
if n_elements(ymargin) le 0 then ymargin=[4,2]
if n_elements(position) le 0 then position= $
	[float(xmargin(0))*!d.x_ch_size/!d.x_vsize,	$
	float(ymargin(0))*!d.y_ch_size/!d.y_vsize,	$
	1.-float(xmargin(1))*!d.x_ch_size/!d.x_vsize,	$
	1.-float(ymargin(0))*!d.y_ch_size/!d.y_vsize]



	if n_params() eq 1 then begin
y=x
x=findgen(n_elements(y))
	endif

if n_elements(xrange) le 0 then xrange=[min(x),max(x)]
if n_elements(yrange) le 0 then yrange=[min(y) < 0, max(y)]

	plot,x,y,/nodata,xrange=xrange,yrange=yrange, $
title=title,subtitle=subtitle,font=font, $
xmargin=xmargin,ymargin=ymargin,xminor=xminor,yminor=yminor, $
xticks=xticks,xstyle=xstyle, yticks=yticks,ystyle=ystyle, $
xtitle=xtitle,ytitle=ytitle, xtickv=xtickv,ytickv=ytickv, $
xtickn=xtickn,ytickn=ytickn, background=background, $
position=position, normal=normal, data=data, device=device, color=color, $
charsize=charsize

if n_elements(clip) le 0 then clip= $
	(convert_coord(!P.clip([0, 2]), !P.clip([1, 3]),/dev, /to_data))([0,1,3,4])

	j=where((x ge xrange(0)) and (x le xrange(1)))

for i=j(0),j(n_elements(j)-1) do plots,[x(i),x(i)],[!y.crange(0),y(i)], $
	color=l_color,linestyle=linestyle,noclip=noclip,thick=thick, $
		clip=clip

x=x_save

end