Sea Level Rise Visualisation

These figures animate sea level rise from \(-50 \) metres to \(50 \). Code below.

UK

Boston

Wick

Code for Figure

sealevelrise=15;
img= ImageCompose[ColorReplace[ReliefPlot[GeoElevationData[Interpreter["Country"]["UK"],UnitSystem->"Metric",GeoZoomLevel->8],DataReversed->True,PlotRange->{Full,Full,{0,All}},ColorFunction->"SandyTerrain",ImageSize->Full],White->Transparent],ColorReplace[ReliefPlot[GeoElevationData[Interpreter["Country"]["UK"],UnitSystem->"Metric",GeoZoomLevel->8],DataReversed->True,PlotRange->{Full,Full,{sealevelrise,All}},ImageSize->Full],White->Transparent]];