ColorFunction that depends on angle of line

Question

I have a ListLinePlot, and I want the ColorFunction to vary as the angle, so that the color of the whole line depends on its angle from the x-axis. Here is a MWE of what I am doing:

test = Table[{i, 5 i}, {i, 1, 10}];
ListLinePlot[
  Table[{{-test[[i, 1]] Cos[test[[i, 2]] Degree], -test[[i, 1]] Sin[
  test[[i, 2]] Degree]}, {test[[i, 1]] Cos[test[[i, 2]] Degree], test[[i, 1]] Sin[test[[i, 2]] Degree]}}, {i, 1, 10}], 
  ColorFunction -> "ThermometerColors", ColorFunctionScaling -> True]

As expected, this produces

How do I construct the ColorFunction so that the "minimum" and "maximum" color correspond to the angle of inclination, i.e. so that the minimum angle (5 Deg in this case) gives a blue line, and the maximum angle gives a red line?

Answer 1

if you want specifically "ThermometerColors" then try this:

color = ColorData["ThermometerColors"][#] & /@ Range[0, 1, .1];
    ListLinePlot[
     Table[{{-test[[i, 1]] Cos[test[[i, 2]] Degree], -test[[i, 1]] Sin[
          test[[i, 2]] Degree]}, {test[[i, 1]] Cos[test[[i, 2]] Degree], 
        test[[i, 1]] Sin[test[[i, 2]] Degree]}}, {i, 1, 10}], 
     PlotStyle -> color]