pro draw_marker,x,factor,color=color,device=device, $
data=data,normal=normal,left=left,right=right,up=up,down=down, $
fill=fill

;	Draws a triangle-shaped marker.

if n_params() lt 2 then factor=1.
if n_elements(color) le 0 then color=!p.color

y=x

if keyword_set(data) then y=convert_coord(x,/data,/to_device)
if keyword_set(normal) then y=convert_coord(x,/data,/to_normal)


	CASE 1 OF

keyword_set(left):	a=[[0,10,10,0],[0,-5,5,0]]
keyword_set(right):	a=[[-10,0,-10,-10],[-5,0,5,-5]]
keyword_set(up):	a=[[0,-5,5,0],[0,-10,-10,0]]
keyword_set(down):	a=[[0,-5,5,0],[0,10,10,0]]

ELSE:			a=[[0,10,10,0],[0,-5,5,0]]

	ENDCASE

a=a*factor

plots,y(0)+a(*,0),y(1)+a(*,1),/dev,color=color

if keyword_set(fill) then $
	polyfill,y(0)+a(*,0),y(1)+a(*,1),color=color,/dev


	end