Re: Drawing outline of 3D shape
- To: mathgroup at smc.vnet.net
- Subject: [mg67650] Re: Drawing outline of 3D shape
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Mon, 3 Jul 2006 06:38:32 -0400 (EDT)
- References: <e88871$92c$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi, what is with Needs["Graphics`Shapes`"] gr=Show[Graphics3D[Torus[]], Lighting -> False, Boxed -> False] ?? If you need a vector representation you can run a edge filter on the rasterized bitmap bm = ImportString[ExportString[gr, "PGM"], "PGM"]; (* invert it *) ibm = (bm /. Raster[data_, args___] :> Raster[Map[1 - # &, data, {2}], args]); (* apply a Laplace filter to detect the edges *) Show[lines = ibm /. Raster[data_, args___] :> Raster[ListConvolve[ {{0, 1, 0}, {1, -4, 1}, {0, 1, 0}}, data, {2, 2}], args] ] Regards Jens MS wrote: > Hello, > > Is there a program to draw the outline of a 3D shape. > So a sphere would be drawn as a circle. > A half sphere would be drawn as a arc (where the round > part goes from visible to not visible) and a circle (highlighting > the flat part of the half sphere. > > Mark Stankus >