How can I draw dashed line behind of a cone?

Asked Aug 20 '23 at 14:21

Active Aug 23 '23 at 01:15

Viewed 144 times

3

I use 3dtools to draw this cones

shaded cone

I see difficult when I use Mathematica

Graphics3D[Cone[{{0, 0, 0}, {0, 0, 3}}, 2], Boxed -> False]

How can I draw dashed line behind of a cone?

UPDATE

I tried

    basegraph = 
     Graphics3D[Cone[{{0, 0, 0}, {0, 0, 1}}, 1.2], Boxed -> False]
ResourceFunction["Graphics3DSketch"][basegraph]

I get

How can I get shaded cone like my picture?

edited Aug 20 '23 at 14:50

asked Aug 20 '23 at 14:21

minhthien_2016

3,347
14
22

3

Have you seen 256898 ? – Syed Aug 20 '23 at 14:23
3

Also see Graphics3DSketch from the Wolfram Function Repository mentioned in this popular post. – Syed Aug 20 '23 at 14:32
Thanks. I will try. – minhthien_2016 Aug 20 '23 at 14:35
You can also use the trick I used in this answer – Lukas Lang Aug 20 '23 at 17:33
DynamicModule[{point = 4 {1, -1, 1}, vertical = {0, 0, 1}, angle = 10 Degree}, Overlay[ Graphics3D[#, Boxed -> False, Lighting -> DirectionalLight[White, {{1, 0, 1}, {0, 0, 0}}], ViewPoint -> Dynamic@point, ViewVertical -> Dynamic@vertical, ViewAngle -> Dynamic@angle] & /@ {{EdgeForm[ AbsoluteThickness[3]], Cone[{{0, 0, 0}, {0, 0, 3}}, 2]}, {EdgeForm[ Directive@{AbsoluteThickness[2], AbsoluteDashing[{1, 9}, 0, "Round"]}], FaceForm[], Cone[{{0, 0, 0}, {0, 0, 3}}, 2]}}, All, 1] ] – cvgmt Aug 21 '23 at 13:10
@cvgmt Thank you very much. – minhthien_2016 Aug 21 '23 at 15:01

1 Answers1

5

Use the excellent answer of @LukasLang, we complete the animation。

Animate[DynamicModule[{point = 10 {Cos[t], Sin[t], .5}, 
   vertical = {0, 0, 1}, angle = 8 Degree}, 
  Overlay[Graphics3D[#, Boxed -> False, 
      Lighting -> DirectionalLight[White, {{1, 0, 1}, {0, 0, 0}}], 
      ViewPoint -> Dynamic@point, ViewVertical -> Dynamic@vertical, 
      ViewAngle -> Dynamic@angle] & /@ {{EdgeForm[
       AbsoluteThickness[3]], 
      Cone[{{0, 0, 0}, {0, 0, 3}}, 2]}, {EdgeForm[
       Directive@{AbsoluteThickness[2], 
         AbsoluteDashing[{2, 6}, 0, "Round"]}], FaceForm[], 
      Cone[{{0, 0, 0}, {0, 0, 3}}, 2]}}, All, 1]], {t, 0, 
  2 π, .1}, AnimationRate -> 5]

answered Aug 23 '23 at 01:15

cvgmt

72,231
4
75
133