How to get Mathematica to draw soft edges?

Question

I need to create some black and white illustrations for which I use Glow[White]. Unfortunately this makes soft edges disappear, so objects blend into the background. Is there a way to have Mathematica draw a black edge left and right of the yellow cylinder below?

Graphics3D[{Glow[Yellow], Black, EdgeForm[Thick], Cylinder[]}, Boxed -> False]

yellow barrel

Possible duplicate: Transparent Cylinder with Dashed Edges only. Also related: Generating “Penrose-style” drawings of surfaces — Mr.Wizard, Oct 03 '14 at 21:08
Also related: Sketch-type graphics with transparency and dashed hidden lines? — Jens, Oct 04 '14 at 05:12
Thank you for that link to the Penrose-style render code, that is even better for my purposes (figures for patent applications). — Martin R, Oct 07 '14 at 14:33

score 3 · Answer 1 · answered Oct 03 '14 at 21:03

3

h[et_] := Graphics3D[{Glow[Yellow], EdgeForm[et], Yellow, Cylinder[]},  Boxed -> False]
ImageMultiply[ h[Black], ColorNegate@EdgeDetect@h[None]]

Mathematica graphics

answered Oct 03 '14 at 21:03

Dr. belisarius

115,881
13
203
453

+1 But does it function for other Graphics3D- primitives ? – eldo Oct 03 '14 at 21:24
@eldo It's a quick and dirty solution, as I don't know how "general" the OP wants it. Let's see if s/he explains further. – Dr. belisarius Oct 03 '14 at 21:42

How to get Mathematica to draw soft edges?

1 Answers1