Decocube

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},ContourStyle->{White,Specularity[White,50]},ViewVertical->{0,1,0},Boxed->False,Axes->False,ImageSize->400,Background->Black,Lighting->{{"Directional",RGBColor[0.5`,0.5`,1],ImageScaled[{0,1,0}]},{"Directional",RGBColor[1,0.5`,0.5`],ImageScaled[{1,-1,0}]},{"Directional",RGBColor[0.5`,1,0.5`],ImageScaled[{-1,-1,0}]}},SphericalRegion->True,Mesh->False,PlotPoints->70]]

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

Export["decocube.jpg",gr,"JPG",ImageSize->2400];