Tag Info

Hot answers tagged

7

Using the same initialization code as Taiki: origin = {0, 0, 0}; points = {{-0.9207, -0.3896, 0.0091}, {-0.8272, 0.5077, -0.2399}, {0.2544, -0.3511, 0.901}, {0.351, 0.6527, 0.6712}, {0.5436, -0.6326, -0.5513}, {0.6016, 0.2317, -0.7643}}; fs = {{1, 3, 5}, {1, 2, 4, 3}, {1, 2, 6, 5}, {3, 4, 6, 5}, {2, 4, 6}}; faces = points[[#]] & /@ fs; Then ...


6

Just add a fixed PlotRange like this : pics = Table[ Graphics3D[{{Opacity[0.1], EdgeForm[None], Cone[{{0, 0, 0}, {0, 0, -2}}, 1]}, {Yellow, Sphere[{0, 0, -2}, 0.1]}, {Dashed, Arrow[{{0, 0, -2}, {0, 0, 0}}]}, GeometricTransformation[{Red, Arrowheads[0.03], Arrow[Tube[{{0, 0, -2}, {0, 1, 0}}, 0.005]]}(*{Black,Arrow[{{0, ...


1

My crude attempt (for Mathematica 10+ only): origin = {0, 0, 0}; points = { {-0.9207, -0.3896, 0.0091}, {-0.8272, 0.5077, -0.2399}, {0.2544, -0.3511, 0.901}, {0.351, 0.6527, 0.6712}, {0.5436, -0.6326, -0.5513}, {0.6016, 0.2317, -0.7643} }; fs = {{1, 3, 5}, {1, 2, 4, 3}, {1, 2, 6, 5}, {3, 4, 6, 5}, {2, 4, 6}}; faces = points[[#]] & /@ fs; ...



Only top voted, non community-wiki answers of a minimum length are eligible