"With[{comet = Entity[""Comet"", ""Comet46PWirtanen""]}, ResourceFunction[   ""SolarSystemPlot3D""][{LightBlue, Sphere[Entity[""Planet"", ""Earth""], .02], Cyan, Sphere[comet, .01], EdgeForm[], Cone[{1.1 comet, comet}, .02]}, DateObject[{2018, 12, 15}, ""Day"", ""Gregorian"", -6.`], ""OrbitStyle"" -> Gray, ""SunStyle"" -> {ColorData[""BlackBodySpectrum""][5770], Lighting -> {{""Ambient"", GrayLevel[.3]}, {""Directional"", White, ImageScaled[{0, 0, 1}]}}, Sphere[{0, 0, 0}, .1]}, Background -> Black, Boxed -> False, PlotRange -> 1.2, SphericalRegion -> True, ViewCenter -> {.6, .85, .5}, ViewAngle -> Pi/20, Lighting -> {{""Point"", White, {0, 0, 0}}}, ""IncludeReferenceObjects"" -> False]]"
{}