This is related to my confusion over how to combine graphics objects and geometric objects: see Affine transformation of circular arc in 3D.
Why does evaluating the Show
expression below cause the error
Graphics3DBox is not a Graphics3D primitive or directive
shift = AffineTransform[{IdentityMatrix[3], {2, 0, 0}}];
circ =
ParametricPlot3D[shift[{Cos[t], 0, Sin[t]}], {t, 0, 2 π},
PlotStyle -> Green];
rot[angle_] := RotationTransform[angle, {0, 0, 1}, {0, 0, 0}];
Show[
Graphics3D[GeometricTransformation[circ, rot[π/2]]],
Boxed -> False, Axes -> True, AxesOrigin -> {0, 0, 0},
AxesLabel -> {x, y, z}, PlotRange -> 3]
circ[[1]]
inGeometricTransformation
? $\endgroup$