(*CommonGround-CODEFORVIDEODEMO*)(*Thiscoderunslocallyonyourcomputer.Useittorecordyourscreen.*)(*TheClouddeployreliesonpaidtiercomputationforGeoGraphics,pleaserefertothevideodemoforthefullexperience.*)Module[{c1,c2,name1,name2,flag1,flag2,blendedFlag,dist,map,chart,finalImage},(*---CONFIGURATION:CHOOSECOUNTRIESHERE---*)c1=Entity[,];c2=Entity[,];Print[<>CommonName[c1]<><>CommonName[c2]<>];(*1.PREPAREDATA*)name1=CommonName[c1];name2=CommonName[c2];(*2.FLAGS(Fusion)*)flag1=EntityValue[c1,];flag2=EntityValue[c2,];blendedFlag=Module[{f1,f2,mask},f1=RemoveAlphaChannel[ImageResize[flag1,{500,300}]];f2=RemoveAlphaChannel[ImageResize[flag2,{500,300}]];mask=LinearGradientImage[{Left,Right},{500,300}];ImagePad[ImageAdd[ImageMultiply[f1,mask],ImageMultiply[f2,ColorNegate[mask]]],5,White]];(*3.MAP(HighResolution)*)dist=GeoDistance[c1,c2];map=GeoGraphics[{Red,Thick,GeoPath[{c1,c2},],Black,PointSize[Large],GeoMarker[c1],GeoMarker[c2]},GeoBackground,ImageSize500,PlotLabelNone];(*4.CHART*)chart=BarChart[{QuantityMagnitude[EntityValue[c1,]],QuantityMagnitude[EntityValue[c2,]]},ChartLabels{name1,name2},PlotLabelStyle[,18,FontFamily],ColorFunction,ImageSize500];(*5.FINALPOSTERASSEMBLY*)finalImage=Column[{Style[,50,Bold,FontFamily,Darker[Blue]],Style[<>name1<><>name2,24,Gray],Spacer[20],Style[,14,Bold,Gray],blendedFlag,Spacer[20],Style[,14,Bold,Gray],Style[<>ToString[Round[QuantityMagnitude[dist]]]<>,18],map,Spacer[20],Style[,14,Bold,Gray],chart,Spacer[30],Style[,12,LightGray]},AlignmentCenter,BackgroundWhite,FrameTrue,FrameStyleLightGray,FrameMargins40];(*6.DISPLAYRESULT*)Rasterize[finalImage,,ImageResolution120]]
Generating report for: Brazil and United States...
Generating report for: Brazil and United States...
Out[]=
