res=640;
SetDirectory["C:\\drorbn\\Album\\2024.08.01-17_Geneva_and_Les_Diablerets"];
fs=FileNames["*Diablerets*.gpx"]
data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
];
map0=GeoGraphics[{Red,data},GeoScaleBar->"Kilometers", ImageSize ->res];
fs1=FileNames["*.gpx", ("../"<>#)&/@{
"2022.09.02_Afternoon_Hike_Near_Les_Diablerets"
}]
data1=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs1}],
GeoPosition[{_,None}], ∞
];
Rasterize[
map=GeoGraphics[{Thick, Blue, data1,Red,data},
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
],
RasterSize ->res
]
Export["PathsInLesDiablerets@.png",map];

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

PathsLocation=Module[{R=3000,r=10,n=6,res=600},
ImageAssemble[
Partition[#,3]&@Table[
Rasterize[
GeoGraphics[{Thick,Red,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["PathsLocationLesDiablerets.png",PathsLocation]

ResetDirectory[]

res=640;
SetDirectory["C:\\drorbn\\Album\\2024.08.01-17_Geneva_and_Les_Diablerets"];
fs=FileNames["*Geneva*.gpx"]
data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
];
map0=GeoGraphics[{Red,data},GeoScaleBar->"Kilometers", ImageSize ->res];
fs1=FileNames["*.gpx", ("../"<>#)&/@{
"2022.06.26_Geneva_to_Annecy_Ride",
"2022.07.02-03_Ride_Around_Lake_Geneva",
"2022.08.28_Ride_Up_and_Around_Mont_Saleve",
"2023.12.02_Geneva_Along_the_Rhone",
"2024.08.11_Geneva_to_Aix-les-Bains"
}]
data1=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs1}],
GeoPosition[{_,None}], ∞
];
Rasterize[
map=GeoGraphics[{Thick, Blue, data1,Red,data},
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
],
RasterSize ->res
]
Export["PathsInGeneva@.png",map];

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

PathsLocation=Module[{R=3000,r=10,n=6,res=600},
ImageAssemble[
Partition[#,3]&@Table[
Rasterize[
GeoGraphics[{Thick,Red,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["PathsLocationGeneva.png",PathsLocation]

ResetDirectory[]

{
"TitleNotes" -> "With Alexandra, Anton, Guillaume, Iva, Marci, and Zsuzsi",
"ImageComments" ->{}
}