#VRML V2.0 utf8

# London:   latitude 51.5122, longitude -0.065
# New York: latitude 40.6698, longitude -73.943849
# Paris:    latitude 48.865,  longitude 2.35

EXTERNPROTO GeoPositionInterpolator [
  field        SFNode   geoOrigin
  field        MFString geoSystem
  field        MFFloat  key
  field        MFString keyValue
  eventIn      SFFloat  set_fraction
  eventOut     SFVec3f  value_changed
  eventOut     SFString geovalue_changed
] "http://www.ai.sri.com/geovrml/1.0/protos/GeoPositionInterpolator.wrl"

EXTERNPROTO GeoElevationGrid [
  field        SFNode   geoOrigin
  field        MFString geoSystem
  field        SFString geoGridOrigin
  field        SFInt32  xDimension
  field        SFString xSpacing
  field        SFInt32  zDimension
  field        SFString zSpacing
  field        MFFloat  height
  exposedField SFNode   color
  exposedField SFNode   texCoord
  exposedField SFNode   normal
  field        SFBool   normalPerVertex
  field        SFBool   ccw
  field        SFBool   colorPerVertex
  field        SFFloat  creaseAngle
  field        SFBool   solid
] "http://www.ai.sri.com/geovrml/1.0/protos/GeoElevationGrid.wrl"

EXTERNPROTO GeoViewpoint [
  field        SFNode     geoOrigin
  field        MFString   geoSystem
  field        SFString   position
  field        SFRotation orientation
  field        SFString   description
  exposedField SFFloat    fieldOfView
  exposedField SFBool     jump
  exposedField MFString   navType
  eventIn      SFBool     set_bind
  eventIn      SFString   set_position
  eventOut     SFTime     bindTime
  eventOut     SFBool     isBound
] "http://www.ai.sri.com/geovrml/1.0/protos/GeoViewpoint.wrl"


Group {
  children [

    GeoViewpoint {
       geoSystem [ "GDC" ]
       position "51.5122 -0.065 10000000"
       orientation 1 0 0 -1.57
       description "Initial GeoViewpoint"
    }

    Shape {
       appearance Appearance {
	  material Material { diffuseColor 0.8 1.0 0.3 }
	  texture ImageTexture { url "earth.jpg" }
       }
       geometry GeoElevationGrid {
	  geoSystem [ "GDC" ]
	  geoGridOrigin "-90 -180 0"
	  xDimension 11
	  zDimension 11
	  xSpacing "36"
	  zSpacing "18"
	  height [
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0
		  0 0 0 0 0 0 0 0 0 0 0 
		  0 0 0 0 0 0 0 0 0 0 0 ]
       }
    }
    
    DEF PI GeoPositionInterpolator {
      geoSystem "GDC"
      key [ 0.0  0.1  0.55  1.0 ]
      keyValue [ 
	"51.5122 -0.065     0",       # London
        "48.865   2.35      0",       # Paris
	"40.6698 -73.943849 0",       # New York
	"51.5122 -0.065     0",       # Back to London
      ]
    }
    DEF T Transform {
      children Shape {
	 appearance Appearance { material Material { diffuseColor 1 0 0 } }
        geometry Sphere { radius 100000 }
      }
    }
    DEF TS TimeSensor { 
       cycleInterval 8.0
       loop TRUE
    }
    Background { skyColor 1 1 1 }
    NavigationInfo { type [ "EXAMINE" "ANY" ] }
  ]
}

ROUTE TS.fraction_changed TO PI.set_fraction
ROUTE PI.value_changed TO T.translation