I am using RegionPlot3D in Mathematica to visualise some inequalities. As the inequalities are homogeneous in the coordinates they are uniquely determined by their
RegionPlot3D
SphericalPlot3D[0.6, {\[Phi], 0, \[Pi]}, {\[Theta], 0, 2 \[Pi]}, RegionFunction -> Function[{x, y, z}, PolyhedronData["Cube", "RegionFunction"][x, y, z]], Mesh -> False, PlotStyle -> {Orange, Opacity[0.9]}]