MathGroup Archive 2009

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

Search the Archive

Re: image from graphics3d - rid black line


On Aug 26, 1: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 doe=
s
> 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?

Hello,

This is controlled by the option BoundaryStyle.  Add BoundaryStyle ->
None to the Plot command.

I hope this helps,
Szabolcs


  • Prev by Date: Re: image from graphics3d - rid black line
  • Next by Date: Re: ClearAll ?? or what
  • Previous by thread: Re: image from graphics3d - rid black line
  • Next by thread: Re: image from graphics3d - rid black line