function h=plotarrow(h,type,x,y)

