Three hole shape

vps = {{-5, 5, 5}, {-5, 2.5, 2.5}, {-5, 0, 0}, {-5, 0, 0}, {0, 5,
    0}, {0, 5, 0}, {0, 0, -5}, {0, 0, -5}};
vpfns = Table[
   Interpolation[Map[#[[i]] &, vps], InterpolationOrder -> 1], {i,
    3}];

Manipulate[
 RegionPlot3D[
  face3[{x, y}] && face2[{x, z}] && face1[{y, z}], {x, -1, 1}, {y, -1,
    1}, {z, -1, 1}, PlotPoints -> 5, Axes -> None, Boxed -> False,
  ViewPoint -> {vpfns[[1]][x], vpfns[[2]][x], vpfns[[3]][x]}]
 , {x, 1, 8}]