pro IDACUpdateBR,pinfo,win

	; This procedure will redraw bright regions on the IDAC draw
	; window and on the extra zoomed window if any.
	; It uses info contained in (*pinfo).br, an array of structures
	; of the following type: {bright,rank:'',x:0,y:0}
	; where x and y are unzoomed pixel coords.

    widget_control,/hourglass

    ;----------------------------------------------------------------
	; Main IDAC draw window
    ;----------------------------------------------------------------
    if win eq (*pinfo).dwin then begin
		wset,(*pinfo).dwin
		;image=(*pinfo).ftsData
		image = tvrd8()
		csize = (*pinfo).zm*1.25
		for i = 0,(*pinfo).maxnbr-1 do begin
			br = (*pinfo).br[i]
			if br.rank ne '' then begin
				x = (*pinfo).zm * br.x
				y = (*pinfo).zm * br.y
				c = colorContrast(image,x,y)
	            xyouts,x,y-2,br.rank,/device,color=c[1],align=.5, $
	                charthick = 1.25,charsize=csize
	            ;xyouts,x-1,y-2-1,br.rank,/device,color=c[0],align=.5, $
	            ;    charthick = 1.25,charsize=csize

			endif
		endfor
	endif

    ;----------------------------------------------------------------
    ; Take care of extra zoom window if it exists
    ;----------------------------------------------------------------
	if win eq (*pinfo).zwin then begin
;print,'Updating new zoom window'

	    if (*pinfo).newz then begin
	        wset,(*pinfo).zwin
		    ; Get size of original image
		    isize = size((*pinfo).ftsData)
		    iy = isize[2]
		    ix = isize[1]

			zm = (*pinfo).zmNew
		    image = congrid((*pinfo).ftsData,ix * zm, $
		    	iy * zm,/interp)
		    ; Apply scaling to image and display it
			if (*pinfo).logscl then begin
		    	IDAClogtv,image,pinfo,(*pinfo).zwin   ; **************
			endif else begin
				tvscl,image
			endelse

	        ;image = (*pinfo).ftsData
	        image=tvrd8()

	        csize = (*pinfo).zmNew*1.25
			for i = 0,(*pinfo).maxnbr-1 do begin
				br = (*pinfo).br[i]
				if br.rank ne '' then begin
					x = (*pinfo).zmNew * br.x
					y = (*pinfo).zmNew * br.y
					c = colorContrast(image,x,y)
		            xyouts,x,y-2,br.rank,/device,color=c[1],align=.5, $
		                charthick = 1.25,charsize=csize
		            ;xyouts,x-1,y-2-1,br.rank,/device,color=c[0],align=.5, $
		            ;    charthick = 1.25,charsize=csize
				endif
			endfor
	    endif
	endif

end