MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Q:Hidden lines as dashed?


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






  • Prev by Date: Re: MathLink and CodeWarrior
  • Next by Date: Re: Q: How to load packages inside a package
  • Previous by thread: Q:Hidden lines as dashed?
  • Next by thread: Bivariate Normal Probs.