landingSites={GeoPosition[{48.04021063329052`,-109.65281665076692`}],GeoPosition[{22.284`,114.15`}],GeoPosition[{7,-65}],GeoPosition[{9.2,-12.3}],GeoPosition[{12,27}],GeoPosition[{30,72}],GeoPosition[{72,-38}],GeoPosition[{46,36}],GeoPosition[{62,112}],GeoPosition[{35.67`,139.77`}],GeoPosition[{-16,106}],GeoPosition[{53.1,-3.3}]};
GeoListPlot[landingSites,GeoRange"World",ImageSize1000]
GeoListPlot[landingSites,GeoRange"World",ImageSize1000,JoinedTrue]
GeoGraphics[{GeoPath/@(List@@@EdgeList[NearestNeighborGraph[landingSites,3]]),GeoDisk[#,]&/@landingSites},GeoRange"World"]
GeoListPlot[landingSites[[FindShortestTour[landingSites][[2]]]],GeoRange"World",ImageSize1000,JoinedTrue]
projections=Complement[GeoProjectionData["Spherical"],GeoProjectionData["Conformal"],GeoProjectionData["Perspective"],GeoProjectionData["Azimuthal"],GeoProjectionData["Retroazimuthal"],{"ConicSatelliteTracking","CylindricalSatelliteTracking","MurdochII"}];
maps=RandomSample@ParallelTable[Labeled[GeoListPlot[landingSites,GeoRange"World",GeoProjectionprojection,ImageSize500],projection],{projection,projections}];
maps=RandomSample@ParallelTable[Labeled[GeoGraphics[{GeoPath/@(List@@@EdgeList[NearestNeighborGraph[landingSites,3]]),GeoDisk[#,]&/@landingSites},GeoRange"World",GeoProjectionprojection,ImageSize500],projection],{projection,projections}];
goodProjections={};
maps=RandomSample@ParallelTable[{Labeled[GeoGraphics[{GeoPath/@(List@@@EdgeList[NearestNeighborGraph[landingSites,3]]),GeoDisk[#,]&/@landingSites},GeoRange"World",GeoProjectionprojection,ImageSize500],projection],projection},{projection,projections}];
NotebookDirectory[]
/Users/christopher/Dropbox/soyl/FromChristopher/Notebooks/
SetDirectory[NotebookDirectory[]];
Export["maps/maps2.pdf",Multicolumn[maps,2,FrameAll]]
maps/maps2.pdf
GeoGraphics[{Thickness[0.001],GeoPath/@(List@@@EdgeList[NearestNeighborGraph[landingSites,3]]),GeoDisk[#,]&/@landingSites},GeoRange"World",GeoBackgroundGeoStyling["StreetMapNoLabels"],ImageSize1000]