Decocube

<< Graphics`

\(gr = 
      With[{c\  = \ 
            0.8}, \ 
ContourPlot3D[\((\((x^2\  + \ 
                      y^2\  - \ c^2)\)^2\  + \ \((z^2\  - \ 
                      1)\)^2)\)*\((\((y^2\  + \ z^2\  - \ 
                      c^2)\)^2\  + \ \((x^2\  - \ 
                      1)\)^2)\)*
\ \ \ \ \((\((z^2\  + \ x^2\  - \ 
                      c^2)\)^2\  + \ \((y^2\  - \ 
                      1)\)^2)\), \ {x, \ \(-1.5\), \ 
            1.5}, \ {y, \ \(-1.5\), \ 1.5}, \ {z, \ \(-1.5\), \ 1.5}, \ 
          Contours\  -> \ {0.1}, \ 
\ \ \ PlotPoints\  -> \ {13, 13}, \ 
          ContourStyle\  -> \ {EdgeForm[], 
              SurfaceColor[White, White, \ 50]}, \ 
          ViewVertical\  -> \ {0, \ 1, \ 0}, \ Boxed\  -> \ False, \ 
          Axes\  -> \ False, \ 
          ImageSize\  -> \ 400, \ 
\ \ \ Background\  -> \ Black, \ 
          LightSources -> \ {{{0, \ 1, \ 0}, 
                RGBColor[0.5, \ 0.5, \ 1]}, \ 
\ \ \ \ \ {{1, \ \(-1\), \ 
                  0}, RGBColor[1, \ 0.5, \ 0.5]}, \ {{\(-1\), \ \(-1\), \ 0}, 
                RGBColor[0.5, \ 1, \ 0.5]}}, \ 
\ \ \ SphericalRegion\  -> \ 
            True, AmbientLight -> RGBColor[ .1,  .1,  .1]]]\)

SetDirectory[
      ToFileName[("FileName" /. 
              NotebookInformation[
                EvaluationNotebook[]])[[1]]]];

Export["decocube.png", gr, "PNG", 
        ImageSize -> 2400];