! 
! info.map 
! from i_mapping.graphic 
! 
!---------------------------------------------------------------------- 
sic\let b*4 "" /new character               ! 4 is underline, 7 reverse video but both 
sic\let n*4 "" /new character               ! are mapped to same attribute on dumb VT100 
! 
say " " 
say "  MAPPING is an interactive program to clean images " 
say " " 
say "- The input file(s) must be read using command READ " 
say " " 
say "- Compute map from UV data with command UV_MAP " 
say "  Input parameters are given by SIC variables: " 
say "	UV_TAPER [" 'b''uv_taper[1]' 'uv_taper[2]' 'uv_taper[3]''n' "]		WEIGHT_MODE [" 'b''weight_mode''n' "]" 
say "	MAP_SIZE [" 'b''map_size[1]' 'map_size[2]''n' "]		UV_CELL [" 'b''uv_cell[1]' 'uv_cell[2]''n' "]" 
say "	MAP_CELL [" 'b''map_cell[1]' 'map_cell[2]''n' "]		WCOL [" 'b''wcol''n' "]" 
say "	MCOL [" 'b''mcol[1]' 'mcol[2]''n' "]			CONVOLUTION [" 'b''convolution''n' "]" 
say "	Variables UV_SHIFT, MAP_RA, MAP_DEC, MAP_ANGLE are used for centering" 
if (uv_shift) then 
  say "	Map centered on " 'b''map_ra' 'map_dec''n' " at angle " 'b''map_angle''n' 
else 
  say "	Map not shifted and not rotated" 
endif 
say " " 
say "- Cleaning method is selected using command HOGBOM, CLARK, SDI or MRC " 
say "  Input parameters are given by SIC variables: " 
def double tempo 
let tempo int(gain*1000)|1000 
say "	GAIN [" 'b''tempo''n' "]" 
if (keep) then 
  say "	NITER [" 'b''niter''n' "]       (Keep cleaning after convergence)" 
else 
  say "	NITER [" 'b''niter''n' "]       (Stop cleaning if converged)" 
endif 
let tempo int(fres*1000)|1000 
say "	FRES [" 'b''tempo''n' "]	 		ARES [" 'b''ares''n' "]" 
say "	BLC [" 'b''blc[1]' 'blc[2]''n' "]			TRC [" 'b''trc[1]' 'trc[2]''n' "]" 
say "	MAJOR [" 'b''major''n' "arc sec]		MINOR [" 'b''minor''n' "arc sec]" 
say "	ANGLE [" 'b''angle''n' "deg E from N]	BEAM_PATCH [" 'b''beam_patch[1]' 'beam_patch[2]''n' "]" 
say " " 
if (mosaic) then 
  say "  Mosaic mode is ON " 
  say "	SEARCH_W  [" 'b''restore_w''n' "] " 
  say "	RESTORE_W [" 'b''restore_w''n' "] " 
else 
  say "  Mosaic mode is OFF " 
endif 
say " "