Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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



  • Prev by Date: Re: ErrorListPlot and Tooltip
  • Next by Date: Re: work only with Performance->Speed
  • Previous by thread: Re: image from graphics3d - rid black line
  • Next by thread: Re: image from graphics3d - rid black line