1 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
2 IN$
        TASK\FILE "Input file name" IN$

    Input data cube in Velocity Position Position ordering.
2 OUT$
        TASK\FILE "Output file name" OUT$

    Pseudo output data cube.
2 VELOCITIES$
        TASK\REAL "Velocity bounds of Blue and Red wings" VELOCITIES$[4]

    Four values specifying the low and high ends  of  the   blue   and   red
    wings, to be given in increasing order.
1 END



































