;+
;NAME
pro disp2dimtable,pos,xr,yr,charsize=chars,ccol=ccol, $
	xtitle=xtitle,ytitle=ytitle,ticklen=ticklen
;KEYWORDS:	Tool, Image Processing
;PURPOSE:
;	display 2 dim. color table.
;CALLING SEQUENCE:
;	ty2dimcolor
;	wdef,0
;	disp2dimtable,[30,30,100,100],[0,3],[2,5],ccol=14*14-1
;INPUTS:
;	pos: position [left,bottom,right,top]
;	xr: x range
;	yr: y range
;	charsize: charactor size
;	ccol: color of frame and text (default 14*14-1)
;	ticklen : tick length (default -0.1)
;HISTORY:
;	rev. 1.0 19-Sep-96 T. Yoshida	Created
;-
	pname='%%% disp2dimtable: '
	th=pos(3)-pos(1)
	cw=pos(2)-pos(0)
	cn=14
	dpos=[pos(0),pos(1),pos(2),pos(3)]
	if n_elements(chars) ne 1 then chars=1.0
	if n_elements(ccol) ne 1 then ccol=cn*cn-1
	if n_elements(xtitle) ne 1 then xtitle=''
	if n_elements(ytitle) ne 1 then ytitle=''
	if n_elements(ticklen) ne 1 then ticklen= -0.1

	img=indgen(cn,cn)
	tytv,img,xsize=cw,ysize=th,pos(0),pos(1)
	plot,xr,yr,pos=dpos,/nodata,xs=1,ys=1,/device, $
		/noerase,color=ccol,xtitle=xtitle,ytitle=ytitle,ticklen=ticklen
end