anchor.diff:              Seq.fold
                   (fun (generatedMap, rand) coordinates ->
                       let (n, rand) = Rand.nextIntUnder 1 rand
  -                    if anAdjacentTileIs coordinates WaterTile buildBoundsC originalMap then
  -                        if n = 0 && Map.find coordinates generatedMap <> PathTile
  -                        then (Map.add coordinates WaterTile generatedMap, rand)
  -                        else (generatedMap, rand)
  +                    if n = 0 && Map.find coordinates generatedMap <> PathTile && anAdjacentTileIs coordinates WaterTile buildBoundsC originalMap
  +                    then (Map.add coordinates WaterTile generatedMap, rand)
                       else (generatedMap, rand))
                   (generatedMap, rand)
                   grid
  
positive.code:             Seq.fold
                  (fun (generatedMap, rand) coordinates ->
                      let (n, rand) = Rand.nextIntUnder 2 rand
                      if anAdjacentTileIs coordinates WaterTile buildBoundsC generatedMap then
                          if n = 0 && Map.find coordinates generatedMap <> PathTile
                          then (Map.add coordinates WaterTile generatedMap, rand)
                          else (generatedMap, rand)
                      else (generatedMap, rand))
                  (generatedMap, rand)
                  grid
  
negative.code:         let grid = makeGrid buildBoundsC
          Seq.fold
              (fun (generatedMap, rand) coordinates ->
                  let (n, rand) = Rand.nextIntUnder 3 rand
                  if n = 0 && Map.find coordinates originalMap <> PathTile && anAdjacentTileIs coordinates TreeTile buildBoundsC originalMap && MapBounds.isPointInBounds coordinates buildBoundsC
                  then (Map.add coordinates TreeTile generatedMap, rand)
                  else (generatedMap, Rand.advance rand))
              (generatedMap, rand)
              grid
  