I am trying to visualize some region intersections in 3D.

Example 1:

ra = 10;
ri = 5;

R1 = RegionDifference[Ball[{0, 0, 0}, ra], Ball[{0, 0, ri - 1/2}, ri]];
Show[R1 // Region, Axes -> True]

The resulting rendered region has a hole, while it should not have one. Does anyone know a way to improve on this.

Another example.

Example 2:

ra = 10;
ri = 5;

R1 = RegionDifference[Ball[{0, 0, 0}, ra], Ball[{0, 0, 0}, ri]];
R2 = Cylinder[{{-100, 0, 0}, {100, 0, 0}}, 5];

R = RegionIntersection[R1, R2] // Region

The resulting region is rendered with jagged edges.

How can this rendering be improved? I know that the rendered edges can not be infinitely sharp like in the mathematical world, but I think some improvement should be possible. Does anyone know how to achieve this? I am using Mathematica 11.1 on Windows.

Thanks for your help. Maarten

Attachments: