! reduce_on_the_fly.nic 
!
! This sub-procedure is called by procedure "reduce.nic" to reduce On-THE-FLY 
! scan. 
! It is equivalent to standard.nic 
! created by Motte Frederique (motte@gag.observ-gr.fr) 22-MAR-95
! permit a first order and fast reduction of the ON-THE-FLY map with NIC
! 
!
! Removing a baseline on the double-beam maps
!
if ("'ON-THE-FLY-R'".ne."STARTED") then
  say " REDUCE-ON_THE-FLY is a sub-procedure which can be called only by REDUCE"
  return
endif
signal
var *
let smooth_el .true.
makplan
cl al
define logical EM_FREE
say "Are the edges in Azimuth of the map emission free ? [yes/no]"
let EM_FREE
if EM_FREE then
   for i 1 to nchan
     baseline /order 1 /support /chan i
   next
   makplan
   map
else
   baseline /support /order 1 /file 'scan' new
   makplan
   map
   define logical POLY_APPLY DO_BASE
   say "You will define a polygon, outside there must be emission free"
   say "Do you want to apply the same polygon to each bolometer ? [yes/no]"
   let POLY_APPLY
   LET DO_BASE = .TRUE.
   if POLY_APPLY then
      FOR /WHILE DO_BASE
         baseline /noise
         makplan
         map
         let DO_BASE = .FALSE.
         EXA DO_BASE
         say "Baseline removal OK ? --> DO_BASE = .FALSE."
         LET DO_BASE =  
      NEXT
   else
      say "For a better baseline, just do it by yourself !!!"
      pause
      makplan
      map
   endif
endif
!
! Restoring the double-beam maps
say "The chopper throw is set to : "'beamsep'
say "Give a new value for the chopper_throw (I propose "'beamsep-1'") :"
let beamsep
restore
map
cl al
!
! Converting the multi-channel maps
say "Before conversion, you have to say which channel will be used"
say "If you don't want to use the channel 3, type   FLAG /CHANNEL 3"
pause
flag
convert
map