# How do discretize the following region?

Consider the following region:

reg = Polyhedron[{{-0.8420454545454543, -1.8784090909090905,
37.99999999999999}, {-1.95, -4.35, 88.}, {-1.95, 4.35,
88.}, {-0.8420454545454545, 1.8784090909090907,
38.}, {1.95, -4.35, 88.}, {1.95, 4.35,
88.}, {0.8420454545454543, -1.8784090909090905,
37.99999999999999}, {0.8420454545454543, 1.8784090909090905,
37.99999999999999}},
{{1, 2, 3, 4}, {5, 6, 3, 2}, {7, 5, 2, 1}, {8, 6, 5, 7}, {4, 3,
6, 8}, {8, 7, 1, 4}}];
Graphics3D[reg]


I need to define the minimal and maximal polar angles $$\theta = \arccos(z/\sqrt{x^{2}+y^{2}+z^{2}})$$ for this region. (well, the minimal angle is clearly 0 in this case, but I would like to automatize it)

For this purpose, I want to use the answer to this question. It requires the discretization of (the boundary of) the region, i.e.

DiscretizeRegion[reg]


or

BoundaryDiscretizeRegion[reg]


However, I get the following message:

A non-degenerate region is expected at position 1 of DiscretizeRegion

Could you please tell me how either to discretize it properly or to evaluate minimal and maximal polar angles automatically?

• Have been fixed in 13.1 or early version. Commented Feb 24, 2023 at 0:32

BoundaryDiscretizeRegion[reg, {{-100, 100}, {-100, 100}, {-100, 100}}]