function user_sym,opt,thk,fill ;-------------------------------------------------------- ; Routine sets up the user defined symbol in IDL using ; "usersym". The resulting symbol is accessed by using psym=8 in ; the call to "plot" or "oplot" etc... ; ; Input: ; opt.....0 = circle, 1 = square ; thk.....symbol thickness (thk >= 1) ; fill....0 = open symbol, 1 = solid (filled) symbol ; ; Source: Mark Hervig, GATS Inc. ;-------------------------------------------------------- ;- symbol will be a circle if (opt eq 0 and fill eq 0) then usersym,cos(findgen(21)* !pi*2/20.),sin(findgen(21)* !pi*2/20.),thick=thk if (opt eq 0 and fill eq 1) then usersym,cos(findgen(21)* !pi*2/20.),sin(findgen(21)* !pi*2/20.),thick=thk,/fill ;- symbol will be a square if (opt eq 1 and fill eq 0) then usersym,[-1,1,1,-1,-1],[-1,-1,1,1,-1],thick=thk if (opt eq 1 and fill eq 1) then usersym,[-1,1,1,-1,-1],[-1,-1,1,1,-1],thick=thk,/fill return,0 end