Simulate Star Colors

Many new properties are available such as mass, radius, and temperature for stars. The color of stars is primarily determined by their effective temperature.

In[1]:=

starColorPlot[star_] := 

  Graphics3D[{ColorData["BlackBodySpectrum"][

     AstronomicalData[star, "EffectiveTemperature"]], Sphere[]}, 

   Boxed -> False, 

   Lighting -> {{"Ambient", Gray}, {"Directional", White, 

      ImageScaled[{0, 0, 1}]}}, PlotLabel -> star];

starColorPlot /@ {"Rigel", "Sirius", "Sun", "Betelgeuse"}

Out[1]=