MathGroup Archive 2006

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

Search the Archive

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
> 


  • Prev by Date: Re: matrix substitution--> arithmetization of Cayley table for Octonions
  • Next by Date: Re: orthonormal eigenvectors
  • Previous by thread: Re: Drawing outline of 3D shape
  • Next by thread: Re: Drawing outline of 3D shape