Create Animation from Keyframes Snippet

///<summary>Creates an animation by changing and applying the keyframe in globe. The  animation rotates the globe by changing the GlobeCamera keyframe and applying it in globe.</summary>
/// 
///<param name="globe">An IGlobe interface</param>
///  
///<remarks></remarks>
public void CreateAnimationFromKeyframes(ESRI.ArcGIS.GlobeCore.IGlobe globe)
{
  // get Globe Camera in the globe display
  ESRI.ArcGIS.GlobeCore.IGlobeDisplay globeDisplay=globe.GlobeDisplay;

  ESRI.ArcGIS.Analyst3D.ISceneViewer sceneViewer=globeDisplay.ActiveViewer;
  ESRI.ArcGIS.Analyst3D.ICamera camera=sceneViewer.Camera;
  ESRI.ArcGIS.GlobeCore.IGlobeCamera globeCamera=(ESRI.ArcGIS.GlobeCore.IGlobeCamera)camera; // Explicit Cast

  // create keyframe
  ESRI.ArcGIS.Animation.IAGKeyframe agKeyframe=new ESRI.ArcGIS.GlobeCore.GlobeCameraKeyframeClass();

  // set active properties
  ESRI.ArcGIS.esriSystem.ILongArray longArray=new ESRI.ArcGIS.esriSystem.LongArrayClass();
  longArray.Add(4); // Observer Lat.
  longArray.Add(5); // Observer Lon.
  longArray.Add(6); // Observer Alt.
  agKeyframe.ActiveProperties=longArray;

  ESRI.ArcGIS.Animation.IAGAnimationType agAnimationType=new ESRI.ArcGIS.GlobeCore.AnimationTypeGlobeCameraClass();
  ESRI.ArcGIS.Animation.IAGAnimationTrack agAnimationTrack=new ESRI.ArcGIS.Animation.AGAnimationTrackClass();
  agAnimationTrack.AnimationType=agAnimationType;
  ESRI.ArcGIS.Animation.IAGAnimationContainer AGAnimationContainer=(ESRI.ArcGIS.Animation.IAGAnimationContainer)globe; // Explicit Cast

  // animation loop
  System.Double longitude;
  for (longitude=0; longitude <= 360; longitude++)
  {
    agKeyframe.set_PropertyValue(4, 0.0); // set latitude
    agKeyframe.set_PropertyValue(5, longitude); // set longitude
    agKeyframe.set_PropertyValue(6, 20000.0); // set altitude
    agKeyframe.Apply(agAnimationTrack, AGAnimationContainer, globeCamera); // apply it
    globeDisplay.RefreshViewers();
  }
}

'''<summary>Creates an animation by changing and applying the keyframe in globe. The  animation rotates the globe by changing the GlobeCamera keyframe and applying it in globe.</summary>
''' 
'''<param name="globe">An IGlobe interface</param>
'''  
'''<remarks></remarks>
Public Sub CreateAnimationFromKeyframes(ByVal globe As ESRI.ArcGIS.GlobeCore.IGlobe)

  ' get Globe Camera in the globe display
  Dim globeDisplay As ESRI.ArcGIS.GlobeCore.IGlobeDisplay=globe.GlobeDisplay

  Dim sceneViewer As ESRI.ArcGIS.Analyst3D.ISceneViewer=globeDisplay.ActiveViewer
  Dim camera As ESRI.ArcGIS.Analyst3D.ICamera=sceneViewer.Camera
  Dim globeCamera As ESRI.ArcGIS.GlobeCore.IGlobeCamera=CType(camera, ESRI.ArcGIS.GlobeCore.IGlobeCamera) ' Explicit Cast

  ' create keyframe
  Dim agKeyframe As ESRI.ArcGIS.Animation.IAGKeyframe=New ESRI.ArcGIS.GlobeCore.GlobeCameraKeyframeClass

  ' set active properties
  Dim longArray As ESRI.ArcGIS.esriSystem.ILongArray=New ESRI.ArcGIS.esriSystem.LongArrayClass
  LongArray.Add(4) ' Observer Lat.
  LongArray.Add(5) ' Observer Lon.
  LongArray.Add(6) ' Observer Alt.
  agKeyframe.ActiveProperties=LongArray

  Dim agAnimationType As ESRI.ArcGIS.Animation.IAGAnimationType=New ESRI.ArcGIS.GlobeCore.AnimationTypeGlobeCameraClass
  Dim agAnimationTrack As ESRI.ArcGIS.Animation.IAGAnimationTrack=New ESRI.ArcGIS.Animation.AGAnimationTrackClass
  agAnimationTrack.AnimationType=agAnimationType
  Dim agAnimationContainer As ESRI.ArcGIS.Animation.IAGAnimationContainer=CType(globe, ESRI.ArcGIS.Animation.IAGAnimationContainer) ' Explict Cast

  ' animation loop
  Dim longitude As System.Double

  For longitude=0 To 360

    agKeyframe.PropertyValue(4)=0 ' set latitude
    agKeyframe.PropertyValue(5)=longitude ' set longitude
    agKeyframe.PropertyValue(6)=20000 ' set altitude
    agKeyframe.Apply(agAnimationTrack, agAnimationContainer, globeCamera) ' apply it
    globeDisplay.RefreshViewers()

  Next longitude

End Sub