res=640;
SetDirectory["C:\\drorbn\\Album\\2024_Greater_Toronto_Stay_in_Place"];
fs=FileNames["*.gpx"]
data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
];
Rasterize[
map=GeoGraphics[{Red,data},
GeoScaleBar->"Kilometers",
ImageSize ->res
],
RasterSize ->res
]
Export["TorontoPaths2024@.png",map];
ResetDirectory[]

{
"TitleNotes" -> "",
"ImageComments" ->{}
}