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>
- image from graphics3d - rid black line