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: [mg102790] Re: image from graphics3d - rid black line
  • From: Yves Klett <yves.klett at googlemail.com>
  • Date: Thu, 27 Aug 2009 06:35:15 -0400 (EDT)
  • References: <h73819$bp2$1@smc.vnet.net>

Maarten,

you could delete all Line primitives within the graphics expression:

g = 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];

Show[DeleteCases[g, _Line, Infinity]]

Regards,
Yves

van der Burgt, Maarten schrieb:
> 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: Problems with Evaluate[Symbol[xxx]]
  • Next by Date: Re: Re: Viewing packages in mathematica
  • Previous by thread: Re: image from graphics3d - rid black line
  • Next by thread: using interpolating function as initial condition to Ndsolve