Run

$AlbumDirectory="C:\\drorbn\\Album\\2026.09.05_Utrecht_to_Eindhoven_Ride";

res=800;
fs=FileNames[$AlbumDirectory<>"/*.gpx"];
fs=Complement[fs,
Union[
StringReplace[{"@.gpx"->".gpx", "@.kml"->".kml"}]/@Select[fs,StringPart[#,-5]=="@"&]
]
]
data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
];
map0=GeoGraphics[{Red,data},GeoScaleBar->"Kilometers", ImageSize ->res];
AllTracks=Get["C:\\drorbn\\Album/Summaries/AllTracks.m"];

Rasterize[
map=GeoGraphics[{Thickness[0.0016], Blue, AllTracks,Thickness[0.0024], Red,data},
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
],
RasterSize ->res
]
Export[$AlbumDirectory<>"/Path%.png",map];

map3D=Echo@ResourceFunction["GeoElevationGraphics3D"][
{Thick, Blue, AllTracks,Red,data},
GeoGridRangePadding->0,
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
];
Export[$AlbumDirectory<>"/Path3D.png",map3D]

PathsLocation=Module[{R=3000,r=55,n=6,res=1000},
ImageAssemble[
Partition[#,3]&@Table[
Rasterize[
GeoGraphics[{Blue, Thickness[(2n-k)/4000],AllTracks, Red,Thickness[(2n-k)/1500],data},
GeoCenter->Mean[Join@@Cases[data,GeoPosition[l_List]:>l,∞]] ,
GeoRange->Quantity[R(((r/R))^((k-1)/(n-1))),"Kilometers"],
GeoScaleBar->"Kilometers",
ImageSize->res
],
RasterSize->res
],
{k,n}],
"Fit",Background -> White]
]
Export[$AlbumDirectory<>"/PathsLocation.png",PathsLocation]

Path With Images

imgs=FileNames["*.jpg",$AlbumDirectory];
map=GeoGraphics[{
GeoMarker[
GeoPosition[{1,-1}*Lookup[Import[#,"Exif"],{"GPSLatitude","GPSLongitude"}]], Graphics@Rasterize[Import[#],RasterSize ->res],
"Scale"->0.0075
]& /@ imgs,
Thickness[0.0016], Blue, AllTracks,Thickness[0.0024], Red,data
},
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
]
Export[$AlbumDirectory<>"/PathWithImages.png",map]

Image Directory

If[Head[PensieveDirectives]===List, ImageComments="ImageComments"/.PensieveDirectives,ImageComments={}];
(Interpretation[ImageResize[Import@#,400],FileNameTake@#]->(FileNameTake[#]/.ImageComments/.(FileNameTake[#]->"")))&/@FileNames["*.jpg"|"*.jpeg"|"*.png"|"*.mp4", $AlbumDirectory]

Export

117km, 9 windmills, a short ferry ride, and a very long convoy of honking trucks. Must have been a protest, but I don’t know what about. A very nice day!

PensieveDirectives={
"TitleNotes" -> "117km riding <a href=../Equipment/Bromp/index.html>Bromp</a>, 9 windmills, a short ferry ride, and a very long convoy of honking trucks. Must have been a protest, but I don't know what about. A very nice day!
<p>I have now biked in all Dutch provincial capitals!
<a href=../2023.01.07_Zwolle_-_Hasselt_-_Zwartsluis_-_Meppel_-_Assen_-_Groningen_Ride/index.html>Assen</a> of Drenthe,
<a href=../2023.02.04_Lelystad_to_the_Eise_Eisinga_Planetarium_Ride/index.html>Lelystad</a> of Flevoland,
<a href=../2020.01.05_Groningen_to_Leeuwarden_Ride/index.html>Leeuwarden</a> of Friesland,
<a href=../2026.05.30_Utrecht_-_Amersfoort_-_Barneveld_-_Ede_-_Arnhem_-_Nijmegen/index.html>Arnhem</a> of Gelderland,
<a href=../2020.01-02_Groningen/index.html>Groningen</a> of Groningen,
<a href=../2025.05.17_Bonn_to_Maastricht_Ride/index.html>Maastricht</a> of Limburg,
<b>'s-Hertogenbosch</b> of North Brabant,
<a href=../2025.08.09_Den_Haag_-_Dunes_-_Utrecht_Ride/index.html>Haarlem</a> of North Holland,
<a href=../2023.01.07_Zwolle_-_Hasselt_-_Zwartsluis_-_Meppel_-_Assen_-_Groningen_Ride/index.html>Zwolle</a> of Overijssel,
<a href=../2023.12.23_Amsterdam_to_Rotterdam_Ride_(also_visiting_Leiden_and_Den_Haag)/index.html>The Hague</a> of South Holland,
<a href=../2025.08.09_Den_Haag_-_Dunes_-_Utrecht_Ride/index.html>Utrecht</a> of Utrecht,
and
<a href=../2025.12.12-14_Zeeland_Excursion/index.html>Middelburg</a> of Zeeland.",
"ImageComments" ->{}
}