pro circsym,r,fill ; create the vectors for the circle symbol i=0 x1=fltarr(43) y1=x1 for theta=0.0,6.4,0.15 do begin x1(i)=(r)*cos(theta) y1(i)=(r)*sin(theta) i=i+1 endfor usersym,x1,y1 if fill ne 0 then usersym,x1,y1,/fill end