From 4746c268247e60d7479fb71d858aae0f2a329476 Mon Sep 17 00:00:00 2001
From: Adam Frisby <adam@gwala.net>
Date: Fri, 14 Mar 2008 19:50:11 +0000
Subject: [PATCH] * Fix for Justincc's bug report #768 - Terrain looks rather
 phallic.

---
 .../Region/Environment/Modules/Terrain/TerrainChannel.cs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/OpenSim/Region/Environment/Modules/Terrain/TerrainChannel.cs b/OpenSim/Region/Environment/Modules/Terrain/TerrainChannel.cs
index 64e86689fe..e644a960e6 100644
--- a/OpenSim/Region/Environment/Modules/Terrain/TerrainChannel.cs
+++ b/OpenSim/Region/Environment/Modules/Terrain/TerrainChannel.cs
@@ -88,9 +88,12 @@ namespace OpenSim.Region.Environment.Modules.Terrain
             {
                 for (y = 0; y < Constants.RegionSize; y++)
                 {
-                    map[x, y] = 60.0 - // 60 = Sphere Radius
-                        ((x - (Constants.RegionSize / 2)) * (x - (Constants.RegionSize / 2)) +
-                        (y - (Constants.RegionSize / 2)) * (y - (Constants.RegionSize / 2)));
+                    map[x, y] = TerrainUtil.PerlinNoise2D(x, y, 3, 0.25) * 10;
+                    double spherFac = TerrainUtil.SphericalFactor(x, y, Constants.RegionSize, Constants.RegionSize, 20);
+                    if (map[x, y] < spherFac)
+                    {
+                        map[x, y] = spherFac;
+                    }
                 }
             }
         }