Pensieve header: The make file for all the summary maps.

SetDirectory["C:\\drorbn\\Album\\Summaries"];

fs=FileNames["../*/*.gpx"]⋃FileNames["../*/*.kml"];
Short[fs=Complement[fs,
Union[
StringReplace[{"@.gpx"->".gpx", "@.kml"->".kml"}]/@Select[fs,StringPart[#,-5]=="@"&],
FileNames["../2024_Greater_Toronto_Stay_in_Place/*.gpx"],
{
"..\\2022.05.08-12_Napoli_and_Around\\Day1Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day2Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day3Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day4Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day5Path.kml",
"..\\2021.07.03_Stratford_-_New_Hamburg_-_Wellesley_Loop\\2021-07-03_06-04_Sat.gpx"
}
]
],5]

Monitor[Short[data=Union@Table[
"Geometry"/.Import[f,"Data"]/.p:GeoPosition[{_,None}]:>Nothing[Print["In ",f," removed ",p,"."]],
{f,fs}]],f]

(*Short[data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
]]*)

res=1200;
Rasterize[map=GeoGraphics[{Red,Thick,data},
GeoCenter->{0,0},GeoScaleBar->"Kilometers",ImageSize ->res
], RasterSize ->res]
Export["World.png",map];

res=1200; Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{42.5,45.2},{-81.5,-76.8}},
GeoScaleBar->"Kilometers", ImageSize ->res
], RasterSize ->res]
Export["Ontario@1200.png",map];
res=900; Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{42.5,45.2},{-81.5,-76.8}},
GeoScaleBar->"Kilometers", ImageSize ->res
], RasterSize ->res]
Export["Ontario@900.png",map];
res=120; Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{42.57,45.16},{-81.65,-76.85}},
ImageSize ->res
], RasterSize ->res]
Export["Ontario@120.png",map];

res=1200;
Rasterize[map=GeoGraphics[{Red,data},
GeoCenter->{43.81810,-79.4769}, (* Dufferin and 407 *)
GeoRange->Quantity[30,"Kilometers"],
GeoScaleBar->"Kilometers", ImageSize ->res
], RasterSize ->res]
Export["Toronto@30km.png",map];

res=1200;
Rasterize[map=GeoGraphics[{Red,data},
GeoCenter->{43.69367376077453,-79.38464398255951}, (* Mount Pleasant and Moore *)
GeoRange->Quantity[10,"Kilometers"],
GeoScaleBar->"Kilometers", ImageSize ->res
], RasterSize ->res]
Export["Toronto@10km.png",map];

res=1200;
Rasterize[map=GeoGraphics[{Red,data},
GeoCenter->{43.65634428326165,-79.38089862401286}, (* Yonge and Dundas *)
GeoRange->Quantity[5,"Kilometers"],
GeoScaleBar->"Kilometers", ImageSize ->res
], RasterSize ->res]
Export["Toronto@5km.png",map];

43.404004975419966,-79.69193838043324
43.151241640163505,-80.07088318677523

res=900; Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{43.1512, 43.404},{-80.07088,-79.69194}},
GeoScaleBar->"Kilometers", ImageSize ->res
], RasterSize ->res]
Export["Hamilton.png",map];

res=1000;
Rasterize[map=GeoGraphics[{Red,Thick,data},
GeoRange->{{51.4,53.525},{4.28,7.55}},
GeoScaleBar->"Kilometers",ImageSize ->res
], RasterSize ->res]
Export["Netherlands.png",map];

res=900;
Rasterize[map=GeoGraphics[{Red,data},
GeoCenter->,
GeoRange->Quantity[85,"Kilometers"],
GeoScaleBar->"Kilometers",ImageSize ->res
], RasterSize ->res]
Export["LosAngeles.png",map];

res=800;
Rasterize[map=GeoGraphics[{Red,Thick,data},
GeoRange->{{45.674,46.562},{5.782,7.34571}},
GeoScaleBar->"Kilometers",ImageSize ->res
], RasterSize ->res]
Export["Geneva.png",map];

res=900;
Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{31.53,32.9},{34.47,35.67}},
GeoScaleBar->"Kilometers", ImageSize ->600
], RasterSize ->res]
Export["Israel.png",map];

res=900;
Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{19.18,19.703},{-99.35,-98.83}},
GeoScaleBar->"Kilometers",ImageSize ->600
], RasterSize ->res]
Export["MexicoCity.png",map];

res=800;
Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{-34.5,-32.8},{150.81,151.9}},
GeoScaleBar->"Kilometers",ImageSize ->res
], RasterSize ->res]
Export["Sydney.png",map];

res=800;
Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{35.10835,35.93777},{138.54443,140.89821}},
GeoScaleBar->"Kilometers",ImageSize ->res
], RasterSize ->res]
Export["Tokyo.png",map];

res=900;
Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{40.60,45.83},{-76.75,-70.3}},
GeoScaleBar->"Kilometers",ImageSize ->res
], RasterSize ->res]
Export["Northeast.png",map];

res=800;
Rasterize[map=GeoGraphics[{Red,data},
GeoRange->{{42.17,42.54},{-71.30,-70.83}},
GeoScaleBar->"Kilometers",ImageSize ->res
], RasterSize ->res]
Export["Boston.png",map];