0
$\begingroup$

I want to draw several cylinders in Mathematica. In order to distinguish them in a grey-style print, I should write a visible number on or add a different pattern (dotted, lines, stripes, etc.) to each of them. Any idea would be appreciated!

$\endgroup$
0
$\begingroup$
    Graphics3D[
          Table[
           {Cylinder[{{x, y, 0}, {x, y, 1}}], 
           Text[Style[ToString[x/2] <> "," <> ToString[y/2], 24, Gray], 
            {x, y, 1}]},
            {x, 0, 5, 2}, 
            {y, 0, 5, 2}]
            ]

Or why not just use a different color on each, and then have a legend?

| improve this answer | |
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.