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
>