; ----------------------------------------------------------------------
;  Echo out the extraction windows.
;
pro nsx_echo_extraction_window, SPX, AVP IMG
  common nsx
  print, format='("Number of object windows: ",A)',SPX[0].nsp
  printf, logfu,format='("Number of object windows: ",A)',SPX[0].nsp
  for ii=0L, SPX[0].nsp-1 do begin
     print, format='("Object window: ",F7.3," to ",F7.3," (arcsec) [flx=",F6.1,"  sigs=",F6.2,"  peak=",F7.1,"]")',$
            SPX[0].asp1[ii],SPX[0].asp2[ii],SPX[0].pflx[ii],SPX[0].sigs[ii],SPX[0].peak[ii]
     printf, logfu, format='("Object window: ",F7.3," to ",F7.3," (arcsec) [flx=",F6.1,"  sigs=",F6.2,"  peak=",F7.1,"]")',$
            SPX[0].asp1[ii],SPX[0].asp2[ii],SPX[0].pflx[ii],SPX[0].sigs[ii],SPX[0].peak[ii]
  endfor

  for ii=0L, SPX[0].nsp-1 do begin
     rr1 = nsx_AVPinv( AVP, 3, 1000, SPX[0].asp1[ii], IMG )                                    
     rr2 = nsx_AVPinv( AVP, 3, 1000, SPX[0].asp2[ii], IMG )                                    
     print, format='("Object window: ",F7.3," to ",F7.3," (pixels, echelle order 3, column 1000)")',rr1,rr2
  endfor
  print, format='("Number of background windows: ",I," ")',SPX[0].nbk                                    ;
  printf,logfu, format='("Number of background windows: ",I," ")',SPX[0].nbk                                    ;
  for ii=0L,SPX[0].nbk-1 do begin
     print, format='("Background window: ",F7.3," to ",F7.3," (arcsec)")',SPX[0].abk1[ii],SPX[0].abk2[ii]
     printf,logfu, format='("Background window: ",F7.3," to ",F7.3," (arcsec)")',SPX[0].abk1[ii],SPX[0].abk2[ii]
  endfor
  for ii=0L,SPX[0].nbk-1 do begin
     rr1 = nsx_AVPinv( AVP, 3, 1000, SPX[0].abk1[ii], IMG )
     rr2 = nsx_AVPinv( AVP, 3, 1000, SPX[0].abk2[ii], IMG )
     print, format='("Background window: ",F7.3," to ",F7.3," (pixels)")',rr1,rr2
  endfor
end