I have a 3D plot of dozens of random curves which have different colors by default. I want to keep the default colors but then I need all the curves to get a Thick
style. If I use the option PlotStyle -> Thick
, then all curves are turned to black. I know this should be very basic, but I don't get it!
Here's a MWE to show the issue:
vec[t_, x_, y_, z_] := {x t, y t, z t}
x0[n_] := RandomReal[{-10, 10}]
y0[n_] := RandomReal[{-10, 10}]
z0[n_] := RandomReal[{-10, 10}]
vectors[t_] := Table[vec[t, x0[n], y0[n], z0[n]], {n, 1, 10}]
randVectors = ParametricPlot3D[Evaluate@vectors[t], {t, -30, 30}, PlotStyle -> {Thick}];
Show[
randVectors,
PlotRange -> Automatic,
Axes -> None,
BoxStyle -> Thick,
SphericalRegion -> True,
Method -> {"RotationControl" -> "Globe"},
ImageSize -> {500, 500},
Background -> Black
]
The option PlotStyle -> {Thick}
is causing the issue. So how can I have a thick style for all curves, and yet still get various colors for them? I need the default colors palette for the curves.