Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlay As IAgStkGraphicsTerrainOverlay = scene.CentralBodies.Earth.Terrain.AddUriString( _
    terrainFile)

Dim triangles As IAgStkGraphicsSurfaceTriangulatorResult = manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", positions)

Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()
DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Purple
mesh.Set(triangles)
manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager

Dim activator As IAgStkGraphicsProjectionRasterStreamPluginActivator = manager.Initializers.ProjectionRasterStreamPluginActivator.Initialize()
Dim proxy As IAgStkGraphicsProjectionRasterStreamPluginProxy = activator.CreateFromDisplayName("ProjectionRasterStreamPlugin.VBNET")

'
' Use reflection to set the plugin's properties
'
Dim plugin As Type = proxy.RealPluginObject.[GetType]()
plugin.GetProperty("RasterPath").SetValue(proxy.RealPluginObject, rasterFile, Nothing)

Dim rasterStream As IAgStkGraphicsRasterStream = proxy.RasterStream
rasterStream.UpdateDelta = 0.025

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(DirectCast(rasterStream, IAgStkGraphicsRaster))
Dim extent As Array = DirectCast(overlay, IAgStkGraphicsGlobeOverlay).Extent
Dim triangles As IAgStkGraphicsSurfaceTriangulatorResult = manager.Initializers.SurfaceExtentTriangulator.ComputeSimple("Earth", extent)
Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()
DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.2F
mesh.Texture = texture
mesh.Set(triangles)
manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayExtent As Array = DirectCast(overlay, IAgStkGraphicsGlobeOverlay).Extent
Dim triangles As IAgStkGraphicsSurfaceTriangulatorResult = manager.Initializers.SurfaceExtentTriangulator.ComputeSimple("Earth", overlayExtent)
Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.LoadFromStringUri( _
    textureFile)
Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()
DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.3F
mesh.Texture = texture
mesh.Set(triangles)
manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim cartographicExtent As Array = New Object() {-96, 22, -85, 28}

Dim triangles As IAgStkGraphicsSurfaceTriangulatorResult = manager.Initializers.SurfaceExtentTriangulator.ComputeSimple("Earth", cartographicExtent)

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.LoadFromStringUri( _
	textureFile)
Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()
DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.3F
mesh.Texture = texture
mesh.TextureFilter = manager.Initializers.TextureFilter2D.LinearRepeat
mesh.Set(triangles)
manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))


Friend Sub TimeChanged(scene As IAgStkGraphicsScene, root As AgStkObjectRoot, TimeEpSec As Double)
	'
	'  Translate the surface mesh every animation update
	'
	If m_Primitive IsNot Nothing Then
		Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager

		m_Translation = CSng(TimeEpSec)
		m_Translation /= 1000

		Dim transformation As New Matrix()
		transformation.Translate(-m_Translation, 0)
		' Sign determines the direction of apparent flow
		' Convert the matrix to an object array
		Dim transformationArray As Array = Array.CreateInstance(GetType(Object), transformation.Elements.Length)
		For i As Integer = 0 To transformationArray.Length - 1
			transformationArray.SetValue(DirectCast(transformation.Elements.GetValue(i), Object), i)
		Next

		DirectCast(m_Primitive, IAgStkGraphicsSurfaceMeshPrimitive).TextureMatrix = manager.Initializers.TextureMatrix.InitializeWithAffineTransform(transformationArray)
	End If
End Sub

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
'
' Load the UAV image where each corner maps to a longitude and latitude defined 
' in degrees below.
'
'    lower left  = (-0.386182, 42.938583)
'    lower right = (-0.375100, 42.929871)
'    upper right = (-0.333891, 42.944780)
'    upper left  = (-0.359980, 42.973438)
'

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.LoadFromStringUri( _
    textureFile)

'
' Define the bounding extent of the image.  Create a surface mesh that uses this 
' extent.
'
Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()
mesh.Texture = texture

Dim cartographicExtent As Array = New Object() {-0.386182, 42.929871, -0.333891, 42.973438}

Dim triangles As IAgStkGraphicsSurfaceTriangulatorResult = manager.Initializers.SurfaceExtentTriangulator.ComputeSimple("Earth", cartographicExtent)
mesh.Set(triangles)
DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.0F

'
' Create the texture matrix that maps the image corner points to their actual
' cartographic coordinates.  A few notes:
'
' 1. The TextureMatrix does not do any special processing on these values
'    as if they were cartographic coordinates.
'
' 2. Because of 1., the values only have to be correct relative to each
'    other, which is why they do not have to be converted to radians.
'
' 3. Because of 2., if your image straddles the +/- 180 degs longitude line, 
'    ensure that longitudes east of the line are greater than those west of
'    the line.  For example, if one point were 179.0 degs longitude and the
'    other were to the east at -179.0 degs, the one to the east should be
'    specified as 181.0 degs.
'

Dim c0 As Array = New Object() {-0.386182, 42.938583}
Dim c1 As Array = New Object() {-0.3751, 42.929871}
Dim c2 As Array = New Object() {-0.333891, 42.94478}
Dim c3 As Array = New Object() {-0.35998, 42.973438}

mesh.TextureMatrix = manager.Initializers.TextureMatrix.InitializeWithRectangles(c0, c1, c2, c3)

'
' Enable the transparent texture border option on the mesh so that the texture will not
' bleed outside of the trapezoid.
'
mesh.TransparentTextureBorder = True

'
' Add the surface mesh to the Scene manager
'
manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))