;;+ ;PROCEDURE: mvn_lpw_pkt_plus_sym ;PURPOSE: ; Make a resizeble dot/circle/square. ; Originally created by Bob Ergun for the FAST mission ; ;USAGE: ; mvn_lpw_pkt_plus_sym,output,lpw_const ; ;INPUTS: ; z: radious of the dot/cirvle/square ; ;KEYWORDS: ; square: ; fill: ; ;CREATED BY: Bob Ergun ;FILE: mvn_lpw_pkt_plus_sym.pro ;VERSION: 1.0 ;LAST MODIFICATION: 2000? ;- pro mvn_lpw_pkt_plus_sym, z, square=square, fill=fill if not keyword_set(z) then z=1 IF keyword_set(square) then BEGIN x=[-z,z,z,-z,-z] y=[z, z,-z,-z,z] usersym, x, y, fill=fill ENDIF ELSE BEGIN x1 = findgen(21)*!dpi/10 y1 = z*sin(x1) x1 = z*cos(x1) usersym, x1, y1, fill=fill ENDELSE end ;*******************************************************************