ColorData—Wolfram Language Documentation

Graphics3D[{Specularity[White, 50], ColorData[“Atoms”, “H”], Sphere[{0, 0, 0}, .7], Sphere[{1.4, 0, 0}, .7], ColorData[“Atoms”, “O”], Sphere[{.7, 0, .7}]}, Lighting -> “Neutral”]

Source: ColorData—Wolfram Language Documentation

Advertisements