pro ccd_map_box_label, x0, y0, siz, ilab1, ilab2
;
;x0,y0 is lower left corner
;
;;if (ilab1 lt 0) then return
;
asp = !d.x_size/float(!d.y_size)
if (!d.name eq 'PS') then char_factor = .6 else char_factor = 1.0
;
;;lab1 = 'IDL-' + strtrim(ilab1, 2)
;;lab2 = ' (FRI-' + strtrim( string(ilab2, format='(f9.1)'), 2) + ')'
;
draw_boxcorn, x0, y0, x0+siz, y0+siz*asp, /data
;;xyouts, x0+siz+.008, y0+siz/2-.004, lab1+lab2, charsize=1.2*char_factor
;
;
end
;------------------------------------------------------------------------------
if (!d.name eq 'X') then if (!d.window eq -1) then wdef, 0, 900, 750 else wshow
if (!d.name eq 'PS') then char_factor = .6 else char_factor = 1.0
;
!p.region = [0,0,1,1]
!p.position = [0,0,1,1]
!x.range = [0,1]
!y.range = [0,1]
;
erase
plot, fltarr(2), fltarr(2), /nodata, xstyle=4, ystyle=4
;
g = .04
asp = !d.x_size/float(!d.y_size)
;
n = 16		& st = .1	& for i=0,n do oplot, st+[1,1]*g*i, st+[0,n*g*asp], linestyle=1
n = 16		& st = .1	& for i=0,n do oplot, st+[0,n*g], st+[1,1]*g*i*asp, linestyle=1
for i=0,n-1 do xyouts, st+g*i+0.5*g, .08, strtrim(i,2), alignment=0.5

xcir = .04*g*cos(findgen(20)/19*2*!pi)
ycir = .04*g*sin(findgen(20)/19*2*!pi)
for i=0,n-1 do for j=0,n-1 do polyfill, st+(i*g+0.5*g)+xcir, st+((j*g+0.5*g)+ycir)*asp
;
ccd_map_box_label, st+1*g, st, g*2	& polyfill, st+2*g+xcir*2, st+(g+ycir*2)*asp
ccd_map_box_label, st+5*g, st, g*4	& polyfill, st+7*g+xcir*4, st+(2*g+ycir*4)*asp
;
end