pro plotid, x, y, id, dx, dy, align, color, _extra=extra

    cx = x + dx
    cy = y + dy
    for i=0, n_elements(x)-1 do begin
;        xyouts, cx[i],cy[i], strtrim(string(id[i]),2),$
;          color=color,align=align,charsize=charsize
        xyouts, cx[i],cy[i], strtrim(string(id[i]),2), color=color, _extra = extra
    end
    
end