PRO psymdot,SIZE=size, $
            FILL=fill, $
            THICK=thick, $
            ANGLE=angle

IF N_ELEMENTS(size) EQ 0 THEN size=0.7 
IF N_ELEMENTS(fill) EQ 0 THEN fill=1
IF N_ELEMENTS(thick) EQ 0 THEN THICK=!P.THICK
IF N_ELEMENTS(angle) EQ 0 THEN angle=0
IF N_ELEMENTS(angle) EQ 1 THEN angle=[-angle,angle]

IF angle[0] EQ angle[1] THEN BEGIN  
    i=findgen(49)*(2*!DPi/48)
    USERSYM,COS(i)*size,SIN(i)*size,THICK=thick,FILL=fill
ENDIF ELSE BEGIN
    f=angle/360.D0
    i=2*!DPi*((findgen(47)/46*(f[1]-f[0]))+f[0])
    x=[0,COS(i),0]*size
    y=[0,SIN(i),0]*size
    USERSYM,x,y,THICK=thick,FILL=fill    
ENDELSE


RETURN
END