;;
;; 丸いシンボルを定義
;; 呼び出すときにはpsym=8で呼び出す
;; ex.
;; circlesym
;; plot,x,psym=8
;; 円のサイズは直径10pix (device)
;;
pro circlesym,color=color,fill=fill,thick=thick
circle_theta = dindgen(49)/48*2.*!dpi
circle_x = cos(circle_theta)
circle_y = sin(circle_theta)
usersym,circle_x,circle_y,color=color,fill=fill,thick=thick
return
end