2
$\begingroup$

When I run the following code:

Graphics3D[{{EdgeForm[{Black, Thick}], Red, 
   Polygon[{{0, 0, 0}, {0, 1, 0}, {1, 1, 0}, {1, 0, 
      0}}]}, {EdgeForm[{Black, Thick}], Red, 
   Polygon[{{1, 0, 0}, {1, 1, 0}, {2, 1, 0}, {2, 0, 
      0}}]}, {EdgeForm[{Black, Thick}], Green, 
   Polygon[{{0, 0, 0}, {2, 0, 0}, {2, 0, 1}, {0, 0, 1}}]}}, 
 ViewPoint -> {-2, -1, 1}]

enter image description here

I get unwanted "tick marks," for lack of a better term, on the bottom of the green polygon, only when viewed at certain angles though. I don't know why they're there in the first place since I haven't messed with the opacity and they only show up where the polygons meet. MY QUESTION is how do I remove those marks while still having a thick edge for each polygon?

Also, I know that I could just use Rectangle[] if I wanted to make the plot above without the marks, but my question is for Polygon[]. Thanks

Improve this question
$\endgroup$
2

0

Reset to default

Browse other questions tagged or ask your own question.