Re: image from graphics3d - rid black line

*To*: mathgroup at smc.vnet.net*Subject*: [mg102770] Re: [mg102769] image from graphics3d - rid black line*From*: Thomas Dowling <thomasgdowling at gmail.com>*Date*: Thu, 27 Aug 2009 06:31:23 -0400 (EDT)*References*: <200908261158.HAA12069@smc.vnet.net>

Hello, One possibility is to use the option BoundaryStyle -> None For example: 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, BoundaryStyle -> None] Nice plot! Good luck, Tom Dowling On Wed, Aug 26, 2009 at 12:58 PM, van der Burgt, Maarten < Maarten.VanDerBurgt at icos.be> wrote: > > 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 >

**References**:**image from graphics3d - rid black line***From:*"van der Burgt, Maarten" <Maarten.VanDerBurgt@icos.be>