res=1000;
SetDirectory["C:\\drorbn\\Album\\2024.04.29-06.14_Groningen"];
fs=FileNames["*.gpx"]
data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
];
map0=GeoGraphics[{Red,data},GeoScaleBar->"Kilometers", ImageSize ->res];
fs1=FileNames["*.gpx", ("../"<>#)&/@{
"2020.01.05 Groningen to Leeuwarden Ride",
"2020.01.11 Groningen to Schiermonnikoog Ride",
"2020.01.25_Groningen_to_Emmeloord_Ride",
"2020.02.01_Groningen_to_Leer_Ride",
"2020.02.08_Groningen_to_Dolmen_D18_Return_Ride",
"2022.06.18_Paddling_in_the_Groningen_Canals",
"2023.01.07_Zwolle_-_Hasselt_-_Zwartsluis_-_Meppel_-_Assen_-_Groningen_Ride",
"2023.01.14_Groningen_to_Zuidlaren_Walk",
"2023.12.09_A_Walk_Around_Zuidlaardermeer",
"2023.12.16_Groningen_-_Delfzijl_Loop",
"2024.05.04_Groningen_-_Drachten_-_Sneek_-_Harlingen_Ride",
"2024.05.11_Groningen_to_Enschede_Ride",
"2024.05.18_Groningen_-_Dokkum_-_Waddenzee_-_Harlingen_Ride",
"2024.05.26_Groningen_-_Noordkaap_Ride",
"2024.06.01_Groningen_-_Winsum_Walk"
}]
data1=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs1}],
GeoPosition[{_,None}], ∞
];
Rasterize[
map=GeoGraphics[{Blue, data1,Red,data},
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
],
RasterSize ->res
]
Export["PathsInGroningen@.png",map];
ResetDirectory[]

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