FIX double slope creation near shore

git-svn-id: svn://tron.homeunix.org/simutrans/simutrans/trunk@7086 8aca7d54-2c30-db11-9de9-000461428c89