TRUE_COLOR

        TRUE_COLOR

    This is a dedicated routine to   produce   bipolar   outflow   maps   in
    "true"  color.   It  takes  as  input  a  cube  (N by NX by NY) with the
    velocity along the first axis, and produces a pseudo cube (3  by  NX  by
    NY)  containing  the integrated intensities in the blue and red lobes in
    planes 1 2, and a specially encoded map in plane 3.  The latter must  be
    displayed  in  programs  OVERLAY or DISPLAY with a special color Look Up
    Table as defined below
        ALL\SELECT RANGE 1 225                ! Range of input values
        ALL\SELECT LUT RGB                    ! Select Red Green Blue mode
        SIC\LET RED[I] (I-1)|225              ! Red look up table
        SIC\LET BLUE[I] (MOD(I+13,15)+1)|15.5 ! Blue look up table
        SIC\LET BLUE[1] 0                     ! Index 1 is for background
        SIC\LET GREEN 0                       ! No green
        ALL\LUT