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

PathsLocation=Module[{R=3000,r=10,n=6,res=600},
ImageAssemble[
Partition[#,3]&@Table[
Rasterize[
GeoGraphics[{Red,Thick,data},
GeoCenter->Mean@Cases[data,GeoPosition[l_List]:>Mean[l],∞] ,
GeoRange->Quantity[R(((r/R))^((k-1)/(n-1))),"Kilometers"],
GeoScaleBar->"Kilometers",
ImageSize->res
],
RasterSize->res
],
{k,n}],
"Fit",Background -> White]
]
Export["PathsLocation@.png",PathsLocation]

ResetDirectory[]

{
"TitleNotes" -> "About 50km of walks, with Heather.",
"ImageComments" ->{}
}