Graphics3D[Rotate[ThickenPolygons[
Prepend[DeleteCases[
p7 /. triangulate /. moretriangles /. shrink /. shrink /.
shrink /. colour4["SunsetColors", 1, 28/34],
Polygon[l_] /; Length[l] == 3, Infinity] /. v_ /; VectorQ[v, NumericQ] :> Insert[v, 0, 2], EdgeForm[]], 1.,
1/3], -Pi/3, {0, 0, 1}], Boxed -> False, ImageSize -> Full,
Lighting -> "Neutral", ViewPoint -> {2.5, 2.5, 0}]