pro ars_show, img, xres, yres, nlinbar
;
;
;
common sho_ars, minsep, isum, macpixars
;
if (n_elements(xres) eq 0) then read, 'Enter X resolution in arcsec (ie 10), xres
if (n_elements(yres) eq 0) then read, 'Enter Y resolution in arcsec (ie 10), yres
if (n_elements(nlinbar) eq 0) then nlinbar = 0
fact = 1
;
siz=size(img)
nx=siz(1)
ny=siz(2)
;
menu=strarr(13)
menu(0)=' '
menu(1)='Display Raw image'
menu(2)='Overlay macro pixel grid'
menu(3)='Display macro pixel image'
menu(4)='Overlay 4 closer look grids'
menu(5)='Overlay 4 ROIs selected '
menu(6)='Change minimum separation parameter'
menu(7)='Overlay Current ARS Regions - NOT AVAILABLE'
menu(8)='Change size of macro pixel'
menu(9)='Trim part of bottom and left edge off'
menu(10)='Print selected region information'
menu(11)='Exit'
menu(12)='Stop'
;
ars_calc, img, xres, yres, npixpmacpix, macpiximg, roipntmac, roipntfin, max_arr, try_arr
;
bimg = bytscl(img, top=240)
window, 0, xsiz=nx, ysiz=ny+nlinbar
tv, bimg, 0, nlinbar
;
repeat begin
    imenu = wmenu(menu)
    imenu = imenu -1
    ;
    case imenu of
	0: begin
		wshow
		tv, bimg, 0, nlinbar
	   end
	1: begin
		wshow
		for i=1,ny/npixpmacpix-1 do tvplot, [0, nx], $
				[1,1]*i*npixpmacpix + nlinbar
		for i=1,nx/npixpmacpix-1 do tvplot, [1,1]*i*npixpmacpix, $
				[0, ny] + nlinbar
	   end
	2: begin
		wshow
		tv, rebin(macpiximg, nx, ny, /sample), 0, nlinbar
	   end
	3: for i=0,3 do begin
		xsiz = npixpmacpix*2*fact
		ysiz = npixpmacpix*2*fact
		xoff = roipntmac(0,i)*fact
		yoff = roipntmac(1,i)*fact
		boxcensiz, xoff, yoff, xsiz, ysiz, dum1, dum2, ny*fact, nlinbar, $
					strtrim(i,2), 0, 0, 230
	   end
	4: for i=0,3 do begin
		xsiz=(2^isum)*64 * 2.4/xres *fact
		ysiz=(2^isum)*64 * 2.4/yres *fact
		xoff = roipntfin(0,i)*fact
		yoff = roipntfin(1,i)*fact
		boxcensiz, xoff, yoff, xsiz, ysiz, dum1, dum2, ny*fact, nlinbar, $
					strtrim(i,2), 0, 0, 230
	   end
	5: begin
		read,'Enter minimum separation value',minsep
		ars_calc, img, xres, yres, npixpmacpix, macpiximg, $
						roipntmac, roipntfin, max_arr, try_arr
	   end
	6: begin
	;	mark_roi, infil, img, strec, fact, nlinbar
	   end
	7: begin
		print,'Enter the macro pixel size in arcseconds 
		read,'(default is 160)',macpixars
		ars_calc, img, xres, yres, npixpmacpix, macpiximg, $
						roipntmac, roipntfin, max_arr, try_arr
	   end
	8: begin
		read,'Enter number of pixels to drop off the bottom',skipy
		read,'Enter number of pixels to drop off the left',skipx
		img=img(skipx:*, skipy:*)
		bimg = bytscl(img)
		tveras
		tv, bimg, 0, nlinbar
		ars_calc, img, xres, yres, npixpmacpix, macpiximg, $
						roipntmac, roipntfin, max_arr, try_arr
	   end
	9: begin
		fmt='$(1x,i3,2i5, i6)'
		print,'Macro pixel coarse setting'
		print,'ROI#  X   Y    Macropixel Intensiy'
		for i=0,3 do begin
		    x=roipntmac(0,i)
		    y=roipntmac(1,i)
		    print, fmt, i, x, y, fix(macpiximg(x/npixpmacpix, $
				y/npixpmacpix))
		end
		fmt='$(1x,i3,2i5, i6, f12.0, i4)'
		print,'Fine setting'
		print,'ROI#  X   Y    Image Intensity    16x16 Tot   Try#'
		for i=0,3 do begin
		    x=roipntfin(0,i)
		    y=roipntfin(1,i)
		    print, fmt, i, x, y, fix(img(x,y)), max_arr(i), try_arr(i)
		end
	   end
	10: ;exit
	11: stop,'Stopping...'
    endcase
    ;
end until (imenu eq 10)
;
return
end