Create Animation by Interpolating Between Two Keyframes Snippet

///<summary>Creates an animation by interpolating between two keyframes in the globe. The animation makes the Globe layer transparent by interpolating between the keyframes.</summary>
/// 
///<param name="globe">An IGlobe interface</param>
///<param name="layer">An ILayer interface</param>
///  
///<remarks></remarks>
public void CreateAnimationByInterpolatingBetweenTwoKeyframes(ESRI.ArcGIS.GlobeCore.IGlobe globe, ESRI.ArcGIS.Carto.ILayer layer)
{
  ESRI.ArcGIS.GlobeCore.IGlobeDisplay globeDisplay = globe.GlobeDisplay;
  ESRI.ArcGIS.Analyst3D.IScene scene = globeDisplay.Scene;

  // Get a handle to the animation extension
  ESRI.ArcGIS.Analyst3D.IBasicScene2 basicScene2 = (ESRI.ArcGIS.Analyst3D.IBasicScene2)scene; // Explicit Cast
  ESRI.ArcGIS.Animation.IAnimationExtension animationExtension = basicScene2.AnimationExtension;

  // create an animation track
  ESRI.ArcGIS.Animation.IAGAnimationTrack agAnimationTrack = new ESRI.ArcGIS.Analyst3D.AnimationTrackClass();

  ESRI.ArcGIS.Animation.IAGAnimationTrackKeyframes agAnimationTrackKeyframes = (ESRI.ArcGIS.Animation.IAGAnimationTrackKeyframes)agAnimationTrack; //Explicit cast

  // set the type before adding keyframes
  ESRI.ArcGIS.Animation.IAGAnimationType agAnimationType = new ESRI.ArcGIS.GlobeCore.AnimationTypeGlobeLayerClass();
  agAnimationTrack.AnimationType = agAnimationType;

  // create four keyframes and add them to the track
  ESRI.ArcGIS.Animation.IAGKeyframe agKeyframe;

  System.Int32 nKeyframes = 4;
  System.Int32 numKeyframe;

  for (numKeyframe = 0; numKeyframe <= nKeyframes - 1; numKeyframe++)
  {
    agKeyframe = new ESRI.ArcGIS.GlobeCore.GlobeLayerKeyframeClass();
    agAnimationTrackKeyframes.InsertKeyframe(agKeyframe, -1);
    agKeyframe.TimeStamp = 1.0 * numKeyframe / (nKeyframes - 1); // set transparency values
    agKeyframe.set_PropertyValue(0, true); // set visibility
    agKeyframe.set_PropertyValue(1, 100 * numKeyframe / (nKeyframes - 1));   // set transparency
  }

  // set active properties in the track
  ESRI.ArcGIS.esriSystem.ILongArray longArray = new ESRI.ArcGIS.esriSystem.LongArrayClass();
  longArray.Add(0);
  longArray.Add(1);
  agAnimationTrackKeyframes.ActiveProperties = (ESRI.ArcGIS.esriSystem.ILongArray)longArray; // Explicit Cast

  // attach the track to the first layer in TOC
  agAnimationTrack.AttachObject(layer);

  // animation loop

  ESRI.ArcGIS.Animation.IAGAnimationContainer agAnimationContainer = animationExtension.AnimationTracks.AnimationObjectContainer;

  System.Double time;
  System.Double iteration;
  for (iteration = 0; iteration < 500; iteration++)
  {
    time = iteration / 500;
    // interpolate by using track
    agAnimationTrack.InterpolateObjectProperties(agAnimationContainer, time);
    globeDisplay.RefreshViewers();
  }
}

'''<summary>Creates an animation by interpolating between two keyframes in the globe. The animation makes the Globe layer transparent by interpolating between the keyframes.</summary>
''' 
'''<param name="globe">An IGlobe interface</param>
'''<param name="layer">An ILayer interface</param>
'''  
'''<remarks></remarks>
Public Sub CreateAnimationByInterpolatingBetweenTwoKeyframes(ByVal globe As ESRI.ArcGIS.GlobeCore.IGlobe, ByVal layer As ESRI.ArcGIS.Carto.ILayer)

  Dim globeDisplay As ESRI.ArcGIS.GlobeCore.IGlobeDisplay = globe.GlobeDisplay
  Dim scene As ESRI.ArcGIS.Analyst3D.IScene = globeDisplay.Scene

  ' Get a handle to the animation extension
  Dim basicScene2 As ESRI.ArcGIS.Analyst3D.IBasicScene2 = CType(scene, ESRI.ArcGIS.Analyst3D.IBasicScene2) '  Explicit Cast
  Dim animationExtension As ESRI.ArcGIS.Animation.IAnimationExtension = basicScene2.AnimationExtension

  ' create an animation track 
  Dim agAnimationTrack As ESRI.ArcGIS.Animation.IAGAnimationTrack = New ESRI.ArcGIS.Analyst3D.AnimationTrackClass

  Dim agAnimationTrackKeyframes As ESRI.ArcGIS.Animation.IAGAnimationTrackKeyframes = CType(agAnimationTrack, ESRI.ArcGIS.Animation.IAGAnimationTrackKeyframes) ' Explicit Cast

  ' set the type before adding keyframes
  Dim agAnimationType As ESRI.ArcGIS.Animation.IAGAnimationType = New ESRI.ArcGIS.GlobeCore.AnimationTypeGlobeLayerClass
  agAnimationTrack.AnimationType = agAnimationType

  ' create four keyframes and add them to the track
  Dim agKeyframe As ESRI.ArcGIS.Animation.IAGKeyframe

  Dim nKeyframes As System.Int32 = 4
  Dim numKeyframe As System.Int32

  For numKeyframe = 0 To nKeyframes - 1

    agKeyframe = New ESRI.ArcGIS.GlobeCore.GlobeLayerKeyframeClass
    agAnimationTrackKeyframes.InsertKeyframe(agKeyframe, -1)
    agKeyframe.TimeStamp = 1 * numKeyframe / (nKeyframes - 1) ' set transparency values
    agKeyframe.PropertyValue(0) = True ' set visibility
    agKeyframe.PropertyValue(1) = 100 * numKeyframe / (nKeyframes - 1) ' set transparency 

  Next numKeyframe

  ' set active properties in the track
  Dim longArray As ESRI.ArcGIS.esriSystem.ILongArray = New ESRI.ArcGIS.esriSystem.LongArrayClass
  longArray.Add(0)
  LongArray.Add(1)
  agAnimationTrackKeyframes.ActiveProperties = CType(LongArray, ESRI.ArcGIS.esriSystem.ILongArray) ' Explicit Cast

  ' attach the track to the first layer in TOC
  agAnimationTrack.AttachObject(layer)
  Dim agAnimationContainer As ESRI.ArcGIS.Animation.IAGAnimationContainer = animationExtension.AnimationTracks.AnimationObjectContainer

  ' animation loop
  Dim time As System.Double
  Dim iteration As System.Double

  For iteration = 0 To 500

    time = iteration / 500
    '  interpolate by using track
    agAnimationTrack.InterpolateObjectProperties(agAnimationContainer, time)
    globeDisplay.RefreshViewers()

  Next iteration

End Sub