PlanetWithTerrainPatch:

% Generate vertices and faces for a planet patch with terrain.

 Adds a height map to a sphere to produce a 3D terrain map. 

 scale exaggerates the surface variations from a sphere to make them
 easier to see. 

 Rendering the planet is done with patch.

 patch('vertices',v,'faces',f,'facecolor',[0.5 0.5 0.5],...
         'facelighting','gouraud','linestyle','none');
 axis equal
 ambient = 0.2; diffuse = 1; specular = 0.0;
 material([ambient diffuse specular])

 This function will not handle the pole. use PlanetWithTerrain
 for orbits that go over the pole.

 p is an optional 3xn array of position vectors to be plotted.

 Type PlanetWithTerrainPatch for a model of the moon using
 Clementine data.
--------------------------------------------------------------------------
   Form:
   PlanetWithTerrainPatch( h, scale, p )
--------------------------------------------------------------------------

   ------
   Inputs
   ------
   h     (.)	 Height map data structure
               .r       (theta,lambda)   Distance from center
               .lambda	 (1,:)            Equatorial angle
               .theta   (1,:)            Angle from pole
               .rEq     (1,1)            Equatorial radius (m)
               .name    (1,:)            Planet name
   scale (1,1) Exaggerate the terrain by this factor
   p     (3,:)	Line to plot

   -------
   Outputs
   -------
   None

--------------------------------------------------------------------------

Children:

Common: Graphics/NewFig
Common: Graphics/TitleS
Common: Graphics/XLabelS
Common: Graphics/YLabelS
Common: Graphics/ZLabelS
SC: Ephem/RSHMoon