Run

res=800;
SetDirectory["C:\\drorbn\\Album\\2025.10.04-05_Bruce_Hike_42-43-_Griersville,_Rocklyn,_Walters_Falls"];
fs=FileNames["*.gpx"]
data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
];
map0=GeoGraphics[{Red,data},GeoScaleBar->"Kilometers", ImageSize ->res];
AllTracks=Get["../Summaries/AllTracks.m"];

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

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

PathsLocation=Module[{R=3000,r=12,n=6,res=600},
ImageAssemble[
Partition[#,3]&@Table[
Rasterize[
GeoGraphics[{Blue, Thickness[(2n-k)/4000],AllTracks, Red,Thickness[(2n-k)/1500],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[]

Image Directory

folder="C:\\drorbn\\Album\\2025.09.13_Bruce_Hike_41-_Epping";
SetDirectory[folder];
If[Head[PensieveDirectives]===List, ImageComments="ImageComments"/.PensieveDirectives,ImageComments={}];
(Interpretation[ImageResize[Import@#,400],#]->(#/.ImageComments/.(#->"")))&/@FileNames["*.jpg"|"*.jpeg"|"*.png"|"*.mp4"]
ResetDirectory[]

Export

{
"TitleNotes" -> "A 2-day Bruce combo: 14.6km hike and 10.5km bike ride back on Saturday, and then 15.3km hike and 11.7 bike ride back on Sunday. In between a night in a motel in Owen Sound.",
"ImageComments" ->{}
}