!------------------------------------------------------------------------
!
! DEFINE.NIC (in analogy to DEFINE.GRAPHIC by R.Lucas)
! Define SIC Variables to be used by procedures documented by INPUT
! Author:  R.Neri	 9-Nov-1994
!
!----------------------------------------------------------------------
!
! Common display tools
DEFINE CHARACTER AXIS*3 LEVELS*3 DO_SCALE*3 /GLOBAL
DEFINE LOGICAL BITMAP CONTOUR DO_NICE DO_TREE DO_COLOR DO_HEADER /GLOBAL
DEFINE LOGICAL DO_MASK PLOTBEAM PLOTWEIGHT CHANGE_ASPECT /GLOBAL 
DEFINE LOGICAL DO_SUPPORT XWIDGET DO_FIT DO_CHECK DO_MAP /GLOBAL
DEFINE LOGICAL PLOT_LEVEL PLOT_MAP PLOT_GAIN ONOFF_JY /GLOBAL
LET DO_MASK   NO     ! Do not mask contours by labels.
LET DO_MAP    NO     ! Do not plot automatically
LET DO_HEADER YES    ! Do the header
LET BITMAP YES       ! Do plot bitmaps
LET PLOTBEAM YES     ! Do plot BEAM
LET PLOTWEIGHT NO    ! Do plot the WEIGHT
LET CONTOUR YES      ! Do plot contours
LET DO_NICE NO       ! No "nice" plot
LET DO_TREE NO	     ! Do not structure plot
LET DO_COLOR NO	     ! Use special color table (GO COLOR after BIT)
LET DO_SUPPORT NO    ! Do not plot support
LET DO_SCALE REL     ! Do relative plot scaling
LET LEVELS "ABS"     ! SCALE (ABS, PER)
LET XWIDGET YES      ! Assume yes ...
LET AXIS "REL"       ! REL = Relative axis = offset from phase center
		     ! ABS = Equatorial or Galactic
LET DO_CHECK YES     ! Run check command in procedure p_signal.nic
LET PLOT_LEVEL YES   ! plot subscans level on ONOFF scans
LET PLOT_MAP   yes    ! plot channel map on ONOFF scans
DEFINE CHARACTER AAA$NAME*64 AAA$TYPE*12 /GLOBAL
!
DEFINE CHARACTER NAME*32 TYPE*12 CNV_TYPE*12 MARK*9 /GLOBAL
define character xtype*6 ytype*6 file*40 limits*40 /global
!
DEFINE CHARACTER COMMAND*15 FXTYPE*50 FYTYPE*50 /GLOBAL
DEFINE CHARACTER EXECUTE*15 MARKER1*20 MARKER2*20 /GLOBAL
DEFINE CHARACTER WHICHONF*10[3] /GLOBAL
DEFINE LOGICAL NOISE SYMMETRIC /GLOBAL
DEFINE CHARACTER SCAN_LIST*1000 ONOFF_FILE*20 /GLOBAL
DEFINE DOUBLE  SPACING TRUE_SPACING SIZE ASPECT SCALE[2] TRUE_SCALE[2] /GLOBAL
DEFINE DOUBLE  BEAMSEP ROTATION UNBAL ZIGZAG /GLOBAL
DEFINE LOGICAL RESTORE_FILTER RESTORE_MASK SAA_MASK /GLOBAL
DEFINE INTEGER COMB_TEETH /GLOBAL
DEFINE INTEGER TAPER /GLOBAL
DEFINE REAL    CUTOFF /GLOBAL
DEFINE LOGICAL SMOOTH_EL /GLOBAL
DEFINE REAL    ONOFF_FIT_DIST ONOFF_BEAM /GLOBAL
DEFINE INTEGER FIRST LAST STEP /GLOBAL
DEFINE INTEGER COMPUTE FORMAT ONOFF_FIT /GLOBAL
DEFINE LOGICAL FLAG FLIP /GLOBAL
DEFINE INTEGER XPIX[3] YPIX[3] /GLOBAL
DEFINE INTEGER MBOX NBOX /GLOBAL
DEFINE REAL CROSS BOX_ASPECT /GLOBAL
DEFINE INTEGER COLOR[3] /GLOBAL
DEFINE REAL RA_EXTENT DEC_EXTENT /GLOBAL
DEFINE INTEGER FIRST_CHAN LAST_CHAN /GLOBAL !first and last channel to convert
DEFINE REAL MAP_CELL[2] RADEC_CELL[2] /GLOBAL
DEFINE REAL PA /GLOBAL
DEFINE REAL OFFSET[2] /GLOBAL
!
define integer answer_order /global
define character answer_support*1 answer_noise*1 /global
!
! Initialize to some default values
!
let do_fit no
let aspect 0
let change_aspect yes
let first 0
let last 0
let spacing 0
let true_spacing 0
let color 0 360 30                      ! red to red, 30 brightness levels.
let xtype "LST"
let ytype "SIGNAL"
let type "cnv"
let cross 2
let unbal 1
let restore_mask .false.
let restore_filter yes
let smooth_el .false.
let ra_extent 0
let dec_extent 0
let cutoff 0.05
let first_chan 0
let last_chan 0
let zigzag -1
let taper 1
let symmetric .true.
let whichonf[1] "UNSYM"
let whichonf[2] "NO"
let whichonf[3] "SYM"
let format      1
let compute     1
let noise       .true.
let map_cell   4 4
let radec_cell 4 4
let cnv_type ekh
let onoff_fit 1
let onoff_fit_dist 30
let onoff_beam 10.5
let comb_teeth 0
!
let answer_order 1
let answer_noise "N"
let answer_support "Y"
!
pen 15 /colour 3 /dash 3
pen 0
set mar 20 0 0.12
!
! Set Major symbols
!
symbol input        "@ p_input.nic"	! INPUT command
symbol go           "@ p_go.nic"	! GO command
!symbol dir         "@ directory"
symbol map          "@ p_go.nic map"
symbol convert      "@ p_go.nic convert"
symbol makplan      "@ p_go.nic makplan"
symbol onoff        "@ p_go.nic onoff"
symbol quicklook    "@ p_go.nic quicklook"
symbol reduce       "@ p_go.nic reduce"
symbol restore      "@ p_go.nic restore"
symbol signal       "@ p_go.nic signal"
symbol totpow       "@ p_go.nic totpow"
symbol shift_and_ad "@ p_go.nic shift_and_add"
symbol flux         "@ p_go.nic flux"
!symbol copy_nmb    "@ copy_nmb.nic" ! for Pico Veleta
sic\sic user    			! Define symbol SYS_INFO
!
!
!
input &1				! Do it once...
on error continue
say "Type INFO for recent modifications"
let sec pi|180|3600 /new double global  ! One arcsec in Radians
return
!
!------------------------------------------------------------------------
!
! Input variable for GO and INPUT
!
! COMMAND	Character   	Command name default
!
! Input variables for task MAP
!
! NAME          Character       Map file name (without extension)
! TYPE          Character       Map file extension
! FIRST         Integer         First channel to plot
! LAST          Integer         Last channel to plot
! SPACING       Real            Level spacing (in image intensity units)
! TRUE_SPACING  Real            Actual level spacing used 
! SIZE          Real            size of Plotted map in arc sec (square)
! ASPECT        Real            Image aspect ratio (0 means match)
! BOX_ASPECT    Real            Effective box aspect ratio
!
! Input variables for command COLOR
!
! COLOR[3]      Integer         Color table parameters.
!------------------------------------------------------------------------