pro symplot, x, y, err=err, sym=sym, fill=fill, size=size, thick=thick, norm=norm
                               ;sym=-1 means use current usersym
  ; fill and size must be scalars.  sym can be a vector.

  ax = [x]
  ay = [y]  
  if (keyword_set(size) eq 0) then size = 1
  if n_elements(sym) eq 1 and n_elements(ax) gt 1 then $
    sym = replicate(sym,n_elements(ax))


  if n_elements(sym) eq 0 then begin
     ;oplot, ax, ay, psym=8
     if keyword_set(norm) then plots, ax, ay, psym=8, norm=norm, thick=thick $
                          else oplot, ax, ay, psym=8, thick=thick
  endif else begin
    for s = -1, 14 do begin
      ws = where(sym eq s, cw)
      if cw eq 0 then continue
      if s ge 0 and s le 8 then plotsym, s, size, fill=fill, thick=thick  
      sc=1.3*size
      if s eq 4 then $  ; down triangle
         usersym, [-1,0,1,-1]*sc,[-0.577,1.154,-0.577,-0.577]*sc, fill=fill, thick=thick
      if s eq 5 then $  ; up triangle
         usersym, [-1,0,1,-1]*sc,[0.577,-1.154,0.577,0.577]*sc, fill=fill, thick=thick

      if s eq 9 then $  ;diamond
        usersym, [0,1,0,-1,0]*sc, [-1,0,1,0,-1]*sc, fill=fill, thick=thick
      if s eq 10 then $ ;X
        usersym, [0,0.5,1,0.5,1,0.5,0,-0.5,-1,-0.5,-1,-0.5,0]*sc,$
                 [0.5,1,0.5,0,-0.5,-1,-0.5,-1,-0.5,0,0.5,1,0.5]*sc,$
                 fill=fill, thick=thick
      if s eq 11 then $ ;hexagon
        usersym, [0,0.866,0.866,0,-0.866,-0.866,0]*sc, [1,0.5,-0.5,-1,-0.5,0.5,1]*sc,fill=fill, thick=thick
      if s eq 12 then $
         usersym, [0.577,-1.154,0.577,0.577]*sc, [-1,0,1,-1]*sc, fill=fill, thick=thick
        ;usersym, [-0.452,-0.452,0.872,-0.452]*sc, [-0.75,0.75,0,-0.75]*sc,fill=fill
      if s eq 13 then $
         usersym, [-0.577,1.154,-0.577,-0.577]*sc, [-1,0,1,-1]*sc, fill=fill, thick=thick
        ;usersym, [0.4,0.4,-0.6,0.4]*sc, [-0.5,0.5,0,-0.5]*sc,fill=fill
      ;oplot, ax[ws], ay[ws], psym=8
      if s eq 14 then $
         usersym, [-1.1,-0.3,0,0.3,1.1,0.2,0,-0.3,-1.1]*sc,$
                  [0,0.3,1.1,0.3,0,-0.3,-1.1,-0.3,0]*sc, fill=fill, thick=thick



      if keyword_set(norm) then plots, ax[ws], ay[ws], psym=8, thick=thick, norm=norm $
                                else oplot, ax[ws], ay[ws], psym=8, thick=thick
    endfor
  endelse

  if (keyword_set(err)) then begin
    errplot, ax, ay-err, ay+err 
  endif

end