In[]:=
Entity["Comet","CometC2022E3ZTF"]
Out[]=
C/2022 E3 (ZTF)
In[]:=
position=AstroPosition
C/2022 E3 (ZTF)
COMET
[{"RightAscension","Declination","DistanceFromEarth"}],"Equatorial"
Out[]=
AstroPosition
Right ascension:
h
15
m
42
s
55.0
Declination: 45°28'55.5"

In[]:=
ag=AstroGraphicsAbsolutePointSize[25],Darker[Green],Blurring[10],PointAstroPosition
C/2022 E3 (ZTF)
COMET
[{"RightAscension","Declination","DistanceFromEarth"}],"Equatorial",AstroRange->Quantity[20,"AngularDegrees"]
Out[]=
In[]:=
dr=DateRange[DateObject[{2022,9,1},"Instant"],DateObject[{2023,2,7},"Instant"],Quantity[0.25,"Days"]];
In[]:=
positions=Transpose[{AstroPosition[#,"Equatorial"]&/@Transpose[{Entity["Comet","CometC2022E3ZTF"][Dated["RightAscension",#]&/@dr],Entity["Comet","CometC2022E3ZTF"][Dated["Declination",#]&/@dr],Entity["Comet","CometC2022E3ZTF"][Dated["DistanceFromEarth",#]&/@dr]}],dr}];
In[]:=
DateString[positions[[1,2]]]
Out[]=
Thu 1 Sep 2022 00:00:00
In[]:=
Length[positions]
In[]:=
637/30.
Out[]=
21.2333
In[]:=
AnimationVideo[​​Rasterize[AstroGraphics[{{Cyan,AbsolutePointSize[15],Blurring[],Point[First[position]]},{White,Inset[Text[DateString[Last[position],{"Year","/","Month","/","Day"}]]]}},AstroCenter->First[position],AstroReferenceFrame->"Equatorial",AstroGridLines->Quantity[10,"AngularDegrees"],ImageSize->{500,500}],"Image"],​​{position,positions},FrameRate->30]
Out[]=
In[]:=
video=%;
In[]:=
Information[video]
Out[]=
Video
Duration
21.234
s
Raster Size
Automatic
Bit Rate
2518311
b/s
Video Tracks
OriginalRasterSize
VideoEncoding
BitDepth
ColorSpace
FrameRate
1
{1000,1000}
H264
8
RGB
30.00
frames/s
Resource Path
File
/Users/arnoudb/Documents/Wolfram/Video/AnimationVideo-2023-01-17T11-58-42.mp4

In[]:=
Entity["Comet","CometC2022E3ZTF"][Dated["RightAscension",Today]]
Out[]=
15
h
42
m
35.2
s
In[]:=
$Version
Out[]=
13.2.0 for Mac OS X ARM (64-bit) (November 18, 2022)
In[]:=
First[positions]
Out[]=
AstroPosition
Right ascension:
h
16
m
25
s
30.1
Declination: 32°31'52.6"
,
Thu 1 Sep 2022 00:00:00GMT-6

In[]:=
With[{position=First[positions]},AstroGraphics[{{Cyan,AbsolutePointSize[15],Blurring[],Point[First[position]]},{White,Inset[Text[DateString[Last[position],{"Year","/","Month","/","Day"}]]]}},AstroCenter->First[position],AstroReferenceFrame->"Equatorial",AstroGridLines->Quantity[10,"AngularDegrees"],ImageSize->{500,500}]]
Out[]=