1
$\begingroup$

I have the following code:

ParametricPlot3D[{Cos[t], Sin[t], t/4}, {t, 0, 2 \[Pi]}, 
PlotRange -> All, PlotTheme -> "Detailed", ImageSize -> Medium] /. 
Line[pts_] :> {Red, Arrowheads[{0, 0.035, 0.035, 0.035, 0.035, 0}], 
Arrow[Tube[BSplineCurve@pts, .003], {0, -.1}]} // First

enter image description here

It works as expected, but when I change Theme in PlotTheme option ( Web instead of Detailed) or if I remove PlotTheme option, then it stops working.

Can anyone help me understand why this is happening, or what am I doing wrong?

In advance, I appreciate your appreciable suggestions or solutions.

$\endgroup$
2
$\begingroup$

Without ... //First it works for option PlotTheme->"Web"

    ParametricPlot3D[{Cos[t], Sin[t], t/4}, {t, 0, 2 \[Pi]}, 
  PlotRange -> All, PlotTheme -> {"Detailed", "Web"}[[-1]], 
  ImageSize -> Medium] /. 
 Line[pts_] :> {Red, Arrowheads[{0, 0.035, 0.035, 0.035, 0.035, 0}], 
   Arrow[Tube[BSplineCurve@pts, .003], {0, -.1}]}

enter image description here

$\endgroup$
2
  • $\begingroup$ Thanks a lot, Ulrich! $\endgroup$ Nov 24 '21 at 21:51
  • 1
    $\begingroup$ You're welcome! $\endgroup$ Nov 25 '21 at 7:11

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.