Heart of Gold: built-in anatomical data with material shading​
​Submitted to Computational Art Contest 2022​
​by Arnoud Buzing
This shows how to use built-in anatomical data with material shading to create a “heart of gold” video.

Code

LaunchKernels[8];​​​​heart=Entity["AnatomicalStructure","Heart"][EntityProperty["AnatomicalStructure","Graphics3DPrimitives"]];​​​​g=Graphics3D[{MaterialShading["Gold"],heart}];​​​​video=Parallelize@VideoGenerator[Function[Show[g,ImageSize->{1920,1024},Lighting->{DirectionalLight[White,{22,-123,1227}+200{Cos[4π#/30.],Sin[4π#/30.],0}]},Boxed->False,Background->Black]],15];​​​​Export["out.mp4",video]