folder="C:\\drorbn\\Album\\2025.06.21_Melbourne_Seashore_Ride";
SetDirectory[folder];

nbd=Select[FileNames["*","C:\\drorbn\\Album"], FileType[#]==Directory&];
len=Length[nbd]
loc=Position[nbd,folder][[1,1]];
DeleteFile[nbd[[Mod[#,len,1]]]<>"\\index.html"]& /@ (loc+{1,-1});

AllTracks=Get["../Summaries/AllTracks.m"];

fs=Echo@Take[FileNames["*.gpx"],All];
data=Union@Table["Geometry"/.Import[f,"Data"],{f,fs}];
path=Echo@GeoGraphics[{Red,data},
GeoGridRangePadding->Scaled[0.1],
GeoScaleBar->"Kilometers"
];
Export["Path%.png",path]

path3D=Echo@ResourceFunction["GeoElevationGraphics3D"][{Red,data},
GeoGridRangePadding->0,
GeoScaleBar->"Kilometers",
ViewPoint->{0.03392552524370772`,-1.9374148986729356`,2.774035430404068`},ViewVertical->{-0.014353130476599685`,0.8196768842397942`,0.5726463071464487`}
];
Export["Path3D.png",path3D]

PathLocation=Module[{R=3000,r=25,n=6,res=600},
ImageAssemble[
Partition[#,3]&@Table[
Rasterize[
GeoGraphics[{Blue, Thickness[(2n-k)/2000],AllTracks, Red,Thickness[(2n-k)/1000],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["PathLocation.png",PathLocation]

ResetDirectory[]

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

{
"TitleNotes" ->"75.3km with 510m of climbs on a nice cool day. Including a visit to 37&deg;59'47.610''S 145&deg;02'15.352''E, the southern most point I've ever been to.
<p>The plan was to go further along the shore and do about 100km. But I locked my bike to visit St. Kilda Pier and managed to drop the key into the water at the very end of said pier. So I had to take an Uber (A\\$11.76) to a hardware store that didn't have the right kind of cutter, and then another Uber (A\\$15.03) to another hardware store, and then buy a cutter (A\\$30.65), and then take another Uber (A\\$22.02) back to the pier. The whole thing took about an hour and a half, and I didn't have enough daytime left to complete my original plan. In theory I could have made another plan, 10-15km shorter, but I had already lost my steam so I just took the shortest path back to my hotel.
<p>This is the second time I'm dropping my keys into some body of water! The first time was in Groningen in early 2020, in the presence of my sister Ophra. Ophra says the rules of probability should be revised. It's probably enough that she will revise her estimation of my IQ.
<p>This follows a streak of very nice rides. I guess it's fair to have the occasional mishap.",
"ImageComments" -> {}
}