image from graphics3d - rid black line

*To*: mathgroup at smc.vnet.net*Subject*: [mg102769] image from graphics3d - rid black line*From*: "van der Burgt, Maarten" <Maarten.VanDerBurgt at icos.be>*Date*: Wed, 26 Aug 2009 07:58:39 -0400 (EDT)

Hello, For testing certain image processing methods I want to convert a Graphics3D object as generated by my3d = Plot3D[Exp[-x^2 - y^2]/2, {x, -2, 2}, {y, -2, 2}, PlotRange -> {0, 1}, ColorFunction -> Function[{x, y, z}, GrayLevel[(1 + Cos[50 z])/2]], ColorFunctionScaling -> False, PlotPoints -> 100, Mesh -> False, Lighting -> {{"Ambient", White}}, Boxed -> False, Axes -> False] to a raster image. But the black line around the graphics forms a discontinuity in the image greyvalues I want to avoid. Setting the options Mesh -> False, Boxed -> False, Axes -> False do not help me. Digging deep into the structure of my3d I worked out the following does the job: my3d /. {x___, Line[___], y___} -> {x, y} But I would think there must be an easier, more transparent, way to achieve this. Anyone any ideas? Thanks for your help. Maarten van der Burgt Icos Vision Systems - KLA-Tencor Leuven, Belgium

**Follow-Ups**:**Re: image from graphics3d - rid black line***From:*Thomas Dowling <thomasgdowling@gmail.com>