Re: image from graphics3d - rid black line
- To: mathgroup at smc.vnet.net
- Subject: [mg102803] Re: [mg102769] image from graphics3d - rid black line
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Thu, 27 Aug 2009 06:37:47 -0400 (EDT)
- Reply-to: hanlonr at cox.net
Try
BoundaryStyle -> GrayLevel[1]
Bob Hanlon
---- "van der Burgt 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