I tried to create a random map of the world. I expect a map of obvious boundaries to construct continents and oceans but this doesn't look easy. My code is below, but there should be better solutions.

SeedRandom[];
dataA = 17 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataB = 12 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataC = 23 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataD = 19 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataE = 22 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataF = 16 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataG = 28 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataH = 20 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataI = 18 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataJ = 12 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataK = 22 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataL = 20 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
dataM = 16 RandomFunction[WienerProcess[], {1, 1*10^4, .1}, 2];
Graphics[{Line[Transpose@dataA["States"]], 
  Line[Transpose@dataB["States"]], Line[Transpose@dataC["States"]], 
  Line[Transpose@dataD["States"]], Line[Transpose@dataE["States"]], 
  Line[Transpose@dataF["States"]], Line[Transpose@dataG["States"]], 
  Line[Transpose@dataH["States"]], Line[Transpose@dataI["States"]], 
  Line[Transpose@dataJ["States"]], Line[Transpose@dataK["States"]], 
  Line[Transpose@dataL["States"]], Line[Transpose@dataM["States"]]}, 
 Frame -> True, ImageSize -> Full]