; program to get colour table and save it

ColFile = "" & DatumInt1 = 0 & DatumInt2 = 0 & DatumInt3 = 0
print, "  > Enter the .dat file into which to save the colour table: "
print, "  >  (Save in /cru/u2/f709762/data/idlcolours/)"
read, ColFile

print, "  > Reverse colour table (not 0,254,255) ? (1=no,2=yes)"
read, QReverse

tvlct, Red,Green,Blue, /get

if (QReverse EQ 2) then begin
  OldRed = Red & OldGreen = Green & OldBlue = Blue
  
  for XCol = 1, 253 do begin
    Red   [XCol] = OldRed   [254-XCol]
    Green [XCol] = OldGreen [254-XCol]
    Blue  [XCol] = OldBlue  [254-XCol]
  endfor
endif

tvlct, Red,Green,Blue

openw, lunCol, ColFile, /get_lun
    for XCol = 0, 255 do begin
      DatumInt1 = Red  [XCol] 
      DatumInt2 = Green[XCol]
      DatumInt3 = Blue [XCol]
      printf, lunCol, DatumInt1, DatumInt2, DatumInt3
    endfor
free_lun, lunCol

end