si30K=SolarEclipse[{DateObject[{-13000}],DateObject[{17000}],All},"SarosInex"];type30K=SolarEclipse[{DateObject[{-13000}],DateObject[{17000}],All},"Type"];pairs30K=Transpose[{si30K,type30K}]/.colorrules;legend=Placed[SwatchLegend[colorrules〚All,2〛,colorrules〚All,1〛,LegendLayout"Row"],Below];Legended[Graphics[{Point[pairs30K〚All,1〛,VertexColorspairs30K〚All,2〛],Red,PointSize[Large],Point[si]},FrameTrue,ImageSizeMedium],legend]