Re: Q:Hidden lines as dashed?
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg1156] Re: [mg1108] Q:Hidden lines as dashed?
- From: Allan Hayes <hay at haystack.demon.co.uk>
- Date: Sat, 20 May 1995 01:13:20 -0400
Honoh Suzuki <i79922a at kyu-cc.cc.kyushu-u.ac.jp> writes in [mg1108]
> I'd like to draw 3D figures with hidden lines shown as dashed
> lines.
Here is an rough and ready way.
Needs["Graphics`Shapes`"]
cone = Show[Graphics3D[Cone[]], Boxed -> False]
wf = Show[WireFrame[cone]]
Show[cone, Epilog -> {Dashing[{.005,.02}],First[Graphics[wf]]}]
Explanation:
Graphics [wf] projects wr to a visually equivalent Graphics object
( Epilog takes 2D primitives);
First extracts the primitives ;
then the Dashing directive is supplied (it works in this simple way
because no Dashing occurs in wr -- if it did then you would need
use replacement).
Warning: the lines from wr actually lie over the ones from cone.
Allan Hayes
hay at haystack.demon.co.uk