Visual Basic .NET Code Snippets

Introduction

The following code snippets demonstrate tasks that are commonly encountered when working with the STK Object Model.

How do I ...

Initialization

STK Objects

Area Target

Chain

Common

Access

Data Providers

Graphics

2D

3D

Object Coverage

Communications

Link Budget

Constellation

Coverage Definition

Graphics

Facility

Figure of Merit

MTO

Analysis

Graphics

3D

Place

Planet

Graphics

Radar

Probability of Detection

Scenario

Graphics

Object Management

Scenario Management

Sensor

Graphics

3D

Star

Target

Vehicles

Aircraft

Common

Attitude

Graphics

3D

Propagators

Astrogator

Ballistic

GPS

Great Arc

HPOP

J2 Perturbation

J4 Perturbation

LOP

Realtime

SGP4

Simple Ascent

SPICE

Ground Vehicle

Launch Vehicle

Missile

Satellite

Ship

STK Plugins

Attributes

Graphics

Bounding Sphere

Box Triangulator

Camera

Convolution Filter

Display Condition

DisplayConditions

Ellipsoid Triangulator

Extruded Polyline Triangulator

GlobeOverlays

Imaging

Jpeg2000 Writer

Model Primitive

Overlay

Path Point

Picking

Position Interpolator

Primitives

Composite Primitive

Marker Batch Primitive

Model Primitive

Path Primitive

Point Batch Primitive

Polyline Primitive

Solid Primitive

Surface Mesh Primitive

Text Batch Primitive

Triangle Mesh Primitive

Projection

Scene Manager

ScreenOverlays

Surface Extent Triangulator

Surface Polygon Triangulator

Surface Shapes

Texture Matrix

Texture Screen Overlays

VGT

Angle

Axes

CalcScalar

Condition

Event

EventArray

EventInterval

EventIntervalCollection

EventIntervalList

ParameterSet

Plane

Point

System

Vector

2D Windows

3D Windows

Utilities

Connect

Conversions

Graphics

Units

Calculations

Conversions

Preferences

Create instance of AgStkObjectRoot in STK Engine application

[Visual Basic .NET] Copy Code

' Before instantiating AgStkObjectRoot an instance of AgSTKXApplication or an STK X control must be created
Dim root As New AgStkObjectRoot()

Get a reference to the AgStkObjectRoot using the running STK instance

[Visual Basic .NET] Copy Code

' Get reference to running STK instance
Dim uiApplication As AgUiApplication = TryCast(System.Runtime.InteropServices.Marshal.GetActiveObject("STK11.Application"), AgUiApplication)

' Get our IAgStkObjectRoot interface
Dim stkRoot As IAgStkObjectRoot = TryCast(uiApplication.Personality2, IAgStkObjectRoot)

Get a reference to the AgStkObjectRoot with display alerts turned off.

[Visual Basic .NET] Copy Code

' Get reference to running STK instance
Dim uiApplication As AgUiApplication = TryCast(System.Runtime.InteropServices.Marshal.GetActiveObject("STK11.Application"), AgUiApplication)

'Create a new instance of the application model root object.
Dim uiApplication2 As AgUiApplication = TryCast(uiApplication.CreateApplication(), AgUiApplication)

'Set DisplayAlerts to false to suppress certain alerts and messages.
'This is useful when automating tasks.
uiApplication2.DisplayAlerts = False

' Get our IAgStkObjectRoot interface with display alerts turned off
Dim stkRoot As IAgStkObjectRoot = TryCast(uiApplication2.Personality2, IAgStkObjectRoot)

Start STK and get a reference to IAgStkObjectRoot

[Visual Basic .NET] Copy Code

' Create an instance of STK
Dim uiApplication As New AgUiApplication()
uiApplication.LoadPersonality("STK")
uiApplication.Visible = True

' Get our IAgStkObjectRoot interface
Dim stkRoot As IAgStkObjectRoot = TryCast(uiApplication.Personality2, IAgStkObjectRoot)

Create an area target (on the current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root

' Create the AreaTarget on the current scenario central body (use
' NewOnCentralBody to specify explicitly the central body)
Dim areaTarget As IAgAreaTarget = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eAreaTarget, "MyAreaTarget"), IAgAreaTarget)

Define area target boundary and position from list of lat/lon/alt

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root
' IAgAreaTarget areaTarget: AreaTarget object

' By using the fine grained interfaces,
' BeginUpdate/EndUpdate prevent intermediate redraws
root.BeginUpdate()
areaTarget.AreaType = AgEAreaType.ePattern
Dim patterns As IAgAreaTypePatternCollection = TryCast(areaTarget.AreaTypeData, IAgAreaTypePatternCollection)
patterns.Add(48.897, 18.637)
patterns.Add(46.534, 13.919)
patterns.Add(44.173, 21.476)
root.EndUpdate()

Define area target boundary and position from list of lat/lon/alt (using common tasks)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root
' IAgAreaTarget areaTarget: AreaTarget object

' By using the CommonTasks interface,
' make an array of lattitude and longitude boundary points
#If Not CSToJava Then
#Else
#End If
Dim boundary As Array = New Object(,) {{48.897, 18.637}, {46.534, 13.919}, {44.173, 21.476}}

' SetAreaTypePattern expects a two dimensional array of latitude and longitude values
#If Not CSToJava Then
areaTarget.CommonTasks.SetAreaTypePattern(boundary)
#Else
#End If

List all points in an area target

[Visual Basic .NET] Copy Code
' IAgAreaTarget areaTarget: AreaTarget object

If areaTarget.AreaType = AgEAreaType.ePattern Then
     ' Get IAgAreaTypePatternCollection interface from AreaTypeData
     Dim patternPoints As IAgAreaTypePatternCollection = TryCast(areaTarget.AreaTypeData, IAgAreaTypePatternCollection)

     ' ToArray returns a two dimensional array of latitude and longitude points
     Dim areaTargetPoints As Array = patternPoints.ToArray()

     Console.WriteLine("All points in Area Target")
     Dim i As Integer = 0
     While i < areaTargetPoints.GetLength(0)
          Console.WriteLine("  Latitude {0} Longitude: {1}", Convert.ToDouble(areaTargetPoints.GetValue(i, 0)), Convert.ToDouble(areaTargetPoints.GetValue(i, 1)))
          System.Threading.Interlocked.Increment(i)
     End While
End If

Set an elliptical area target

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root
' IAgAreaTarget areaTarget: AreaTarget object

' By using the fine grained interfaces,
' BeginUpdate/EndUpdate prevent intermediate redraws
root.BeginUpdate()
areaTarget.AreaType = AgEAreaType.eEllipse
Dim ellipse As IAgAreaTypeEllipse = TryCast(areaTarget.AreaTypeData, IAgAreaTypeEllipse)
ellipse.SemiMajorAxis = 85.25
' in km (distance dimension)
ellipse.SemiMinorAxis = 80.75
' in km (distance dimension)
ellipse.Bearing = 44
' in deg (angle dimension)
root.EndUpdate()

Set an elliptical area target (using common tasks)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root
' IAgAreaTarget areaTarget: AreaTarget object

' By using the CommonTasks interface
areaTarget.CommonTasks.SetAreaTypeEllipse(85.25, 80.75, 44)

Configure the chain compute time period.

[Visual Basic .NET] Copy Code
' IAgChain chain: Chain object

chain.SetTimePeriodType(AgEChTimePeriodType.eUserSpecifiedTimePeriod)
Dim userSpecifiedTimePeriod As IAgChUserSpecifiedTimePeriod = TryCast(chain.TimePeriod, IAgChUserSpecifiedTimePeriod)
userSpecifiedTimePeriod.TimeInterval.SetExplicitInterval("1 May 2015 04:00:00.000", "1 May 2015 05:00:00.000")

Create a chain (on the current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root

' Create the Chain on the current scenario central body (use
' NewOnCentralBody to specify explicitly the central body)
Dim chain As IAgChain = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eChain, "MyChain"), IAgChain)

Define and compute a chain (advance)

[Visual Basic .NET] Copy Code
' IAgChain chain: Chain object

' Remove all previous accesses
chain.ClearAccess()

' Add some objects to chain
chain.Objects.Add("Facility/fac1")
chain.Objects.Add("Satellite/sat1")
chain.Objects.Add("Satellite/sat2")
chain.Objects.Add("Aircraft/air1")

' Configure chain parameters
chain.AutoRecompute = False
chain.EnableLightTimeDelay = False
chain.TimeConvergence = 0.001
chain.DataSaveMode = AgEDataSaveMode.eSaveAccesses

' Specify our own time period
chain.SetTimePeriodType(AgEChTimePeriodType.eUserSpecifiedTimePeriod)

' Get chain time period interface
Dim chainUserTimePeriod As IAgChUserSpecifiedTimePeriod = TryCast(chain.TimePeriod, IAgChUserSpecifiedTimePeriod)
chainUserTimePeriod.SetTimePeriod("1 Jul 2005 12:00:00", "2 Jul 2005 12:00:00")

' Compute the chain
chain.ComputeAccess()

Define and compute a chain (basic)

[Visual Basic .NET] Copy Code
' IAgChain chain: Chain object

' Add some objects to chain (using STK path)
chain.Objects.Add("Facility/fac1")
chain.Objects.Add("Satellite/sat1")
chain.Objects.Add("Satellite/sat2")
chain.Objects.Add("Aircraft/air1")

' Compute the chain
chain.ComputeAccess()

Prints the strand intervals of chain object

[Visual Basic .NET] Copy Code
' IAgChain chain: Chain Object

Dim chainAsStkObject As IAgStkObject = TryCast(chain, IAgStkObject)

' Compute the chain access if not done already.
chain.ComputeAccess()

' Considered Start and Stop time
Console.WriteLine("Chain considered start time: {0}", chainAsStkObject.Vgt.Events("ConsideredStartTime").FindOccurrence().Epoch)
Console.WriteLine("Chain considered stop time: {0}", chainAsStkObject.Vgt.Events("ConsideredStopTime").FindOccurrence().Epoch)

Dim objectParticipationIntervals As IAgCrdnEventIntervalCollection = chainAsStkObject.Vgt.EventIntervalCollections("StrandAccessIntervals")
Dim intervalListResult As IAgCrdnIntervalsVectorResult = objectParticipationIntervals.FindIntervalCollection()

Dim i As Integer = 0
While i < intervalListResult.IntervalCollections.Count
     If intervalListResult.IsValid Then
          Console.WriteLine("Link Name: {0}", objectParticipationIntervals.Labels.GetValue(i))
          Console.WriteLine("--------------")
          Dim j As Integer = 0
          While j < intervalListResult.IntervalCollections(i).Count
               Dim startTime As Object = intervalListResult.IntervalCollections(i)(j).Start
               Dim stopTime As Object = intervalListResult.IntervalCollections(i)(j).[Stop]
               Console.WriteLine("Start: {0}, Stop: {1}", startTime, stopTime)
               System.Threading.Interlocked.Increment(j)
          End While
     End If
     System.Threading.Interlocked.Increment(i)
End While

Delete a STK Object

[Visual Basic .NET] Copy Code
' IAgStkObject stkObject: STK Object to be removed

stkObject.Unload()

Export a STK Object to a file

[Visual Basic .NET] Copy Code
' IAgStkObject stkObject: STK Object to be exported
' String outputPath: Output path

Dim fileNameWithoutExtension As String = Path.Combine(outputPath, "MySatellite1")
stkObject.Export(fileNameWithoutExtension)

Import an existing STK Object file into an object collection

[Visual Basic .NET] Copy Code
' IAgStkObjectCollection col: STK Object Collection
' String stkObjectLocation: Path of STK Object external file

col.ImportObject(stkObjectLocation)

Rename a STK Object

[Visual Basic .NET] Copy Code
' IAgStkObject stkObject: STK Object to be renamed

stkObject.InstanceName = "NewObjectName"

Set/Get the STK Object description

[Visual Basic .NET] Copy Code
' IAgStkObject stkobject: STK Object

' Set STK Object description
stkobject.LongDescription = "This is a very very very long description"
stkobject.ShortDescription = "This is a short description"

' Get STK Object description
Dim longDescription As String = stkobject.LongDescription
Dim shortDescription As String = stkobject.ShortDescription

Add an access constraint to an STK Object

[Visual Basic .NET] Copy Code
' IAgStkObject stkobject: STK Object

Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints

' Add constraints
accessConstraints.AddConstraint(AgEAccessConstraints.eCstrSunElevationAngle)

Add and configure a lighting condition access constraint

[Visual Basic .NET] Copy Code
' IAgAccessConstraintCollection accessConstraints: Access Constraint collection

' Condition constraint
Dim light As IAgAccessCnstrCondition = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLighting), IAgAccessCnstrCondition)
light.Condition = AgECnstrLighting.eDirectSun

Add and configure a LOS sun exclusion access constraint

[Visual Basic .NET] Copy Code
' IAgAccessConstraintCollection accessConstraints: Access Constraint collection

' Angle constraint
Dim cnstrAngle As IAgAccessCnstrAngle = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLOSSunExclusion), IAgAccessCnstrAngle)
cnstrAngle.Angle = 176

Add and configure a lunar elevation angle access constraint

[Visual Basic .NET] Copy Code
' IAgAccessConstraintCollection accessConstraints: Access Constraint collection

Dim minmax As IAgAccessCnstrMinMax = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLunarElevationAngle), IAgAccessCnstrMinMax)
minmax.EnableMin = True
minmax.Min = 11.1
minmax.EnableMax = True
minmax.Max = 88.8

Add and configure a sun elevation angle access constraint

[Visual Basic .NET] Copy Code
' IAgAccessConstraintCollection accessConstraints: Access Constraint collection

Dim minmax As IAgAccessCnstrMinMax = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrSunElevationAngle), IAgAccessCnstrMinMax)
minmax.EnableMin = True
minmax.Min = 22.2
minmax.EnableMax = True
minmax.Max = 77.7

Add and configure a third body obstruction access constraint

[Visual Basic .NET] Copy Code
' IAgAccessConstraintCollection accessconstraints: Access Constraint collection

' Get IAgAccessCnstrThirdBody interface
Dim thirdBodyConstraint As IAgAccessCnstrThirdBody = TryCast(accessconstraints.AddConstraint(AgEAccessConstraints.eCstrThirdBodyObstruction), IAgAccessCnstrThirdBody)

' AvailableObstructions returns a one dimensional array of obstruction paths
Dim availableArray As Array = thirdBodyConstraint.AvailableObstructions

' In this example add all available obstructions
Console.WriteLine("Available obstructions")
For Each available As String In availableArray
     Console.WriteLine(available)
     thirdBodyConstraint.AddObstruction(available)
Next

' AssignedObstructions returns a one dimensional array of obstruction paths
Dim assignedArray As Array = thirdBodyConstraint.AssignedObstructions

Console.WriteLine("Assigned obstructions")
For Each assigned As String In assignedArray
     Console.WriteLine(assigned)
Next

Add and configure an altitude access constraint

[Visual Basic .NET] Copy Code
' IAgAccessConstraintCollection accessConstraints: Access Constraint collection

' Attitude constraint
Dim altitude As IAgAccessCnstrMinMax = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrAltitude), IAgAccessCnstrMinMax)
altitude.EnableMin = True
altitude.Min = 20.5

Add multiple access constraints of the same type to an STK Object

[Visual Basic .NET] Copy Code
' IAgStkObject stkobject: STK Object

Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints

' Add constraints
' Only the eCstrApparentTime, eCstrDuration, eCstrGMT, eCstrIntervals, eCstrLocalTime constraint
' types can be added multiple times to the constraint collection.
accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLocalTime)
accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLocalTime)

Compute an access and get constraint data from data provider

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Compute Access between the facility and the satellite
Dim sat1 As IAgStkObject = root.GetObjectFromPath("Satellite/Satellite1")
Dim fac1 As IAgStkObject = root.GetObjectFromPath("Facility/Facility1")
Dim access As IAgStkAccess = sat1.GetAccessToObject(fac1)
access.ComputeAccess()

' Get the access intervals
Dim accessIntervals As IAgIntervalCollection = access.ComputedAccessIntervalTimes

' Set unit preferences - change to get your preferred units
root.UnitPreferences.SetCurrentUnit("Distance", "km")
root.UnitPreferences.SetCurrentUnit("Angle", "deg")
root.UnitPreferences.SetCurrentUnit("Time", "sec")
root.UnitPreferences.SetCurrentUnit("DateFormat", "UTCG")

' Extract the access intervals and the range information for each access interval
#If Not CSToJava Then
#Else
#End If
Dim dataPrvElements As Array = New Object() {"Time", "FromAngularRate", "FromRange"}

Dim dp As IAgDataPrvTimeVar = TryCast(access.DataProviders("Constraint Data"), IAgDataPrvTimeVar)

Dim index0 As Integer = 0
While index0 < accessIntervals.Count
     Dim startTime As Object = Nothing, stopTime As Object = Nothing

     #If Not CSToJava Then
     accessIntervals.GetInterval(index0, startTime, stopTime)
     #Else
     #End If

     Console.WriteLine("Access Interval #{0} - Start={1} Stop={2}", index0, startTime, stopTime)

     #If Not CSToJava Then
     Dim result As IAgDrResult = dp.ExecElements(startTime, stopTime, 60, dataPrvElements)
     #Else
     #End If

     Dim timeValues As Array = result.DataSets(0).GetValues()
     Dim fromAngularRateValues As Array = result.DataSets(1).GetValues()
     Dim fromRangeValues As Array = result.DataSets(2).GetValues()

     Dim index1 As Integer = 0
     While index1 < timeValues.GetLength(0)
          Console.WriteLine("{0}: FromAngularRate={1} FromRange={2}", timeValues.GetValue(index1), fromAngularRateValues.GetValue(index1), fromRangeValues.GetValue(index1))
          System.Threading.Interlocked.Increment(index1)
     End While

     Console.WriteLine()
     System.Threading.Interlocked.Increment(index0)
End While

Compute an access between two STK Objects (using IAgStkObject interface)

[Visual Basic .NET] Copy Code
' IAgStkObject stkObject1: STK Object
' IAgStkObject stkObject2: STK Object

' Get access by STK Object
Dim access As IAgStkAccess = stkObject1.GetAccessToObject(stkObject2)

' Compute access
access.ComputeAccess()

Compute an access between two STK Objects (using object path)

[Visual Basic .NET] Copy Code
' IAgStkObject stkObject: STK Object

' Get access by object path
Dim access As IAgStkAccess = stkObject.GetAccess("Facility/fac1")

' Compute access
access.ComputeAccess()

Compute an access for one point

[Visual Basic .NET] Copy Code
' IAgStkObject facility: Facility object

Dim onePtAccess As IAgOnePtAccess = facility.CreateOnePointAccess("Satellite/Satellite1")

' Configure properties (if necessary)
onePtAccess.StartTime = "1 Jan 2012 12:00:00.000"
onePtAccess.StopTime = "1 Jan 2012 13:00:00.000"
onePtAccess.StepSize = 120
onePtAccess.SummaryOption = AgEOnePtAccessSummary.eOnePtAccessSummaryDetailed

' Compute results
Dim results As IAgOnePtAccessResultCollection = onePtAccess.Compute()

' Print results
Dim i As Integer = 0
While i < results.Count
     Dim result As IAgOnePtAccessResult = results(i)

     Console.WriteLine("Time: {0}, HasAccess: {1}", result.Time, result.AccessSatisfied)

     Dim j As Integer = 0
     While j < result.Constraints.Count
          Dim constraint As IAgOnePtAccessConstraint = result.Constraints(j)
          Console.WriteLine("Constraint: {0}, Object {1}, Status {2}, Value {3}", constraint.Constraint, constraint.ObjectPath, constraint.Status, constraint.Value)
          System.Math.Max(System.Threading.Interlocked.Increment(j),j - 1)
     End While
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Compute and extract access interval times

[Visual Basic .NET] Copy Code
' IAgStkAccess access: Access calculation

' Get and display the Computed Access Intervals
Dim intervalCollection As IAgIntervalCollection = access.ComputedAccessIntervalTimes

' Set the intervals to use to the Computed Access Intervals
Dim computedIntervals As Array = intervalCollection.ToArray(0, -1)
#If Not CSToJava Then
access.SpecifyAccessIntervals(computedIntervals)
#Else
#End If

Configure the access analysis time period to specified time instants.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim uav As IAgStkObject = stkRoot.GetObjectFromPath("/Aircraft/UAV")
Dim sensor As IAgStkObject = stkRoot.GetObjectFromPath("/Aircraft/UAV/Sensor/UAVSensor")
Dim coloradoSprings As IAgStkObject = stkRoot.GetObjectFromPath("/Place/ColoradoSprings")

' For this code snippet, let's use the time interval when the UAV reached min and max altitude values.
' Note, this assumes time at min happens before time at max.
Dim timeOfAltMin As IAgCrdnEvent = uav.Vgt.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMin")
Dim timeOfAltMax As IAgCrdnEvent = uav.Vgt.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMax")

' Set the access time period with the times we figured out above.
Dim access As IAgStkAccess = sensor.GetAccessToObject(coloradoSprings)
access.AccessTimePeriod = AgEAccessTimeType.eUserSpecAccessTime
Dim accessTimePeriod As IAgAccessTimePeriod = TryCast(access.AccessTimePeriodData, IAgAccessTimePeriod)

accessTimePeriod.AccessInterval.State = AgECrdnSmartIntervalState.eCrdnSmartIntervalStateStartStop

Dim accessStartEpoch As IAgCrdnEventSmartEpoch = accessTimePeriod.AccessInterval.GetStartEpoch()
accessStartEpoch.SetImplicitTime(timeOfAltMin)
accessTimePeriod.AccessInterval.SetStartEpoch(accessStartEpoch)

Dim accessStopEpoch As IAgCrdnEventSmartEpoch = accessTimePeriod.AccessInterval.GetStopEpoch()
accessStopEpoch.SetImplicitTime(timeOfAltMax)
accessTimePeriod.AccessInterval.SetStopEpoch(accessStopEpoch)

Configure the access interval to the availability time span of the object where access is being computed to.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim satellite As IAgStkObject = stkRoot.GetObjectFromPath("/Satellite/GEO")
Dim otherObject As IAgStkObject = stkRoot.GetObjectFromPath("/Aircraft/UAV/Sensor/UAVSensor")
Dim access As IAgStkAccess = satellite.GetAccessToObject(otherObject)

access.AccessTimePeriod = AgEAccessTimeType.eUserSpecAccessTime
Dim accessTimePeriod As IAgAccessTimePeriod = TryCast(access.AccessTimePeriodData, IAgAccessTimePeriod)

If otherObject.Vgt.EventIntervals.Contains("AvailabilityTimeSpan") Then
     Dim availabilityTimeSpan As IAgCrdnEventInterval = otherObject.Vgt.EventIntervals("AvailabilityTimeSpan")
     accessTimePeriod.AccessInterval.SetImplicitInterval(availabilityTimeSpan)
End If

Enumerate the available constraints collection

[Visual Basic .NET] Copy Code
' IAgAccessConstraintCollection accessConstraints: Access Constraint collection

' The AvailableConstraints method returns a rectangular two-dimensional array of available constraints.
' A row of the array consists of two elements where the first element is a symbolic name of the constraint,
' and the second is a corresponding enumeration value.

Dim arAvailable As Array = accessConstraints.AvailableConstraints()
Dim i As Integer = 0
While i < arAvailable.GetLength(0)
     Dim availName As String = DirectCast(arAvailable.GetValue(i, 0), String)
     Dim eAccessConstraint As AgEAccessConstraints = DirectCast(DirectCast(arAvailable.GetValue(i, 1), Integer), AgEAccessConstraints)
     Console.WriteLine(vbTab & "Constraint {0}: {1} ({2})", i, availName, eAccessConstraint)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

GetAccessBetweenObjectsByPath using the output of GetExistingAccesses

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim scenario As IAgScenario = TryCast(stkRoot.CurrentScenario, IAgScenario)
Dim accesses As Array = scenario.GetExistingAccesses()

Dim numAccesses As Integer = accesses.GetLength(0)
' number of accesses
Dim object1 As String = accesses.GetValue(0, 0).ToString()
' e.g. "Facility/Fac1"
Dim object2 As String = accesses.GetValue(0, 1).ToString()
' e.g. "Satellite/Sat1"
Dim computed As Boolean = DirectCast(accesses.GetValue(0, 2), Boolean)
' e.g. true  (if access has been computed)
Dim access As IAgStkAccess = scenario.GetAccessBetweenObjectsByPath(object1, object2)

List all exclusion zones of an access constraint

[Visual Basic .NET] Copy Code
' IAgAccessConstraintCollection accessconstraints: Access Constraint collection

Dim excZones As IAgAccessCnstrExclZonesCollection = TryCast(accessconstraints.GetActiveConstraint(AgEAccessConstraints.eCstrExclusionZone), IAgAccessCnstrExclZonesCollection)

If excZones IsNot Nothing Then
     ' ToArray returns a two dimensional array
     ' The second dimension is an array of minLon, minLat, maxLon, maxLat values
     Dim zones As Array = excZones.ToArray(0, -1)

     Dim i As Integer = 0
     While i < zones.GetUpperBound(0)
          Console.WriteLine("MinLon: {0}, MinLat: {1}, MaxLon: {2}, MaxLat {3}", zones.GetValue(i, 0), zones.GetValue(i, 1), zones.GetValue(i, 2), zones.GetValue(i, 3))
          System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
     End While
End If

Remove an access constraint from a STK Object

[Visual Basic .NET] Copy Code
' IAgStkObject stkobject: STK Object

Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints

' Remove constraints
accessConstraints.RemoveConstraint(AgEAccessConstraints.eCstrSunElevationAngle)

Coarse grain approach to retrieving a fixed data provider

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgStkObject facility: STK Object that contains fixed data provider

Dim dp As IAgDataPrvFixed = facility.DataProviders.GetDataPrvFixedFromPath("Terrain Info//LocalHorizontal")
Dim result As IAgDrResult = dp.Exec()

Coarse grain approach to retrieving a interval data provider

[Visual Basic .NET] Copy Code
' IAgStkObject facility: STK Object

Dim dp As IAgDataPrvInterval = facility.DataProviders.GetDataPrvIntervalFromPath("Lighting Times//Sunlight")
Dim result As IAgDrResult = dp.Exec("1 Jan 2012 12:00:00.000", "1 Jan 2012 12:00:20.000")

Coarse grain approach to retrieving a time var data provider

[Visual Basic .NET] Copy Code
' IAgStkObject facility: STK Object

Dim dp As IAgDataPrvTimeVar = facility.DataProviders.GetDataPrvTimeVarFromPath("Lighting AER")
Dim result As IAgDrResult = dp.Exec("1 Jan 2012 12:00:00.000", "1 Jan 2012 12:00:20.000", 60)

Coarse grain approach to retrieving data provider information

[Visual Basic .NET] Copy Code
' IAgStkObject facility: Facility STK Object

' The path separator is //
Dim dp As IAgDataProviderInfo = facility.DataProviders.GetDataPrvInfoFromPath("Lighting Times//Sunlight")
Dim dpiName As String = dp.Name
Dim dpiType As AgEDataProviderType = dp.Type
Dim isGroup As Boolean = dp.IsGroup()

Execute a non time dependent data provider (for instance facility position)

[Visual Basic .NET] Copy Code
' IAgStkObject facility: STK Object

Dim dpInfo As IAgDataPrvFixed = TryCast(facility.DataProviders("Cartesian Position"), IAgDataPrvFixed)
Dim resInfo As IAgDrResult = dpInfo.Exec()

Execute a non time dependent data provider (for instance facility position) and request only the specified elements

[Visual Basic .NET] Copy Code
' IAgStkObject facility: STK Object

#If Not CSToJava Then
#Else
#End If
Dim elems As Array = New Object() {"x", "z"}

Dim dpInfo As IAgDataPrvFixed = TryCast(facility.DataProviders("Cartesian Position"), IAgDataPrvFixed)

' ExecElements expects a one dimensional array of element names
#If Not CSToJava Then
Dim resInfo As IAgDrResult = dpInfo.ExecElements(elems)
#Else
#End If

Execute a time dependent data provider and request all elements for the specified time interval

[Visual Basic .NET] Copy Code
' IAgStkObject facility: STK Object

Dim dpInfo As IAgDataPrvTimeVar = TryCast(facility.DataProviders("Lighting AER"), IAgDataPrvTimeVar)
Dim resInfo As IAgDrResult = dpInfo.Exec("1 Jan 2012 12:00:00.000", "1 Jan 2012 12:00:20.000", 60)

Execute a time dependent data provider and returning all elements for a single time

[Visual Basic .NET] Copy Code
' IAgStkObject satellite: STK Object

Dim dp As IAgDataPrvTimeVar = TryCast(satellite.DataProviders("Precision Passes"), IAgDataPrvTimeVar)
Dim resInfo As IAgDrResult = dp.ExecSingle("1 Jan 2012 12:00:00.000")

Execute a time dependent data provider and returning the specified elements at the specified time

[Visual Basic .NET] Copy Code
' IAgStkObject satellite: STK Object

#If Not CSToJava Then
#Else
#End If
Dim times As Array = New Object() {"1 Jan 2012 12:00:00.000", "1 Jan 2012 12:00:20.000", "1 Jan 2012 12:00:40.000"}
#If Not CSToJava Then
#Else
#End If
Dim elems As Array = New Object() {"Time", "Precision Pass Number"}

Dim dp As IAgDataPrvTimeVar = TryCast(satellite.DataProviders("Precision Passes"), IAgDataPrvTimeVar)

' ExecSingleElementsArray expects each safe array parameter to be one dimensional,
' all arrays must have the same length
#If Not CSToJava Then
Dim resInfo As IAgDrTimeArrayElements = dp.ExecSingleElementsArray(times, elems)
#Else
#End If

Execute a time dependent data provider and returning the specified elements for a single time

[Visual Basic .NET] Copy Code
' IAgStkObject satellite: STK Object

#If Not CSToJava Then
#Else
#End If
Dim elems As Array = New Object() {"Time", "Precision Pass Number"}

Dim dp As IAgDataPrvTimeVar = TryCast(satellite.DataProviders("Precision Passes"), IAgDataPrvTimeVar)

' ExecSingleElements expects as the second parameter a one dimensional array of element names
#If Not CSToJava Then
Dim resInfo As IAgDrResult = dp.ExecSingleElements("1 Jan 2012 12:00:00.000", elems)
#Else
#End If

Execute a time dependent data provider which uses preData and returning the specified elements

[Visual Basic .NET] Copy Code
' IAgStkObject satObj: Satellite STK Object

#If Not CSToJava Then
#Else
#End If
Dim elems As Array = New Object() {"Range", "Radial Rate"}
Dim RICdp As IAgDataPrvTimeVar = TryCast(satObj.DataProviders("Relative Motion"), IAgDataPrvTimeVar)
TryCast(RICdp, IAgDataProvider).PreData = "Satellite/Satellite123"
Dim result As IAgDrResult = RICdp.ExecElements("26 Jan 2015 17:00:00.000", "27 Jan 2015 17:00:00.000", 120, elems)
Dim datasets As IAgDrDataSetCollection = result.DataSets

If result.DataSets.Count > 0 Then
     Dim arrayRange As System.Array = datasets(0).GetValues()
     Dim arrayRadialRate As System.Array = datasets(1).GetValues()
End If

Execute a time dependent group data provider which uses preData and returning the specified elements

[Visual Basic .NET] Copy Code
' IAgStkObject satObj: Satellite STK Object

#If Not CSToJava Then
#Else
#End If
Dim elems As Array = New Object() {"Time", "x", "y", "z"}
Dim dpVectorChoose As IAgDataProviderGroup = TryCast(satObj.DataProviders("Vector Choose Axes"), IAgDataProviderGroup)
Dim groupPosition As IAgDataProvider = TryCast(dpVectorChoose.Group("Position"), IAgDataProvider)
groupPosition.PreData = "Satellite/Sat2 Body"
Dim timeVarDP As IAgDataPrvTimeVar = TryCast(groupPosition, IAgDataPrvTimeVar)
Dim result As IAgDrResult = timeVarDP.ExecElements("26 Jan 2015 17:00:00.000", "27 Jan 2015 17:00:00.000", 120, elems)
Dim datasets As IAgDrDataSetCollection = result.DataSets

If result.DataSets.Count > 0 Then
     Dim arrayTime As System.Array = datasets(0).GetValues()
     Dim arrayX As System.Array = datasets(1).GetValues()
     Dim arrayY As System.Array = datasets(2).GetValues()
     Dim arrayZ As System.Array = datasets(2).GetValues()
End If

Execute an interval data provider (for instance access times) and returning all elements

[Visual Basic .NET] Copy Code
' IAgStkObject satellite: Satellite STK Object
' IAgStkObject areatarget: Area Target STK Object

Dim Access As IAgStkAccess = TryCast(satellite.GetAccessToObject(areatarget), IAgStkAccess)
Access.ComputeAccess()

Dim dpInfo As IAgDataPrvInterval = TryCast(Access.DataProviders("Access Data"), IAgDataPrvInterval)

Dim resInfo As IAgDrResult = dpInfo.Exec("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")

Execute an interval data provider (for instance access times) and returning only the specified elements

[Visual Basic .NET] Copy Code
' IAgStkObject satellite: Satellite STK Object
' IAgStkObject areatarget: Area Target STK Object

Dim access As IAgStkAccess = TryCast(satellite.GetAccessToObject(areatarget), IAgStkAccess)
access.ComputeAccess()

Dim dp As IAgDataPrvInterval = TryCast(access.DataProviders("Access Data"), IAgDataPrvInterval)

#If Not CSToJava Then
#Else
#End If
Dim elems As Array = New Object() {"Start Time", "Stop Time", "Access Number", "From Pass Number", "To Pass Number", "From Start Alt", _
     "From Stop Alt"}

' ExecElements expects the third parameter to be a one dimensional array of element names
#If Not CSToJava Then
Dim resInfo As IAgDrResult = dp.ExecElements("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000", elems)
#Else
#End If

Execute an object coverage data provider and dump its result

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object

Dim aircraft As IAgStkObject = root.CurrentScenario.Children("aircraft340")

Dim objectCoverage As IAgStkObjectCoverage = aircraft.ObjectCoverage
objectCoverage.Clear()
objectCoverage.Assets.Add("Constellation/gps_const")
objectCoverage.Compute()

Dim provider As IAgDataPrvTimeVar = TryCast(objectCoverage.DataProviders("FOM by Time"), IAgDataPrvTimeVar)

Dim result As IAgDrResult = provider.Exec("1 Jan 2012 12:00:00.00", "1 Jan 2012 13:00:00.00", 1)

For Each section As IAgDrSubSection In result.Sections
     For Each interval As IAgDrInterval In section.Intervals
          #If Not CSToJava Then
          #Else
          #End If
          Dim arBoundaries As Array = New Object() {1, 2, 3, 4, 5}

          ' MultipleThresholdCrossings expects the second parameter
          ' to be a one demensional array of boundary index values
          #If Not CSToJava Then
          Dim arRanges As Array = interval.MultipleThresholdCrossings("FOM Value", arBoundaries)
          #Else
          #End If

          Dim iRange As Integer = 0
          While iRange < arRanges.GetLength(0)
               Console.Write(vbLf & "Range: {0}" & vbLf, iRange)

               Dim arTimeSpans As Array = TryCast(arRanges.GetValue(iRange), Array)
               Dim iSpan As Integer = 0
               While iSpan < arTimeSpans.GetLength(0)
                    Dim strStart As String = arTimeSpans.GetValue(iSpan, 0).ToString()
                    Dim strStop As String = arTimeSpans.GetValue(iSpan, 1).ToString()

                    Console.Write("Start: {0}" & vbTab & "Stop: {1}" & vbLf, strStart, strStop)
                    System.Math.Max(System.Threading.Interlocked.Increment(iSpan),iSpan - 1)
               End While
               System.Math.Max(System.Threading.Interlocked.Increment(iRange),iRange - 1)
          End While
     Next
Next

Extract data from IAgDrDataSetCollection (generic)

[Visual Basic .NET] Copy Code
' IAgDrDataSetCollection datasets: Data provider data sets

For Each name As [String] In datasets.ElementNames
     'If the data set collection spans multiple intervals then the GetDataSetByName method will only
     'get the first intervals dataset.  See the Extract data from IAgDrDataSetCollection across
     'multiple intervals code snippet to see how to access all of the data sets in the result.
     Dim dataset As IAgDrDataSet = datasets.GetDataSetByName(name)

     Dim datasetValues As Array = dataset.GetValues()

     Console.WriteLine("{0}", dataset.ElementName)

     For Each value As Object In datasetValues
          Console.WriteLine(vbTab & "{0}", value.ToString())
     Next
Next

Extract data from IAgDrDataSetCollection across multiple intervals.

[Visual Basic .NET] Copy Code
' IAgDrDataSetCollection datasets: Data provider data sets

For Each [set] As IAgDrDataSet In datasets
     Console.WriteLine("{0}", [set].ElementName)
     For Each value As Object In [set].GetValues()
          Console.WriteLine(vbTab & "{0}", value.ToString())
     Next
Next

Extract data from IAgDrIntervalCollection (generic)

[Visual Basic .NET] Copy Code
' IAgDrIntervalCollection intervals: Data provider intervals

' Enumerate IAgDrIntervalCollection collection
For Each interval As IAgDrInterval In intervals
     Console.WriteLine("{0} - {1}", interval.StartTime, interval.StopTime)

     For Each dataset As IAgDrDataSet In interval.DataSets
          Dim values As Array = dataset.GetValues()

          Console.WriteLine("{0}", dataset.ElementName)

          For Each value As Object In values
               Console.WriteLine(vbTab & "{0}", value.ToString())
          Next
     Next
Next

Extract data from IAgDrResult based on its category (generic)

[Visual Basic .NET] Copy Code
' IAgDrResult result: Data provider result

' Look at the Category property to find out which interface to use
Select Case result.Category
     Case AgEDrCategories.eDrCatDataSetList
          Dim datasets As IAgDrDataSetCollection = result.DataSets
          ' See IAgDrDataSetCollection inteface
          Exit Select
     Case AgEDrCategories.eDrCatIntervalList
          Dim intervals As IAgDrIntervalCollection = result.Intervals
          ' See IAgDrIntervalCollection interface
          Exit Select
     Case AgEDrCategories.eDrCatMessage
          Dim message As IAgDrTextMessage = result.Message
          ' See IAgDrTextMessage interface
          Exit Select
     Case AgEDrCategories.eDrCatSubSectionList
          Dim section As IAgDrSubSectionCollection = result.Sections
          ' See IAgDrSubSectionCollection interface
          Exit Select
End Select

Extract data from IAgDrSubSectionCollection (generic)

[Visual Basic .NET] Copy Code
' IAgDrSubSectionCollection subSection: Subsection collection

For Each section As IAgDrSubSection In subSection
     Console.WriteLine(section.Title)

     For Each interval As IAgDrInterval In section.Intervals
          Console.WriteLine(vbTab & "Time {0} - {1}", interval.StartTime, interval.StopTime)

          For Each dataset As IAgDrDataSet In interval.DataSets
               Dim values As Array = dataset.GetValues()

               Console.WriteLine(vbTab & "{0}", dataset.ElementName)

               For Each value As Object In values
                    Console.WriteLine(vbTab & vbTab & "{0}", value.ToString())
               Next
          Next
     Next
Next

Extract data from IAgDrTextMessage (generic)

[Visual Basic .NET] Copy Code
' IAgDrTextMessage message: 

For Each messagei As Object In message.Messages
     Console.WriteLine(messagei)
Next

Set STK Object Display to always on

[Visual Basic .NET] Copy Code
' IAgStkObject stkObject: STK Object

Dim display As IAgDisplayTm = TryCast(stkObject, IAgDisplayTm)
display.SetDisplayStatusType(AgEDisplayTimesType.eAlwaysOn)

Set STK Object Display to use during access mode

[Visual Basic .NET] Copy Code
' IAgStkObject stkObject: STK Object

' Attempt to cast STK Object to the IAgDisplayTm interface
Dim display As IAgDisplayTm = TryCast(stkObject, IAgDisplayTm)
If display IsNot Nothing Then
     ' Configure during access
     If display.IsDisplayStatusTypeSupported(AgEDisplayTimesType.eDuringAccess) Then
          display.SetDisplayStatusType(AgEDisplayTimesType.eDuringAccess)

          Dim duringAccess As IAgDuringAccess = TryCast(display.DisplayTimesData, IAgDuringAccess)

          ' Add subsequent existing stk objects to access diplay ...
          duringAccess.AccessObjects.Add("Satellite/satellite1")
          duringAccess.AccessObjects.Add("Star/star1")
     End If
End If

Set STK Object Display to use intervals mode

[Visual Basic .NET] Copy Code
' IAgStkObject stkObject: STK Object

' Attempt to cast STK Object to the IAgDisplayTm interface
Dim display As IAgDisplayTm = TryCast(stkObject, IAgDisplayTm)
If display IsNot Nothing Then
     ' Configure display intervals
     If display.IsDisplayStatusTypeSupported(AgEDisplayTimesType.eUseIntervals) Then
          display.SetDisplayStatusType(AgEDisplayTimesType.eUseIntervals)

          ' Get IAgIntervalCollection interface
          Dim intervalCollection As IAgIntervalCollection = TryCast(display.DisplayTimesData, IAgIntervalCollection)
          intervalCollection.RemoveAll()

          ' Add subsequent intervals...
          intervalCollection.Add("1 Jan 2012 12:00:00.00", "1 Jan 2012 13:00:00.000")
     End If
End If

Set scenario display to hide and show STK Objects in a specified 2D window

[Visual Basic .NET] Copy Code
' IAgScenario scenario: Scenario object

Dim gfx As IAgScGraphics = scenario.Graphics

' Individually
gfx.HideObject("Facility/facility1", "all")
gfx.ShowObject("Facility/facility1", "1")

' In Batches
' HideObjects and ShowObjects expects as the first parameter a one dimensional array of object paths
#If Not CSToJava Then
#Else
#End If
Dim objects As Array = New Object() {"Facility/facility1", "Facility/facility2"}
#If Not CSToJava Then
gfx.HideObjects(objects, "1")
gfx.ShowObjects(objects, "all")
#Else
#End If

Configure 3D data display

[Visual Basic .NET] Copy Code
' IAgVODataDisplayCollection datadisplaycol: Data Display Collection

' Add existing data display
' See AvailableData property for available data display
Dim displayElement As IAgVODataDisplayElement = datadisplaycol.Add("Solar Intensity")

' Configure data display as needed
displayElement.TitleText = "Sol. Intensity"
displayElement.IsVisible = True
displayElement.Location = AgEVOLocation.e3DWindow
displayElement.FontColor = Color.White
displayElement.FontSize = AgEVOFontSize.eSmall
displayElement.UseBackground = True
displayElement.BgColor = Color.Orange
displayElement.UseAutoSizeWidth = False
displayElement.UseAutoSizeHeight = False
displayElement.BgHeight = 55
displayElement.BgWidth = 260
displayElement.BackgroundTranslucency = 0.5
displayElement.UseBackgroundTexture = False
displayElement.UseBackgroundBorder = True
displayElement.BackgroundBorderColor = Color.White

Configure 3D model articulations

[Visual Basic .NET] Copy Code
' IAgVOModel model: VO Model from an STK Object

' Configure articulation
Dim modelArticulation As IAgVOModelArtic = model.Articulation
modelArticulation.EnableDefaultSave = False
modelArticulation.EnableSaveArticFile = False

' Set our articulation and transformations
' For this sample, these articulations exist for a default satellite model
Dim levelOfDetail As Integer = 0
Dim articulation As String = "Satellite"
Dim transformation As String = "Size"


' Get the current transition value
Dim currentTransVal As Double = modelArticulation.GetTransValue(levelOfDetail, articulation, transformation)

' Change the value
Dim newTransVal As Double = currentTransVal * 0.5

' Set our new transition value
modelArticulation.SetTransValue(levelOfDetail, articulation, transformation, newTransVal)

Configure 3D model file

[Visual Basic .NET] Copy Code
' IAgVOModel model: VO model

' Set new ModelFile.Filename
model.ModelType = AgEModelType.eModelFile
Dim modelFile As IAgVOModelFile = TryCast(model.ModelData, IAgVOModelFile)
modelFile.Filename = "\STKData\VO\Models\Space\alexis.mdl"

' Configure basic settings
model.Visible = True
model.ScaleValue = 4.8

Configure 3D model level of detail

[Visual Basic .NET] Copy Code
' IAgVOModel model: VO Model from an STK Object

' Configure level of details
Dim detail As IAgVODetailThreshold = model.DetailThreshold
detail.EnableDetailThreshold = True

' (assuming unit preferences set to km)
detail.All = 2.51189
detail.ModelLabel = 158489
detail.MarkerLabel = 2511890
detail.Marker = 25110000
detail.Point = 1000000000000

Configure 3D vector

[Visual Basic .NET] Copy Code
' IAgVOVector vector: VO Vector

' See AvailableCrdns for supported elements
vector.RefCrdns.Add(AgEGeometricElemType.eVectorElem, DirectCast(m_Root.CentralBodies("Earth").Vgt.Vectors("Moon"), IAgCrdn).QualifiedPath)
vector.RefCrdns.Add(AgEGeometricElemType.eAxesElem, DirectCast(m_Root.CentralBodies("Moon").Vgt.Vectors("Position"), IAgCrdn).QualifiedPath)
vector.RefCrdns.Add(AgEGeometricElemType.eVectorElem, DirectCast(m_Root.CentralBodies("Sun").Vgt.Vectors("Velocity(Barycenter)"), IAgCrdn).QualifiedPath)

' Draw on Central Body
Dim body As IAgVORefCrdnVector = TryCast(vector.RefCrdns.GetCrdnByName(AgEGeometricElemType.eAxesElem, DirectCast(m_Root.CentralBodies("Earth").Vgt.Vectors("Moon"), IAgCrdn).QualifiedPath), IAgVORefCrdnVector)
DirectCast(body, IAgVORefCrdn).Color = Color.Yellow
body.DrawAtCB = True
body.Axes = "CentralBody/Earth Fixed Axes"
body.ArrowType = AgEArrowType.e3D

vector.ScaleRelativeToModel = True
vector.AngleSizeScale = 4.5
vector.ArrowPtSize = 11

List all 3D model articulations

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object
' IAgVOModel model: VO Model from an STK Object

' Enumerating through the transformation collection is helpful if you do not
' know what tranformations exist or their value ranges

Dim modelArticulation As IAgVOModelArtic = model.Articulation

Dim lod As Integer = 0
While lod < modelArticulation.LODCount
     ' Get all articulations
     ' GetAvailableArticulations returns a one dimensional array of articulation names
     Dim articulations As Array = modelArticulation.GetAvailableArticulations(lod)

     ' Enumerate through available articulations
     Dim articulation As Integer = 0
     While articulation < articulations.Length
          ' We need the articulation string to call the GetAvailableTransformations function
          Dim articulationString As [String] = TryCast(articulations.GetValue(articulation), [String])

          ' Get all transformations
          Dim transformations As IAgVOModelTransCollection = modelArticulation.GetAvailableTransformations(lod, articulationString)

          ' Enumerate through available transformations
          For Each trans As IAgVOModelTrans In transformations
               Console.WriteLine("Name: {0}, Current {1}, Max {2}, Min {3}", trans.Name, trans.Value, trans.Max, trans.Min)
          Next
          System.Math.Max(System.Threading.Interlocked.Increment(articulation),articulation - 1)
     End While
     System.Math.Max(System.Threading.Interlocked.Increment(lod),lod - 1)
End While

Sets the interval of the object coverage to the sunlight times of an object

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Root

' For this example, set the access times to use the light intervals of the area target.
Dim uavAircraft As IAgStkObject = root.GetObjectFromPath("Aircraft/UAV/Sensor/UAV_Camera")
Dim airspaceAreaTarget As IAgStkObject = root.GetObjectFromPath("AreaTarget/Airspace")

Dim firstSunlightEpoch As IAgCrdnEvent = airspaceAreaTarget.Vgt.Events("LightingIntervals.Sunlight.First.Start")
Dim lastSunlightEpoch As IAgCrdnEvent = airspaceAreaTarget.Vgt.Events("LightingIntervals.Sunlight.First.Stop")

uavAircraft.ObjectCoverage.UseObjectTimes = False
Dim startEpoch As IAgCrdnEventSmartEpoch = uavAircraft.ObjectCoverage.AccessInterval.GetStartEpoch()
startEpoch.SetImplicitTime(firstSunlightEpoch)

Dim stopEpoch As IAgCrdnEventSmartEpoch = uavAircraft.ObjectCoverage.AccessInterval.GetStopEpoch()
stopEpoch.SetImplicitTime(lastSunlightEpoch)

uavAircraft.ObjectCoverage.AccessInterval.SetStartAndStopEpochs(startEpoch, stopEpoch)

Compute a link budget for a Transmtiter and Receiver pair, using complex models

[Visual Basic .NET] Copy Code
' IAgTransmitter geoTransmitter: Transmitter object
' IAgReceiver facilityReceiver: Receiver object
' IAgAntenna facilityDish: Antenna object
' IAgRFEnvironment scenarioRFEnv: Scenario RF Environment

Dim xmtrAsStkObject As IAgStkObject = TryCast(geoTransmitter, IAgStkObject)
Dim rcvrAsStkObject As IAgStkObject = TryCast(facilityReceiver, IAgStkObject)

'Enable the rain loss computation on the scenario RF environment
scenarioRFEnv.PropagationChannel.EnableRainLoss = True

'Set the transmitter to the complex model
geoTransmitter.SetModel("Complex Transmitter Model")
Dim complexTrans As IAgTransmitterModelComplex = TryCast(geoTransmitter.Model, IAgTransmitterModelComplex)

'Set the complex transmitter model's frequency to 3.2 GHz
complexTrans.Frequency = 3.2

'Set the complex transmitter model's Power to 50 dBW
complexTrans.Power = 50

'Set the complex transmitter's embedded antenna model to helix
complexTrans.AntennaControl.SetEmbeddedModel("Helix")

'Set the beamwidth of the parablic antenna to 2 degrees
Dim helix As IAgAntennaModelHelix = TryCast(complexTrans.AntennaControl.EmbeddedModel, IAgAntennaModelHelix)
helix.NumberOfTurns = 30

'Orient the complex transmitter embedded antenna's boresight to point directly at the receiver's location
complexTrans.AntennaControl.EmbeddedModelOrientation.AssignAzEl(287.2, 83.4, AgEAzElAboutBoresight.eAzElAboutBoresightRotate)

'Set the receiver to the complex model
facilityReceiver.SetModel("Complex Receiver Model")
Dim complexRcvr As IAgReceiverModelComplex = TryCast(facilityReceiver.Model, IAgReceiverModelComplex)

'Configure the complex receiver to use the antenna object on the same parent facility, by linking
complexRcvr.AntennaControl.ReferenceType = AgEAntennaControlRefType.eAntennaControlRefTypeLink
complexRcvr.AntennaControl.LinkedAntennaObject = "Antenna/FacilityDish"

'Enable rain loss computation on the receiver
complexRcvr.UseRain = True
complexRcvr.RainOutagePercent = 0.001

'Enable the receiver system noise temperature computation.
complexRcvr.SystemNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate

'Enable the antenna noise temperature computation
complexRcvr.SystemNoiseTemperature.AntennaNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate
complexRcvr.SystemNoiseTemperature.AntennaNoiseTemperature.UseRain = True

'Orient the antenna object's boresight to point directly at the transmitter's location
facilityDish.Orientation.AssignAzEl(202.6, 41.2, AgEAzElAboutBoresight.eAzElAboutBoresightRotate)

'Set the antenna object's model to parabolic
facilityDish.SetModel("Parabolic")

'Set the antenan object's design frequency to match the transmitter's 3.2 GHz
facilityDish.Model.DesignFrequency = 3.2

'Set the antenna object's parabolic model diameter to 5 m.
Dim parabolic As IAgAntennaModelParabolic = TryCast(facilityDish.Model, IAgAntennaModelParabolic)
parabolic.InputType = AgEAntennaModelInputType.eAntennaModelInputTypeDiameter
parabolic.Diameter = 5

'Create an access object for the access between the transmitter and recevier objects
Dim linkAccess As IAgStkAccess = xmtrAsStkObject.GetAccessToObject(rcvrAsStkObject)

'Compute access
linkAccess.ComputeAccess()

' Get the access intervals
Dim accessIntervals As IAgIntervalCollection = linkAccess.ComputedAccessIntervalTimes

#If Not CSToJava Then
' Extract the access intervals and the range information for each access interval
Dim dataPrvElements As Array = New Object() {"Time", "Xmtr Gain", "Rcvr Gain", "Eb/No", "BER"}
#Else
#End If

Dim dp As IAgDataPrvTimeVar = TryCast(linkAccess.DataProviders("Link Information"), IAgDataPrvTimeVar)

Dim index0 As Integer = 0
While index0 < accessIntervals.Count
     Dim startTime As Object = Nothing, stopTime As Object = Nothing

     #If Not CSToJava Then
     accessIntervals.GetInterval(index0, startTime, stopTime)
     #Else
     #End If

     #If Not CSToJava Then
     Dim result As IAgDrResult = dp.ExecElements(startTime, stopTime, 60, dataPrvElements)
     #Else
     #End If

     Dim timeValues As Array = result.DataSets(0).GetValues()
     Dim xmtrGain As Array = result.DataSets(1).GetValues()
     Dim rcvrGain As Array = result.DataSets(2).GetValues()
     Dim ebno As Array = result.DataSets(3).GetValues()
     Dim ber As Array = result.DataSets(4).GetValues()

     Dim index1 As Integer = 0
     While index1 < timeValues.GetLength(0)
          Dim time As String = DirectCast(timeValues.GetValue(index1), String)
          Dim xmtrGainVal As Double = DirectCast(xmtrGain.GetValue(index1), Double)
          Dim rcvrGainVal As Double = DirectCast(rcvrGain.GetValue(index1), Double)
          Dim ebnoVal As Double = DirectCast(ebno.GetValue(index1), Double)
          Dim berVal As Double = DirectCast(ber.GetValue(index1), Double)
          Console.WriteLine("{0}: Xmtr Gain = {1} Rcvr Gain = {2} Eb/No={3} BER={4}", time, xmtrGainVal, rcvrGainVal, ebnoVal, berVal)
          System.Threading.Interlocked.Increment(index1)
     End While

     Console.WriteLine()
     System.Threading.Interlocked.Increment(index0)
End While

Compute a link budget for a Transmtiter and Receiver pair, using simple models

[Visual Basic .NET] Copy Code
' IAgTransmitter geoTransmitter: Transmitter object
' IAgReceiver facilityReceiver: Receiver object

Dim xmtrAsStkObject As IAgStkObject = TryCast(geoTransmitter, IAgStkObject)
Dim rcvrAsStkObject As IAgStkObject = TryCast(facilityReceiver, IAgStkObject)

'Set the transmitter to the simple model
geoTransmitter.SetModel("Simple Transmitter Model")
Dim simpleTrans As IAgTransmitterModelSimple = TryCast(geoTransmitter.Model, IAgTransmitterModelSimple)

'Set the simple transmitter model's frequency to 3.2 GHz
simpleTrans.Frequency = 3.2

'Set the simple transmitter model's EIRP to 60 dBW
simpleTrans.Eirp = 60

'Set the receiver to the simple model
facilityReceiver.SetModel("Simple Receiver Model")
Dim simpleRcvr As IAgReceiverModelSimple = TryCast(facilityReceiver.Model, IAgReceiverModelSimple)

'Set the simple receiver model's G/T to 60 dB/K
simpleRcvr.GOverT = 60

'Create an access object for the access between the transmitter and recevier objects
Dim linkAccess As IAgStkAccess = xmtrAsStkObject.GetAccessToObject(rcvrAsStkObject)

'Compute access
linkAccess.ComputeAccess()

' Get the access intervals
Dim accessIntervals As IAgIntervalCollection = linkAccess.ComputedAccessIntervalTimes

#If Not CSToJava Then
' Extract the access intervals and the range information for each access interval
Dim dataPrvElements As Array = New Object() {"Time", "Eb/No", "BER"}
#Else
#End If

Dim dp As IAgDataPrvTimeVar = TryCast(linkAccess.DataProviders("Link Information"), IAgDataPrvTimeVar)

Dim index0 As Integer = 0
While index0 < accessIntervals.Count
     Dim startTime As Object = Nothing, stopTime As Object = Nothing
     #If Not CSToJava Then
     accessIntervals.GetInterval(index0, startTime, stopTime)
     #Else
     #End If

     #If Not CSToJava Then
     Dim result As IAgDrResult = dp.ExecElements(startTime, stopTime, 60, dataPrvElements)
     #Else
     #End If

     Dim timeValues As Array = result.DataSets(0).GetValues()
     Dim ebno As Array = result.DataSets(1).GetValues()
     Dim ber As Array = result.DataSets(2).GetValues()

     Dim index1 As Integer = 0
     While index1 < timeValues.GetLength(0)
          Dim time As String = DirectCast(timeValues.GetValue(index1), String)
          Dim ebnoVal As Double = DirectCast(ebno.GetValue(index1), Double)
          Dim berVal As Double = DirectCast(ber.GetValue(index1), Double)
          Console.WriteLine("{0}: Eb/No={1} BER={2}", time, ebnoVal, berVal)
          System.Threading.Interlocked.Increment(index1)
     End While

     Console.WriteLine()
     System.Threading.Interlocked.Increment(index0)
End While

Add a STK Object to constellation using IAgStkObject interface

[Visual Basic .NET] Copy Code
' IAgConstellation constellation: Constellation object
' IAgStkObject alos: Satellite Object that is to be added to constellation

' Add object to constellation
constellation.Objects.AddObject(alos)

Add a STK Object to constellation using STK Object Path

[Visual Basic .NET] Copy Code
' IAgConstellation constellation: Constellation object

' Add object to constellation
constellation.Objects.Add("Satellite/Cameo")

Compute a coverage definition access

[Visual Basic .NET] Copy Code
' IAgCoverageDefinition coverageDefinition: Coverage Definition

' Set AutoRecomputer for Accesses
coverageDefinition.Advanced.AutoRecompute = False

' Compute
coverageDefinition.ComputeAccesses()

' Export to File
coverageDefinition.ExportAccessesAsText("MyAccess.txt")
coverageDefinition.ReloadAccesses()

' Clear accesses if necessary
'coverageDefinition.ClearAccesses();

Create a coverage definition (on the current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root

' Create the CoverageDefinition
Dim cd As IAgCoverageDefinition = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eCoverageDefinition, "cd1"), IAgCoverageDefinition)

Define a coverage definition assets

[Visual Basic .NET] Copy Code
' IAgCoverageDefinition coverageDefinition: Coverage definition object

Dim assetCollection As IAgCvAssetListCollection = coverageDefinition.AssetList
Dim assetName As String = "Satellite/sat1"
Dim subAssetName As String = "Facility/North"

' Remove asset collection if necessary
assetCollection.RemoveAll()

Dim satAsset1 As IAgCvAssetListElement = Nothing

' AvailableAssets returns a one dimensional array of assets
If Array.IndexOf(assetCollection.AvailableAssets, assetName) <> -1 Then
     ' Add assets to coverageDefintion
     If assetCollection.CanAssignAsset(assetName) Then
          satAsset1 = assetCollection.Add(assetName)

          ' Configure asset element
          satAsset1.Required = True
          satAsset1.Grouping = AgECvAssetGrouping.eGrouped
     End If

     ' Add subassets to assets
     If satAsset1.ContainsSubAssets() Then
          Dim subAssetCollection As IAgCvAssetListCollection = satAsset1.SubAssetList
          If subAssetCollection.CanAssignAsset(subAssetName) Then
               assetCollection.Add(subAssetName)
          End If
     End If
End If

Define a coverage definition by points

[Visual Basic .NET] Copy Code
' IAgCoverageDefinition coverageDefinition: Coverage Definition
' String regionFilePath: Path of region file

' Get the IAgCvGrid interface
Dim cvGrid As IAgCvGrid = coverageDefinition.Grid

' Define custom region
cvGrid.BoundsType = AgECvBounds.eBoundsCustomRegions
Dim oBoundsCustom As IAgCvBoundsCustomRegions = TryCast(cvGrid.Bounds, IAgCvBoundsCustomRegions)
oBoundsCustom.RegionFiles.Add(regionFilePath)
oBoundsCustom.AreaTargets.Add("AreaTarget/AreaTarget1")

' Create an Array of LLA points
' Array should contain Lat, Lon, Alt values
#If Not CSToJava Then
#Else
#End If
Dim points As Array = New Object(,) {{69.346423789, -50.260748372, 0}, {39.613371741, -66.285429903, 0}, {39.880319688, -73.881767479, 0}, {40.700636942, -112.24999998, 0}}

' SetPointsLLA expects a two dimensional array of LLA points
#If Not CSToJava Then
coverageDefinition.PointDefinition.SetPointsLLA(points)
#Else
#End If

Define a custom grid using area targets

[Visual Basic .NET] Copy Code
' IAgCoverageDefinition coverageDefinition: Coverage Definition

' Get the IAgCvGrid interface
Dim cvGrid As IAgCvGrid = coverageDefinition.Grid

' Set bound region type to use custom regions
cvGrid.BoundsType = AgECvBounds.eBoundsCustomRegions

' Get IAgCvBoundsCustomRegions interface
Dim boundRegion As IAgCvBoundsCustomRegions = TryCast(cvGrid.Bounds, IAgCvBoundsCustomRegions)

' Add custom regions
boundRegion.AreaTargets.Add("AreaTarget/AreaTarget1")
boundRegion.AreaTargets.Add("AreaTarget/AreaTarget2")

Define a grid resolution by latitude and longitude

[Visual Basic .NET] Copy Code
' IAgCoverageDefinition coverageDefinition: Coverage definition object

' Get the IAgCvGrid interface
Dim grid As IAgCvGrid = coverageDefinition.Grid

' Set resolution type
grid.ResolutionType = AgECvResolution.eResolutionLatLon

' Get the resolution interface
Dim resolution As IAgCvResolution = grid.Resolution
Dim latLonResolution As IAgCvResolutionLatLon = TryCast(resolution, IAgCvResolutionLatLon)

' Assign LatLon used to define grid resolution
' Uses Angle Dimension
latLonResolution.LatLon = 3

Define and configure grid constraint options

[Visual Basic .NET] Copy Code
' IAgCoverageDefinition coverageDefinition: Coverage definition object

Dim pointDefinition As IAgCvPointDefinition = coverageDefinition.PointDefinition

' Set facility as object seed instance
pointDefinition.GridClass = AgECvGridClass.eGridClassFacility
pointDefinition.UseGridSeed = True
pointDefinition.SeedInstance = "Facility/North"

' Configure Altitude
pointDefinition.AltitudeMethod = AgECvAltitudeMethod.eAltitude
pointDefinition.Altitude = 0
coverageDefinition.PointDefinition.GroundAltitudeMethod = AgECvGroundAltitudeMethod.eCvGroundAltitudeMethodUsePointAlt

Set the coverage analysis time to the asset object time periods.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Root
' IAgCoverageDefinition coverage: An instance of the coverage definition object

Dim currentDateFormat As String = stkRoot.UnitPreferences.GetCurrentUnitAbbrv("DateFormat")

' For this example, we will set the coverage analysis time to the times the asset is available.
' Note, this doesn't handle subassets. To do that, you'll just have to iterate through the subasset list.
Dim minStartTime As IAgDate = Nothing
Dim maxStartTime As IAgDate = Nothing

For Each cvAsset As IAgCvAssetListElement In coverage.AssetList
     Dim subAsset As IAgStkObject = stkRoot.GetObjectFromPath(cvAsset.ObjectName)
     If subAsset.Vgt.EventIntervals.Contains("AvailabilityTimeSpan") Then
          Dim availableTimeSpan As IAgCrdnEventIntervalResult = subAsset.Vgt.EventIntervals("AvailabilityTimeSpan").FindInterval()
          Dim startDate As IAgDate = stkRoot.ConversionUtility.NewDate(currentDateFormat, availableTimeSpan.Interval.Start.ToString())
          If Not (minStartTime IsNot Nothing) OrElse startDate.OLEDate < minStartTime.OLEDate Then
               minStartTime = startDate
          End If

          Dim stopTime As IAgDate = stkRoot.ConversionUtility.NewDate(currentDateFormat, availableTimeSpan.Interval.[Stop].ToString())
          If Not (maxStartTime IsNot Nothing) OrElse stopTime.OLEDate > maxStartTime.OLEDate Then
               maxStartTime = stopTime
          End If
     End If
Next

If minStartTime IsNot Nothing AndAlso maxStartTime IsNot Nothing Then
     ' Now, that we have the minimum start time and the maximum stop time of the asset list, we can explicitly set the coverage analysis time.
     coverage.Interval.AnalysisInterval.SetExplicitInterval(minStartTime.Format(currentDateFormat), maxStartTime.Format(currentDateFormat))
End If

Console.WriteLine("Coverage Analysis Interval, StartTime = {0}, StopTime = {1}", coverage.Interval.AnalysisInterval.FindStartTime(), coverage.Interval.AnalysisInterval.FindStopTime())

Configure a coverage definition graphics

[Visual Basic .NET] Copy Code
' IAgCvGraphics cvGraphics: Coverage definition

' Configure animation
Dim cvAnimation As IAgCvGfxAnimation = cvGraphics.Animation
cvAnimation.IsSatisfactionVisible = True
cvAnimation.Color = Color.Green

' Configure progress
Dim cvProgress As IAgCvGfxProgress = cvGraphics.Progress
cvProgress.IsVisible = True
cvProgress.Color = Color.Red

' Configure static
Dim cvStatic As IAgCvGfxStatic = cvGraphics.[Static]
cvStatic.Color = Color.Blue
cvStatic.MarkerStyle = "Star"

Create a facility (on current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create a facility on current scenario central body
Dim facility As IAgFacility = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eFacility, "MyFacility"), IAgFacility)

Create a facility from facility database

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Get STK database location using Connect
Dim result As IAgExecCmdResult = root.ExecuteCommand("GetDirectory / Database Facility")
Dim facDataDir As String = result(0)
Dim filelocation As String = Path.Combine(facDataDir, "stkFacility.fd")

' Import object from database using Connect
Dim command As String = "ImportFromDB * Facility """ + filelocation + """ Class Facility SiteName Weilheim"
root.ExecuteCommand(command)

Dim facility As IAgFacility = TryCast(root.GetObjectFromPath("Facility/Weilheim"), IAgFacility)

Create a facility on Earth at lat/lon/alt

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim facility As IAgFacility = TryCast(root.CurrentScenario.Children.NewOnCentralBody(AgESTKObjectType.eFacility, "MyFacility", "Earth"), IAgFacility)

' Assuming unit preferences are set to radians for latitude and longitude and km for distance
facility.Position.AssignPlanetodetic(0.4506, -1.4011, 4)

Create a facility on specified central body at lat/lon/alt

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim facObject As IAgFacility = TryCast(root.CurrentScenario.Children.NewOnCentralBody(AgESTKObjectType.eFacility, "Facility1", "Mars"), IAgFacility)

' Assuming unit preferences are set to radians for latitude and longitude and km for distance
facObject.Position.AssignPlanetodetic(-5.4245, 0.1902, 0)

Move a facility while use terrain option is set true

[Visual Basic .NET] Copy Code
' IAgFacility fac: Facility object

' Set altitude automatically by using terrain data
fac.UseTerrain = True

' Set the position ignores the altitude value in AssignGeodetic
fac.Position.AssignGeodetic(29.98, -90.25, 9)

' Ignores the altitude value in AssignGeocentric
fac.Position.AssignGeocentric(32.12, -110.93, 787)

' Ignores the radius value in AssignSpherical
fac.Position.AssignSpherical(40.65, -73.78, 7)

Configure access duration figure of merit

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

' Set figure of merit defintion to eFmAccessDuration
fom.SetDefinitionType(AgEFmDefinitionType.eFmAccessDuration)

' Get IAgFmDefCompute interface
Dim defComp As IAgFmDefCompute = TryCast(fom.Definition, IAgFmDefCompute)

If defComp.IsComputeTypeSupported(AgEFmCompute.ePercentAbove) Then
     ' Set Compute type to supported compute option
     defComp.SetComputeType(AgEFmCompute.ePercentAbove)

     ' Get compute option compute interface
     Dim fomData As IAgFmDefDataPercentLevel = TryCast(defComp.Compute, IAgFmDefDataPercentLevel)
     fomData.PercentLevel = 0.25
End If

Configure coverage time figure of merit

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

' Set figure of merit defintion to eFmCoverageTime
fom.SetDefinitionType(AgEFmDefinitionType.eFmCoverageTime)

' Get IAgFmDefCompute interface
Dim defComp As IAgFmDefCompute = TryCast(fom.Definition, IAgFmDefCompute)

If defComp.IsComputeTypeSupported(AgEFmCompute.eTotalTimeAbove) Then
     ' Set Compute type to supported compute option
     defComp.SetComputeType(AgEFmCompute.eTotalTimeAbove)

     ' Get compute option compute interface
     Dim fomData As IAgFmDefDataMinAssets = TryCast(defComp.Compute, IAgFmDefDataMinAssets)
     fomData.MinAssets = 15
End If

Configure figure of merit Age Of Data definition

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

' Get the IAgFmDefAgeOfData interface
fom.SetDefinitionType(AgEFmDefinitionType.eFmAgeOfData)
Dim ageOfData As IAgFmDefAgeOfData = TryCast(fom.Definition, IAgFmDefAgeOfData)

' Set the minimum number of assets for computing
ageOfData.MinAssets = 2

Configure figure of merit contours

[Visual Basic .NET] Copy Code
' IAgFmGfxContours contours: Figure of Merit properties

contours.IsVisible = True
contours.ContourType = AgEFmGfxContourType.eSmoothFill
contours.ColorMethod = AgEFmGfxColorMethod.eExplicit

' Add level ranges (batch)
contours.LevelAttributes.AddLevelRange(25, 35, 1)
Dim firstLevel As IAgFmGfxLevelAttributesElement = contours.LevelAttributes(0)
firstLevel.Color = Color.Blue

' Add one level (individually)
Dim level As IAgFmGfxLevelAttributesElement = contours.LevelAttributes.AddLevel(55)
level.Color = Color.Red

Configure figure of merit definition altitude access constraint

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

' Set access constraint defintion to altitude
fom.SetAccessConstraintDefinition(AgEFmConstraintName.eFmAltitude)

' Get IAgFmDefAccessConstraint interface
Dim defAccessCnstr As IAgFmDefAccessConstraint = TryCast(fom.Definition, IAgFmDefAccessConstraint)

' Confiure access constraint properties
defAccessCnstr.SetComputeType(AgEFmCompute.eMaximum)
defAccessCnstr.AcrossAssets = AgEFmAcrossAssets.eFmMinimum
defAccessCnstr.TimeStep = 60

Configure figure of merit Scalar Calculation definition

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

' Set the Scalar Calculation definition.
Dim scalarCalculation As IAgFmDefScalarCalculation = fom.SetScalarCalculationDefinition("CentralBody/Earth ElapsedTimeFromStart")

Configure figure of merit Scalar Calculation definition using VGT

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties
' IAgStkObjectRoot stkRoot: STK Object Model root

' Get the qualified path of a Scalar Calculation (e.g.
Dim provider As IAgCrdnProvider = stkRoot.VgtRoot.GetProvider("CentralBody/Sun")
Dim calcScalar As IAgCrdnCalcScalar = provider.CalcScalars(0)
Dim calcScalarQualifiedPath As String = TryCast(calcScalar, IAgCrdn).QualifiedPath

' Set the Scalar Calculation definition using the qualified path
Dim scalarCalculation As IAgFmDefScalarCalculation = fom.SetScalarCalculationDefinition(calcScalarQualifiedPath)

Configure figure of merit System Response Time

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

fom.SetDefinitionType(AgEFmDefinitionType.eFmSystemResponseTime)
Dim systemResponseTime As IAgFmDefSystemResponseTime = TryCast(fom.Definition, IAgFmDefSystemResponseTime)

systemResponseTime.CommandStationPath = "/Application/STK/Scenario/CodeSnippetScenario/Facility/Facility1"

Configure figure of merit System Response Time reset

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

fom.SetDefinitionType(AgEFmDefinitionType.eFmSystemResponseTime)
Dim systemResponseTime As IAgFmDefSystemResponseTime = TryCast(fom.Definition, IAgFmDefSystemResponseTime)

systemResponseTime.CommandStationPath = "NONE"

Create a figure of merit on a coverage definition

[Visual Basic .NET] Copy Code
' IAgCoverageDefinition covdef: Coverage Definition object

' Get the coverage definition as a IAgStkObject interface
Dim covdefObject As IAgStkObject = TryCast(covdef, IAgStkObject)

' Create the figure of merit
Dim fom As IAgFigureOfMerit = TryCast(covdefObject.Children.[New](AgESTKObjectType.eFigureOfMerit, "MyFigureOfMerit"), IAgFigureOfMerit)

Inspect grid by selecting a point

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

Dim gridInspector As IAgFmGridInspector = fom.GridInspector
gridInspector.SelectPoint(-13.864, -51.088)

Dim pointFom As IAgDataPrvTimeVar = TryCast(gridInspector.PointFOM, IAgDataPrvTimeVar)
Dim pointFomResult As IAgDrResult = pointFom.ExecSingle("1 Jan 2012 12:00:00.00")

Dim pointSatisfaction As IAgDataPrvInterval = TryCast(gridInspector.PointSatisfaction, IAgDataPrvInterval)
Dim pointSatisfactionResult As IAgDrResult = pointSatisfaction.Exec("1 Jan 2012 12:00:00.00", "2 Jan 2012 12:00:00.00")

Dim regionFom As IAgDataPrvTimeVar = TryCast(gridInspector.RegionFOM, IAgDataPrvTimeVar)
Dim regionFomResult As IAgDrResult = regionFom.ExecSingle("1 Jan 2012 12:00:00.00")

Dim regionSatisfaction As IAgDataPrvInterval = TryCast(gridInspector.RegionSatisfaction, IAgDataPrvInterval)
Dim regionSatisfactionResult As IAgDrResult = regionSatisfaction.Exec("1 Jan 2012 12:00:00.00", "2 Jan 2012 12:00:00.00")

Set the figure of merit definition to access constraint by enumeration

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

Dim acd As IAgFmDefAccessConstraint = fom.SetAccessConstraintDefinition(AgEFmConstraintName.eFmAzimuthRate)

Set the figure of merit definition to access constraint by name

[Visual Basic .NET] Copy Code
' IAgFigureOfMerit fom: Figure of Merit properties

Dim defAccessCnstr As IAgFmDefAccessConstraint = fom.SetAccessConstraintDefinitionName("AzimuthRate")

' Confiure access constraint properties
defAccessCnstr.SetComputeType(AgEFmCompute.eMaximum)
defAccessCnstr.AcrossAssets = AgEFmAcrossAssets.eFmMinimum
defAccessCnstr.TimeStep = 60

Add MTO track

[Visual Basic .NET] Copy Code
' IAgMto mto: MTO object

Dim trackCollection As IAgMtoTrackCollection = mto.Tracks

#If Not CSToJava Then
#Else
#End If
Dim time As Array = New Object() {"1 Jan 2012 12:10:00.000", "1 Jan 2012 12:20:00.000"}
#If Not CSToJava Then
#Else
#End If
Dim latitude As Array = New Object() {27.97, -26.51}
#If Not CSToJava Then
#Else
#End If
Dim longitude As Array = New Object() {-80.01, 119.42}
#If Not CSToJava Then
#Else
#End If
Dim altitude As Array = New Object() {20.1, 44.2}

' AddTrack expects each safe array parameter to be two dimensional,
' all arrays must have the same length
#If Not CSToJava Then
Dim track As IAgMtoTrack = trackCollection.AddTrack(1, time, latitude, longitude, altitude)
#Else
#End If

Configure MTO

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgMto mto: Mto Object

Dim scenario As IAgScenario = TryCast(root.CurrentScenario, IAgScenario)
scenario.SetTimePeriod("1 Feb 2008 12:00:00.000", "2 Feb 2008 12:00:00.000")

' Number of tracks and points to add
Dim trackCount As Double = 10
Dim pointCount As Double = 20

' Initial values from which we will interpolate
Dim lat0 As Double = 40.04
Dim lon0 As Double = -75.595
Dim alt0 As Double = 0

root.BeginUpdate()
' Call BeginUpdate for STK engine to delay updates
Dim i As Integer = 0
While i < trackCount
     Dim track As IAgMtoTrack = mto.Tracks.Add(i)
     Dim [date] As IAgDate = root.ConversionUtility.NewDate("UTCG", TryCast(scenario.StartTime, String))

     ' Interpolate mto points
     Dim j As Integer = 0
     While j < pointCount
          Dim lat As Double = lat0 + 1 * i
          Dim lon As Double = lon0 + 0.1 * j
          Dim alt As Double = alt0

          [date] = [date].Add("sec", 120)

          track.Points.AddPoint([date].Format("UTCG"), lat, lon, alt)
          System.Threading.Interlocked.Increment(j)
     End While
     System.Threading.Interlocked.Increment(i)
End While

root.EndUpdate()

Create a MTO (on current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create the MTO
Dim mto As IAgMto = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eMTO, "mto1"), IAgMto)

Extend MTO track

[Visual Basic .NET] Copy Code
' IAgMtoTrackPointCollection trackPointCollection: Track point collection

#If Not CSToJava Then
#Else
#End If
Dim time As Array = New Object() {"1 Jan 2012 12:20:00.000", "1 Jan 2012 12:30:00.000"}
#If Not CSToJava Then
#Else
#End If
Dim latitude As Array = New Object() {-18.35, 19.55}
#If Not CSToJava Then
#Else
#End If
Dim longitude As Array = New Object() {-42.1, 83.21}
#If Not CSToJava Then
#Else
#End If
Dim altitude As Array = New Object() {30.52, 15.81}

' Extend expects each parameter to be a two dimensional array,
' all arrays must have the same length
#If Not CSToJava Then
trackPointCollection.Extend(time, latitude, longitude, altitude)
#Else
#End If

Load MTO track points from file

[Visual Basic .NET] Copy Code
' IAgMtoTrack track: MTO track object
' String filePath: Path of ephemeris file

' LoadPoints expects the path an Ephemeris file path
track.Points.LoadPoints(filePath)

Remove MTO track

[Visual Basic .NET] Copy Code
' IAgMto mto: MTO object

Dim trackCollection As IAgMtoTrackCollection = mto.Tracks

' Build tracksToRemove Array
#If Not CSToJava Then
#Else
#End If
Dim tracksToRemove As Array = New Object() {trackCollection(0), trackCollection(1)}

' RemoveTracks expects a one dimensional array of IAgMtoTrack objects
#If Not CSToJava Then
trackCollection.RemoveTracks(tracksToRemove)
#Else
#End If

Remove MTO tracks by ids

[Visual Basic .NET] Copy Code
' IAgMto mto: MTO object

Dim trackCollection As IAgMtoTrackCollection = mto.Tracks

' RemoveTracksById expects a one dimensional array of mto track ids
#If Not CSToJava Then
#Else
#End If
Dim tracks As Array = New Object() {1, 4}
#If Not CSToJava Then
trackCollection.RemoveTracksById(tracks)
#Else
#End If

Compute MTO field of view

[Visual Basic .NET] Copy Code
' IAgMto mto: MTO object

Dim fov As IAgMtoAnalysisFieldOfView = mto.Analysis.FieldOfView

' AreTracksInFOV expects a one dimensional array of mto track ids
#If Not CSToJava Then
#Else
#End If
Dim tracks As Array = New Object() {1, 4}

#If Not CSToJava Then
Dim tracksInView As Boolean = fov.AreTracksInFOV(AgEMtoTrackEval.eMtoTrackEvalAny, tracks, "1 Jan 2012 12:00:00.000")
#Else
#End If

Compute MTO ranges

[Visual Basic .NET] Copy Code
' IAgMto mto: MTO object

Dim range As IAgMtoAnalysisRange = mto.Analysis.Range
range.StkObjectPath = "Satellite/J2Satellite"

' ComputeRanges expects a one dimensional array of mto track ids
' ComputeRanges returns a two dimensional array of track id, visibility, and range
#If Not CSToJava Then
#Else
#End If
Dim tracks As Array = New Object() {1, 4}

#If Not CSToJava Then
Dim result As Array = range.ComputeRanges(AgEMtoRangeMode.eMtoRangeModeEach, tracks, "1 Jan 2012 12:00:00.000")
#Else
#End If

' Print results
Dim i As Integer = 0
While i < result.GetLength(0)
     Console.WriteLine("Track #: {0}, Visible: {1}, Range: {2}", result.GetValue(i, 0), result.GetValue(i, 1), result.GetValue(i, 2))
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Compute visibility with MTO tracks

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgMto mto: MTO object to use for visibility analysis

' Are all the tracks visible from the other STK Object at the specified time?

Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility
mtoVisibility.UseTerrain = False
' Set to true to use terrain instead of line of sight.
mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial
' Only applies if MTO is static (i.e. non time dependent).
mtoVisibility.StkObjectPath = "Satellite/J2Satellite"
Dim allTracksAreVisible As Boolean = mtoVisibility.AreAllTracksVisible("1 Jan 2012 14:02:00.000")

Determine if all the specified tracks (i.e. a subset of the MTO tracks) are visible from the other STK Object at the specified time?

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgMto mto: MTO object to use for visibility analysis

Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility
mtoVisibility.UseTerrain = False
' Set to true to use terrain instead of line of sight.
mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial
' Only applies if MTO is static (i.e. non time dependent).
mtoVisibility.StkObjectPath = "Satellite/J2Satellite"

#If Not CSToJava Then
#Else
#End If
Dim tracksOfInterest As Array = New Object() {1, 2, 7}

' AreTracksVisible expects as the second parameter a one dimensional array of mto track ids
#If Not CSToJava Then
Dim areTracksAreVisible As Boolean = mtoVisibility.AreTracksVisible(AgEMtoTrackEval.eMtoTrackEvalAll, tracksOfInterest, "1 Jan 2012 12:02:00.000")
#Else
#End If

Determine if any track is visible from other STK Object at the specified time

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgMto mto: MTO object to use for visibility analysis

Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility
mtoVisibility.UseTerrain = False
' Set to true to use terrain instead of line of sight.
mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial
' Only applies if MTO is static (i.e. non time dependent).
mtoVisibility.StkObjectPath = "Satellite/J2Satellite"
Dim anyTrackIsVisible As Boolean = mtoVisibility.IsAnyTrackVisible("1 Jan 2012 14:02:00.000")

Determine which tracks are visible from the other STK Object at the specified time

[Visual Basic .NET] Copy Code
' IAgMto mto: MTO object to use for visibility analysis

Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility
mtoVisibility.UseTerrain = False
' Set to true to use terrain instead of line of sight.
mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial
' Only applies if MTO is static (i.e. non time dependent).
mtoVisibility.StkObjectPath = "Satellite/J2Satellite"

' ComputeAllTracks returns a two dimensional array whose elements are trackid and visibility
Dim trackVisibilityArray As Array = mtoVisibility.ComputeAllTracks(AgEMtoVisibilityMode.eVisibilityModeEach, "1 Jan 2008 12:00:00.000")

' Ouput results
Console.WriteLine("ComputeAllTracks:")
Dim i As Integer = 0
While i < trackVisibilityArray.GetLength(0)
     Console.WriteLine("   Track {0} visibility: {1}", Convert.ToInt32(trackVisibilityArray.GetValue(i, 0)), Convert.ToInt32(trackVisibilityArray.GetValue(i, 1)))
     System.Threading.Interlocked.Increment(i)
End While

Which tracks of the specified subset of tracks are visible from the other STK Object at the specified time?

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgMto mto: MTO object to use for visibility analysis

Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility
mtoVisibility.UseTerrain = False
' Set to true to use terrain instead of line of sight.
mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial
' Only applies if MTO is static (i.e. non time dependent).
#If Not CSToJava Then
#Else
#End If
Dim tracksOfInterest As Array = New Object() {1, 2, 7}

mtoVisibility.StkObjectPath = "Satellite/J2Satellite"

' ComputeTracks expects as the second parameter a one dimensional array of mto track ids
' ComputeTracks returns a two dimensional array whose values are track id and visiblity
#If Not CSToJava Then
Dim trackVisibilityArray As Array = mtoVisibility.ComputeTracks(AgEMtoVisibilityMode.eVisibilityModeEach, tracksOfInterest, "1 Jan 2012 12:05:00.000")
#Else
#End If

' Output results
Console.WriteLine("ComputeTracks:")
Dim i As Integer = 0
While i < trackVisibilityArray.GetLength(0)
     Console.WriteLine("   Track {0} visibility: {1}", Convert.ToInt32(trackVisibilityArray.GetValue(i, 0)), Convert.ToInt32(trackVisibilityArray.GetValue(i, 1)))
     System.Threading.Interlocked.Increment(i)
End While

Configure MTO graphics

[Visual Basic .NET] Copy Code
' IAgMto mto: Mto object

Dim tracks As IAgMtoVOTrackCollection = mto.VO.Tracks
For Each element As IAgMtoVOTrack In tracks
     element.Marker.PixelSize = 12
     element.Marker.OrientationMode = AgEVOMarkerOrientation.eVOMarkerOrientationAngle
     element.Marker.XOrigin = AgEVOMarkerOriginType.eRight
     element.Marker.YOrigin = AgEVOMarkerOriginType.eBottom
     element.Marker.Angle = 1.23

     element.Marker.MarkerType = AgEMarkerType.eImageFile
     element.Marker.SetMarkerImageFile("STKData\VO\Markers\Fire.ppm")

     element.Model.IsVisible = True
     element.Model.Filename = "STKData\VO\Models\Land\ariane-lp.mdl"
     element.Model.InitialBearing = 3
     element.Model.ScaleValue = 2
     element.Model.ZPointsNadir = True

     element.Label.Enable = True
     element.Label.X = 33.5
     element.Label.Y = 82.2
     element.Label.Z = 100
     element.Label.OffsetFrame = AgEOffsetFrameType.eOffsetFrameCartesian
Next

Configure MTO track marker

[Visual Basic .NET] Copy Code
' IAgMtoVOTrack track: Mto VO track properties

Dim marker As IAgMtoVOMarker = track.Marker
marker.PixelSize = 12
marker.OrientationMode = AgEVOMarkerOrientation.eVOMarkerOrientationAngle
marker.XOrigin = AgEVOMarkerOriginType.eRight
marker.YOrigin = AgEVOMarkerOriginType.eBottom
marker.Angle = 1.23
marker.MarkerType = AgEMarkerType.eImageFile
marker.SetMarkerImageFile("STKData\VO\Markers\Fire.ppm")

Configure MTO track model

[Visual Basic .NET] Copy Code
' IAgMtoVOTrack track: Mto VO track properties

Dim model As IAgMtoVOModel = track.Model
model.IsVisible = True
model.Filename = "STKData\VO\Models\Land\ariane-lp.mdl"
model.InitialBearing = 3
model.ScaleValue = 2
model.ZPointsNadir = True

Create a place (on current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create a place on current scenario central body
Dim place As IAgPlace = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.ePlace, "MyPlace"), IAgPlace)

Create a place from facility database

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Get STK database location using Connect
Dim result As IAgExecCmdResult = root.ExecuteCommand("GetDirectory / Database Facility")
Dim facDataDir As String = result(0)
Dim filelocation As String = Path.Combine(facDataDir, "stkFacility.fd")

' Import object from database using Connect
Dim command As String = "ImportFromDB * Facility """ + filelocation + """ Class Place SiteName Weilheim"
root.ExecuteCommand(command)

Dim place As IAgPlace = TryCast(root.GetObjectFromPath("Place/Weilheim"), IAgPlace)

Create a place on Earth at lat/lon/alt

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim place As IAgPlace = TryCast(root.CurrentScenario.Children.NewOnCentralBody(AgESTKObjectType.ePlace, "MyPlace", "Earth"), IAgPlace)

' Assuming unit preferences are set to radians for latitude and longitude and km for distance
place.Position.AssignPlanetodetic(0.4506, -1.4011, 4)

Create a place on specified central body at lat/lon/alt

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim placeObject As IAgPlace = TryCast(root.CurrentScenario.Children.NewOnCentralBody(AgESTKObjectType.ePlace, "Place1", "Mars"), IAgPlace)

' Assuming unit preferences are set to radians for latitude and longitude and km for distance
placeObject.Position.AssignPlanetodetic(-5.4245, 0.1902, 0)

Move a place while use terrain option is set true

[Visual Basic .NET] Copy Code
' IAgPlace place: Place object

' Set altitude automatically by using terrain data
place.UseTerrain = True

' Set the position ignores the altitude value in AssignGeodetic
place.Position.AssignGeodetic(29.98, -90.25, 9)

' Ignores the altitude value in AssignGeocentric
place.Position.AssignGeocentric(32.12, -110.93, 787)

' Ignores the radius value in AssignSpherical
place.Position.AssignSpherical(40.65, -73.78, 7)

Configure a planet

[Visual Basic .NET] Copy Code
' IAgPlanet planet: Planet

planet.PositionSource = AgEPlPositionSourceType.ePosCentralBody

' Get IAgPlPosCentralBody interface
Dim body As IAgPlPosCentralBody = TryCast(planet.PositionSourceData, IAgPlPosCentralBody)

body.AutoRename = False
body.CentralBody = "Jupiter"

' AvailableEphemSourceTypes is a one dimensional array of AgEEphemSourceType values
If Array.IndexOf(body.AvailableEphemSourceTypes, DirectCast(AgEEphemSourceType.eEphemAnalytic, Integer)) <> -1 Then
     body.EphemSource = AgEEphemSourceType.eEphemAnalytic
End If

Configure a planet position by ephemeris source file(using common tasks)

[Visual Basic .NET] Copy Code
' IAgPlanet planet: Planet
' String planetEphemeris: Planet Ephemeris file

' Position source files traditionally have .pe extensions
planet.CommonTasks.SetPositionSourceFile(planetEphemeris)

Configure a planet graphics

[Visual Basic .NET] Copy Code
' IAgPlGraphics graphics: Planet graphics

graphics.Inherit = False

graphics.Color = Color.Red
graphics.MarkerStyle = "Circle"
graphics.LineStyle = AgELineStyle.eMDashDot
graphics.LineWidth = AgELineWidth.e4

graphics.InertialPositionVisible = False
graphics.SubPlanetPointVisible = False
graphics.PositionLabelVisible = False
graphics.SubPlanetLabelVisible = False
graphics.OrbitVisible = True
graphics.OrbitDisplay = AgEPlOrbitDisplayType.eOrbitDisplayTime
Dim displayTime As IAgPlOrbitDisplayTime = TryCast(graphics.OrbitDisplayData, IAgPlOrbitDisplayTime)
displayTime.Time = 10000

Compute the probability of detection of a target for a monostatic search/track radar

[Visual Basic .NET] Copy Code
' IAgRadar radar: Radar object
' IAgAircraft targetAircraft: Aircraft object
' IAgRFEnvironment scenarioRFEnv: Scenario RF Environment

Dim rdrAsStkObject As IAgStkObject = TryCast(radar, IAgStkObject)
Dim tgtAsStkObject As IAgStkObject = TryCast(targetAircraft, IAgStkObject)

'Enable the rain loss computation on the scenario RF environment
scenarioRFEnv.PropagationChannel.EnableRainLoss = True

'Configure the radar object as a monostatic model.
radar.SetModel("Monostatic")
Dim monostaticModel As IAgRadarModelMonostatic = TryCast(radar.Model, IAgRadarModelMonostatic)

'Orient the radar antenna in the direction of the target
radar.Model.AntennaControl.EmbeddedModelOrientation.AssignAzEl(50.9, 36.8, AgEAzElAboutBoresight.eAzElAboutBoresightRotate)

'Set the radar antenna model to parabolic
radar.Model.AntennaControl.SetEmbeddedModel("Parabolic")
Dim parabolic As IAgAntennaModelParabolic = TryCast(radar.Model.AntennaControl.EmbeddedModel, IAgAntennaModelParabolic)

'Give the parabolic antenna a 2 deg beamwidth;
parabolic.InputType = AgEAntennaModelInputType.eAntennaModelInputTypeBeamwidth
parabolic.Beamwidth = 2

'Put the monostatic radar model in Search/Track mode
monostaticModel.SetMode("Search Track")
Dim searchTrackMode As IAgRadarModeMonostaticSearchTrack = TryCast(monostaticModel.Mode, IAgRadarModeMonostaticSearchTrack)

'Set the waveform type to fixed prf
searchTrackMode.SetWaveformType(AgERadarWaveformSearchTrackType.eRadarWaveformSearchTrackTypeFixedPRF)
Dim fixedPrf As IAgRadarWaveformMonostaticSearchTrackFixedPRF = TryCast(searchTrackMode.Waveform, IAgRadarWaveformMonostaticSearchTrackFixedPRF)
fixedPrf.PulseDefinition.Prf = 0.002
'2 kHz
'Set the pulse width to 1e-8 sec
fixedPrf.PulseDefinition.PulseWidth = 1E-08
'sec
'Set the number of pulses
fixedPrf.PulseDefinition.NumberOfPulses = 25

'Set the pulse integration strategy to goal SNR
fixedPrf.PulseIntegrationType = AgERadarPulseIntegrationType.eRadarPulseIntegrationTypeGoalSNR
Dim pulseIntGoalSNR As IAgRadarPulseIntegrationGoalSNR = TryCast(fixedPrf.PulseIntegration, IAgRadarPulseIntegrationGoalSNR)
pulseIntGoalSNR.SNR = 40
'dB
'Set the transmit frequency
monostaticModel.Transmitter.FrequencySpecification = AgERadarFrequencySpec.eRadarFrequencySpecFrequency
monostaticModel.Transmitter.Frequency = 2.1
'GHz
'Set the transmit power
monostaticModel.Transmitter.Power = 50
'dBW
'Enable rain loss computation on the receiver
monostaticModel.Receiver.UseRain = True
monostaticModel.Receiver.RainOutagePercent = 0.001

'Enable the receiver system noise temperature computation.
monostaticModel.Receiver.SystemNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate

'Enable the antenna noise temperature computation
monostaticModel.Receiver.SystemNoiseTemperature.AntennaNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate
monostaticModel.Receiver.SystemNoiseTemperature.AntennaNoiseTemperature.UseRain = True

'Don't inherit the radar cross section settings from the scenario
targetAircraft.RadarCrossSection.Inherit = False
Dim rcs As IAgRadarCrossSectionModel = TryCast(targetAircraft.RadarCrossSection.Model, IAgRadarCrossSectionModel)

'Set the radar cross section compute strategy to constan value
rcs.FrequencyBands(0).SetComputeStrategy("Constant Value")
Dim constValRcs As IAgRadarCrossSectionComputeStrategyConstantValue = TryCast(rcs.FrequencyBands(0).ComputeStrategy, IAgRadarCrossSectionComputeStrategyConstantValue)

'Set the constant radar cross section to 0.5 dBsm
constValRcs.ConstantValue = 0.5
'dBsm
'Create an access object for the access between the radar and target
Dim radarAccess As IAgStkAccess = rdrAsStkObject.GetAccessToObject(tgtAsStkObject)

'Compute access
radarAccess.ComputeAccess()

' Get the access intervals
Dim accessIntervals As IAgIntervalCollection = radarAccess.ComputedAccessIntervalTimes

#If Not CSToJava Then
' Extract the access intervals and the range information for each access interval
Dim dataPrvElements As Array = New Object() {"Time", "S/T SNR1", "S/T PDet1", "S/T Integrated SNR", "S/T Integrated PDet"}
#Else
#End If

Dim dp As IAgDataPrvTimeVar = TryCast(radarAccess.DataProviders("Radar SearchTrack"), IAgDataPrvTimeVar)

Dim index0 As Integer = 0
While index0 < accessIntervals.Count
     Dim startTime As Object = Nothing, stopTime As Object = Nothing
     #If Not CSToJava Then
     accessIntervals.GetInterval(index0, startTime, stopTime)
     #Else
     #End If

     #If Not CSToJava Then
     Dim result As IAgDrResult = dp.ExecElements(startTime, stopTime, 60, dataPrvElements)
     #Else
     #End If

     Dim timeValues As Array = result.DataSets.GetDataSetByName("Time").GetValues()
     Dim snr1 As Array = result.DataSets.GetDataSetByName("S/T SNR1").GetValues()
     Dim pdet1 As Array = result.DataSets.GetDataSetByName("S/T PDet1").GetValues()
     Dim integSnr As Array = result.DataSets.GetDataSetByName("S/T Integrated SNR").GetValues()
     Dim integPdet As Array = result.DataSets.GetDataSetByName("S/T Integrated PDet").GetValues()

     Dim index1 As Integer = 0
     While index1 < timeValues.GetLength(0)
          Dim time As String = DirectCast(timeValues.GetValue(index1), String)
          Dim snr1Val As Double = DirectCast(snr1.GetValue(index1), Double)
          Dim pdet1Val As Double = DirectCast(pdet1.GetValue(index1), Double)
          Dim integSnrVal As Double = DirectCast(integSnr.GetValue(index1), Double)
          Dim integPdetVal As Double = DirectCast(integPdet.GetValue(index1), Double)
          Console.WriteLine("{0}: SNR1={1} PDet1={2} Integrated SNR={3} Integrated PDet={4}", time, snr1Val, pdet1Val, integSnrVal, integPdetVal)
          System.Threading.Interlocked.Increment(index1)
     End While

     Console.WriteLine()
     System.Threading.Interlocked.Increment(index0)
End While

Add analytical terrain to the scenario on Earth central body

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' String terrainFile: Path of Terrain data file

' Retrieve the IAgScenario interface
Dim scenario As IAgScenario = TryCast(root.CurrentScenario, IAgScenario)

Dim terrainCollection As IAgCentralBodyTerrainCollection = scenario.Terrain
Dim elementCollection As IAgTerrainCollection = terrainCollection("Earth").TerrainCollection

' Add terrain data file to current scenario's terrain collection
' Terrain data files traditionally have .dte extensions
Dim terrain As IAgTerrain = elementCollection.Add(terrainFile, AgETerrainFileType.eMUSERasterFile)

' Set Scenario to use terrain data file
terrain.UseTerrain = True

Configure scenario animation

[Visual Basic .NET] Copy Code
' IAgScenario scenario: Scenario

Dim animation As IAgScAnimation = scenario.Animation

animation.StartTime = "1 Jun 2004 12:00:00.00"
animation.EnableAnimCycleTime = True
animation.AnimCycleType = AgEScEndLoopType.eEndTime
animation.AnimCycleTime = "2 Jun 2004 12:00:00.00"
animation.AnimStepValue = 1000
animation.RefreshDeltaType = AgEScRefreshDeltaType.eRefreshDelta
animation.RefreshDelta = 0.02

Configure scenario text font

[Visual Basic .NET] Copy Code
' IAgScenario scenario: Scenario

Dim fonts As IAgSc3dFont = scenario.VO.LargeFont

fonts.Bold = True
fonts.Italic = True
fonts.PtSize = AgESc3dPtSize.eSc3dFontSize36

If fonts.IsFontAvailable("Impact") Then
     fonts.Name = "Impact"
End If

' AvailableFonts returns a one dimensional array of font strings
Dim allFonts As Array = fonts.AvailableFonts
Dim index As Integer = Array.IndexOf(allFonts, "Courier")
If index <> -1 Then
     fonts.Name = TryCast(allFonts.GetValue(index), String)
End If

Add a new STK Object to the scenario

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

root.CurrentScenario.Children.[New](AgESTKObjectType.eShip, "Ship1")

Import an existing STK Object file into the scenario

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' String stkObjectLocation: Path of STK Object external file

root.CurrentScenario.Children.ImportObject(stkObjectLocation)

Retrieve the list of scenario's children of a given type

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' AgESTKObjectType type: Object type in scenario that we want to list

Dim allChildrenOfType As IAgStkObjectElementCollection = root.CurrentScenario.Children.GetElements(type)

For Each o As IAgStkObject In allChildrenOfType
     Console.WriteLine(o.InstanceName)
Next

Close a scenario

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

root.CloseScenario()

Create a new scenario (closing the current scenario if necessary)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Close current scenario
If root.CurrentScenario IsNot Nothing Then
     root.CloseScenario()
End If
root.NewScenario("Scenario1")

' Get IAgScenario interface
Dim scenario As IAgScenario = TryCast(root.CurrentScenario, IAgScenario)

' Set scenario start and stop times
scenario.SetTimePeriod("1 Jun 1999 12:00:00.00", "2 Jun 1999 12:00:00.00")

Load a scenario (closing the current scenario if necessary)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' String scenarioLocation: Specified path of scenario

' close current scenario
If root.CurrentScenario IsNot Nothing Then
     root.CloseScenario()
End If
root.LoadScenario(scenarioLocation)

Save a scenario

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

root.SaveScenario()

Save a scenario to a new location (Save as)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' String fileName: Specified path and file name of scenario

root.SaveScenarioAs(fileName)

Define a complex sensor

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

Dim patterndata As IAgSnComplexConicPattern = sensor.CommonTasks.SetPatternComplexConic(10, 70, 20, 220)
patterndata.AngularResolution = 0.5

Define a custom sensor

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object
' String sensorPatternPath: Path of Custom Sensor data file

' Set pattern type to Custom
Dim customPattern As IAgSnCustomPattern = sensor.CommonTasks.SetPatternCustom(sensorPatternPath)
customPattern.AngularResolution = 6
customPattern.UseNativeResolution = False

Define a half power sensor

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

' Configure pattern
Dim pattern As IAgSnHalfPowerPattern = sensor.CommonTasks.SetPatternHalfPower(12.5, 3.4, 6)

Define a SAR sensor

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

' Configure pattern
Dim patterndata As IAgSnSARPattern = sensor.CommonTasks.SetPatternSAR(10, 60, 40, 30, 700)

Define a simple conic sensor

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

Dim patternData As IAgSnSimpleConicPattern = sensor.CommonTasks.SetPatternSimpleConic(40, 0.1)

Define and compute sensor swath

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

' Configure swath display properties
Dim swath As IAgSwath = sensor.Swath
swath.Enable = True
swath.Color = Color.Red
' red
swath.LineStyle = AgELineStyle.eLMSDash
swath.LineWidth = AgELineWidth.e2

' New swath properties
swath.UseMaximumCone = True
swath.CurvatureTolerance = 90
swath.ScatteringTolerance = 70
swath.MinimumStep = 5
swath.MaximumStep = 10

swath.AddTimeInterval("1 Jan 2012 12:00:00.000", "1 Jan 2012 13:00:00.000")
swath.AddTimeInterval("1 Jan 2012 14:00:00.000", "1 Jan 2012 15:00:00.000")

Define external sensor pointing

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object
' String externalSensorPointingPath: Path of sensor external file

' Sensor pointing data files traditionally have .sp extensions
sensor.SetPointingExternalFile(externalSensorPointingPath)

Dim external As IAgSnPtExternal = TryCast(sensor.Pointing, IAgSnPtExternal)

Define fixed location

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

' Set sensor's location to fixed
sensor.SetLocationType(AgESnLocation.eSnFixed)

' Configure sensor location
Dim pos As IAgPosition = TryCast(sensor.LocationData, IAgPosition)
pos.AssignCartesian(595.2, -110.12, 4.6)

Define fixed sensor pointing

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

Dim fixedSensor As IAgSnPtFixed = sensor.CommonTasks.SetPointingFixedAzEl(4.5, -45, AgEAzElAboutBoresight.eAzElAboutBoresightRotate)

Define location from Vector Geometry Tool point

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

' Set location type to VGT
sensor.SetLocationType(AgESnLocation.eSnLocationCrdnPoint)

' Get IAgLocationCrdnPoint interface
Dim vgtPoint As IAgLocationCrdnPoint = TryCast(sensor.LocationData, IAgLocationCrdnPoint)

' point sensor to an already existing object
vgtPoint.PointPath = "Facility/Facility1 Center"

Define location on 3D model

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

' Set pointing type to 3d model
sensor.SetPointingType(AgESnPointing.eSnPt3DModel)

' Point to model attach point (in this example: "SolarArrays-000000")
Dim model As IAgSnPt3DModel = sensor.CommonTasks.SetPointing3DModel("Solar_PanelsNode")

Define sensor to use azimuth elevation mask file

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object
' String maskFilePath: Path to external az-el data file

' Specify Mask file
sensor.SetAzElMaskFile(maskFilePath)

' Get Mask File interface
Dim maskFile As IAgSnAzElMaskFile = TryCast(sensor.AzElMaskData, IAgSnAzElMaskFile)

' Configure MaskFile as needed
maskFile.BoresightAxis = AgESnAzElBsightAxisType.ePlus_MinusZ

Define spinning sensor pointing

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgSensor sensor: Sensor object

' Set pattern type to Spinning
sensor.SetPointingType(AgESnPointing.eSnPtSpinning)
Dim spinning As IAgSnPtSpinning = TryCast(sensor.Pointing, IAgSnPtSpinning)

' Configure sensor
spinning.SpinAxisAzimuth = 14.24
spinning.SpinAxisElevation = 7.68
spinning.SpinAxisConeAngle = 42.46
spinning.ScanMode = AgESnScanMode.eSnContinuous
spinning.SpinRate = 88.921
spinning.OffsetAngle = 110.44

Define spinning sensor pointing (using common tasks)

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

' Configure sensor (using common taks)
sensor.CommonTasks.SetPointingSpinning(14.24, 7.68, 42.46, AgESnScanMode.eSnContinuous, 88.921, 110.44, _
     1.2, 3.5)

Define targeted sensor pointing

[Visual Basic .NET] Copy Code
' IAgSensor sensor: Sensor object

Dim targetedSensor As IAgSnPtTargeted = sensor.CommonTasks.SetPointingTargetedTracking(AgETrackModeType.eTrackModeTransmit, AgEBoresightType.eBoresightLevel, "*/AreaTarget/AreaTarget1")

Configure sensor 3D projection

[Visual Basic .NET] Copy Code
' IAgSnVO sensorVo: Sensor VO object

sensorVo.ProjectionType = AgESnVOProjectionType.eProjectionAllIntersections
sensorVo.InheritFrom2D = AgESnVOInheritFrom2D.eSnVOInheritFrom2DExtentOnly
sensorVo.SpaceProjection = 2000

Configure basic properties

[Visual Basic .NET] Copy Code
' IAgStar star: Star object

' Units depend on current unit preferences
star.LocationDeclination = -40
star.LocationRightAscension = 120
' in arcSec
star.Magnitude = -1
star.Parallax = 0
' in arcSec
star.ProperMotionDeclination = 1.5
' in arcSec
star.ProperMotionRadialVelocity = 0.75
' in meters
star.ProperMotionRightAscension = -0.5
' in arcSec

Create a star (on current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create the Star
Dim star As IAgStar = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eStar, "MyStar"), IAgStar)

Create a star from a star database

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Import object from database using Connect
Dim command As String = "ImportFromDB * Star ScenarioCollection VisualMagnitude 0 1.0 RightAsc 200.0 230.0 Constellation ImportedFromStarDB"
root.ExecuteCommand(command)

Dim star As IAgStar = TryCast(root.GetObjectFromPath("Star/Star-65474"), IAgStar)

Change a target position

[Visual Basic .NET] Copy Code
' IAgTarget target: Target

Dim pos As IAgPosition = target.Position
pos.AssignGeodetic(39.95, 15.58, 231.54)

Configure a target from azimuth mask file

[Visual Basic .NET] Copy Code
' IAgTarget target: Target
' String maskfile: Path of maskfile

target.UseLocalTimeOffset = True
target.LocalTimeOffset = 200
target.UseTerrain = True
' Note, if SetAzElMask is set to a type other than AgEAzElMaskType.eMaskFile,
' the second parameter is ignored.
target.SetAzElMask(AgEAzElMaskType.eMaskFile, maskfile)
target.TerrainNorm = AgETerrainNormType.eSlopeAzimuth
target.AltRef = AgEAltRefType.eMSL
target.HeightAboveGround = 1472

Create a target (on the current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create the Target on the current scenario central body (use
' NewOnCentralBody to specify explicitly the central body)
Dim areaTarget As IAgTarget = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eAreaTarget, "MyAreaTarget"), IAgTarget)

Configure an aircraft route using the Great Arc propagator

[Visual Basic .NET] Copy Code
' IAgAircraft aircraft: Aircraft object

' Set ship route to great arc
aircraft.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)

' Retrieve propagator interface
Dim propagator As IAgVePropagatorGreatArc = TryCast(aircraft.Route, IAgVePropagatorGreatArc)
propagator.ArcGranularity = 51.333

' Set Ref type to WayPtAltRefTerrain and retreive IAgVeWayPtAltitudeRefTerrain interface
propagator.SetAltitudeRefType(AgEVeAltitudeRef.eWayPtAltRefTerrain)
Dim altRef As IAgVeWayPtAltitudeRefTerrain = TryCast(propagator.AltitudeRef, IAgVeWayPtAltitudeRefTerrain)
altRef.Granularity = 51.33
altRef.InterpMethod = AgEVeWayPtInterpMethod.eWayPtEllipsoidHeight

propagator.Method = AgEVeWayPtCompMethod.eDetermineTimeAccFromVel

' Add waypoints
Dim point1 As IAgVeWaypointsElement = propagator.Waypoints.Add()
point1.Latitude = 39.7674
point1.Longitude = -79.7292
point1.Altitude = 3
point1.Speed = 0.0772

Dim point2 As IAgVeWaypointsElement = propagator.Waypoints.Add()
point2.Latitude = 38.3721
point2.Longitude = -120.116
point2.Altitude = 3
point2.Speed = 0.0772

' Add more way points if necessary...

' Propagate
propagator.Propagate()

Set an aircraft to use Great Arc propagator

[Visual Basic .NET] Copy Code
' IAgAircraft aircraft: Aircraft object

' Set ship route to great arc
aircraft.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)

' Retrieve propagator interface
Dim propagator As IAgVePropagatorGreatArc = TryCast(aircraft.Route, IAgVePropagatorGreatArc)

Add ground ellipse element and data element

[Visual Basic .NET] Copy Code
' IAgVeGroundEllipsesCollection ellipsesCollection: Ellipses collection

' Add ground ellipse
Dim ellipse As IAgVeGroundEllipseElement = ellipsesCollection.Add("MyEllipses")

' Add ellipse data element
Dim element As IAgVeEllipseDataElement = ellipse.EllipseData.Add()

' Configure element properties
element.Time = "1 Jan 2012 12:00:00.000"
element.Latitude = 35.292
element.Longitude = -93.7299
element.SemiMajorAxis = 400
element.SemiMinorAxis = 300
element.Bearing = 35.71

Export a vehicle attitude to an external file

[Visual Basic .NET] Copy Code
' IAgScenario scenario: Current Scenario Object.
' IAgVeAttitudeExportTool attitudeExport: Attitude Export Tool

' Set and configure attitude coordinate axes
attitudeExport.SetCoordinateAxesType(AgEAttCoordinateAxes.eAttCoordinateAxesCustom)
Dim customAxes As IAgVeCoordinateAxesCustom = TryCast(attitudeExport.CoordinateAxes, IAgVeCoordinateAxesCustom)
customAxes.ReferenceAxesName = "CentralBody/Sun J2000 Axes"

attitudeExport.VersionFormat = AgEExportToolVersionFormat.eExportToolVersionFormatCurrent
attitudeExport.Include = AgEAttInclude.eAttIncludeQuaternionsAngularVelocity

' Set the attitude file to use Scenario start and stop time
attitudeExport.TimePeriod.TimePeriodType = AgEExportToolTimePeriod.eExportToolTimePeriodSpecify
attitudeExport.TimePeriod.Start = scenario.StartTime
attitudeExport.TimePeriod.[Stop] = scenario.StopTime

attitudeExport.StepSize.StepSizeType = AgEExportToolStepSize.eExportToolStepSizeSpecify
attitudeExport.StepSize.Value = 3600

' Save Attitude File
attitudeExport.Export("OMExternalFileAttitude.a")

Export a vehicle STK ephemeris to an external file

[Visual Basic .NET] Copy Code
' IAgScenario scenario: Scenario object
' IAgVeEphemerisStkExportTool stkEphem: STK Ephemeris Export Tool
' String ephemFilePath: The fully qualified file path where the Ephemeris is to be exported to

' set export parameters
stkEphem.CoordinateSystem = AgEStkEphemCoordinateSystem.eStkEphemCoordinateSystemFixed
stkEphem.IncludeInterp = True
stkEphem.VersionFormat = AgEExportToolVersionFormat.eExportToolVersionFormatCurrent
stkEphem.TimePeriod.TimePeriodType = AgEExportToolTimePeriod.eExportToolTimePeriodSpecify

' Set the ephemeris to the Scenario start and stop times
stkEphem.TimePeriod.Start = scenario.StartTime
stkEphem.TimePeriod.[Stop] = scenario.StopTime

stkEphem.StepSize.StepSizeType = AgEExportToolStepSize.eExportToolStepSizeEphem
stkEphem.Export(ephemFilePath)

Add attitude data based on a time-ordered set of Euler angles

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set Attitude to Standard
satellite.SetAttitudeType(AgEVeAttitude.eAttitudeStandard)
' Get IAgVeOrbitAttitudeStandard interface
Dim standard As IAgVeOrbitAttitudeStandard = TryCast(satellite.Attitude, IAgVeOrbitAttitudeStandard)

' Set Profile to Inertially Fixed
standard.Basic.SetProfileType(AgEVeProfile.eProfileInertiallyFixed)
' Get IAgVeProfileInertial interface
Dim interfix As IAgVeProfileInertial = TryCast(standard.Basic.Profile, IAgVeProfileInertial)

interfix.Inertial.AssignEulerAngles(AgEEulerOrientationSequence.e123, 20.1, 50, 20)

Add attitude data based on a time-ordered set of quaternions

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

satellite.SetAttitudeType(AgEVeAttitude.eAttitudeStandard)
Dim standard As IAgVeOrbitAttitudeStandard = TryCast(satellite.Attitude, IAgVeOrbitAttitudeStandard)
standard.Basic.SetProfileType(AgEVeProfile.eProfileInertiallyFixed)
Dim interfix As IAgVeProfileInertial = TryCast(standard.Basic.Profile, IAgVeProfileInertial)

interfix.Inertial.AssignQuaternion(-0.34298, -0.47081, 0.70345, 0.40725)

Add attitude data based on a time-ordered set of quaternions interpreted relative to CBF

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgSatellite satellite: Satellite object
' Array cpfQuaternion: Array that contains CPF Quaternion data

satellite.SetAttitudeType(AgEVeAttitude.eAttitudeRealTime)
Dim realtime As IAgVeAttitudeRealTime = TryCast(satellite.Attitude, IAgVeAttitudeRealTime)

Dim i As Integer = 0
While i < cpfQuaternion.GetUpperBound(0)
     realtime.AddCBFQuaternion(cpfQuaternion.GetValue(i, 0), DirectCast(cpfQuaternion.GetValue(i, 1), Double), DirectCast(cpfQuaternion.GetValue(i, 2), Double), DirectCast(cpfQuaternion.GetValue(i, 3), Double), DirectCast(cpfQuaternion.GetValue(i, 4), Double))
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Configure real-time attitude

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' set attitude type to real time
satellite.SetAttitudeType(AgEVeAttitude.eAttitudeRealTime)
Dim realtime As IAgVeAttitudeRealTime = TryCast(satellite.Attitude, IAgVeAttitudeRealTime)

' Set our Attitude Look Ahead method to Extrapolate
realtime.LookAheadMethod = AgEVeLookAheadMethod.eExtrapolate

' Duration
Dim duration As IAgVeDuration = realtime.Duration
duration.LookAhead = 1600
duration.LookBehind = 1600

' BlockFactor
realtime.BlockFactor = 40
realtime.DataReference.SetProfileType(AgEVeProfile.eProfileInertiallyFixed)

Set attitude profile type (if profile is supported)

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

Dim standard As IAgVeOrbitAttitudeStandard = TryCast(satellite.Attitude, IAgVeOrbitAttitudeStandard)
If standard.Basic.IsProfileTypeSupported(AgEVeProfile.eProfileSpinning) Then
     standard.Basic.SetProfileType(AgEVeProfile.eProfileSpinning)
End If

Configure access intervals graphics

[Visual Basic .NET] Copy Code
' IAgVeGfxAttributesAccess accessAttributes: Access Attributes graphics

accessAttributes.AccessObjects.Add("Satellite/sat1")

accessAttributes.DuringAccess.IsVisible = True
accessAttributes.DuringAccess.Color = Color.Yellow
accessAttributes.NoAccess.IsVisible = True
accessAttributes.NoAccess.Color = Color.Red

Configure basic graphics

[Visual Basic .NET] Copy Code
' IAgVeGfxAttributesBasic basicAttributes: Basic Attributes graphics

' Change display
basicAttributes.IsVisible = True
basicAttributes.Color = Color.Red
basicAttributes.Line.Style = AgELineStyle.eDotted
basicAttributes.Line.Width = AgELineWidth.e3
basicAttributes.MarkerStyle = "Square"

Configure custom intervals graphics

[Visual Basic .NET] Copy Code
' IAgVeGfxAttributesCustom customAttributes: Custom Attributes graphics

Dim customIntervals As IAgVeGfxIntervalsCollection = customAttributes.Intervals

' Add intervals
customIntervals.Add("1 Jan 2012 12:00:00.000", "1 Jan 2012 14:00:00.000")
customIntervals.Add("2 Jan 2012 01:00:00.000", "2 Jan 2012 02:00:00.000")

' Deconflict intervals if necessary
customAttributes.Deconflict()

Configure elevation contours

[Visual Basic .NET] Copy Code
' IAgVeGfxElevContours gfxContours: Gfx contours
' IAgVeVOElevContours voContours: VO contours

gfxContours.IsVisible = True
gfxContours.IsFillVisible = True
gfxContours.FillStyle = AgEFillStyle.eFillStyleHorizontalStripe
gfxContours.NumOfDecimalDigits = 5

' Add contour elevation level
Dim elevation As IAgVeGfxElevationsElement = gfxContours.Elevations.AddLevel(25)

' Configure contour elevation element
elevation.Color = Color.Red
elevation.DistanceVisible = True
elevation.LineStyle = AgELineStyle.eDotted
elevation.LineWidth = AgELineWidth.e3
elevation.UserTextVisible = True
elevation.UserText = "My new elevation"

' Set contours to visible on scenario
voContours.IsVisible = True
voContours.Fill = True
voContours.FillTranslucency = 80

Configure sunlight lighting graphics

[Visual Basic .NET] Copy Code
' IAgVeGfxLighting lighting: Vehicle graphics lighting

Dim sunlight As IAgVeGfxLightingElement = lighting.Sunlight

sunlight.Visible = True
sunlight.Color = Color.Red
sunlight.LineStyle = AgELineStyle.eDotted
sunlight.LineWidth = AgELineWidth.e3
sunlight.MarkerStyle = "Circle"

Set a vehicle's graphics to access intervals

[Visual Basic .NET] Copy Code
' IAgGreatArcGraphics graphics: Great Arc graphics

If graphics.IsAttributesTypeSupported(AgEVeGfxAttributes.eAttributesAccess) Then
     ' Set graphics to access intervals
     graphics.SetAttributesType(AgEVeGfxAttributes.eAttributesAccess)

     ' Get IAgVeGfxAttributesAccess interface

          ' adjust the access intervals graphics
     Dim accessAttributes As IAgVeGfxAttributesAccess = TryCast(graphics.Attributes, IAgVeGfxAttributesAccess)
End If

Set a vehicle's graphics to basic

[Visual Basic .NET] Copy Code
' IAgGreatArcGraphics graphics: Great Arc graphics

If graphics.IsAttributesTypeSupported(AgEVeGfxAttributes.eAttributesBasic) Then
     ' Set graphics to basic
     graphics.SetAttributesType(AgEVeGfxAttributes.eAttributesBasic)

     ' Get IAgVeGfxAttributesBasic interface

          ' adjust the basic graphics
     Dim basicAttributes As IAgVeGfxAttributesBasic = TryCast(graphics.Attributes, IAgVeGfxAttributesBasic)
End If

Set a vehicle's graphics to custom intervals

[Visual Basic .NET] Copy Code
' IAgGreatArcGraphics graphics: Great Arc graphics

If graphics.IsAttributesTypeSupported(AgEVeGfxAttributes.eAttributesCustom) Then
     ' Set graphics to custom
     graphics.SetAttributesType(AgEVeGfxAttributes.eAttributesCustom)

     ' Get IAgVeGfxAttributesCustom interface

          ' adjust the custom intervals graphics
     Dim customAttributes As IAgVeGfxAttributesCustom = TryCast(graphics.Attributes, IAgVeGfxAttributesCustom)
End If

Configure 3D dropline graphics

[Visual Basic .NET] Copy Code
' IAgVeVODropLinePathItem dropLine: Drop line

dropLine.IsVisible = True
dropLine.Use2DColor = False
dropLine.Color = Color.Red
dropLine.LineStyle = AgELineStyle.eDashed
dropLine.LineWidth = AgELineWidth.e4
dropLine.Interval = 100
' in sec

Configure 3D pass graphics

[Visual Basic .NET] Copy Code
' IAgVeVOPass pass: Vehicle pass

' Set lead data type to fraction, retrieved IAgVeGfxLeadData implementation
pass.TrackData.PassData.GroundTrack.SetLeadDataType(AgELeadTrailData.eDataQuarter)

pass.TrackData.PassData.GroundTrack.SetTrailDataType(AgELeadTrailData.eDataHalf)
pass.TrackData.PassData.Orbit.SetLeadDataType(AgELeadTrailData.eDataQuarter)
pass.TrackData.PassData.Orbit.SetTrailSameAsLead()

pass.TickMarks.GroundTrack.IsVisible = True
pass.TickMarks.GroundTrack.SetTickDataType(AgETickData.eTickDataRadial)
pass.TickMarks.Orbit.IsVisible = True
pass.TickMarks.Orbit.SetTickDataType(AgETickData.eTickDataRadialAndCrossTrack)
pass.TickMarks.TimeBetweenTicks = 180

Configure control from a propagate segment with Design Explorer Optimizer

[Visual Basic .NET] Copy Code
' IAgVAMCSTargetSequence sequence: Target sequence object

Dim deoStr As String = "Design Explorer Optimizer"

' Retrieve sequence profile
If Array.IndexOf(sequence.Profiles.AvailableProfiles, deoStr) <> -1 Then
     ' Add a propagate segment on the Target Sequence in order to provide a control
     Dim propagate As IAgVAMCSPropagate = TryCast(sequence.Segments.Insert(AgEVASegmentType.eVASegmentTypePropagate, "MyPropagate", "-"), IAgVAMCSPropagate)

     ' Enable the propagate "StoppingConditions.Duration.TripValue" control
     Dim durationControl As IAgVAStoppingConditionElement = propagate.StoppingConditions("Duration")
     durationControl.EnableControlParameter(AgEVAControlStoppingCondition.eVAControlStoppingConditionTripValue)

     Dim deo As IAgVAProfileDEOptimizer = TryCast(sequence.Profiles.Add(deoStr), IAgVAProfileDEOptimizer)

     ' Retrieve result reference
     Dim controls As IAgVADEControlCollection = deo.ControlParameters
     Dim prop1Duration As IAgVADEControl = controls.GetControlByPaths("MyPropagate", "StoppingConditions.Duration.TripValue")

     ' Configure IAgVADEControl properties
     prop1Duration.Enable = True
     prop1Duration.Perturbation = 0.01
     prop1Duration.LowerBound = 0
     prop1Duration.UpperBound = 43200
     prop1Duration.ScalingMethod = AgEVADEScalingMethod.eVADEScalingMethodCustom
     prop1Duration.ScalingValue = 5.5E-05
End If

Configure initial state segment

[Visual Basic .NET] Copy Code
' IAgVADriverMCS driver: Astrogrator driver object

' Add a new segment and cast the segment to the IAgVAMCSInitialState interface
Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeInitialState, "Inner Orbit", "-")
Dim initState As IAgVAMCSInitialState = TryCast(segment, IAgVAMCSInitialState)

initState.CoordSystemName = "CentralBody/Earth Fixed"
initState.OrbitEpoch = "1 Jan 2012 12:00:00.000"

' Set element type and cast the Element property to the appropriate interface
' configure the element as necessary
initState.SetElementType(AgEVAElementType.eVAElementTypeCartesian)
Dim cartesian As IAgVAElementCartesian = TryCast(initState.Element, IAgVAElementCartesian)
cartesian.Vx = 8051.21
cartesian.Y = 55
cartesian.Z = 0
cartesian.Vx = 0.45
cartesian.Vy = 8.10158
cartesian.Vz = 3.51009

' Configure fuel tank if necessary
initState.FuelTank.FuelDensity = 1001
initState.FuelTank.FuelMass = 501
initState.FuelTank.TankPressure = 5001
initState.FuelTank.TankTemperature = 292

' Configure spacecraft parameters
initState.SpacecraftParameters.Cd = 2.3
initState.SpacecraftParameters.Ck = 1.1
initState.SpacecraftParameters.Cr = 1.3
initState.SpacecraftParameters.DragArea = 21
initState.SpacecraftParameters.DryMass = 501
initState.SpacecraftParameters.K1 = 2
initState.SpacecraftParameters.K2 = 3
initState.SpacecraftParameters.RadiationPressureArea = 23
initState.SpacecraftParameters.SolarRadiationPressureArea = 22

Configure launch segment

[Visual Basic .NET] Copy Code
' IAgVADriverMCS driver: Astrogrator driver object

' Add launch sequence and retrieve the
Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeLaunch, "MyLaunch", "-")
Dim launch As IAgVAMCSLaunch = TryCast(segment, IAgVAMCSLaunch)

' Configure launch properties
launch.CentralBodyName = "Mars"
launch.Epoch = "1 Jan 2012 12:00:00.000"
launch.StepSize = 6
launch.UsePreviousSegmentState = False
launch.PreLaunchTime = 1
launch.TimeOfFlight = 500
launch.AscentType = AgEVAAscentType.eVAAscentTypeEllipseQuarticMotion
launch.InitialAcceleration = 0.02

' Configure display type
launch.SetDisplaySystemType(AgEVALaunchDisplaySystem.eVADisplaySystemGeocentric)
Dim llr As IAgVADisplaySystemGeocentric = DirectCast(launch.DisplaySystem, IAgVADisplaySystemGeocentric)
llr.Latitude = 35.581
llr.Longitude = -92.263
llr.Radius = 1000

' Configure launch type
launch.AscentType = AgEVAAscentType.eVAAscentTypeEllipseQuarticMotion
launch.InitialAcceleration = 0.02
launch.AscentType = AgEVAAscentType.eVAAscentTypeEllipseCubicMotion

' Configure burnout type
Dim velocity As IAgVABurnoutVelocity = launch.BurnoutVelocity
velocity.BurnoutOption = AgEVABurnoutOptions.eVABurnoutOptionsInertialVelocity
velocity.InertialVelocity = 20
velocity.InertialHorizontalFPA = 22
velocity.InertialVelocityAzimuth = 55
velocity.BurnoutOption = AgEVABurnoutOptions.eVABurnoutOptionsFixedVelocity
velocity.FixedVelocity = 20

Configure maneuver segment

[Visual Basic .NET] Copy Code
' IAgVADriverMCS driver: Astrogrator driver object

' Add launch sequence and retrieve the IAgVAMCSManeuver interface
Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeManeuver, "MyManeuver", "-")
Dim maneuver As IAgVAMCSManeuver = TryCast(segment, IAgVAMCSManeuver)

' Set Maneuver to Impulsive
maneuver.SetManeuverType(AgEVAManeuverType.eVAManeuverTypeImpulsive)
Dim impulse As IAgVAManeuverImpulsive = TryCast(maneuver.Maneuver, IAgVAManeuverImpulsive)

' Set Impulsive attitude to VelocityVector
impulse.SetAttitudeControlType(AgEVAAttitudeControl.eVAAttitudeControlVelocityVector)
Dim velVec As IAgVAAttitudeControlImpulsiveVelocityVector = TryCast(impulse.AttitudeControl, IAgVAAttitudeControlImpulsiveVelocityVector)
velVec.DeltaVMagnitude = 1

impulse.SetPropulsionMethod(AgEVAPropulsionMethod.eVAPropulsionMethodThrusterSet, "Thruster Set")
impulse.UpdateMass = True

Configure propagate segment

[Visual Basic .NET] Copy Code
' IAgVADriverMCS driver: Astrogrator driver object

' Add a propagate segment to our sequence
Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypePropagate, "Propagate", "-")
Dim propagate As IAgVAMCSPropagate = TryCast(segment, IAgVAMCSPropagate)
propagate.PropagatorName = "Earth Point Mass"

' Configure propagtor advanced properties
propagate.MinPropagationTime = 0
propagate.EnableMaxPropagationTime = True
propagate.MaxPropagationTime = 72000000
propagate.EnableWarningMessage = True

' Configure stopping conditions
Dim duration As IAgVAStoppingCondition = TryCast(propagate.StoppingConditions("Duration").Properties, IAgVAStoppingCondition)
duration.Trip = 7200
duration.Tolerance = 1E-05

' Add any addition stopping conditions
Dim lightning As IAgVAStoppingCondition = TryCast(propagate.StoppingConditions.Add("Lighting"), IAgVAStoppingCondition)

Configure result from a maneuver segment with Design Explorer Optimizer

[Visual Basic .NET] Copy Code
' IAgVAMCSTargetSequence sequence: Target sequence object

' Add a maneuver segment on the Target Sequence in order to provide access result
Dim maneuver As IAgVAMCSManeuver = TryCast(sequence.Segments.Insert(AgEVASegmentType.eVASegmentTypeManeuver, "MyManeuver", "-"), IAgVAMCSManeuver)

' Add results the Access result to the manuever
DirectCast(maneuver, IAgVAMCSSegment).Results.Add("Access/Access")

Dim deoStr As String = "Design Explorer Optimizer"

' Retrieve sequence profile
If Array.IndexOf(sequence.Profiles.AvailableProfiles, deoStr) <> -1 Then
     Dim deo As IAgVAProfileDEOptimizer = TryCast(sequence.Profiles.Add(deoStr), IAgVAProfileDEOptimizer)

     ' Retrieve result reference
     Dim altitudeResult As IAgVADEResult = deo.Results.GetResultByPaths("MyManeuver", "Access")

     ' Configure VADEResult properties

     altitudeResult.Enable = True
     altitudeResult.Goal = AgEVADEGoal.eVADEGoalMaximize
     altitudeResult.Weight = 2
     altitudeResult.ScalingMethod = AgEVADEScalingMethod.eVADEScalingMethodInitialValue
End If

Configure sequence segment with scripting tool

[Visual Basic .NET] Copy Code
' IAgVADriverMCS driver: Astrogrator driver object

' Add launch sequence and retrieve the
Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeSequence, "MySequence", "-")
Dim sequence As IAgVAMCSSequence = TryCast(segment, IAgVAMCSSequence)

Dim scriptTool As IAgVAScriptingTool = sequence.ScriptingTool
scriptTool.Enable = True
scriptTool.LanguageType = AgEVALanguage.eVALanguageVBScript
scriptTool.ScriptText(vbCr & vbLf & "            DeltaArg = dArg" & vbCr & vbLf & vbCr & vbLf & "            '  Set the optimizers desired results" & vbCr & vbLf & "            DEOdArgUB = DeltaArg" & vbCr & vbLf & "            DEOdArgLB = DeltaArg" & vbCr & vbLf & vbCr & vbLf & vbCr & vbLf & "            '  Initial guess tool:" & vbCr & vbLf & "            '  Assume transfer orbit is something like a circular orbit linking apoapse of initial orbit to apoapse of final orbit" & vbCr & vbLf & "            '  Constants: " & vbCr & vbLf & "            mu = 398600" & vbCr & vbLf & "            pi = 3.14159265358979" & vbCr & vbLf & vbCr & vbLf & "            '  Step 1:  propagate to apoapsis" & vbCr & vbLf & "            Prop1Dur = Period_0/2" & vbCr & vbLf & vbCr & vbLf & "            '  Step 2:  conditions at end of initial orbit:" & vbCr & vbLf & "            SMA_0 = 0.5*(RadApo_0 + RadPeri_0)" & vbCr & vbLf & "            VelApo_0 = sqr( (RadPeri_0*mu) / (RadApo_0*SMA_0) )" & vbCr & vbLf & vbCr & vbLf & "            '  Step 3:  evaluate properties of the circular transfer orbit" & vbCr & vbLf & "            Rcirc = RadApo_0" & vbCr & vbLf & "            Vcirc = sqr(mu/Rcirc)" & vbCr & vbLf & "            PeriodCirc = 2*pi*Sqr( Rcirc*Rcirc*Rcirc / mu)" & vbCr & vbLf & vbCr & vbLf & "            '  Step 4:  set first maneuver to enter transfer orbit" & vbCr & vbLf & "            Burn1X = Vcirc - VelApo_0" & vbCr & vbLf & "            Burn1Z = 0" & vbCr & vbLf & vbCr & vbLf & "            '  Step 5:  propagate along transfer orbit the desired change in argument of periapse" & vbCr & vbLf & "            If DeltaArg >= 0 Then" & vbCr & vbLf & "             TransferDur = PeriodCirc*(DeltaArg/360)" & vbCr & vbLf & "            Else " & vbCr & vbLf & "             TransferDur = PeriodCirc*(360+DeltaArg)/360" & vbCr & vbLf & "            End If" & vbCr & vbLf & vbCr & vbLf & "            ' Step 6:  set second maneuver to enter desired final orbit" & vbCr & vbLf & "            Burn2X = -Burn1X" & vbCr & vbLf & "            Burn2Z = 0" & vbCr & vbLf & "            ")

' Configure the script tool's segments

Dim burn1X As IAgVAScriptingSegment = scriptTool.SegmentProperties.Add("Burn1X")

If Array.IndexOf(burn1X.AvailableObjectNames, "Optimize_Delta_w.Burn1") <> -1 Then
     burn1X.ObjectName = "Optimize_Delta_w.Burn1"
     burn1X.Attribute = "ImpulsiveMnvr.Cartesian.X"
     burn1X.Unit = "km/sec"
End If

Dim period0 As IAgVAScriptingCalcObject = scriptTool.CalcObjects.Add("Period_0")
period0.CalcObjectName = "Segments/Value At Segment"
Dim valAtSeg As IAgVAStateCalcValueAtSegment = TryCast(period0.CalcObject, IAgVAStateCalcValueAtSegment)
valAtSeg.CalcObjectName = "Keplerian Elems/Orbit Period"

Configure target sequence segment

[Visual Basic .NET] Copy Code
' IAgVADriverMCS driver: Astrogrator driver object

' First add a sequence target
Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeTargetSequence, "Start Transfer", "-")
Dim targetSequence As IAgVAMCSTargetSequence = TryCast(segment, IAgVAMCSTargetSequence)

targetSequence.Action = AgEVATargetSeqAction.eVATargetSeqActionRunActiveProfiles
targetSequence.WhenProfilesFinish = AgEVAProfilesFinish.eVAProfilesFinishRunToReturnAndContinue
targetSequence.ContinueOnFailure = False

' Add as many child segments to target
Dim dv1 As IAgVAMCSManeuver = TryCast(targetSequence.Segments.Insert(AgEVASegmentType.eVASegmentTypeManeuver, "DV1", "-"), IAgVAMCSManeuver)
Dim dv2 As IAgVAMCSManeuver = TryCast(targetSequence.Segments.Insert(AgEVASegmentType.eVASegmentTypeManeuver, "DV2", "-"), IAgVAMCSManeuver)

' Add more profiles if necessary
Dim profileName As String = "Change Maneuver Type"
If Array.IndexOf(targetSequence.Profiles.AvailableProfiles, profileName) <> -1 Then
     Dim newProfile As IAgVAProfile = targetSequence.Profiles.Add(profileName)
End If

' Enable controls
dv1.EnableControlParameter(AgEVAControlManeuver.eVAControlManeuverImpulsiveCartesianX)
Dim dc As IAgVAProfileDifferentialCorrector = TryCast(targetSequence.Profiles("Differential Corrector"), IAgVAProfileDifferentialCorrector)
Dim controlParam As IAgVADCControl = dc.ControlParameters.GetControlByPaths("DV1", "ImpulsiveMnvr.Cartesian.X")
controlParam.Enable = True
controlParam.MaxStep = 0.3

' Enable results
DirectCast(dv1, IAgVAMCSSegment).Results.Add("Epoch")
Dim roaResult As IAgVADCResult = dc.Results.GetResultByPaths("DV1", "Epoch")
roaResult.Enable = True

' Confiure the differential corrector
dc.MaxIterations = 50
dc.EnableDisplayStatus = True
dc.Mode = AgEVAProfileMode.eVAProfileModeIterate
targetSequence.Action = AgEVATargetSeqAction.eVATargetSeqActionRunActiveProfiles

Configure target sequence with Differential Corrector profile

[Visual Basic .NET] Copy Code
' IAgVADriverMCS driver: Astrogrator driver object

Dim startTransfer As IAgVAMCSTargetSequence = TryCast(driver.MainSequence("Start Transfer"), IAgVAMCSTargetSequence)

Dim dcString As String = "Differential Corrector"

If Array.IndexOf(startTransfer.Profiles.AvailableProfiles, dcString) <> -1 Then
     Dim dc As IAgVAProfileDifferentialCorrector = TryCast(startTransfer.Profiles.Add(dcString), IAgVAProfileDifferentialCorrector)

     ' Configure differential corrector
     dc.ClearCorrectionsBeforeRun = True
     dc.ConvergenceCriteria = AgEVAConvergenceCriteria.eVAConvervenceCriteriaEitherEqualityConstraintsOrControlParams
     dc.EnableBPlaneNominal = False
     dc.EnableBPlanePerturbations = False
     dc.EnableDisplayStatus = True
     dc.EnableHomotopy = True
     dc.HomotopySteps = 2
     dc.EnableHomotopy = False
     dc.EnableLineSearch = True
     dc.LineSearchLowerBound = 0.001
     dc.LineSearchTolerance = 0.001
     dc.LineSearchUpperBound = 5
     dc.MaxLineSearchIterations = 5
     dc.MaxIterations = 20

     ' Apply
     startTransfer.ApplyProfiles()
End If

Configure the Astrogrator propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorAstrogator)

Dim driver As IAgVADriverMCS = TryCast(satellite.Propagator, IAgVADriverMCS)

' Remove if necessary
driver.MainSequence.RemoveAll()

' Configure properties as necessarily
driver.Options.DrawTrajectoryIn3D = True
driver.Options.GraphicsUpdateRate = 0.9
driver.Options.UpdateAnimationTimeForAllObjects = False
driver.Options.StoppingConditionTimeTolerance = 5E-08
driver.Options.EnableLogging = True

Configure update segment

[Visual Basic .NET] Copy Code
' IAgVADriverMCS driver: Astrogrator driver object

' Add launch sequence and retrieve the
Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeUpdate, "MyUpdate", "-")
Dim update As IAgVAMCSUpdate = TryCast(segment, IAgVAMCSUpdate)

' Specify the element to be changed, the action, and the value

' Add values
update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamCd, AgEVAUpdateAction.eVAUpdateActionAddValue, 2)
update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamFuelDensity, AgEVAUpdateAction.eVAUpdateActionAddValue, 1)

' Set to new value
update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamTankPressure, AgEVAUpdateAction.eVAUpdateActionSetToNewValue, 6000)
update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamTankTemp, AgEVAUpdateAction.eVAUpdateActionSetToNewValue, 5)

' Subtract values
update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamSRPArea, AgEVAUpdateAction.eVAUpdateActionSubtractValue, 10)
update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamSRPArea, AgEVAUpdateAction.eVAUpdateActionSubtractValue, 1)

Configure the Ballistic propagator

[Visual Basic .NET] Copy Code
' IAgVePropagatorBallistic propagator: Ballistic propagator

propagator.[Step] = 30
propagator.SetLaunchType(AgEVeLaunch.eLaunchLLA)

Dim launch As IAgVeLaunchLLA = TryCast(propagator.Launch, IAgVeLaunchLLA)
launch.Lat = 30.338
launch.Lon = 33.468
launch.Alt = 1.5

propagator.SetImpactLocationType(AgEVeImpactLocation.eImpactLocationPoint)

Dim impactLocation As IAgVeImpactLocationPoint = TryCast(propagator.ImpactLocation, IAgVeImpactLocationPoint)
impactLocation.SetImpactType(AgEVeImpact.eImpactLLA)
impactLocation.SetLaunchControlType(AgEVeLaunchControl.eLaunchControlFixedDeltaV)

Dim impact As IAgVeImpactLLA = TryCast(impactLocation.Impact, IAgVeImpactLLA)
impact.Lat = 25.474
impact.Lon = 68.306
impact.Alt = 0

Dim fixedDeltaV As IAgVeLaunchControlFixedDeltaV = TryCast(impactLocation.LaunchControl, IAgVeLaunchControlFixedDeltaV)
fixedDeltaV.DeltaV = 7.545

propagator.Propagate()

Configure the GPS propagator with an almanac

[Visual Basic .NET] Copy Code
' IAgVePropagatorGPS propagator: GPS propagator
' String almanacPath: Almanac path
' IAgStkObject scenario: Current scenario

' Configure properties
' Use the scenario's analysis interval
propagator.EphemerisInterval.SetImplicitInterval(scenario.Vgt.EventIntervals("AnalysisInterval"))

' PRN must be set before configuring GPS almanac
propagator.PRN = Int32.Parse(DirectCast(propagator.AvailablePRNs.GetValue(0), String))

' Turn the Auto-update off
propagator.AutoUpdateEnabled = False

' Specify a catalog
propagator.SpecifyCatalog.Filename = almanacPath

' Configure the properties specific to the chosen almanac
Select Case propagator.SpecifyCatalog.Properties.Type
     Case AgEVeGPSAlmanacType.eGPSAlmanacTypeSEM
          If True Then
               ' configure the SEM almanac

               Dim sem As IAgVeGPSAlmanacPropertiesSEM = TryCast(propagator.SpecifyCatalog.Properties, IAgVeGPSAlmanacPropertiesSEM)
               sem.ReferenceWeek = AgEGPSReferenceWeek.eGPSReferenceWeek22Aug1999
               Exit Select
          End If
     Case AgEVeGPSAlmanacType.eGPSAlmanacTypeSP3
          If True Then
               ' SP3 almanac contains no configurable properties

               Dim sp3 As IAgVeGPSAlmanacPropertiesSP3 = TryCast(propagator.SpecifyCatalog.Properties, IAgVeGPSAlmanacPropertiesSP3)
               Exit Select
          End If
     Case AgEVeGPSAlmanacType.eGPSAlmanacTypeYUMA
          If True Then
               ' configure the YUMA almanac

               Dim yuma As IAgVeGPSAlmanacPropertiesYUMA = TryCast(propagator.SpecifyCatalog.Properties, IAgVeGPSAlmanacPropertiesYUMA)
               yuma.ReferenceWeek = AgEGPSReferenceWeek.eGPSReferenceWeek22Aug1999
               Exit Select
          End If
End Select

' Propagate
propagator.Propagate()

Configure the Great Arc propagator with a list of waypoints

[Visual Basic .NET] Copy Code
' IAgVePropagatorGreatArc propagator: Great arc propagator

' Array with waypoints to insert
Dim waypoints As Object(,) = New Object(,) {{20.36, 19.41, -99.125, "1 Jan 2012 12:00:00.000"}, {20.3, 19.421, -99.135, "1 Jan 2012 13:00:00.000"}, {20.3, 19.434, -99.137, "1 Jan 2012 14:00:00.000"}}

propagator.Method = AgEVeWayPtCompMethod.eDetermineVelFromTime

' Remove any previous waypoints
propagator.Waypoints.RemoveAll()

' Insert the waypoints
Dim i As Integer = 0
While i < waypoints.GetLength(0)
     Dim waypoint As IAgVeWaypointsElement = propagator.Waypoints.Add()
     waypoint.Altitude = DirectCast(waypoints(i, 0), Double)
     waypoint.Latitude = waypoints(i, 1)
     waypoint.Longitude = waypoints(i, 2)
     waypoint.Time = waypoints(i, 3)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

' Propagate ground vehicle
propagator.Propagate()

Configure the Great Arc propagator with a list of waypoints and velocity

[Visual Basic .NET] Copy Code
' IAgVePropagatorGreatArc propagator: Great arc propagator

' Array with waypoints to insert
' Consists of: altitude, latitude, longitude, speed
Dim waypoints As Double(,) = New Double(,) {{20.36, 19.41, -99.125, 10.5}, {20.3, 19.421, -99.135, 12.5}, {20.3, 19.434, -99.137, 15}}

propagator.Method = AgEVeWayPtCompMethod.eDetermineTimeAccFromVel

' Remove any previous waypoints
propagator.Waypoints.RemoveAll()

' Insert the waypoints
Dim i As Integer = 0
While i < waypoints.GetLength(0)
     Dim waypoint As IAgVeWaypointsElement = propagator.Waypoints.Add()
     waypoint.Altitude = waypoints(i, 0)
     waypoint.Latitude = waypoints(i, 1)
     waypoint.Longitude = waypoints(i, 2)
     waypoint.Speed = waypoints(i, 3)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

' Propagate ground vehicle
propagator.Propagate()

List all waypoints in a Waypoint Collection

[Visual Basic .NET] Copy Code
' IAgVePropagatorGreatArc propagator: Great arc propagator

' Array with waypoints to insert
Dim waypoints As Object(,) = New Object(,) {{20.36, 19.41, -99.125, "1 Jan 2012 12:00:00.000"}, {20.3, 19.421, -99.135, "1 Jan 2012 13:00:00.000"}, {20.3, 19.434, -99.137, "1 Jan 2012 14:00:00.000"}}

propagator.Method = AgEVeWayPtCompMethod.eDetermineVelFromTime

' Remove any previous waypoints
propagator.Waypoints.RemoveAll()

' Insert the waypoints
Dim i As Integer = 0
While i < waypoints.GetLength(0)
     Dim waypoint As IAgVeWaypointsElement = propagator.Waypoints.Add()
     waypoint.Altitude = DirectCast(waypoints(i, 0), Double)
     waypoint.Latitude = waypoints(i, 1)
     waypoint.Longitude = waypoints(i, 2)
     waypoint.Time = waypoints(i, 3)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

' List the waypoints after extracting them into an array
Dim waypointArray As Array = propagator.Waypoints.ToArray()
Dim j As Integer = 0
While j < waypointArray.GetLength(0)
     Console.WriteLine("  Time: {0} Latitude: {1} Longitude: {2} Altitude: {3}", waypointArray.GetValue(j, 0), Convert.ToDouble(waypointArray.GetValue(j, 1)), Convert.ToDouble(waypointArray.GetValue(j, 2)), Convert.ToDouble(waypointArray.GetValue(j, 3)))
     System.Threading.Interlocked.Increment(j)
End While

Set Waypoints (Derive Time and Acceleration from Velocity) and Propagate

[Visual Basic .NET] Copy Code
' IAgVePropagatorGreatArc propagator: Great arc propagator

propagator.Method = AgEVeWayPtCompMethod.eDetermineTimeAccFromVel

Dim waypoints As Array = Array.CreateInstance(GetType(Object), 4, 6)

' Point #1
waypoints.SetValue(0, 0, 0)
' Lat
waypoints.SetValue(0, 0, 1)
' Lon
waypoints.SetValue(35000, 0, 2)
' Alt
waypoints.SetValue(35, 0, 3)
' Vel
waypoints.SetValue(0, 0, 4)
' Acc
waypoints.SetValue(0, 0, 5)
' Turn radius
' Point #2
waypoints.SetValue(0.1, 1, 0)
' Lat
waypoints.SetValue(0.1, 1, 1)
' Lon
waypoints.SetValue(35100, 1, 2)
' Alt
waypoints.SetValue(35, 1, 3)
' Vel
waypoints.SetValue(0, 1, 4)
' Acc
waypoints.SetValue(0.2, 1, 5)
' Turn radius
' Point #3
waypoints.SetValue(0.2, 2, 0)
' Lat
waypoints.SetValue(0.2, 2, 1)
' Lon
waypoints.SetValue(35200, 2, 2)
' Alt
waypoints.SetValue(35, 2, 3)
' Vel
waypoints.SetValue(0, 2, 4)
' Acc
waypoints.SetValue(0, 2, 5)
' Turn radius
' Point #4
waypoints.SetValue(0, 3, 0)
' Lat
waypoints.SetValue(0, 3, 1)
' Lon
waypoints.SetValue(35200, 3, 2)
' Alt
waypoints.SetValue(35, 3, 3)
' Vel
waypoints.SetValue(0, 3, 4)
' Acc
waypoints.SetValue(0, 3, 5)
' Turn radius
#If Not CSToJava Then
propagator.SetPointsSpecifyVelocityAndPropagate(waypoints)
#Else
#End If

Assert.AreEqual(4, propagator.Waypoints.Count)

Set Waypoints (Derive Time from Velocity and Acceleration) and Propagate

[Visual Basic .NET] Copy Code
' IAgVePropagatorGreatArc propagator: Great arc propagator

propagator.Method = AgEVeWayPtCompMethod.eDetermineTimeFromVelAcc

Dim waypoints As Array = Array.CreateInstance(GetType(Object), 4, 5)
' Point #1
waypoints.SetValue(0, 0, 0)
' Lat
waypoints.SetValue(0, 0, 1)
' Lon
waypoints.SetValue(35000, 0, 2)
' Alt
waypoints.SetValue(35, 0, 3)
' Vel
waypoints.SetValue(0, 0, 4)
' Turn radius
' Point #2
waypoints.SetValue(0.1, 1, 0)
' Lat
waypoints.SetValue(0.1, 1, 1)
' Lon
waypoints.SetValue(35100, 1, 2)
' Alt
waypoints.SetValue(35, 1, 3)
' Vel
waypoints.SetValue(0.2, 1, 4)
' Turn radius
' Point #3
waypoints.SetValue(0.2, 2, 0)
' Lat
waypoints.SetValue(0.2, 2, 1)
' Lon
waypoints.SetValue(35200, 2, 2)
' Alt
waypoints.SetValue(35, 2, 3)
' Vel
waypoints.SetValue(0, 2, 4)
' Turn radius
' Point #4
waypoints.SetValue(0, 3, 0)
' Lat
waypoints.SetValue(0, 3, 1)
' Lon
waypoints.SetValue(35200, 3, 2)
' Alt
waypoints.SetValue(35, 3, 3)
' Vel
waypoints.SetValue(0, 3, 4)
' Turn radius
#If Not CSToJava Then
propagator.SetPointsSmoothRateAndPropagate(waypoints)
#Else
#End If

Assert.AreEqual(4, propagator.Waypoints.Count)

Set Waypoints (Derive Velocity from Time) and Propagate

[Visual Basic .NET] Copy Code
' IAgVePropagatorGreatArc propagator: Great arc propagator

propagator.Method = AgEVeWayPtCompMethod.eDetermineVelFromTime

Dim waypoints As Array = Array.CreateInstance(GetType(Object), 4, 5)
' Point #1
waypoints.SetValue("17 Jan 2013 17:00:00.000", 0, 0)
' Time
waypoints.SetValue(0, 0, 1)
' Lat
waypoints.SetValue(0, 0, 2)
' Lon
waypoints.SetValue(35000, 0, 3)
' Alt
waypoints.SetValue(0, 0, 4)
' Turn radius
' Point #2
waypoints.SetValue("17 Jan 2013 17:01:00.000", 1, 0)
' Time
waypoints.SetValue(0.1, 1, 1)
' Lat
waypoints.SetValue(0.1, 1, 2)
' Lon
waypoints.SetValue(35100, 1, 3)
' Alt
waypoints.SetValue(0.2, 1, 4)
' Turn radius
' Point #3
waypoints.SetValue("17 Jan 2013 17:02:00.000", 2, 0)
' Time
waypoints.SetValue(0.2, 2, 1)
' Lat
waypoints.SetValue(0.2, 2, 2)
' Lon
waypoints.SetValue(35200, 2, 3)
' Alt
waypoints.SetValue(0, 2, 4)
' Turn radius
' Point #4
waypoints.SetValue("17 Jan 2013 17:03:00.000", 3, 0)
' Time
waypoints.SetValue(0, 3, 1)
' Lat
waypoints.SetValue(0, 3, 2)
' Lon
waypoints.SetValue(35200, 3, 3)
' Alt
waypoints.SetValue(0, 3, 4)
' Turn radius
#If Not CSToJava Then
propagator.SetPointsSpecifyTimeAndPropagate(waypoints)
#Else
#End If

Assert.AreEqual(4, propagator.Waypoints.Count)

Sets the ephemeris start time to an explicit time, and then add waypoints relative to that time.

[Visual Basic .NET] Copy Code
' IAgVePropagatorGreatArc propagator: Great Arc propagator

' Set the epoch time to tomorrow.
Dim startEpoch As IAgCrdnEventSmartEpoch = propagator.EphemerisInterval.GetStartEpoch()
startEpoch.SetExplicitTime("Tomorrow")
propagator.EphemerisInterval.SetStartEpoch(startEpoch)

' Waypoints time start from explicit start time that we set above.
#If Not CSToJava Then
#Else
#End If
Dim waypointsAndTimes As Array = New Object(,) {{40.329, -76.366, 0, 0.0154, 0}, {40.38, -76.359, 0, 0.0154, 0}, {40.406, -76.329, 0, 0.0154, 0}, {40.417, -76.311, 0, 0.0154, 0}}

#If Not CSToJava Then
propagator.SetPointsSmoothRateAndPropagate(waypointsAndTimes)
#Else
#End If

Dim i As Integer = 0
While i < propagator.Waypoints.Count
     Console.WriteLine("Waypoint {0}, Lat = {1}, Lon = {2}, Time = {3}", i, propagator.Waypoints(i).Latitude, propagator.Waypoints(i).Longitude, propagator.Waypoints(i).Time)
     System.Threading.Interlocked.Increment(i)
End While

Configure the HPOP propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set satellite propagator to HPOP
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorHPOP)

' Get IAgVePropagatorLOP interface
Dim hpopProp As IAgVePropagatorHPOP = TryCast(satellite.Propagator, IAgVePropagatorHPOP)

' Configure force model
Dim hpopForceModel As IAgVeHPOPForceModel = hpopProp.ForceModel
hpopForceModel.CentralBodyGravity.File = "STKData\CentralBodies\Earth\GGM02C.grv"
hpopForceModel.CentralBodyGravity.MaxDegree = 45
hpopForceModel.CentralBodyGravity.MaxOrder = 10
hpopForceModel.CentralBodyGravity.UseOceanTides = True

hpopForceModel.Drag.Use = True
Dim hpopDragModel As IAgVeHPOPDragModelSpherical = TryCast(hpopForceModel.Drag.DragModel, IAgVeHPOPDragModelSpherical)
hpopDragModel.Cd = 1.89
hpopDragModel.AreaMassRatio = 0.05
hpopForceModel.Drag.AtmosphericDensityModel = AgEAtmosphericDensityModel.eMSIS90

hpopForceModel.ThirdBodyGravity.RemoveThirdBody("Moon")

' Propagate
hpopProp.Propagate()

Configure the J2 Perturbation propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set propagator to SGP4
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorJ2Perturbation)

' J2 Perturbation propagator
Dim j2prop As IAgVePropagatorJ2Perturbation = TryCast(satellite.Propagator, IAgVePropagatorJ2Perturbation)

' Configure time period
j2prop.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")
j2prop.[Step] = 60

' Configure propagator initial state
Dim initial As IAgVeJxInitialState = j2prop.InitialState
initial.Representation.Epoch = "1 Jan 2012 12:00:00.000"
' in km (assuming unit preferences set to km)
' in km
' in km
' in km/sec (assuming unit preferences set to km/sec)
' in km/sec
initial.Representation.AssignCartesian(AgECoordinateSystem.eCoordinateSystemFixed, -1514.4, -6790.1, -1.25, 4.8151, 1.771, _
     5.6414)
' in km/sec
initial.EllipseOptions = AgEVeEllipseOptions.eSecularlyPrecessing

' Propagate
j2prop.Propagate()

Configure the J4 Perturbation propagator to a circular orbit

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object
' Double incl: Inclination (default 45.0)
' Double altitude: Atitude (default 500 km)

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorJ4Perturbation)
Dim prop As IAgVePropagatorJ4Perturbation = TryCast(satellite.Propagator, IAgVePropagatorJ4Perturbation)

Dim keplerian As IAgOrbitStateClassical = TryCast(prop.InitialState.Representation.ConvertTo(AgEOrbitStateType.eOrbitStateClassical), IAgOrbitStateClassical)

keplerian.SizeShapeType = AgEClassicalSizeShape.eSizeShapeAltitude
Dim size As IAgClassicalSizeShapeAltitude = TryCast(keplerian.SizeShape, IAgClassicalSizeShapeAltitude)

size.ApogeeAltitude = altitude
size.PerigeeAltitude = altitude

keplerian.Orientation.Inclination = incl
keplerian.Orientation.ArgOfPerigee = 0
keplerian.Orientation.AscNodeType = AgEOrientationAscNode.eAscNodeRAAN
TryCast(keplerian.Orientation.AscNode, IAgOrientationAscNodeRAAN).Value = 0

keplerian.LocationType = AgEClassicalLocation.eLocationTrueAnomaly
TryCast(keplerian.Location, IAgClassicalLocationTrueAnomaly).Value = 0

prop.InitialState.Representation.Assign(keplerian)
prop.Propagate()

Configure the J4 Perturbation propagator to a critically inclined orbit

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object
' Double apogeeAlt: Apogee altitude (default 12000 km)
' Double perigeeAlt: Perigee altitude (default 400 km)
' Double ascNodeLon: Longitude of ascending node (default -100 deg

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorJ4Perturbation)
Dim prop As IAgVePropagatorJ4Perturbation = TryCast(satellite.Propagator, IAgVePropagatorJ4Perturbation)

Dim keplerian As IAgOrbitStateClassical = TryCast(prop.InitialState.Representation.ConvertTo(AgEOrbitStateType.eOrbitStateClassical), IAgOrbitStateClassical)

keplerian.SizeShapeType = AgEClassicalSizeShape.eSizeShapeAltitude
Dim size As IAgClassicalSizeShapeAltitude = TryCast(keplerian.SizeShape, IAgClassicalSizeShapeAltitude)

size.ApogeeAltitude = apogeeAlt
size.PerigeeAltitude = perigeeAlt

keplerian.Orientation.Inclination = 63.434949
keplerian.Orientation.ArgOfPerigee = 270
keplerian.Orientation.AscNodeType = AgEOrientationAscNode.eAscNodeLAN
TryCast(keplerian.Orientation.AscNode, IAgOrientationAscNodeLAN).Value = ascNodeLon

keplerian.LocationType = AgEClassicalLocation.eLocationTrueAnomaly
TryCast(keplerian.Location, IAgClassicalLocationTrueAnomaly).Value = 90

prop.InitialState.Representation.Assign(keplerian)
prop.Propagate()

Configure the LOP propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set satellite propagator to LOP
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorLOP)

' Get IAgVePropagatorLOP interface
Dim lopProp As IAgVePropagatorLOP = TryCast(satellite.Propagator, IAgVePropagatorLOP)

' Configure time period
lopProp.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")
lopProp.[Step] = 86400

' Configure propagator initial state
Dim orbit As IAgOrbitState = lopProp.InitialState.Representation
orbit.Epoch = "1 Jan 2012 12:00:00.000"
' in km (assuming unit preferences set to km)
' in km
' in km
' in km/sec (assuming unit preferences set to km/sec)
' in km/sec
orbit.AssignCartesian(AgECoordinateSystem.eCoordinateSystemFixed, -1120.32, -9520.84, 0.129, 2.155, -1.54416, _
     5.668412)
' in km/sec
' Configure force model
Dim lopForceModel As IAgVeLOPForceModel = lopProp.ForceModel
lopForceModel.CentralBodyGravity.MaxDegree = 15
lopForceModel.CentralBodyGravity.MaxOrder = 8
lopForceModel.Drag.Use = True
lopForceModel.Drag.Cd = 3.55
lopForceModel.SolarRadiationPressure.Use = True
lopForceModel.SolarRadiationPressure.Cp = 1.125
lopForceModel.SolarRadiationPressure.AtmosHeight = 125
lopForceModel.PhysicalData.DragCrossSectionalArea = 0.001555512
lopForceModel.PhysicalData.SRPCrossSectionalArea = 0.001810026
lopForceModel.PhysicalData.SatelliteMass = 1505.001

' Propagate
lopProp.Propagate()

Add realtime LLA positions

[Visual Basic .NET] Copy Code
' IAgVePropagatorRealtime propagator: Realtime Propagator

Dim points As IAgVeRealtimeLLAPoints = propagator.PointBuilder.LLA
points.Add("1 Jan 2012 12:00:00.000", 39.693, -76.399, 0.039, 0.03458, 0.01223, _
     0.05402)

Add realtime LLA positions in batches

[Visual Basic .NET] Copy Code
' IAgVePropagatorRealtime propagator: Realtime Propagator

' Add realtime LLA points in batches
#If Not CSToJava Then
#Else
#End If
Dim times As Array = New Object() {"1 Jan 2012 12:00:00.000", "1 Jan 2012 12:01:00.000", "1 Jan 2012 12:02:00.000"}
#If Not CSToJava Then
#Else
#End If
Dim lat As Array = New Object() {39.693, 41.061, 39.925}
#If Not CSToJava Then
#Else
#End If
Dim lon As Array = New Object() {-76.399, -74.266, -78.578}
#If Not CSToJava Then
#Else
#End If
Dim alt As Array = New Object() {0.039, 0.042, 0.281}
#If Not CSToJava Then
#Else
#End If
Dim latrate As Array = New Object() {0.03458, 0.03215, 0.03188}
#If Not CSToJava Then
#Else
#End If
Dim lonrate As Array = New Object() {0.01223, 0.01148, 0.01075}
#If Not CSToJava Then
#Else
#End If
Dim altrate As Array = New Object() {0.05402, 0.0521, 0.05075}

Dim points As IAgVeRealtimeLLAPoints = propagator.PointBuilder.LLA

' AddBatch expects each parameter to be a one dimensional array and all of the same length
#If Not CSToJava Then
points.AddBatch(times, lat, lon, alt, latrate, lonrate, _
     altrate)
#Else
#End If

Configure the Realtime propagator

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' IAgVePropagatorRealtime propagator: Realtime propagator

' Set Realtime Propagator settings if they should be other than
' the defaults.
propagator.InterpolationOrder = 1
propagator.TimeoutGap = 30
propagator.TimeStep = 60

' Since we want to use the Two Body Look Ahead Propagator, check
' to see that it is supported before we set the Realtime Propagator
' to use this look ahead type
If propagator.IsLookAheadPropagatorSupported(AgELookAheadPropagator.eLookAheadTwoBody) Then
     ' Set the look ahead type
     propagator.LookAheadPropagator = AgELookAheadPropagator.eLookAheadTwoBody

     ' Set the duration time to look ahead and look behind
     Dim duration As IAgVeDuration = propagator.Duration
     duration.LookAhead = 3600
     duration.LookBehind = 3600

     ' Apply the Realtime Propagator settings
     propagator.Propagate()
End If

Configure the SGP4 propagator with file source

[Visual Basic .NET] Copy Code
' IAgVePropagatorSGP4 propagator: An SGP4 propagator
' String tleFilePath: Path to the external TLE data file

' Configure propagator's TLE file path
propagator.CommonTasks.AddSegsFromFile("2215", tleFilePath)

' Propagate
propagator.Propagate()

Configure the SGP4 propagator with online source

[Visual Basic .NET] Copy Code
' IAgVePropagatorSGP4 propagator: An SGP4 propagator

' Configure time period
propagator.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")
propagator.[Step] = 60

' Add segments
propagator.CommonTasks.AddSegsFromOnlineSource("25544")

' Propagate
propagator.Propagate()

Set SGP4 to auto-update from file source

[Visual Basic .NET] Copy Code
' IAgVePropagatorSGP4 propagator: SGP4 satellite propagator
' String fileUpdateSource: File update source

propagator.AutoUpdateEnabled = True
propagator.AutoUpdate.SelectedSource = AgEVeSGP4AutoUpdateSource.eSGP4AutoUpdateSourceFile
propagator.AutoUpdate.FileSource.Filename = fileUpdateSource

' Preview TLEs (optional)
' Preview() returns a one dimension string of tles
Dim tles As Array = propagator.AutoUpdate.FileSource.Preview()

#If Not CSToJava Then
Dim rx As New Regex("^(?<ssc>[-]?\d+) (?<orbitepoch>[-]?\d+[.]?\d+) (?<revnumber>[-]?\d+)$")
#Else
#End If
For Each line As Object In tles
     Dim m As Match = rx.Match(line.ToString())
     #If Not CSToJava Then
          #Else
          #End If
     Console.WriteLine("SCC: {0}, orbit epoch: {1}, rev number: {2}", m.Groups("ssc"), m.Groups("orbitepoch"), m.Groups("revnumber"))
Next

' Propagate
propagator.Propagate()

Set SGP4 to auto-update from online source

[Visual Basic .NET] Copy Code
' IAgVePropagatorSGP4 propagator: SGP4 satellite propagator

propagator.AutoUpdateEnabled = True
propagator.AutoUpdate.SelectedSource = AgEVeSGP4AutoUpdateSource.eSGP4AutoUpdateSourceOnline

' Preview TLEs (optional)
' Preview() returns a one dimension string of tles
Dim tles As Array = propagator.AutoUpdate.FileSource.Preview()

#If Not CSToJava Then
Dim rx As New Regex("^(?<ssc>[-]?\d+) (?<orbitepoch>[-]?\d+[.]?\d+) (?<revnumber>[-]?\d+)$")
#Else
#End If
For Each line As Object In tles
     Dim m As Match = rx.Match(line.ToString())
     #If Not CSToJava Then
          #Else
          #End If
     Console.WriteLine("SCC: {0}, orbit epoch: {1}, rev number: {2}", m.Groups("ssc"), m.Groups("orbitepoch"), m.Groups("revnumber"))
Next

' Propagate
propagator.Propagate()

Configure the Simple Ascent propagator

[Visual Basic .NET] Copy Code
' IAgVePropagatorSimpleAscent propagator: The Simple Ascent Propagator

' Configure time period
propagator.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")
propagator.[Step] = 60

' Set the initial state
propagator.InitialState.Launch.AssignGeodetic(38.3721, -77.6402, 25)
propagator.InitialState.Burnout.AssignGeodetic(48.1395, -82.5145, 25)
propagator.InitialState.BurnoutVel = 7.7258

' Propagate
propagator.Propagate()

Configure the SPICE propagator

[Visual Basic .NET] Copy Code
' IAgVePropagatorSPICE propagator: The SPICE propagator
' String spiceFile: Path of SPICE file

' Set the SPICE file
propagator.Spice = spiceFile

' Configure time period
propagator.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")
propagator.[Step] = 60
propagator.BodyName = "-200000"

' Propagate
propagator.Propagate()

Create a ground vehicle (on current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root

' Create the ground vehicle
Dim launchVehicle As IAgGroundVehicle = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eGroundVehicle, "MyGroundVehicle"), IAgGroundVehicle)

Get the ground vehicle Attitude Export tool

[Visual Basic .NET] Copy Code
' IAgGroundVehicle groundVehicle: GroundVehicle whose attitude we want to export

Dim attExTool As IAgVeAttitudeExportTool = groundVehicle.ExportTools.GetAttitudeExportTool()

Get the ground vehicle Propagator Definition Export tool

[Visual Basic .NET] Copy Code
' IAgGroundVehicle groundVehicle: GroundVehicle whose propagator definition we want to export

Dim attExTool As IAgVePropDefExportTool = groundVehicle.ExportTools.GetPropDefExportTool()

Get the ground vehicle STK Ephemeris Export tool

[Visual Basic .NET] Copy Code
' IAgGroundVehicle groundVehicle: GroundVehicle whose ephemeris we want to export

Dim stkEphem As IAgVeEphemerisStkExportTool = groundVehicle.ExportTools.GetEphemerisStkExportTool()

Set ground vehicle to use Great Arc propagator

[Visual Basic .NET] Copy Code
' IAgGroundVehicle groundVehicle: Ground Vehicle object

' Set ground vehicle route to great arc
groundVehicle.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)

' Retrieve propagator interface if necessary
Dim propagator As IAgVePropagatorGreatArc = TryCast(groundVehicle.Route, IAgVePropagatorGreatArc)

Set ground vehicle to use Realtime propagator

[Visual Basic .NET] Copy Code
' IAgGroundVehicle groundVehicle: Ground Vehicle object

' Set ground vehicle route to STK External propagator
groundVehicle.SetRouteType(AgEVePropagatorType.ePropagatorRealtime)

' Retrieve propagator interface if necessary
Dim propagator As IAgVePropagatorRealtime = TryCast(groundVehicle.Route, IAgVePropagatorRealtime)

Set ground vehicle to use STK External propagator

[Visual Basic .NET] Copy Code
' IAgGroundVehicle groundVehicle: Ground Vehicle object

' Set groundVehicle route to STK External propagator
groundVehicle.SetRouteType(AgEVePropagatorType.ePropagatorStkExternal)

' Retrieve propagator interface if necessary
Dim propagator As IAgVePropagatorStkExternal = TryCast(groundVehicle.Route, IAgVePropagatorStkExternal)

Create a launch vehicle (on current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root

' Create the Launch vehicle
Dim launchVehicle As IAgLaunchVehicle = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eLaunchVehicle, "MyLaunchVehicle"), IAgLaunchVehicle)

Determine if trajectory type is supported

[Visual Basic .NET] Copy Code
' IAgLaunchVehicle launchVehicle: Launch vehicle

Dim supported As Boolean = launchVehicle.IsTrajectoryTypeSupported(AgEVePropagatorType.ePropagatorRealtime)

Define missile trajectory

[Visual Basic .NET] Copy Code
' IAgMissile missile: Chain object

' Set missile trajectory type
missile.SetTrajectoryType(AgEVePropagatorType.ePropagatorBallistic)

' Retrieve the Propagator interface
Dim trajectory As IAgVePropagatorBallistic = TryCast(missile.Trajectory, IAgVePropagatorBallistic)

' Set propagator settings if they should be other than defaults
trajectory.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")
trajectory.[Step] = 60

' Set flight parameters
trajectory.SetLaunchType(AgEVeLaunch.eLaunchLLA)
Dim launch As IAgVeLaunchLLA = TryCast(trajectory.Launch, IAgVeLaunchLLA)
launch.Lat = 0
launch.Lon = 0
launch.Alt = 0

' Set impact location type
trajectory.SetImpactLocationType(AgEVeImpactLocation.eImpactLocationPoint)

' Retrieve the impact point interface
Dim impactLocation As IAgVeImpactLocationPoint = TryCast(trajectory.ImpactLocation, IAgVeImpactLocationPoint)
impactLocation.SetLaunchControlType(AgEVeLaunchControl.eLaunchControlFixedTimeOfFlight)

' Retrieve the launch flight interface
Dim launchControl As IAgVeLaunchControlFixedTimeOfFlight = TryCast(impactLocation.LaunchControl, IAgVeLaunchControlFixedTimeOfFlight)
launchControl.TimeOfFlight = 9000

' Configure missile Impact parameters
impactLocation.SetImpactType(AgEVeImpact.eImpactLLA)
Dim impact As IAgVeImpactLLA = TryCast(impactLocation.Impact, IAgVeImpactLLA)
impact.Lat = 12
impact.Lon = 5
impact.Alt = 0

' Propagate Missile
trajectory.Propagate()

Create a satellite (on current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create the Satellite
Dim satellite As IAgSatellite = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eSatellite, "MySatellite"), IAgSatellite)

Create a satellite from an external ephemeris file (.e)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' String ephemerisFilePath: Path to external ephemeris data file

Dim satellite As IAgSatellite = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eSatellite, "MySatellite"), IAgSatellite)

' Configure propagator's external file path
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorStkExternal)
Dim ext As IAgVePropagatorStkExternal = TryCast(satellite.Propagator, IAgVePropagatorStkExternal)
ext.Filename = ephemerisFilePath

' Propagate
ext.Propagate()

Create a satellite from the satellite database

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Get STK database location using Connect
Dim result As IAgExecCmdResult = root.ExecuteCommand("GetDirectory / Database Satellite")
Dim satDataDir As String = result(0)
Dim filelocation As String = """" + Path.Combine(satDataDir, "stkAllTLE.sd") + """"
Dim commonname As String = """hst"""

' Import object from database using Connect
Dim command As String = [String].Format("ImportFromDB * Satellite {0} Constellation ImportedFromSatDB Propagate On CommonName {1}", filelocation, commonname)
root.ExecuteCommand(command)

Set the satellite to use the GPS propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set propagator to GPS
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorGPS)

' Get the GPS propagator
Dim propagator As IAgVePropagatorGPS = TryCast(satellite.Propagator, IAgVePropagatorGPS)

Set the satellite to use the HPOP propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set satellite propagator to HPOP
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorHPOP)

' Get the HPOP propagator
Dim propagator As IAgVePropagatorHPOP = TryCast(satellite.Propagator, IAgVePropagatorHPOP)

Set the satellite to use the J2 propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set propagator to J2 Perturbation
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorJ2Perturbation)

' Get the J2 Perturbation propagator
Dim propagator As IAgVePropagatorJ2Perturbation = TryCast(satellite.Propagator, IAgVePropagatorJ2Perturbation)

Set the satellite to use the LOP propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set satellite propagator to LOP
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorLOP)

' Get the LOP propagator
Dim propagator As IAgVePropagatorLOP = TryCast(satellite.Propagator, IAgVePropagatorLOP)

Set the satellite to use the SGP4 propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set propagator to SGP4
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorSGP4)

' Get the SGP4 propagator
Dim propagator As IAgVePropagatorSGP4 = TryCast(satellite.Propagator, IAgVePropagatorSGP4)

Set the satellite to use the SPICE propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set propagator to SPICE
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorSPICE)

' Get the SPICE propagator
Dim propagator As IAgVePropagatorSPICE = TryCast(satellite.Propagator, IAgVePropagatorSPICE)

Set the satellite to use the STK External propagator

[Visual Basic .NET] Copy Code
' IAgSatellite satellite: Satellite object

' Set propagator to STK External
satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorStkExternal)

' Get the STK External propagator
Dim propagator As IAgVePropagatorStkExternal = TryCast(satellite.Propagator, IAgVePropagatorStkExternal)

Create a ship (on current scenario central body)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root

' Create the Ship
Dim ship As IAgShip = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eShip, "MyShip"), IAgShip)

Set ship to use Great Arc propagator

[Visual Basic .NET] Copy Code
' IAgShip ship: Ship object

' Set ship route to great arc
ship.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)

' Retrieve propagator interface if necessary
Dim propagator As IAgVePropagatorGreatArc = TryCast(ship.Route, IAgVePropagatorGreatArc)

Set ship to use Realtime propagator

[Visual Basic .NET] Copy Code
' IAgShip ship: Ship object

' Set ship route to STK External propagator
ship.SetRouteType(AgEVePropagatorType.ePropagatorRealtime)

' Retrieve propagator interface if necessary
Dim propagator As IAgVePropagatorRealtime = TryCast(ship.Route, IAgVePropagatorRealtime)

Set ship to use STK External propagator

[Visual Basic .NET] Copy Code
' IAgShip ship: Ship object

' Set ship route to STK External propagator
ship.SetRouteType(AgEVePropagatorType.ePropagatorStkExternal)

' Retrieve propagator interface if necessary
Dim propagator As IAgVePropagatorStkExternal = TryCast(ship.Route, IAgVePropagatorStkExternal)

Add an Attribute that provides a combobox of values from which the user can choose.

[Visual Basic .NET] Copy Code

'Add the following code to your plugin
Public _choice As Object
Public Property Choice() As Object Implements IExample1.Choice
    Get
        Return _choice
    End Get
    Set(ByVal value As Object)
        _choice = value
    End Set
End Property
Public Choices() As Object = New Object(3) {"0", "1", "2", "3"}


Public Function GetPluginConfig(ByVal pAttrBuilder As AGI.Attr.AgAttrBuilder) As Object Implements IAgUtPluginConfig.GetPluginConfig
    If m_AgAttrScope = Nothing Then
        m_AgAttrScope = pAttrBuilder.NewScope()
        pAttrBuilder.AddChoicesDispatchProperty(m_AgAttrScope, "Choice", "A property", "Choice", Choices)
    End If

    Return m_AgAttrScope
End Function

Add an Attribute that provides a combobox of values populated by a function from which the user can choose.

[Visual Basic .NET] Copy Code

'Add the following code to your plugin
      Public _choice As Object
      Public Property Choice() As Object Implements IExample2.Choice
          Get
              Return _choice
          End Get
          Set(ByVal value As Object)
              _choice = value
          End Set
      End Property
      Public ReadOnly Property Choices() As Object() Implements IExample2.Choices
          Get
              Return New Object(3) {"0", "1", "2", "3"}
          End Get
      End Property


      Public Function GetPluginConfig(ByVal pAttrBuilder As AGI.Attr.AgAttrBuilder) As Object Implements IAgUtPluginConfig.GetPluginConfig
          If m_AgAttrScope = Nothing Then
              m_AgAttrScope = pAttrBuilder.NewScope()
              pAttrBuilder.AddChoicesFuncDispatchProperty(m_AgAttrScope, "Choice", "A property", "Choice", "Choices")
          End If

          Return m_AgAttrScope
      End Function

Shows the format of the Center parameter when creating a bounding sphere.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim center As Array = New Object() {1247.87, -4739.74, 4067.77}

Dim boundingSphere As IAgStkGraphicsBoundingSphere = sceneManager.Initializers.BoundingSphere.Initialize(center, 100)

Shows the format of the Size parameter when computing using a box triangulator.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim size As Array = New Object() {1000, 1000, 2000}

Dim result As IAgStkGraphicsSolidTriangulatorResult = sceneManager.Initializers.BoxTriangulator.Compute(size)

Change view mode to use Earth's fixed frame

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

scene.Camera.ViewCentralBody("Earth", root.VgtRoot.WellKnownAxes.Earth.Fixed)

Shows the format of the Camera's Position property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene

Dim position As Array = New Object() {31378.1, 0, 0}

scene.Camera.Position = position

Shows the format of the Camera's ReferencePoint property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene

Dim point As Array = New Object() {31378.1, 0, 0}

scene.Camera.ReferencePoint = point

Shows the format of the Camera's UpVector property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene

Dim upVector As Array = New Object() {0, 0, 1}

scene.Camera.UpVector = upVector

Shows the format of the Extent parameter when zooming to a cartographic extent on a central body.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene

Dim extent As Array = New Object() {90, 30, -77, 39}

scene.Camera.ViewExtent("Earth", extent)

Shows the format of the Offset and UpAxis parameters when setting the camera's reference point with an offset.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' IAgCrdnPoint point: A valid VGT point object.
' IAgCrdnAxes axes: A valid VGT axes object.

Dim offset As Array = New Object() {50, 50, -50}

Dim upAxis As Array = New Object() {0, 0, 1}

scene.Camera.ViewOffsetWithUpAxis(axes, point, offset, upAxis)

Shows the format of the Position parameter when converting a cartogaphic position to a pixel coordinate.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene

Dim position As Array = New Object() {0.627, -1.644, 0}

Dim windowPos As Array = scene.Camera.CartographicToWindow("Earth", position)

Shows the format of the Position parameter when converting a pixel coordinate to a cartographic position.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene

Dim position As Array = New Object() {150, 116}

Dim cartographicPos As Array = scene.Camera.WindowToCartographic("Earth", position)

Take a snapshot of the camera's view

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

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

'
' The snapshot can be saved to a file, texture, image, or the clipboard
'
Dim texture As IAgStkGraphicsRendererTexture2D = scene.Camera.Snapshot.SaveToTexture()

Dim overlay As IAgStkGraphicsTextureScreenOverlay = CreateOverlayFromTexture(texture, root)
Dim screenOverlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays, IAgStkGraphicsScreenOverlayCollectionBase)
screenOverlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Shows the format of the ConvolutionFilter's Kernel property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsConvolutionFilter convolutionFilter: A valid convolution filter

Dim kernel As Array = New Object() {1, 1, 1, 1, 1, 1, _
     1, 1, 1}

convolutionFilter.Kernel = kernel

Shows the format of the Kernel parameter when creating a convolution filter.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim kernel As Array = New Object() {1, 1, 1, 1, 1, 1, _
     1, 1, 1}

Dim convolutionFilter As IAgStkGraphicsConvolutionFilter = sceneManager.Initializers.ConvolutionFilter.InitializeWithKernel(kernel)

Shows the format of the distance to position display condition's Position property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsDistanceToPositionDisplayCondition condition: A distance to position display condition

Dim position As Array = New Object() {6700, 0, 0}

condition.Position = position

Shows the format of the Position parameter when creating a distance to position display condition.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim position As Array = New Object() {6700, 0, 0}

Dim condition As IAgStkGraphicsDistanceToPositionDisplayCondition = sceneManager.Initializers.DistanceToPositionDisplayCondition.InitializeWithDistances(position, 0, 10000)

Draw a primitive based on a time interval

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String globeOverlayFile: Location of the globe overlay file

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

Dim overlay As IAgStkGraphicsGeospatialImageGlobeOverlay = manager.Initializers.GeospatialImageGlobeOverlay.InitializeWithString(globeOverlayFile)

Dim start As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 14:30:00.000")
Dim [end] As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 15:00:00.000")

DirectCast(root.CurrentScenario, IAgScenario).Animation.StartTime = Double.Parse(start.Subtract("sec", 3600).Format("epSec"))

Dim condition As IAgStkGraphicsTimeIntervalDisplayCondition = manager.Initializers.TimeIntervalDisplayCondition.InitializeWithTimes(start, [end])
DirectCast(overlay, IAgStkGraphicsGlobeOverlay).DisplayCondition = TryCast(condition, IAgStkGraphicsDisplayCondition)

scene.CentralBodies.Earth.Imagery.Add(DirectCast(overlay, IAgStkGraphicsGlobeImageOverlay))

Draw a primitive based on multiple conditions

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String modelFile: Location of the model file
' IAgCrdnAxesFixed axes: An axes used to orient the model

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim position As Array = New Object() {29.98, -90.25, 0.0}

Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _
    modelFile)
model.SetPositionCartographic("Earth", position)
model.Scale = Math.Pow(10, 1.5)

Dim start1 As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 14:00:00.000")
Dim end1 As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 14:30:00.000")
DirectCast(root, IAgAnimation).CurrentTime = Double.Parse(start1.Format("epSec"))
Dim start2 As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 15:00:00.000")
Dim end2 As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 15:30:00.000")

Dim time1 As IAgStkGraphicsTimeIntervalDisplayCondition = manager.Initializers.TimeIntervalDisplayCondition.InitializeWithTimes(start1, end1)
Dim time2 As IAgStkGraphicsTimeIntervalDisplayCondition = manager.Initializers.TimeIntervalDisplayCondition.InitializeWithTimes(start2, end2)
Dim composite As IAgStkGraphicsCompositeDisplayCondition = manager.Initializers.CompositeDisplayCondition.Initialize()

composite.Add(DirectCast(time1, IAgStkGraphicsDisplayCondition))
composite.Add(DirectCast(time2, IAgStkGraphicsDisplayCondition))
composite.LogicOperation = AgEStkGraphicsBinaryLogicOperation.eStkGraphicsBinaryLogicOperationOr
DirectCast(model, IAgStkGraphicsPrimitive).DisplayCondition = TryCast(composite, IAgStkGraphicsDisplayCondition)

Dim result As IAgCrdnAxesFindInAxesResult = root.VgtRoot.WellKnownAxes.Earth.Fixed.FindInAxes(DirectCast(root.CurrentScenario, IAgScenario).Epoch, DirectCast(axes, IAgCrdnAxes))
model.Orientation = result.Orientation

manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Draw a primitive based on viewer altitude

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim extent As Array = New Object() _
{ _
    -94, 29, _
    -89, 33 _
}

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

Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()
Dim boundaryPositions As Array = triangles.BoundaryPositions
line.Set(boundaryPositions)
DirectCast(line, IAgStkGraphicsPrimitive).Color = Color.White

Dim condition As IAgStkGraphicsAltitudeDisplayCondition = manager.Initializers.AltitudeDisplayCondition.InitializeWithAltitudes(500000, 2500000)
DirectCast(line, IAgStkGraphicsPrimitive).DisplayCondition = TryCast(condition, IAgStkGraphicsDisplayCondition)

manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw a primitive based on viewer distance

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String modelFile: Location of the model file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _
    modelFile)
Dim position As Array = New Object() {29.98, -90.25, 8000.0}
model.SetPositionCartographic("Earth", position)
model.Scale = Math.Pow(10, 3)

Dim condition As IAgStkGraphicsDistanceDisplayCondition = manager.Initializers.DistanceDisplayCondition.InitializeWithDistances(2000, 40000)
DirectCast(model, IAgStkGraphicsPrimitive).DisplayCondition = TryCast(condition, IAgStkGraphicsDisplayCondition)

manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Draw a screen overlay based on viewer distance

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' IAgStkGraphicsModelPrimitive model: A model
' IAgStkGraphicsScreenOverlay overlay: A overlay

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

Dim condition As IAgStkGraphicsDistanceToPrimitiveDisplayCondition = manager.Initializers.DistanceToPrimitiveDisplayCondition.InitializeWithDistances(DirectCast(model, IAgStkGraphicsPrimitive), 0, 40000)
DirectCast(overlay, IAgStkGraphicsOverlay).DisplayCondition = DirectCast(condition, IAgStkGraphicsDisplayCondition)

manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))
overlayManager.Add(overlay)

Shows the format of the TimeInterval parameter when creating a time interval display condition.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim timeInterval As Array = New Object() {"1 Jan 2012 12:00:00.000", "1 Jan 2012 14:00:00.000"}

sceneManager.Initializers.TimeIntervalDisplayCondition.InitializeWithTimeInterval(timeInterval)

Shows the format of the Radii parameter when computing using an ellipsoid triangulator.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim radii As Array = New Object() {2000, 1000, 1000}

Dim result As IAgStkGraphicsSolidTriangulatorResult = sceneManager.Initializers.EllipsoidTriangulator.ComputeSimple(radii)

Shows the format of the BottomPositions and TopPositions parameters when computing using an extruded polyline triangulator with cartographic positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim bottomPositions As Array = New Object() {0, 0, 200000, 0.1, 0.1, 200000, _
     0, 0.1, 200000, 0, 0, 200000}

Dim topPositions As Array = New Object() {0.1, 0.1, 900000, 0.2, 0.2, 900000, _
     0.1, 0.2, 900000, 0.1, 0.1, 900000}

Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeCartographic("Earth", bottomPositions, topPositions)

Shows the format of the BottomPositions and TopPositions parameters when computing using an extruded polyline triangulator.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim bottomPositions As Array = New Object() {6578.14, 0, 0, 6512.79, 653.458, 652.476, _
     6545.27, 656.718, 0, 6578.14, 0, 0}

Dim topPositions As Array = New Object() {7205.81, 722.992, 722.36, 6991.68, 1417.28, 1437.63, _
     7097.63, 1438.76, 722.36, 7205.81, 722.992, 722.36}

Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.Compute("Earth", bottomPositions, topPositions)

Shows the format of the Positions parameter when computing using an extruded polyline triangulator with altitudes and cartographic positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim positions As Array = New Object() {0, 0, 200000, 0.1, 0.1, 200000, _
     0, 0.1, 200000, 0, 0, 200000}

Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeCartographicWithAltitudes("Earth", positions, 0, 100)

Shows the format of the Positions parameter when computing using an extruded polyline triangulator with altitudes.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim positions As Array = New Object() {6578.14, 0, 0, 6512.79, 653.458, 652.476, _
     6545.27, 656.718, 0, 6578.14, 0, 0}

Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeWithAltitudes("Earth", positions, 0, 100)

Shows the format of the Positions parameter when computing using an extruded polyline triangulator with cartographic positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim positions As Array = New Object() {0, -0.0079, 15000, -0.0078, 0, 45000, _
     0, 0.0079, 15000, 0, 0, 45000, _
     0, -0.0079, 15000}

Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeSingleConstantAltitudeCartographic("Earth", positions, 30000)

Shows the format of the Positions parameter when computing using an extruded polyline triangulator.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim positions As Array = New Object() {6392.94, -50.5053, 0, 6422.94, 0, -49.7669, _
     6392.94, 50.5053, 0, 6422.94, 0, 49.7669, _
     6392.94, -50.5053, 0}

Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeSingleConstantAltitude("Earth", positions, 30000)

Add custom imagery to the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

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

Dim activator As IAgStkGraphicsCustomImageGlobeOverlayPluginActivator = manager.Initializers.CustomImageGlobeOverlayPluginActivator.Initialize()
Dim proxy As IAgStkGraphicsCustomImageGlobeOverlayPluginProxy = activator.CreateFromDisplayName("OpenStreetMapPlugin.VBNET")

Dim overlay As IAgStkGraphicsCustomImageGlobeOverlay = proxy.CustomImageGlobeOverlay
scene.CentralBodies.Earth.Imagery.Add(DirectCast(overlay, IAgStkGraphicsGlobeImageOverlay))

Add jp2 imagery to the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String globeOverlayFile: The globe overlay file

'
' Either jp2 or pdttx can be used here
'
Dim overlay As IAgStkGraphicsGlobeImageOverlay = scene.CentralBodies.Earth.Imagery.AddUriString(globeOverlayFile)

Add terrain to the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String terrainOverlayFile: The terrain overlay file

Dim overlay As IAgStkGraphicsTerrainOverlay = scene.CentralBodies.Earth.Terrain.AddUriString( _
    terrainOverlayFile)

Draw an image on top of another

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String topOverlayFile: The top globe overlay file
' String bottomOverlayFile: The bottom globe overlay file

Dim topOverlay As IAgStkGraphicsGlobeImageOverlay = scene.CentralBodies.Earth.Imagery.AddUriString(topOverlayFile)
Dim bottomOverlay As IAgStkGraphicsGlobeImageOverlay = scene.CentralBodies.Earth.Imagery.AddUriString(bottomOverlayFile)

'
' Since bottom.jp2 was added after top.jp2, bottom.jp2 will be
' drawn on top.  In order to draw top.jp2 on top, we swap the Overlays.
'
scene.CentralBodies.Earth.Imagery.Swap(topOverlay, bottomOverlay)

Shows the format of the Extent parameter when creating a raster imgae globe overlay.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim extent As Array = New Object() {90, 30, -77, 39}

Dim overlay As IAgStkGraphicsRasterImageGlobeOverlay = sceneManager.Initializers.RasterImageGlobeOverlay.InitializeWithColor(Color.Red, extent)

Adjust brightness, contrast, and gamma

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)
'
' The URI can be a file path, http, https, or ftp location
'
Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _
    imageFile)

'
' Add brightness, contrast, and gamma correction filters to sequence
'
Dim sequenceFilter As IAgStkGraphicsSequenceFilter = manager.Initializers.SequenceFilter.Initialize()
sequenceFilter.Add(DirectCast(manager.Initializers.BrightnessFilter.InitializeWithAdjustment(0.1), IAgStkGraphicsRasterFilter))
sequenceFilter.Add(DirectCast(manager.Initializers.ContrastFilter.InitializeWithAdjustment(0.2), IAgStkGraphicsRasterFilter))
sequenceFilter.Add(DirectCast(manager.Initializers.GammaCorrectionFilter.InitializeWithGamma(0.9), IAgStkGraphicsRasterFilter))

image.ApplyInPlace(DirectCast(sequenceFilter, IAgStkGraphicsRasterFilter))

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()
DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
overlay.Texture = texture
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginCenterRight

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Adjust the color levels of an image

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)
'
' The URI can be a file path, http, https, or ftp location
'
Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _
    imageFile)

'
' Adjust the color levels of the image
'
Dim levelsFilter As IAgStkGraphicsLevelsFilter = manager.Initializers.LevelsFilter.Initialize()
levelsFilter.SetLevelAdjustment(AgEStkGraphicsRasterBand.eStkGraphicsRasterBandBlue, -255)
levelsFilter.SetLevelAdjustment(AgEStkGraphicsRasterBand.eStkGraphicsRasterBandGreen, -255)
image.ApplyInPlace(DirectCast(levelsFilter, IAgStkGraphicsRasterFilter))

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()
DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
overlay.Texture = texture
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginBottomRight

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Blur an image with a convolution matrix

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)
'
' The URI can be a file path, http, https, or ftp location
'
Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _
    imageFile)

'
' Set convolution matrix to blur
'
Dim kernel As Array = New Object() {1, 1, 1, 1, 1, 1, _
 1, 1, 1}
Dim convolutionMatrix As IAgStkGraphicsConvolutionFilter = manager.Initializers.ConvolutionFilter.InitializeWithKernelAndDivisor(kernel, 9.0)
image.ApplyInPlace(DirectCast(convolutionMatrix, IAgStkGraphicsRasterFilter))

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()
DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
overlay.Texture = texture
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginBottomLeft

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Extract the alpha component from an image

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)
'
' The URI can be a file path, http, https, or ftp location
'
Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _
    imageFile)

'
' Extract the alpha channel from the image
'
Dim channelExtract As IAgStkGraphicsBandExtractFilter = manager.Initializers.BandExtractFilter.InitializeWithBand(AgEStkGraphicsRasterBand.eStkGraphicsRasterBandAlpha)
image.ApplyInPlace(DirectCast(channelExtract, IAgStkGraphicsRasterFilter))

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()
DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
overlay.Texture = texture
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopRight

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Flip an image

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)
'
' The URI can be a file path, http, https, or ftp location
'
Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _
    imageFile)
image.Flip(AgEStkGraphicsFlipAxis.eStkGraphicsFlipAxisVertical)

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()
DirectCast(overlay, IAgStkGraphicsOverlay).Size = New Object() _
    { _
        0.2, 0.2, _
        AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction, _
        AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction _
    }
overlay.Texture = texture
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopLeft

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Load and display a raster stream

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

'
' Create the RasterStream from the plugin
'
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, imageFile, Nothing)

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

'
' Creates the texture overlay
'
Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(DirectCast(rasterStream, IAgStkGraphicsRaster))
Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, texture.Template.Width, texture.Template.Height)
overlay.Texture = texture
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginCenterLeft

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Swizzle an image's components

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)
'
' The URI can be a file path, http, https, or ftp location
'
Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _
    imageFile)

'
' Swizzle RGBA to BGRA
'
Dim channelOrder As IAgStkGraphicsBandOrderFilter = manager.Initializers.BandOrderFilter.InitializeWithOrder(AgEStkGraphicsRasterFormat.eStkGraphicsRasterFormatBgra)
image.ApplyInPlace(DirectCast(channelOrder, IAgStkGraphicsRasterFilter))

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()
DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2
DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction
overlay.Texture = texture
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopCenter

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Shows the format of the Extent and SubExtent parameters when writing using a Jpeg 2000 Writer.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' String imagePath: Path to the image to write
' String saveFile: Path to the output file

Dim extent As Array = New Object() {-1, -1, 1, 1}

Dim subExtent As Array = New Object() {-0.5, -0.5, 0.5, 0.5}

sceneManager.Initializers.Jpeg2000Writer.WriteExtentAndSubExtentString(imagePath, extent, subExtent, AgEStkGraphicsJpeg2000CompressionProfile.eStkGraphicsJpeg2000CompressionProfileDefault, 1, saveFile, _
     True)

Shows the format of the model's Position property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsModelPrimitive model: A model primitive

Dim position As Array = New Object() {31378.1, 0, 0}

model.Position = position

Shows the format of the Position parameter when updating a model.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsModelPrimitive model: A model primitive

Dim position As Array = New Object() {39.88, -75.25, 0}

model.SetPositionCartographic("Earth", position)

Shows the format of the overlay's MaximumSize property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsOverlay overlay: A valid overlay object.

Dim maximumSize As Array = New Object() {500, 500, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

overlay.MaximumSize = maximumSize

Shows the format of the overlay's MinimumSize property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsOverlay overlay: A valid overlay object.

Dim minimumSize As Array = New Object() {5, 5, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

overlay.MinimumSize = minimumSize

Shows the format of the overlay's Padding property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsOverlay overlay: A valid overlay object.

Dim padding As Array = New Object() {10, 10, 10, 10}

overlay.Padding = padding

Shows the format of the overlay's PinningPosition property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsOverlay overlay: A valid overlay object.

Dim pinningPosition As Array = New Object() {5, 5, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

overlay.PinningPosition = pinningPosition

Shows the format of the overlay's Position property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsOverlay overlay: A valid overlay object.

Dim position As Array = New Object() {50, 50, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

overlay.Position = position

Shows the format of the overlay's RotationPoint property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsOverlay overlay: A valid overlay object.

Dim rotationPoint As Array = New Object() {False, AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginCenter, True, 0, 0, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, _
     AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

overlay.RotationPoint = rotationPoint

Shows the format of the overlay's Size property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsOverlay overlay: A valid overlay object.

Dim size As Array = New Object() {300, 300, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

overlay.Size = size

Shows the format of the path point's Position property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsPathPoint path: A valid path point object

Dim position As Array = New Object() {1089235, -4800930, 4046386}

path.Position = position

Shows the format of the Position parameter when creating a path point.

[Visual Basic .NET] Copy Code
' AgStkObjectRoot root: STK Object Model root
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim position As Array = New Object() {1089235, -4800930, 4046386}

Dim path As IAgStkGraphicsPathPoint = sceneManager.Initializers.PathPoint.InitializeWithDateAndPosition(root.ConversionUtility.NewDate("UTCG", DirectCast(root.CurrentScenario, IAgScenario).StartTime.ToString()), position)

Change a model's color on mouse over

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' IAgStkGraphicsPrimitive m_SelectedModel: The previously selected model

'
' Get a collection of picked objects under the mouse location.
' The collection is sorted with the closest object at index zero.
'
            Dim collection As IAgStkGraphicsPickResultCollection = scene.Pick(mouseX, mouseY)
If collection.Count <> 0 Then
     Dim objects As IAgStkGraphicsObjectCollection = collection(0).Objects
     Dim composite As IAgStkGraphicsCompositePrimitive = TryCast(objects(0), IAgStkGraphicsCompositePrimitive)

     '
     ' Was a model in our composite picked?
     '
                If composite Is m_Models Then
                    Dim model As IAgStkGraphicsPrimitive = TryCast(objects(1), IAgStkGraphicsPrimitive)

                    '
                    ' Selected Model
                    '
                    model.Color = Color.Cyan

                    If model IsNot m_SelectedModel Then
                        '
                        ' Unselect previous model
                        '
                        If m_SelectedModel IsNot Nothing Then
                            m_SelectedModel.Color = Color.Red
                        End If
                        m_SelectedModel = model
                        scene.Render()
                    End If
                    Return
                End If
End If

'
' Unselect previous model
'
If m_SelectedModel IsNot Nothing Then
                m_SelectedModel.Color = Color.Red
     m_SelectedModel = Nothing
     scene.Render()

Change model colors within a rectangular region

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' List(Of IAgStkGraphicsModelPrimitive) SelectedModels: The previously selected models

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
'
' Get a collection of picked objects in a 100 by 100 rectangular region.
' The collection is sorted with the closest object at index zero.
'
Dim newModels As New List(Of IAgStkGraphicsModelPrimitive)()
Dim collection As IAgStkGraphicsPickResultCollection = scene.PickRectangular(mouseX - 50, mouseY + 50, mouseX + 50, mouseY - 50)
For Each pickResult As IAgStkGraphicsPickResult In collection
    Dim objects As IAgStkGraphicsObjectCollection = pickResult.Objects
    Dim composite As IAgStkGraphicsCompositePrimitive = TryCast(objects(0), IAgStkGraphicsCompositePrimitive)

    '
    ' Was a model in our composite picked?
    '
    If composite Is m_Models Then
        Dim model As IAgStkGraphicsModelPrimitive = TryCast(objects(1), IAgStkGraphicsModelPrimitive)

        '
        ' Selected Model
        '
        DirectCast(model, IAgStkGraphicsPrimitive).Color = Color.Cyan
        newModels.Add(model)
    End If
Next
'
' Reset color of models that were previous selected but were not in this pick.
'
For Each selectedModel As IAgStkGraphicsModelPrimitive In SelectedModels
    If Not newModels.Contains(selectedModel) Then
        DirectCast(selectedModel, IAgStkGraphicsPrimitive).Color = Color.Red
    End If
Next
SelectedModels = newModels

Zoom to a model on double click

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim selectedModel As IAgStkGraphicsPrimitive = Nothing
'
' Get a collection of picked objects under the mouse location.
' The collection is sorted with the closest object at index zero.
'
Dim collection As IAgStkGraphicsPickResultCollection = scene.Pick(mouseX, mouseY)
If collection.Count <> 0 Then
    Dim objects As IAgStkGraphicsObjectCollection = collection(0).Objects
    Dim composite As IAgStkGraphicsCompositePrimitive = TryCast(objects(0), IAgStkGraphicsCompositePrimitive)

    '
    ' Was a model in our composite picked?
    '
    If composite Is m_Models Then
        selectedModel = TryCast(objects(1), IAgStkGraphicsPrimitive)
    End If

Zoom to a particular marker in a batch

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String markerFile: The file to use for the markers
' IList(Of Array) markerPositions: A list of the marker positions

Dim selectedMarkerCartesianPosition As Array = Nothing
'
' Get a collection of picked objects under the mouse location.
' The collection is sorted with the closest object at index zero.
'
Dim collection As IAgStkGraphicsPickResultCollection = scene.Pick(mouseX, mouseY)
If collection.Count <> 0 Then
     Dim objects As IAgStkGraphicsObjectCollection = collection(0).Objects
     Dim batchPrimitive As IAgStkGraphicsMarkerBatchPrimitive = TryCast(objects(0), IAgStkGraphicsMarkerBatchPrimitive)

     '
     ' Was a marker in our marker batch picked?
     '
     If batchPrimitive Is m_MarkerBatch Then
          '
          ' Get the index of the particular marker we picked
          '
          Dim markerIndex As IAgStkGraphicsBatchPrimitiveIndex = TryCast(objects(1), IAgStkGraphicsBatchPrimitiveIndex)
          '
          ' Get the position of the particular marker we picked
          '
          Dim markerCartographic As Array = markerPositions(markerIndex.Index)

          Dim markerPosition As IAgPosition = root.ConversionUtility.NewPositionOnEarth()
          markerPosition.AssignPlanetodetic(CDbl(markerCartographic.GetValue(0)), CDbl(markerCartographic.GetValue(1)), CDbl(markerCartographic.GetValue(2)))

          Dim x As Double, y As Double, z As Double
          markerPosition.QueryCartesian(x, y, z)

          selectedMarkerCartesianPosition = New Object() {x, y, z}
     End If
End If


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

Dim positions As IList(Of Array) = New List(Of Array)()
positions.Add(New Object() {39.88, -75.25, 3000.0})
positions.Add(New Object() {38.85, -77.04, 3000.0})
positions.Add(New Object() {38.85, -77.04, 0.0})
positions.Add(New Object() {29.98, -90.25, 0.0})
positions.Add(New Object() {37.37, -121.92, 0.0})

Dim positionsArray As Array = Array.CreateInstance(GetType(Object), positions.Count * 3)
For i As Integer = 0 To positions.Count - 1
     Dim position As Array = positions(i)
     position.CopyTo(positionsArray, i * 3)
Next

Dim markerBatch As IAgStkGraphicsMarkerBatchPrimitive = manager.Initializers.MarkerBatchPrimitive.Initialize()
markerBatch.Texture = manager.Textures.LoadFromStringUri( _
     markerFile)
markerBatch.SetCartographic("Earth", positionsArray)

' Save the positions of the markers for use in the pick event
markerPositions = positions
' Enable per item picking
markerBatch.PerItemPickingEnabled = True

manager.Primitives.Add(DirectCast(markerBatch, IAgStkGraphicsPrimitive))

Shows the format of the Positions parameter when interpolating positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim interpolator As IAgStkGraphicsPositionInterpolator = TryCast(sceneManager.Initializers.GreatArcInterpolator.InitializeWithCentralBody("Earth"), IAgStkGraphicsPositionInterpolator)

Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0}

Dim results As Array = interpolator.Interpolate(positions)

Create layers of primitives

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String modelFile: Location of the model file
' String markerFile: The file to use for the marker batch

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

Dim r As New Random()
Dim holder As Integer = 25
Dim modelCount As Integer = 25

Dim positions As Array = Array.CreateInstance(GetType(Object), modelCount * 3)

'
' Create the models
'
Dim models As IAgStkGraphicsCompositePrimitive = manager.Initializers.CompositePrimitive.Initialize()

For i As Integer = 0 To modelCount - 1
    Dim latitude As Double = 35 + 1.5 * r.NextDouble()
    Dim longitude As Double = -(80 + 1.5 * r.NextDouble())
    Dim altitude As Double = 0
    Dim position As Array = New Object() {latitude, longitude, altitude}

    positions.SetValue(latitude, 3 * i)
    positions.SetValue(longitude, (3 * i) + 1)
    positions.SetValue(altitude, (3 * i) + 2)

    Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri(modelFile)
    model.SetPositionCartographic("Earth", position)
    model.Scale = Math.Pow(10, 2)
    models.Add(model)
Next

'
' Create the markers
'
Dim markers As IAgStkGraphicsMarkerBatchPrimitive = manager.Initializers.MarkerBatchPrimitive.Initialize()
markers.RenderPass = AgEStkGraphicsMarkerBatchRenderPass.eStkGraphicsMarkerBatchRenderPassTranslucent

markers.Texture = manager.Textures.LoadFromStringUri(markerFile)
markers.SetCartographic("Earth", positions)

'
' Create the points
'
Dim points As IAgStkGraphicsPointBatchPrimitive = manager.Initializers.PointBatchPrimitive.Initialize()
points.PixelSize = 5
DirectCast(points, IAgStkGraphicsPrimitive).Color = Color.Orange
Dim colors As Array = Array.CreateInstance(GetType(Object), modelCount)
For i As Integer = 0 To colors.Length - 1
    colors.SetValue(Color.Orange.ToArgb(), i)
Next
points.SetCartographicWithColorsAndRenderPass("Earth", positions, colors, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

'
' Set the display Conditions
'
Dim near As IAgStkGraphicsAltitudeDisplayCondition = manager.Initializers.AltitudeDisplayCondition.InitializeWithAltitudes(0, 500000)
DirectCast(models, IAgStkGraphicsPrimitive).DisplayCondition = DirectCast(near, IAgStkGraphicsDisplayCondition)

Dim medium As IAgStkGraphicsAltitudeDisplayCondition = manager.Initializers.AltitudeDisplayCondition.InitializeWithAltitudes(500000, 2000000)
DirectCast(markers, IAgStkGraphicsPrimitive).DisplayCondition = DirectCast(medium, IAgStkGraphicsDisplayCondition)

Dim far As IAgStkGraphicsAltitudeDisplayCondition = manager.Initializers.AltitudeDisplayCondition.InitializeWithAltitudes(2000000, 4000000)
DirectCast(points, IAgStkGraphicsPrimitive).DisplayCondition = DirectCast(far, IAgStkGraphicsDisplayCondition)

manager.Primitives.Add(DirectCast(models, IAgStkGraphicsPrimitive))
manager.Primitives.Add(DirectCast(markers, IAgStkGraphicsPrimitive))
manager.Primitives.Add(DirectCast(points, IAgStkGraphicsPrimitive))

Z-order primitives on the surface

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' Array pennsylvaniaPositions: Pennsylvania positions
' Array areaCode610Positions: Area Code 610 positions
' Array areaCode215Positions: Area Code 215 positions
' Array schuylkillPositions: Schuylkill positions

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

Dim pennsylvania As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
pennsylvania.SetTriangulator(DirectCast(manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", pennsylvaniaPositions), IAgStkGraphicsTriangulatorResult))
DirectCast(pennsylvania, IAgStkGraphicsPrimitive).Color = Color.Yellow

Dim areaCode610 As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
areaCode610.SetTriangulator(DirectCast(manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", areaCode610Positions), IAgStkGraphicsTriangulatorResult))
DirectCast(areaCode610, IAgStkGraphicsPrimitive).Color = Color.DarkRed

Dim areaCode215 As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
areaCode215.SetTriangulator(DirectCast(manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", areaCode215Positions), IAgStkGraphicsTriangulatorResult))
DirectCast(areaCode215, IAgStkGraphicsPrimitive).Color = Color.Green

Dim schuylkillRiver As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()
schuylkillRiver.Set(schuylkillPositions)
DirectCast(schuylkillRiver, IAgStkGraphicsPrimitive).Color = Color.Blue
schuylkillRiver.Width = 2

Dim composite As IAgStkGraphicsCompositePrimitive = manager.Initializers.CompositePrimitive.Initialize()
composite.Add(DirectCast(pennsylvania, IAgStkGraphicsPrimitive))
composite.Add(DirectCast(areaCode610, IAgStkGraphicsPrimitive))
composite.Add(DirectCast(areaCode215, IAgStkGraphicsPrimitive))
composite.Add(DirectCast(schuylkillRiver, IAgStkGraphicsPrimitive))

manager.Primitives.Add(DirectCast(composite, IAgStkGraphicsPrimitive))

Draw a set of markers

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String markerImageFile: The image file to use for the markers

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

Dim positions As Array = New Object() { _
    39.88, -75.25, 0, _
     38.85, -77.04, 0, _
     29.98, -90.25, 0, _
     37.37, -121.92, 0}

Dim markerBatch As IAgStkGraphicsMarkerBatchPrimitive = manager.Initializers.MarkerBatchPrimitive.Initialize()
markerBatch.Texture = manager.Textures.LoadFromStringUri( _
    markerImageFile)
markerBatch.SetCartographic("Earth", positions)

manager.Primitives.Add(DirectCast(markerBatch, IAgStkGraphicsPrimitive))

Shows the format of the Colors parameter when setting per marker colors.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetColors(colors)

Shows the format of the Colors, Positions and Indices parameters when updating a marker batch primitive with cartographic positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetColors(colors)

Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _
     29.98, -90.25, 0, 37.37, -121.92, 0}

Dim indices As Array = New Object() {0, 1, 2, 3}

markerBatch.SetPartialCartographicWithOptionalParametersIndicesOrderAndRenderPass("Earth", positions, parameters, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the Colors, Positions and Indices parameters when updating a marker batch primitive.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetColors(colors)

Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _
     -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}

Dim indices As Array = New Object() {0, 1, 2, 3}

markerBatch.SetPartialWithOptionalParametersIndicesOrderAndRenderPass(positions, parameters, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the EyeOffsets parameter when setting per marker eye offsets.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim eyeoffset As Array = New Object() {2, 3, 4, 2, 3, 4}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetEyeOffsets(eyeoffset)

Shows the format of the marker batch's EyeOffset property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive

Dim eyeoffset As Array = New Object() {2, 3, 4}

markerBatch.EyeOffset = eyeoffset

Shows the format of the marker batch's PixelOffset property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive

Dim pixelOffset As Array = New Object() {1, 2}

markerBatch.PixelOffset = pixelOffset

Shows the format of the marker batch's Size property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive

Dim size As Array = New Object() {256, 128}

markerBatch.Size = size

Shows the format of the marker batch's TextureCoordinate property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive

Dim coordinates As Array = New Object() {0, 0, 1, 1}

markerBatch.TextureCoordinate = coordinates

Shows the format of the Origins parameter when setting per marker origins.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim origins As Array = New Object() {AgEStkGraphicsOrigin.eStkGraphicsOriginCenter, AgEStkGraphicsOrigin.eStkGraphicsOriginBottomLeft, AgEStkGraphicsOrigin.eStkGraphicsOriginBottomRight, AgEStkGraphicsOrigin.eStkGraphicsOriginTopLeft}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetOrigins(origins)

Shows the format of the PixelOffsets parameter when setting per marker pixel offsets.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim pixelOffset As Array = New Object() {1, 2, 2, 1}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetPixelOffsets(pixelOffset)

Shows the format of the RotationAngles parameter when setting per marker rotations.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim rotations As Array = New Object() {15, 30, 45, 60}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetRotations(rotations)

Shows the format of the Sizes parameter when setting per marker sizes.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim size As Array = New Object() {256, 128, 128, 256}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetSizes(size)

Shows the format of the TextureCoordinates parameter when setting per marker texture coordinates.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim coordinates As Array = New Object() {0, 0, 1, 1, 1, 1, _
     0, 0}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetTextureCoordinates(coordinates)

Shows the format of the Textures parameter when setting per marker textures.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' String texturePath1: Path to the first texture file
' String texturePath2: Path to the second texture file
' String texturePath3: Path to the third texture file
' String texturePath4: Path to the fourth texture file

Dim textures As Array = New Object() {sceneManager.Textures.LoadFromStringUri(texturePath1), sceneManager.Textures.LoadFromStringUri(texturePath2), sceneManager.Textures.LoadFromStringUri(texturePath3), sceneManager.Textures.LoadFromStringUri(texturePath4)}

Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()
parameters.SetTextures(textures)

Draw a Collada model with user defined lighting

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String modelFile: The model file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _
    modelFile)

Dim position As Array = New Object() {39.88, -75.25, 500000.0}
model.SetPositionCartographic("Earth", position)
model.Scale = Math.Pow(10, 2)

manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Draw a Collada or MDL model

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String modelFile: The model file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _
    modelFile)

Dim position As Array = New Object() {39.88, -75.25, 5000.0}
model.SetPositionCartographic("Earth", position)
model.Scale = Math.Pow(10, 2)

manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Draw a dynamically textured Collada model

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String modelFile: The model file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _
    modelFile)

Dim position As Array = New Object() {49.88, -77.25, 5000.0}
model.SetPositionCartographic("Earth", position)
model.Scale = Math.Pow(10, 2)

manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

'  hellfireflame.anc
'
'  <?xml version = "1.0" standalone = "yes"?>
'  <ancillary_model_data version = "1.0">
'       <video_textures>
'           <video_texture image_id = "smoketex_tga" init_from = "smoke.avi" video_loop="true" video_framerate="60" />
'           <video_texture image_id = "flametex_tga" init_from = "flame.mov" video_loop="true" video_framerate="60" />
'      </video_textures>
'  </ancillary_model_data>

Draw a model with moving articulations

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String modelFile: The model file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
'
' Create the model
'
Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _
     modelFile)

Dim position As Array = New Object() {36, -116.75, 25000.0}
model.SetPositionCartographic("Earth", position)

'
' Rotate the model to be oriented correctly
'
model.Articulations.GetByName("Commuter").GetByName("Roll").CurrentValue = 4.08407
model.Articulations.GetByName("Commuter").GetByName("Yaw").CurrentValue = -0.43633

manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))


Friend Sub TimeChanged(TimeEpSec As Double)
     '
     ' Rotate the propellors every time the animation updates
     '
     If m_Model IsNot Nothing Then
          Dim TwoPI As Double = 2 * Math.PI
          DirectCast(m_Model, IAgStkGraphicsModelPrimitive).Articulations.GetByName("props").GetByName("Spin").CurrentValue = TimeEpSec Mod TwoPI
     End If
End Sub

Orient a model

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String modelFile: The model file
' IAgCrdnSystem referenceFrame: A reference frame for the model

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

Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _
    modelFile)
DirectCast(model, IAgStkGraphicsPrimitive).ReferenceFrame = referenceFrame
' Model is oriented using east-north-up axes.  Use model.Orientation for addition rotation.
Dim zero As Array = New Object() {0, 0, 0}
' Origin of reference frame
model.Position = zero
model.Scale = Math.Pow(10, 1.5)

manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Shows the format of the Positions parameter when adding points to a path primitive.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsPathPrimitive path: A path primitive

Dim positions As Array = New Object() {0, 0, 0, 1, 1, 1, _
     2, 2, 2, 3, 3, 3, _
     4, 4, 4}

path.AddRangeToFront(positions)

Draw a set of points

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
' Philadelphia
' Washington, D.C.
' New Orleans
' San Jose
Dim positions As Array = New Object() {39.88, -75.25, 0, _
                                       38.85, -77.04, 0, _
                                       29.98, -90.25, 0, _
                                       37.37, -121.92, 0}

Dim pointBatch As IAgStkGraphicsPointBatchPrimitive = manager.Initializers.PointBatchPrimitive.Initialize()
pointBatch.SetCartographic("Earth", positions)
pointBatch.PixelSize = 5
DirectCast(pointBatch, IAgStkGraphicsPrimitive).Color = Color.White
pointBatch.DisplayOutline = True
pointBatch.OutlineWidth = 2
pointBatch.OutlineColor = Color.Red

manager.Primitives.Add(DirectCast(pointBatch, IAgStkGraphicsPrimitive))

Draw a set of uniquely colored points

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
' San Francisco, Sacramento, Los Angeles, San Diego
Dim positions As Array = New Object() _
{ _
    37.62, -122.38, 0.0, _
    38.52, -121.5, 0.0, _
    33.93, -118.4, 0.0, _
    32.82, -117.13, 0.0 _
}

Dim colors As Array = New Object() _
{ _
    Color.Red.ToArgb(), _
     Color.Orange.ToArgb(), _
     Color.Blue.ToArgb(), _
     Color.White.ToArgb() _
}

Dim pointBatch As IAgStkGraphicsPointBatchPrimitive = manager.Initializers.PointBatchPrimitive.Initialize()
pointBatch.SetCartographicWithColors("Earth", positions, colors)
pointBatch.PixelSize = 8

manager.Primitives.Add(DirectCast(pointBatch, IAgStkGraphicsPrimitive))

Shows the format of the Positions, Colors and Indices parameters when updating a point batch with cartographic positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsPointBatchPrimitive pointBatch: A point batch primitive

Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _
     29.98, -90.25, 0, 37.37, -121.92, 0}

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim indices As Array = New Object() {0, 1, 2, 3}

pointBatch.SetPartialCartographicWithColorsIndicesOrderAndRenderPass("Earth", positions, colors, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the Positions, Colors and Indices parameters when updating a point batch.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsPointBatchPrimitive pointBatch: A point batch primitive

Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _
     -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim indices As Array = New Object() {0, 1, 2, 3}

pointBatch.SetPartialWithColorsIndicesOrderAndRenderPass(positions, colors, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Draw a great arc on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim washingtonDC As Array = New Object() {38.85, -77.04, 0.0}
Dim newOrleans As Array = New Object() {29.98, -90.25, 0.0}

Dim positions As Array = New Object(5) {}
washingtonDC.CopyTo(positions, 0)
newOrleans.CopyTo(positions, 3)

Dim interpolator As IAgStkGraphicsPositionInterpolator = TryCast(manager.Initializers.GreatArcInterpolator.Initialize(), IAgStkGraphicsPositionInterpolator)
Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.InitializeWithInterpolator(interpolator)
line.SetCartographic("Earth", positions)

manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw a line between two points

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim philadelphia As Array = New Object() {39.88, -75.25, 3000.0}
Dim washingtonDC As Array = New Object() {38.85, -77.04, 3000.0}

Dim positions As Array = New Object(5) {}
philadelphia.CopyTo(positions, 0)
washingtonDC.CopyTo(positions, 3)

Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()
'$planetName$Name of the planet to place primitive$
line.SetCartographic("Earth", positions)
manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw a rhumb line on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim newOrleans As Array = New Object() {29.98, -90.25, 0.0}
Dim sanJose As Array = New Object() {37.37, -121.92, 0.0}

Dim positions As Array = New Object(5) {}
newOrleans.CopyTo(positions, 0)
sanJose.CopyTo(positions, 3)

Dim interpolator As IAgStkGraphicsPositionInterpolator = TryCast(manager.Initializers.RhumbLineInterpolator.Initialize(), IAgStkGraphicsPositionInterpolator)
Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.InitializeWithInterpolator(interpolator)
line.SetCartographic("Earth", positions)
manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw a STK area target outline on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' Array positions: The area target positions

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

Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()

line.Set(positions)
line.Width = 2
DirectCast(line, IAgStkGraphicsPrimitive).Color = Color.Yellow
line.DisplayOutline = True
line.OutlineWidth = 2
line.OutlineColor = Color.Black

manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw the outline of a circle on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim philadelphia As Array = New Object() {39.88, -75.25, 0.0}

Dim shape As IAgStkGraphicsSurfaceShapesResult = manager.Initializers.SurfaceShapes.ComputeCircleCartographic("Earth", philadelphia, 10000)
Dim positions As Array = shape.Positions

Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.InitializeWithType(shape.PolylineType)
line.Set(positions)
line.Width = 2
DirectCast(line, IAgStkGraphicsPrimitive).Color = Color.White

manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw the outline of an ellipse on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim washingtonDC As Array = New Object() {38.85, -77.04, 3000.0}

Dim shape As IAgStkGraphicsSurfaceShapesResult = manager.Initializers.SurfaceShapes.ComputeEllipseCartographic("Earth", washingtonDC, 45000, 30000, 45)
Dim positions As Array = shape.Positions

Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.InitializeWithType(shape.PolylineType)
line.Set(positions)
DirectCast(line, IAgStkGraphicsPrimitive).Color = Color.Cyan

manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Shows the format of the Positions parameter when updating a polyline primitive with cartographic positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsPolylinePrimitive polyline: A polyline primitive

Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _
     29.98, -90.25, 0, 37.37, -121.92, 0}

polyline.SetSubsetCartographic("Earth", positions, 1, 2)

Shows the format of the Positions parameter when updating a polyline primitive.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsPolylinePrimitive polyline: A polyline primitive

Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _
     -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}

polyline.SetSubset(positions, 1, 2)

Shows the format of the Positions, Colors and Indices parameters when updating a polyline primitive with cartographic positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsPolylinePrimitive polyline: A polyline primitive

Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _
     29.98, -90.25, 0, 37.37, -121.92, 0}

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim indices As Array = New Object() {0, 1, 2, 3}

polyline.SetPartialCartographicWithColorsIndicesOrderAndRenderPass("Earth", positions, colors, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the Positions, Colors and Indices parameters when updating a polyline primitive.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsPolylinePrimitive polyline: A polyline primitive

Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _
     -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim indices As Array = New Object() {0, 1, 2, 3}

polyline.SetPartialWithColorsIndicesOrderAndRenderPassHint(positions, colors, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Draw a box

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' IAgCrdnSystem system: A system for the solid

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

Dim pos As Array = New Object() {1000, 1000, 2000}
Dim result As IAgStkGraphicsSolidTriangulatorResult = manager.Initializers.BoxTriangulator.Compute(pos)
Dim solid As IAgStkGraphicsSolidPrimitive = manager.Initializers.SolidPrimitive.Initialize()
DirectCast(solid, IAgStkGraphicsPrimitive).ReferenceFrame = system
solid.SetWithResult(result)

manager.Primitives.Add(DirectCast(solid, IAgStkGraphicsPrimitive))

Draw a cylinder

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' IAgCrdnSystem system: A system for the solid

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

Dim result As IAgStkGraphicsSolidTriangulatorResult = manager.Initializers.CylinderTriangulator.CreateSimple(1000, 2000)
Dim solid As IAgStkGraphicsSolidPrimitive = manager.Initializers.SolidPrimitive.Initialize()
DirectCast(solid, IAgStkGraphicsPrimitive).ReferenceFrame = system
DirectCast(solid, IAgStkGraphicsPrimitive).Color = Color.Yellow
solid.OutlineColor = Color.Black
solid.OutlineWidth = 2
solid.OutlineAppearance = AgEStkGraphicsOutlineAppearance.eStkGraphicsStylizeBackLines
solid.BackLineColor = Color.Black
solid.BackLineWidth = 1
solid.SetWithResult(result)

manager.Primitives.Add(DirectCast(solid, IAgStkGraphicsPrimitive))

Draw an ellipsoid

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' IAgCrdnSystem system: A system for the solid

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

Dim radii As Array = New Object() {2000, 1000, 1000}
Dim result As IAgStkGraphicsSolidTriangulatorResult = manager.Initializers.EllipsoidTriangulator.ComputeSimple(radii)
Dim solid As IAgStkGraphicsSolidPrimitive = manager.Initializers.SolidPrimitive.Initialize()
DirectCast(solid, IAgStkGraphicsPrimitive).ReferenceFrame = DirectCast(system, IAgCrdnSystem)
DirectCast(solid, IAgStkGraphicsPrimitive).Color = Color.Orange
DirectCast(solid, IAgStkGraphicsPrimitive).Translucency = 0.3F
solid.OutlineAppearance = AgEStkGraphicsOutlineAppearance.eStkGraphicsFrontLinesOnly
solid.OutlineColor = Color.Blue
solid.OutlineWidth = 2
solid.DisplaySilhouette = True
solid.SetWithResult(result)

manager.Primitives.Add(DirectCast(solid, IAgStkGraphicsPrimitive))

Draw a filled STK area target on terrain

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String terrainFile: The terrain file
' Array positions: The positions used to compute triangulation

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))

Draw a filled STK area target on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String textureFile: The texture file

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))

Draw a filled, dynamically textured extent on terrain

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String rasterFile: The file to use as the raster

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))

Draw a filled, textured extent on terrain

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String textureFile: The file to use as the texture of the surface mesh

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))

Draw a moving water texture using affine transformations

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String textureFile: The file to use as the texture of the surface mesh

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

Draw a set of strings

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

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

Dim text As Array = New Object() {"Philadelphia", "Washington, D.C.", "New Orleans", "San Jose"}

Dim positions As Array = New Object() {39.88, -75.25, 0, _
                                       38.85, -77.04, 0, _
                                       29.98, -90.25, 0, _
                                      37.37, -121.92, 0}

Dim font As IAgStkGraphicsGraphicsFont = manager.Initializers.GraphicsFont.InitializeWithNameSizeFontStyleOutline("MS Sans Serif", 12, AgEStkGraphicsFontStyle.eStkGraphicsFontStyleBold, True)
Dim textBatch As IAgStkGraphicsTextBatchPrimitive = manager.Initializers.TextBatchPrimitive.InitializeWithGraphicsFont(font)
DirectCast(textBatch, IAgStkGraphicsPrimitive).Color = Color.White
textBatch.OutlineColor = Color.Red
textBatch.SetCartographic("Earth", positions, text)

manager.Primitives.Add(DirectCast(textBatch, IAgStkGraphicsPrimitive))

Draw a set of uniquely colored strings

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim strings As Array = New Object() {"San Francisco", "Sacramento", "Los Angeles", "San Diego"}

Dim positions As Array = New Object() _
{ _
    37.62, -122.38, 0.0, _
    38.52, -121.5, 0.0, _
    33.93, -118.4, 0.0, _
    32.82, -117.13, 0.0 _
}

Dim colors As Array = New Object() _
{ _
    Color.Red.ToArgb(), _
    Color.Green.ToArgb(), _
    Color.Blue.ToArgb(), _
   Color.White.ToArgb() _
}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = manager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.SetColors(colors)

Dim font As IAgStkGraphicsGraphicsFont = manager.Initializers.GraphicsFont.InitializeWithNameSizeFontStyleOutline("MS Sans Serif", 12, AgEStkGraphicsFontStyle.eStkGraphicsFontStyleBold, False)
Dim textBatch As IAgStkGraphicsTextBatchPrimitive = manager.Initializers.TextBatchPrimitive.InitializeWithGraphicsFont(font)
textBatch.SetCartographicWithOptionalParameters("Earth", positions, strings, parameters)

manager.Primitives.Add(DirectCast(textBatch, IAgStkGraphicsPrimitive))

Shows the format of the Colors parameter when setting per string colors.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.SetColors(colors)

Shows the format of the EyeOffset property when setting the per-batch eye offset.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim eyeoffset As Array = New Object() {2, 3, 4}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.EyeOffset = eyeoffset

Shows the format of the EyeOffsets parameter when setting per string eye offsets.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim eyeoffset As Array = New Object() {2, 3, 4, 2, 3, 4}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.SetEyeOffsets(eyeoffset)

Shows the format of the Origins parameter when setting per string origins.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim origins As Array = New Object() {AgEStkGraphicsOrigin.eStkGraphicsOriginCenter, AgEStkGraphicsOrigin.eStkGraphicsOriginBottomLeft, AgEStkGraphicsOrigin.eStkGraphicsOriginBottomRight, AgEStkGraphicsOrigin.eStkGraphicsOriginTopLeft}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.SetOrigins(origins)

Shows the format of the PixelOffset property when setting the per-batch pixel offset.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim pixelOffset As Array = New Object() {1, 2}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.PixelOffset = pixelOffset

Shows the format of the PixelOffsets parameter when setting per string pixel offsets.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim pixelOffset As Array = New Object() {1, 2, 2, 1}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.SetPixelOffsets(pixelOffset)

Shows the format of the Text, Positions, Colors and Indices parameters when updating a text batch primitive with cartographic positions.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' IAgStkGraphicsTextBatchPrimitive textBatch: A text batch primitive

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.SetColors(colors)

Dim text As Array = New Object() {"Philadelphia", "Washington D.C.", "New Orleans", "San Jose"}

' Philadelphia
' Washington, D.C.
' New Orleans
     ' San Jose
Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _
     29.98, -90.25, 0, 37.37, -121.92, 0}

Dim indices As Array = New Object() {0, 1, 2, 3}

textBatch.SetPartialCartographicWithOptionalParametersIndicesOrderAndRenderPass("Earth", positions, text, parameters, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, _
     AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the Text, Positions, Colors and Indices parameters when updating a text batch primitive.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' IAgStkGraphicsTextBatchPrimitive textBatch: A text batch primitive

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()
parameters.SetColors(colors)

Dim text As Array = New Object() {"Philadelphia", "Washington D.C.", "New Orleans", "San Jose"}

Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _
     -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}

Dim indices As Array = New Object() {0, 1, 2, 3}

textBatch.SetPartialWithOptionalParametersIndicesOrderAndRenderPass(positions, text, parameters, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Draw a filled circle on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
'$lat$new latitude$
'$lon$new longitude$
'$alt$new altitude$
Dim center As Array = New Object() {39.88, -75.25, 0.0}

'$planetName$Name of the planet to place primitive$
'$radius$The radius of the circle.$
Dim shape As IAgStkGraphicsSurfaceShapesResult = manager.Initializers.SurfaceShapes.ComputeCircleCartographic("Earth", center, 10000)
Dim positions As Array = shape.Positions
Dim triangles As IAgStkGraphicsSurfaceTriangulatorResult = manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", positions)

Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))
DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.White
DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.5F

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled ellipse on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim washingtonDC As Array = New Object() {38.85, -77.04, 3000.0}

Dim shape As IAgStkGraphicsSurfaceShapesResult = manager.Initializers.SurfaceShapes.ComputeEllipseCartographic("Earth", washingtonDC, 45000, 30000, 45)
Dim positions As Array = shape.Positions

Dim triangles As IAgStkGraphicsSurfaceTriangulatorResult = manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", positions)
Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))
DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Cyan

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled polygon with a hole on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' Array positions: The positions used to compute triangulation
' Array holePositions: The positions of the hole

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

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

Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))
DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Gray
DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.5F
manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Dim boundaryLine As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()
Dim boundaryPositionsArray As Array = triangles.BoundaryPositions
boundaryLine.Set(boundaryPositionsArray)
DirectCast(boundaryLine, IAgStkGraphicsPrimitive).Color = Color.Red
boundaryLine.Width = 2
manager.Primitives.Add(DirectCast(boundaryLine, IAgStkGraphicsPrimitive))

Dim holeLine As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()
holeLine.Set(holePositions)
DirectCast(holeLine, IAgStkGraphicsPrimitive).Color = Color.Red
holeLine.Width = 2
manager.Primitives.Add(DirectCast(holeLine, IAgStkGraphicsPrimitive))

Draw a filled rectangular extent on the globe

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root

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

Dim extent As Array = New Object() {-94, 29, -89, 33}

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

Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))
DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Salmon
mesh.Lighting = False

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled STK area target

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' Array positions: The positions used to compute triangulation

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

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

Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))
DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Red
manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw an extrusion around a STK area target

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' Array positions: The positions used to compute triangulation

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

Dim triangles As IAgStkGraphicsExtrudedPolylineTriangulatorResult = manager.Initializers.ExtrudedPolylineTriangulator.ComputeWithAltitudes("Earth", positions, 10000, 25000)
Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()
mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))
DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Red
DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.4F

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Shows the format of the Colors parameter when setting per vertex colors.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}

Dim parameters As IAgStkGraphicsTriangleMeshPrimitiveOptionalParameters = sceneManager.Initializers.TriangleMeshPrimitiveOptionalParameters.Initialize()
parameters.SetPerVertexColors(colors)

Shows the format of the Positions, Normals and Indices parameters when updating a triangle mesh primitive.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsTriangleMeshPrimitive triangleMesh: A triangle mesh primitive

Dim positions As Array = New Object() {0, 0, 0, 70000, 0, 0, _
     0, 70000, 0}

Dim normals As Array = New Object() {0, 0, 1, 0, 0, 1, _
     0, 0, 1}

Dim indices As Array = New Object() {0, 1, 2}

triangleMesh.[Set](positions, normals, indices)

Shows the format of the TextureCoordinates parameter when setting per vertex texture coordinates.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim coordinates As Array = New Object() {0, 0, 1, 1, 0, 0, _
     1, 1}

Dim parameters As IAgStkGraphicsTriangleMeshPrimitiveOptionalParameters = sceneManager.Initializers.TriangleMeshPrimitiveOptionalParameters.Initialize()
parameters.SetTextureCoordinates(coordinates)

Shows the format of the Position parameter when creating a projection.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' IAgOrientation orientation: A valid orientation object.

Dim position As Array = New Object() {31378.1, 0, 0}

Dim projection As IAgStkGraphicsProjection = sceneManager.Initializers.Projection.InitializeWithData(position, orientation, 200, 200, 20, 10000)

Shows the format of the projection's Position property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsProjection projection: A valid projection object

Dim position As Array = New Object() {31378.1, 0, 0}

projection.Position = position

How to get the scene manager from the STK Object Model root.

[Visual Basic .NET] Copy Code
' AgStkObjectRoot root: STK Object Model root

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

Add a company logo with a texture overlay

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

Dim texture2D As IAgStkGraphicsRendererTexture2D = manager.Textures.LoadFromStringUri( _
    imageFile)

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(10, 0, texture2D.Template.Width / 2, texture2D.Template.Height / 2)
DirectCast(overlay, IAgStkGraphicsOverlay).X = 10
DirectCast(overlay, IAgStkGraphicsOverlay).XUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels
DirectCast(overlay, IAgStkGraphicsOverlay).Translucency = 0.1F
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginBottomRight
overlay.Texture = texture2D

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Add a video with a texture overlay

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String videoFile: The video file

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

Dim videoStream As IAgStkGraphicsVideoStream = manager.Initializers.VideoStream.InitializeWithStringUri(videoFile)
videoStream.Playback = AgEStkGraphicsVideoPlayback.eStkGraphicsVideoPlaybackRealTime
videoStream.[Loop] = True

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, DirectCast(videoStream, IAgStkGraphicsRaster).Width / 4, DirectCast(videoStream, IAgStkGraphicsRaster).Height / 4)
DirectCast(overlay, IAgStkGraphicsOverlay).BorderSize = 1
DirectCast(overlay, IAgStkGraphicsOverlay).BorderTranslucency = 0.3F
DirectCast(overlay, IAgStkGraphicsOverlay).Translucency = 0.3F
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopRight
overlay.Texture = manager.Textures.FromRaster(DirectCast(videoStream, IAgStkGraphicsRaster))

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Add overlays to a panel overlay

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String imageFile: The image file to use for the child overlay
' String rasterFile: The raster file for the second child overlay

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, 188, 200)
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopLeft
DirectCast(overlay, IAgStkGraphicsOverlay).BorderTranslucency = 0.3F
DirectCast(overlay, IAgStkGraphicsOverlay).BorderSize = 1
DirectCast(overlay, IAgStkGraphicsOverlay).BorderColor = Color.LightBlue
DirectCast(overlay, IAgStkGraphicsOverlay).Color = Color.LightSkyBlue
DirectCast(overlay, IAgStkGraphicsOverlay).Translucency = 0.7F

Dim childOverlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, DirectCast(overlay, IAgStkGraphicsOverlay).Width, DirectCast(overlay, IAgStkGraphicsOverlay).Height)
DirectCast(childOverlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginCenter

childOverlay.Texture = manager.Textures.LoadFromStringUri(imageFile)

'
' Create the RasterStream from the plugin the same way as in ImageDynamicCodeSnippet.cs
'
Dim activator As IAgStkGraphicsProjectionRasterStreamPluginActivator = manager.Initializers.ProjectionRasterStreamPluginActivator.Initialize()
Dim proxy As IAgStkGraphicsProjectionRasterStreamPluginProxy = activator.CreateFromDisplayName("ProjectionRasterStreamPlugin.VBNET")
Dim plugin As Type = proxy.RealPluginObject.[GetType]()
plugin.GetProperty("RasterPath").SetValue(proxy.RealPluginObject, rasterFile, Nothing)

Dim rasterStream As IAgStkGraphicsRasterStream = proxy.RasterStream
rasterStream.UpdateDelta = 0.01667
Dim texture2D As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(DirectCast(rasterStream, IAgStkGraphicsRaster))

Dim secondChildOverlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, 128, 128)
DirectCast(secondChildOverlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopRight
DirectCast(secondChildOverlay, IAgStkGraphicsOverlay).TranslationX = -36
DirectCast(secondChildOverlay, IAgStkGraphicsOverlay).TranslationY = -18
DirectCast(secondChildOverlay, IAgStkGraphicsOverlay).ClipToParent = False
secondChildOverlay.Texture = texture2D

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Dim parentOverlayManager As IAgStkGraphicsScreenOverlayCollectionBase = TryCast(DirectCast(overlay, IAgStkGraphicsOverlay).Overlays, IAgStkGraphicsScreenOverlayCollectionBase)
parentOverlayManager.Add(DirectCast(childOverlay, IAgStkGraphicsScreenOverlay))

Dim childOverlayManager As IAgStkGraphicsScreenOverlayCollectionBase = TryCast(DirectCast(childOverlay, IAgStkGraphicsOverlay).Overlays, IAgStkGraphicsScreenOverlayCollectionBase)
childOverlayManager.Add(DirectCast(secondChildOverlay, IAgStkGraphicsScreenOverlay))

Shows the format of the Position and Size parameters when creating a screen overlay.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim position As Array = New Object() {0, 0, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

Dim size As Array = New Object() {100, 200, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

Dim screenOverlay As IAgStkGraphicsScreenOverlay = sceneManager.Initializers.ScreenOverlay.InitializeWithPosAndSize(position, size)

Shows the format of the screen overlay manager's Padding property.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim padding As Array = New Object() {10, 10, 10, 10}

sceneManager.ScreenOverlays.Padding = padding

Write text to a texture overlay

[Visual Basic .NET] Copy Code
' IAgStkGraphicsScene scene: Current Scene
' AgStkObjectRoot root: STK Object Model root
' String temporaryFile: The file to which the bitmap will be temporarily saved (should not exist yet)

Dim manager As IAgStkGraphicsSceneManager = DirectCast(root.CurrentScenario, IAgScenario).SceneManager
Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

Dim font As New Font("Arial", 12, CType(FontStyle.Bold, System.Drawing.FontStyle))
Dim text As String = "Insight3D" & vbLf & "Analytical Graphics" & vbLf & "Overlays"
Dim textSize As Size = MeasureString(text, font)
Dim textBitmap As New Bitmap(textSize.Width, textSize.Height)
Dim gfx As Graphics = Graphics.FromImage(textBitmap)
gfx.DrawString(text, font, Brushes.White, New PointF(0, 0))

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(10, 10, textSize.Width, textSize.Height)
DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginBottomLeft

'
' Any bitmap can be written to a texture by temporarily saving the texture to disk.
'
Dim filePath As String = temporaryFile
textBitmap.Save(filePath)
overlay.Texture = manager.Textures.LoadFromStringUri(filePath)
' The temporary file is no longer required and can be deleted
System.IO.File.Delete(filePath)

overlay.TextureFilter = manager.Initializers.TextureFilter2D.NearestClampToEdge

overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Shows the format of the Extent parameter when computing using a surface extent triangulator.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

'The LongitudeUnit and LatitudeUnit is expected to be in degrees
Dim extent As Array = New Object() {90, 30, -77, 39}

Dim result As IAgStkGraphicsSurfaceTriangulatorResult = sceneManager.Initializers.SurfaceExtentTriangulator.ComputeSimple("Earth", extent)

Shows the format of the Positions and HolePositions parameters when computing using a surface polygon triangulator.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim positions As Array = New Object() {1097959.63, -5171334.09, 3556288, 1007572.15, -5150349.71, 3612667.74, _
     978879.05, -5195164.23, 3556326.55, 1037389.68, -5188523.96, 3549473.77, _
     1097959.63, -5171334.09, 3556288}

Dim holePositions As Array = New Object() {1079859.69, -5169944.96, 3563791.24, 1030755, -5179965.11, 3563781.97, _
     1028569.57, -5145251.03, 3614006.53, 1039944.33, -5153880.71, 3598525.9, _
     1027115.87, -5150522.49, 3606951.77, 1026998.55, -5162243.13, 3590303.25, _
     1079859.69, -5169944.96, 3563791.24}

Dim result As IAgStkGraphicsSurfaceTriangulatorResult = sceneManager.Initializers.SurfacePolygonTriangulator.ComputeWithHole("Earth", positions, holePositions)

Shows the format of the Positions parameter when computing using a surface polygon triangulator.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim positions As Array = New Object() {34.11, -78.01, 0, 34.72, -78.93, 0, _
     34.11, -79.33, 0, 34.03, -78.69, 0, _
     34.11, -78.01, 0}

Dim result As IAgStkGraphicsSurfaceTriangulatorResult = sceneManager.Initializers.SurfacePolygonTriangulator.ComputeCartographic("Earth", positions)

Shows the format of the Center parameter when computing a circle with a cartographic position.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim center As Array = New Object() {39.88, -75.25, 0}

Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeCircleCartographic("Earth", center, 10000)

Shows the format of the Center parameter when computing a circle.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim center As Array = New Object() {1247.87, -4739.74, 4067.77}

Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeCircle("Earth", center, 10000)

Shows the format of the Center parameter when computing a sector with a cartographic position.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

'The AngleUnit is expected to be in degrees
Dim center As Array = New Object() {0, 0, 25000}

Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeSectorCartographic("Earth", center, 100, 350, -30, 30)

Shows the format of the Center parameter when computing a sector.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

'The AngleUnit is expected to be in degrees
Dim center As Array = New Object() {6403.14, 0, 0}

Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeSector("Earth", center, 100, 350, -30, 30)

Shows the format of the Center parameter when computing an ellipse with a cartographic position.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim center As Array = New Object() {38.85, -77.04, 3000}

Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeEllipseCartographic("Earth", center, 45000, 30000, 45)

Shows the format of the Center parameter when computing an ellipse.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim center As Array = New Object() {1639.46, -7123.95, 5861.21}

Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeEllipse("Earth", center, 45000, 30000, 45)

Shows the format of the Corner0, Corner1, Corner2 and Corner3 parameters when creating a texture matrix.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' IAgStkGraphicsSurfaceMeshPrimitive surfaceMesh: A surface mesh primitive

Dim lowerLeftCorner As Array = New Object() {-0.386182, 42.938583}
Dim lowerRightCorner As Array = New Object() {-0.3751, 42.929871}
Dim upperRightCorner As Array = New Object() {-0.333891, 42.94478}
Dim upperLeftCorner As Array = New Object() {-0.35998, 42.973438}

surfaceMesh.TextureMatrix = sceneManager.Initializers.TextureMatrix.InitializeWithRectangles(lowerLeftCorner, lowerRightCorner, upperRightCorner, upperLeftCorner)

Shows the format of the Matrix parameter when creating a texture matrix.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager
' IAgStkGraphicsSurfaceMeshPrimitive surfaceMesh: A surface mesh primitive

Dim transformationArray As Array = New Object() {1, 0, 0, 1, 0, 0}

surfaceMesh.TextureMatrix = sceneManager.Initializers.TextureMatrix.InitializeWithAffineTransform(transformationArray)

Shows the format of the Position and Size parameters when creating a texture screen overlay.

[Visual Basic .NET] Copy Code
' IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

Dim position As Array = New Object() {0, 0, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

Dim size As Array = New Object() {100, 200, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}

Dim screenOverlay As IAgStkGraphicsTextureScreenOverlay = sceneManager.Initializers.TextureScreenOverlay.InitializeWithPositionSize(position, size)

Create a duplicate.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of a VGT provider

Dim point As IAgCrdnPoint = provider.Points.Factory.Create("OriginalPoint", "description", AgECrdnPointType.eCrdnPointTypeAtTimeInstant)
Dim duplicate As IAgCrdn = DirectCast(point, IAgCrdn).Duplicate("DuplicatePoint", "description")

Create an anonymous duplicate.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of a VGT provider

Dim point As IAgCrdnPoint = provider.Points.Factory.Create("OriginalPoint", "description", AgECrdnPointType.eCrdnPointTypeAtTimeInstant)
Dim anonymousDuplicate As IAgCrdn = DirectCast(point, IAgCrdn).AnonymousDuplicate()

Enumerate all embedded components of a VGT component

[Visual Basic .NET] Copy Code
' IAgCrdn crdn: A VGT component

For Each embeddedComponent As IAgCrdn In crdn.EmbeddedComponents
     Console.WriteLine("Name: {0}, kind: {1}", embeddedComponent.Name, embeddedComponent.Kind)
Next

Get a Vector Geometry Tool provider

[Visual Basic .NET] Copy Code
' IAgCrdnRoot root: A VGT root object
' String path: A short name referring to an instance of STK Object or Central Body

'Returns a provider associated with the specified
' instance of an STK Object or a Central Body.
Dim provider As IAgCrdnProvider = root.GetProvider(path)

Get A Vector Geometry Tool template provider.

[Visual Basic .NET] Copy Code
' IAgCrdnRoot root: A VGT root object
' String className: A class name of STK Object or Central Body

'Returns a VGT provider associated with the specified
' STK object class (i.e., Satellite, Facility, etc.) or
' a Central Body.
Dim provider As IAgCrdnProvider = root.GetTemplateProvider(className)

Get an embedded component

[Visual Basic .NET] Copy Code
' IAgCrdn crdn: A VGT component

If crdn.EmbeddedComponents.Contains("Origin") Then
     Dim embeddedComponent As IAgCrdn = crdn.EmbeddedComponents("Origin")
End If

Iterate all embedded components of a VGT component

[Visual Basic .NET] Copy Code
' IAgCrdn crdn: A VGT component

Dim i As Integer = 0
While i < crdn.EmbeddedComponents.Count
     Dim embeddedComponent As IAgCrdn = crdn.EmbeddedComponents(i)
     Console.WriteLine("Name: {0}, kind: {1}", embeddedComponent.Name, embeddedComponent.Kind)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Check whether an angle with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if an angle with the specified name already exists.
If provider.Angles.Contains("AngleName") Then
     Console.WriteLine("The angle ""{0}"" already exists!", "AngleName")
End If

Check whether the reference angle has a cyclic dependency on another angle.

[Visual Basic .NET] Copy Code
' IAgCrdnAngleRefTo angleRefTo: Reference to a angle.
' IAgCrdnAngle angle: A angle to check against reference angle.

'Check if the reference angle has a cyclic dependency on another angle.
If angleRefTo.HasCyclicDependency(angle) Then
     Console.WriteLine("The angle {0} has a cyclic dependency on angle {1}.", DirectCast(angleRefTo.GetAngle(), IAgCrdn).Name, DirectCast(angle, IAgCrdn).Name)
End If

Computes an angle and the rate of change at a given condition.

[Visual Basic .NET] Copy Code
' IAgCrdnAngle angle: A valid VGT angle object.

Dim result As IAgCrdnAngleFindAngleWithRateResult = angle.FindAngleWithRate(0)
If result.IsValid Then
     Console.WriteLine("Angle: {0}, Rate: {1}", result.Angle, result.AngleRate)
End If

Computes an angle at a given condition.

[Visual Basic .NET] Copy Code
' IAgCrdnAngle angle: A valid VGT angle object.

Dim result As IAgCrdnAngleFindAngleResult = angle.FindAngle(0)
If result.IsValid Then
     Console.WriteLine("Angle: {0}", result.Angle)
End If

Create a vector.perpendicular to the plane in which the angle is defined.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Create a vector.perpendicular to the plane in which the angle is defined.
Dim vector As IAgCrdnVectorAngleRate = DirectCast(provider.Vectors.Factory.Create("myVector", "a vector.perpendicular to the plane in which the angle is defined.", AgECrdnVectorType.eCrdnVectorTypeAngleRate), IAgCrdnVectorAngleRate)

Create an angle between two planes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

'Create an angle between two planes.
Dim angle As IAgCrdnAngleBetweenPlanes = DirectCast(provider.Angles.Factory.Create("AngleName", "Angle from one plane to another.", AgECrdnAngleType.eCrdnAngleTypeBetweenPlanes), IAgCrdnAngleBetweenPlanes)

Determine if the specified angle type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnAngleType angleType: An angle type.

' Check if the specified angle type is supported.
If provider.Angles.Factory.IsTypeSupported(angleType) Then
     'Create an Angle with the supported Type
     Dim angle As IAgCrdnAngle = provider.Angles.Factory.Create("MyAngle", String.Empty, angleType)
End If

Enumerate the existing angles.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing angles using specified CrdnProvider.
For Each angle As IAgCrdnAngle In provider.Angles
     ' All angles implement IAgCrdn interface which provides
     ' information about the angle instance and its type.
     Dim crdn As IAgCrdn = TryCast(angle, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, angle.Type)
Next

Iterate through existing angles.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing angles associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.Angles.Count
     Dim angle As IAgCrdnAngle = provider.Angles(i)
     ' All angles implement IAgCrdn interface which provides
     ' information about the angle instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.Angles(i), IAgCrdn)
     ' Print the angle name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, angle.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing angle with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the vector with specified name exists
If provider.Angles.Contains("AngleName") Then
     provider.Angles.Remove("AngleName")
End If

Check whether the axes with specified name exist.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if the axes with specified name exist
If provider.Axes.Contains("AxesName") Then
     Console.WriteLine("Axes ""{0}"" already exist!", "AxesName")
End If

Check whether the reference axes has a cyclic dependency on another axes.

[Visual Basic .NET] Copy Code
' IAgCrdnAxesRefTo axesRefTo: Reference to a axes.
' IAgCrdnAxes axes: A axes to check against reference axes.

'Check if the reference axes has a cyclic dependency on another axes.
If axesRefTo.HasCyclicDependency(axes) Then
     Console.WriteLine("The axes {0} has a cyclic dependency on axes {1}.", DirectCast(axesRefTo.GetAxes(), IAgCrdn).Name, DirectCast(axes, IAgCrdn).Name)
End If

Create the axes oriented using vectors fixed in these axes and independent reference vectors.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

Dim axes As IAgCrdnAxesAlignedAndConstrained = DirectCast(provider.Axes.Factory.Create("AxesName", String.Empty, AgECrdnAxesType.eCrdnAxesTypeAlignedAndConstrained), IAgCrdnAxesAlignedAndConstrained)

Creates a fixed axes based on the origin point with Euler Angles orientation (using common tasks).

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of a central body VGT provider
' IAgFacility facility: An instance of a facility

Dim lat As Object = 0, lon As Object = 0
Dim alt As Double = 0

#If Not CSToJava Then
facility.Position.QueryPlanetodetic(lat, lon, alt)
#Else
#End If
Dim origin As IAgCrdnPointFixedInSystem = provider.Points.CommonTasks.CreateFixedInSystemCartographic(provider.Systems("Fixed"), lat, lon, alt)
Dim eastNorthUp As IAgCrdnAxesFixed = provider.Axes.CommonTasks.CreateTopocentricAxesEulerAngles(DirectCast(origin, IAgCrdnPoint), AGI.STKUtil.AgEEulerOrientationSequence.e321, 90, 0, 0)

Creates a fixed axes based on the origin point with Quaternion orientation (using common tasks).

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' IAgFacility facility: An instance of a facility

Dim lat As Object = 0, lon As Object = 0
Dim alt As Double = 0

#If Not CSToJava Then
facility.Position.QueryPlanetodetic(lat, lon, alt)
#Else
#End If
Dim origin As IAgCrdnPointFixedInSystem = provider.Points.CommonTasks.CreateFixedInSystemCartographic(provider.Systems("Fixed"), lat, lon, alt)
Dim eastNorthUp As IAgCrdnAxesFixed = provider.Axes.CommonTasks.CreateTopocentricAxesQuaternion(DirectCast(origin, IAgCrdnPoint), 0, 0, 0, 1)

Creates a fixed axes based on the specified axes (using common tasks).

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

Dim ecfAxes As IAgCrdnAxes = provider.WellKnownAxes.Earth.Fixed
Dim axesFixed As IAgCrdnAxesFixed = provider.Axes.CommonTasks.CreateFixed(ecfAxes)

Determine if the specified axes type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' AgECrdnAxesType axesType: An axes type.

If provider.Axes.Factory.IsTypeSupported(axesType) Then
     Dim axes As IAgCrdnAxes = provider.Axes.Factory.Create("AxesName", String.Empty, axesType)
End If

Enumerate the existing axes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing Axes using specified CrdnProvider.
For Each axes As IAgCrdnAxes In provider.Axes
     ' All axes implement IAgCrdn interface which provides
     ' information about the axes instance and its type.
     Dim crdn As IAgCrdn = TryCast(axes, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, axes.Type)
Next

Finds the axes' orientation in Earth's Fixed axes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' IAgCrdnAxes axes: A valid VGT axes object.

Dim result As IAgCrdnAxesFindInAxesResult = axes.FindInAxes(0, provider.WellKnownAxes.Earth.Fixed)
If result.IsValid Then
     Dim angles As AGI.STKUtil.IAgOrientationEulerAngles
     angles = DirectCast(result.Orientation.ConvertTo(AGI.STKUtil.AgEOrientationType.eEulerAngles), AGI.STKUtil.IAgOrientationEulerAngles)
     Console.WriteLine("Euler Angles [A,B,C,SEQ] => [{1}, {1}, {2}, {3}]", angles.A, angles.B, angles.C, angles.Sequence)
End If

Iterate through existing axes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing angles associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.Axes.Count
     Dim axes As IAgCrdnAxes = provider.Axes(i)
     ' All axes implement IAgCrdn interface which provides
     ' information about the axes instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.Axes(i), IAgCrdn)
     ' Print the axes name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, axes.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing axes with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the axes with specified name exist
If provider.Axes.Contains("AxesName") Then
     provider.Axes.Remove("AxesName")
End If

Transform a vector and vector's rate to the Earth's Fixed axes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' IAgCrdnAxes axes: A valid VGT axes object.
' IAgCartesian3Vector vector: A valid VGT vector object.
' IAgCartesian3Vector vectorRate: A valid VGT rate vector object.

Dim result As IAgCrdnAxesTransformWithRateResult = axes.TransformWithRate(0, provider.WellKnownAxes.Earth.Fixed, vector, vectorRate)
If result.IsValid Then
     Console.WriteLine("Original    Vector (x,y,z) => {0}, {1}, {2}", vector.X, vector.Y, vector.Z)
     Console.WriteLine("Transformed Vector (x,y,z) => {0}, {1}, {2}", result.Vector.X, result.Vector.Y, result.Vector.Z)
     Console.WriteLine("Transformed Vector Rate (x,y,z) => {0}, {1}, {2}", result.Velocity.X, result.Velocity.Y, result.Velocity.Z)
End If

Transform a vector to the Earth's Fixed axes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' IAgCrdnAxes axes: A valid VGT axes object.
' IAgCartesian3Vector vector: A valid VGT vector object.

Dim result As IAgCrdnAxesTransformResult = axes.Transform(0, provider.WellKnownAxes.Earth.Fixed, vector)
If result.IsValid Then
     Console.WriteLine("Original    Vector (x,y,z) => {0}, {1}, {2}", vector.X, vector.Y, vector.Z)
     Console.WriteLine("Transformed Vector (x,y,z) => {0}, {1}, {2}", result.Vector.X, result.Vector.Y, result.Vector.Z)
End If

Check whether a calc scalar with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if a calc scalar with the specified name already exists.
If provider.CalcScalars.Contains("CalcScalarName") Then
     Console.WriteLine("The calc scalar ""{0}"" already exists!", "CalcScalarName")
End If

Create a calc scalar constant.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

'Create a calc scalar constant.
Dim calcScalar As IAgCrdnCalcScalarConstant = DirectCast(provider.CalcScalars.Factory.Create("CalcScalarName", "Calc scalar constant.", AgECrdnCalcScalarType.eCrdnCalcScalarTypeConstant), IAgCrdnCalcScalarConstant)

Determine if the specified calc scalar type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnCalcScalarType calcScalarType: A calc scalar type.

' Check if the specified calc scalar type is supported.
If provider.CalcScalars.Factory.IsTypeSupported(calcScalarType) Then
     'Create a CalcScalar with the supported Type
     Dim calcScalar As IAgCrdnCalcScalar = provider.CalcScalars.Factory.Create("MyCalcScalar", String.Empty, calcScalarType)
End If

Enumerate the existing calc scalars.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing CalcScalars using specified CrdnProvider.
For Each calcScalar As IAgCrdnCalcScalar In provider.CalcScalars
     ' All calc scalars implement IAgCrdn interface which provides
     ' information about the calc scalar instance and its type.
     Dim crdn As IAgCrdn = TryCast(calcScalar, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, calcScalar.Type)
Next

Iterate through existing calc scalars.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing calc scalars associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.CalcScalars.Count
     Dim calcScalar As IAgCrdnCalcScalar = provider.CalcScalars(i)
     ' All calc scalars implement IAgCrdn interface which provides
     ' information about the calc scalar's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.CalcScalars(i), IAgCrdn)
     ' Print the calc scalar's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, calcScalar.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing calc scalar with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the calc scalar with specified name exists
If provider.CalcScalars.Contains("CalcScalarName") Then
     provider.CalcScalars.Remove("CalcScalarName")
End If

Check whether a condition with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if a condition with the specified name already exists.
If provider.Conditions.Contains("ConditionName") Then
     Console.WriteLine("The condition ""{0}"" already exists!", "ConditionName")
End If

Create a condition defined by determining if input scalar is within specified bounds.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

'Create a condition from a scalar.
Dim condition As IAgCrdnConditionScalarBounds = DirectCast(provider.Conditions.Factory.Create("ConditionName", "Condition from a scalar.", AgECrdnConditionType.eCrdnConditionTypeScalarBounds), IAgCrdnConditionScalarBounds)

Determine if the specified condition type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnConditionType conditionType: A condition type.

' Check if the specified condition type is supported.
If provider.Conditions.Factory.IsTypeSupported(conditionType) Then
     'Create a Condition with the supported Type
     Dim condition As IAgCrdnCondition = provider.Conditions.Factory.Create("MyCondition", String.Empty, conditionType)
End If

Enumerate the existing conditions.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing Conditions using specified CrdnProvider.
For Each condition As IAgCrdnCondition In provider.Conditions
     ' All conditions implement IAgCrdn interface which provides
     ' information about the condition instance and its type.
     Dim crdn As IAgCrdn = TryCast(condition, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, condition.Type)
Next

Iterate through existing conditions.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing conditions associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.Conditions.Count
     Dim condition As IAgCrdnCondition = provider.Conditions(i)
     ' All conditions implement IAgCrdn interface which provides
     ' information about the condition's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.Conditions(i), IAgCrdn)
     ' Print the condition's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, condition.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing condition with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the condition with specified name exists
If provider.Conditions.Contains("ConditionName") Then
     provider.Conditions.Remove("ConditionName")
End If

Check whether an event with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if an event with the specified name already exists.
If provider.Events.Contains("EventName") Then
     Console.WriteLine("The event ""{0}"" already exists!", "EventName")
End If

Configure the smart interval epoch and the duration.

[Visual Basic .NET] Copy Code
' IAgCrdnEventIntervalSmartInterval smartInterval: The time component smart interval

' Change the time interval to 1 week after the dependent interval.
Dim epochOfInterest As IAgCrdnEventSmartEpoch = smartInterval.GetStopEpoch()
smartInterval.SetStartEpochAndDuration(epochOfInterest, "+1 week")

' Or if you want a specific time, use SetStartTimeAndDuration.
smartInterval.SetStartTimeAndDuration("1 Jan 2015 16:00:00.000", "+1 day")

' You can find the event times, such as
Console.WriteLine("Start Time: " + smartInterval.FindStartTime())
Console.WriteLine("Stop Time: " + smartInterval.FindStopTime())
Console.WriteLine("Duration: " + smartInterval.DurationAsString)
' Note, only works if you specified duration.

Configure the start and stop epoch time with smart epochs.

[Visual Basic .NET] Copy Code
' IAgCrdnEventIntervalSmartInterval smartInterval: Event Smart Interval
' IAgCrdnEvent startEventEpoch: Start event epoch
' IAgCrdnEvent stopEventEpoch: Stop event epoch

smartInterval.State = AgECrdnSmartIntervalState.eCrdnSmartIntervalStateStartStop

Dim accessStartEpoch As IAgCrdnEventSmartEpoch = smartInterval.GetStartEpoch()
accessStartEpoch.SetImplicitTime(startEventEpoch)
smartInterval.SetStartEpoch(accessStartEpoch)

Dim accessStopEpoch As IAgCrdnEventSmartEpoch = smartInterval.GetStopEpoch()
accessStopEpoch.SetImplicitTime(stopEventEpoch)
smartInterval.SetStopEpoch(accessStopEpoch)

Convert the start and stop times of the interval into a time.

[Visual Basic .NET] Copy Code
' IAgCrdnEventIntervalSmartInterval smartInterval: The time component smart interval

smartInterval.SetStartTimeAndDuration("Now", "+100 day")
Dim startTime As Object = smartInterval.FindStartTime()
Dim stopTime As Object = smartInterval.FindStopTime()

Console.WriteLine("StartTime = {0}, StopTime = {1}", startTime, stopTime)

Create and configure explicit smart epoch event.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim smartEpoch As IAgCrdnEventSmartEpoch = provider.Events.Factory.CreateSmartEpochFromTime("1 May 2016 04:00:00.000")

' Smart epochs can be set explicitly (Uses current DateTime unit preference, this code snippet assumes UTCG)
smartEpoch.SetExplicitTime("1 May 2015 01:00:00.000")

Console.WriteLine("Event occurred at: " + smartEpoch.TimeInstant)

Create and configure extremum event.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim timeEvent As IAgCrdnEvent = provider.Events.Factory.CreateEventExtremum("MyEventExtremum", "MyDescription")
Dim asExtremum As IAgCrdnEventExtremum = TryCast(timeEvent, IAgCrdnEventExtremum)

' For instance, time at highest altitude
asExtremum.Calculation = provider.CalcScalars("GroundTrajectory.Detic.LLA.Altitude")
asExtremum.ExtremumType = AgECrdnExtremumConstants.eCrdnExtremumMaximum

Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()
If occurrence.IsValid Then
     Console.WriteLine("Event occurred at: " + occurrence.Epoch)
End If

Create and configure fixed epoch event.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim timeEvent As IAgCrdnEvent = provider.Events.Factory.CreateEventEpoch("MyEventFixed", "MyDescription")
Dim asEpoch As IAgCrdnEventEpoch = TryCast(timeEvent, IAgCrdnEventEpoch)

' Epoch can be set explicitly (Uses current DateTime unit preference, this code snippet assumes UTCG)
asEpoch.Epoch = "1 May 2016 04:00:00.000"

' Epoch can also be set with the epoch of another event
Dim startTime As IAgCrdnEventFindOccurrenceResult = provider.Events("AvailabilityStartTime").FindOccurrence()
asEpoch.Epoch = startTime.Epoch

Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()
If occurrence.IsValid Then
     Console.WriteLine("Event occurred at: " + occurrence.Epoch)
End If

Create and configure fixed time offset event.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim timeEvent As IAgCrdnEvent = provider.Events.Factory.CreateEventTimeOffset("MyEventTimeOffset", "MyDescription")
Dim asTimeOffset As IAgCrdnEventTimeOffset = TryCast(timeEvent, IAgCrdnEventTimeOffset)

asTimeOffset.ReferenceTimeInstant = provider.Events("AvailabilityStartTime")

' Uses current Time unit preference, this code snippet assumes seconds.
asTimeOffset.TimeOffset = 3

Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()
If occurrence.IsValid Then
     Console.WriteLine("Event occurred at: " + occurrence.Epoch)
End If

Create and configure implicit smart epoch event.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim referencedEvent As IAgCrdnEvent = provider.Events("AvailabilityStartTime")
Dim smartEpoch As IAgCrdnEventSmartEpoch = provider.Events.Factory.CreateSmartEpochFromEvent(referencedEvent)

' Smart epochs can be set implicitly using the another epoch.
Dim anotherEvent As IAgCrdnEvent = provider.Events("AvailabilityStopTime")
smartEpoch.SetImplicitTime(anotherEvent)

Console.WriteLine("Event occurred at: " + smartEpoch.TimeInstant)

Create and configure signaled event.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt
Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt

Dim timeEvent As IAgCrdnEvent = satelliteVgtProvider.Events.Factory.CreateEventSignaled("MyEventSignaled", "MyDescription")
Dim asSignaled As IAgCrdnEventSignaled = TryCast(timeEvent, IAgCrdnEventSignaled)

asSignaled.OriginalTimeInstant = aircraftVgtProvider.Events("EphemerisStartTime")
asSignaled.BaseClockLocation = satelliteVgtProvider.Points("Center")
asSignaled.TargetClockLocation = aircraftVgtProvider.Points("Center")

asSignaled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseTransmit
Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asSignaled.SignalDelay, IAgCrdnSignalDelayBasic)
basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnCustomTransmissionSpeed

' Uses current Time unit preference, this code snippet assumes seconds.
basicSignalDelay.TimeDelayConvergence = 0.002

Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()
If occurrence.IsValid Then
     Console.WriteLine("Event occurred at: " + occurrence.Epoch)
End If

Create and configure start stop time event.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim timeEvent As IAgCrdnEvent = provider.Events.Factory.CreateEventStartStopTime("MyEventStartStopTime", "MyDescription")
Dim asStartStopTime As IAgCrdnEventStartStopTime = TryCast(timeEvent, IAgCrdnEventStartStopTime)

asStartStopTime.ReferenceEventInterval = provider.EventIntervals("EphemerisTimeSpan")

asStartStopTime.UseStart = True

Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()
If occurrence.IsValid Then
     Console.WriteLine("Event occurred at: " + occurrence.Epoch)
End If

Determine if event occurs before an epoch.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' The event you are interested in.
Dim timeEvent1 As IAgCrdnEvent = provider.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMax")

' The reference event you want to determine if event of interest happened before.
Dim timeEvent2 As IAgCrdnEvent = provider.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMin")
Dim occurrence2 As IAgCrdnEventFindOccurrenceResult = timeEvent2.FindOccurrence()

If occurrence2.IsValid Then
     If timeEvent1.OccursBefore(occurrence2.Epoch) Then
          Console.WriteLine("The time of maximum altitude happend before time of minimum altitude")
     Else
          Console.WriteLine("The time of minimum altitude happend before time of maximum altitude")
     End If
End If

Determine if the specified event type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnEventType eventType: A event type.

' Check if the specified event type is supported.
If provider.Events.Factory.IsTypeSupported(eventType) Then
     'Create an Event with the supported Type
     Dim [event] As IAgCrdnEvent = provider.Events.Factory.Create("MyEvent", String.Empty, eventType)
End If

Determine the time of an event.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim timeEvent As IAgCrdnEvent = provider.Events("PassIntervals.First.Start")

Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()

If occurrence.IsValid Then
     Console.WriteLine("The first pass interval happened at: " + occurrence.Epoch)
Else
     Console.WriteLine("The first pass interval never occurred")
End If

Enumerate the existing events.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing Events using specified CrdnProvider.
For Each [event] As IAgCrdnEvent In provider.Events
     ' All events implement IAgCrdn interface which provides
     ' information about the event instance and its type.
     Dim crdn As IAgCrdn = TryCast([event], IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, [event].Type)
Next

Iterate through existing events.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing events associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.Events.Count
     Dim [event] As IAgCrdnEvent = provider.Events(i)
     ' All events implement IAgCrdn interface which provides
     ' information about the event's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.Events(i), IAgCrdn)
     ' Print the event's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, [event].Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing event with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the event with specified name exists
If provider.Events.Contains("EventName") Then
     provider.Events.Remove("EventName")
End If

Sets the start and stop epoch time with smart epochs.

[Visual Basic .NET] Copy Code
' IAgCrdnEventIntervalSmartInterval smartInterval: Event Smart Interval

smartInterval.SetExplicitInterval("Today", "Tomorrow")

Check whether an event array with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if an event array with the specified name already exists.
If provider.EventArrays.Contains("EventArrayName") Then
     Console.WriteLine("The event array ""{0}"" already exists!", "EventArrayName")
End If

Create and configure condition crossings event array.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayConditionCrossings("MyEventArrayConditionCrossings", "MyDescription")
Dim asConditionCrossings As IAgCrdnEventArrayConditionCrossings = TryCast(eventArray, IAgCrdnEventArrayConditionCrossings)

Dim scalarBound As IAgCrdnCondition = provider.Conditions.Factory.CreateConditionScalarBounds("Bound", "MyDescription")
Dim asScalarBounds As IAgCrdnConditionScalarBounds = TryCast(scalarBound, IAgCrdnConditionScalarBounds)
asScalarBounds.Scalar = provider.CalcScalars("GroundTrajectory.Detic.LLA.Latitude")
asScalarBounds.Operation = AgECrdnConditionThresholdOption.eCrdnConditionThresholdOptionInsideMinMax
'asScalarBounds.Set(-0.349, 0);

asConditionCrossings.Condition = scalarBound

Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()
If timeArrays.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = timeArrays.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Console.WriteLine(timeArrays.Times.GetValue(i))
          System.Threading.Interlocked.Increment(i)
     End While

     For Each timeArray As IAgCrdnInterval In timeArrays.Intervals
          Console.WriteLine("Start: " + timeArray.Start)
          Console.WriteLine("Stop: " + timeArray.[Stop])
     Next
End If

Create and configure extrema event array.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayExtrema("MyEventArrayExtrema", "MyDescription")
Dim asExtrema As IAgCrdnEventArrayExtrema = TryCast(eventArray, IAgCrdnEventArrayExtrema)

asExtrema.Calculation = provider.CalcScalars("GroundTrajectory.Detic.LLA.Altitude")

asExtrema.IsGlobal = True
asExtrema.ExtremumType = AgECrdnExtremumConstants.eCrdnExtremumMaximum

Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()
If timeArrays.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = timeArrays.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Console.WriteLine(timeArrays.Times.GetValue(i))
          System.Threading.Interlocked.Increment(i)
     End While

     For Each timeArray As IAgCrdnInterval In timeArrays.Intervals
          Console.WriteLine("Start: " + timeArray.Start)
          Console.WriteLine("Stop: " + timeArray.[Stop])
     Next
End If

Create and configure filtered event array.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayFiltered("MyEventArrayFiltered", "MyDescription")
Dim asFiltered As IAgCrdnEventArrayFiltered = TryCast(eventArray, IAgCrdnEventArrayFiltered)

asFiltered.OriginalTimeArray = provider.EventArrays("EphemerisTimes")

asFiltered.FilterType = AgECrdnEventArrayFilterType.eCrdnEventArrayFilterTypeSkipTimeStep
asFiltered.IncludeIntervalStopTimes = True

' Uses current Time unit preference, this code snippet assumes seconds.
asFiltered.[Step] = 240

Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()
If timeArrays.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = timeArrays.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Console.WriteLine(timeArrays.Times.GetValue(i))
          System.Threading.Interlocked.Increment(i)
     End While

     For Each timeArray As IAgCrdnInterval In timeArrays.Intervals
          Console.WriteLine("Start: " + timeArray.Start)
          Console.WriteLine("Stop: " + timeArray.[Stop])
     Next
End If

Create and configure fixed step event array.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayFixedStep("MyEventArrayFixedStep", "MyDescription")
Dim asFixedStep As IAgCrdnEventArrayFixedStep = TryCast(eventArray, IAgCrdnEventArrayFixedStep)

asFixedStep.BoundingIntervalList = provider.EventIntervalLists("AfterStart.SatisfactionIntervals")
asFixedStep.IncludeIntervalEdges = True

' Uses current Time unit preference, this code snippet assumes seconds.
asFixedStep.SamplingTimeStep = 240
asFixedStep.ReferenceType = AgECrdnSampledReferenceTime.eCrdnSampledReferenceTimeStartOfIntervalList

' or using time instants
asFixedStep.ReferenceType = AgECrdnSampledReferenceTime.eCrdnSampledReferenceTimeReferenceEvent
asFixedStep.ReferenceTimeInstant = provider.Events("EphemerisStartTime")

Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()
If timeArrays.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = timeArrays.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Console.WriteLine(timeArrays.Times.GetValue(i))
          System.Threading.Interlocked.Increment(i)
     End While

     For Each timeArray As IAgCrdnInterval In timeArrays.Intervals
          Console.WriteLine("Start: " + timeArray.Start)
          Console.WriteLine("Stop: " + timeArray.[Stop])
     Next
End If

Create and configure merged event array.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayMerged("MyEventArrayMerged", "MyDescription")
Dim asMerged As IAgCrdnEventArrayMerged = TryCast(eventArray, IAgCrdnEventArrayMerged)

asMerged.TimeArrayA = provider.EventArrays("GroundTrajectory.Detic.LLA.Altitude.TimesOfLocalMin")
asMerged.TimeArrayB = provider.EventArrays("GroundTrajectory.Detic.LLA.Altitude.TimesOfLocalMax")

Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()
If timeArrays.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = timeArrays.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Console.WriteLine(timeArrays.Times.GetValue(i))
          System.Threading.Interlocked.Increment(i)
     End While

     For Each timeArray As IAgCrdnInterval In timeArrays.Intervals
          Console.WriteLine("Start: " + timeArray.Start)
          Console.WriteLine("Stop: " + timeArray.[Stop])
     Next
End If

Create and configure signaled event array.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt
Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt

Dim eventArray As IAgCrdnEventArray = satelliteVgtProvider.EventArrays.Factory.CreateEventArraySignaled("MyEventArraySignaled", "MyDescription")
Dim asSignaled As IAgCrdnEventArraySignaled = TryCast(eventArray, IAgCrdnEventArraySignaled)

asSignaled.OriginalTimeArray = aircraftVgtProvider.EventArrays("OneMinuteSampleTimes")
asSignaled.BaseClockLocation = satelliteVgtProvider.Points("Center")
asSignaled.TargetClockLocation = aircraftVgtProvider.Points("Center")

asSignaled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseTransmit
Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asSignaled.SignalDelay, IAgCrdnSignalDelayBasic)
basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnLightTransmissionSpeed

' Uses current Time unit preference, this code snippet assumes seconds.
basicSignalDelay.TimeDelayConvergence = 0.01

Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()
If timeArrays.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = timeArrays.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Console.WriteLine(timeArrays.Times.GetValue(i))
          System.Threading.Interlocked.Increment(i)
     End While

     For Each timeArray As IAgCrdnInterval In timeArrays.Intervals
          Console.WriteLine("Start: " + timeArray.Start)
          Console.WriteLine("Stop: " + timeArray.[Stop])
     Next
End If

Create and configure start stop times event array.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayStartStopTimes("MyEventArrayStartStopTimes", "MyDescription")
Dim asStartStopTimes As IAgCrdnEventArrayStartStopTimes = TryCast(eventArray, IAgCrdnEventArrayStartStopTimes)

asStartStopTimes.ReferenceIntervals = provider.EventIntervalLists("LightingIntervals.Sunlight")
asStartStopTimes.StartStopOption = AgECrdnStartStopOption.eCrdnStartStopOptionCountStartOnly

Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()
If timeArrays.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = timeArrays.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Console.WriteLine(timeArrays.Times.GetValue(i))
          System.Threading.Interlocked.Increment(i)
     End While

     For Each timeArray As IAgCrdnInterval In timeArrays.Intervals
          Console.WriteLine("Start: " + timeArray.Start)
          Console.WriteLine("Stop: " + timeArray.[Stop])
     Next
End If

Determine altitude of aircraft at one minute samples.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

' Get the aircraft
Dim aircraft As IAgStkObject = stkRoot.GetObjectFromPath("Aircraft/UAV")

' Configure a fixed step array that samples every 20 seconds.
Dim twentySecondSample As IAgCrdnEventArray = aircraft.Vgt.EventArrays.Factory.CreateEventArrayFixedStep("TwentySecondSample", "MyDescription")
Dim asFixedStep As IAgCrdnEventArrayFixedStep = TryCast(twentySecondSample, IAgCrdnEventArrayFixedStep)
asFixedStep.BoundingIntervalList = aircraft.Vgt.EventIntervalLists("AvailabilityIntervals")
asFixedStep.SamplingTimeStep = 20
asFixedStep.ReferenceType = AgECrdnSampledReferenceTime.eCrdnSampledReferenceTimeStartOfIntervalList

' At each time step, get the aircraft's altitude and print the value.
Dim timeArrays As IAgCrdnFindTimesResult = twentySecondSample.FindTimes()
If timeArrays.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = timeArrays.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Dim epoch As Object = timeArrays.Times.GetValue(i)
          Dim altitueAtTime As Array = aircraft.Vgt.CalcScalars("GroundTrajectory.Detic.LLA.Altitude").QuickEvaluate(epoch)
          If DirectCast(altitueAtTime.GetValue(0), Boolean) = True Then
               Console.WriteLine("{0}: {1}", epoch, altitueAtTime.GetValue(1))
          End If
          System.Threading.Interlocked.Increment(i)
     End While
End If

Determine if the specified event array type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnEventArrayType eventArrayType: A event array type.

' Check if the specified event array type is supported.
If provider.EventArrays.Factory.IsTypeSupported(eventArrayType) Then
     'Create an EventArray with the supported Type
     Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.Create("MyEventArray", String.Empty, eventArrayType)
End If

Determines the time intervals of an event array.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventArray As IAgCrdnEventArray = provider.EventArrays("Orbit.Classical.SemimajorAxis.TimesOfLocalMax")

Dim foundTimes As IAgCrdnFindTimesResult = eventArray.FindTimes()
If foundTimes.IsValid Then
     Console.WriteLine("Times")
     Dim numTimes As Integer = foundTimes.Times.GetLength(0)
     Dim i As Integer = 0
     While i < numTimes
          Console.WriteLine(foundTimes.Times.GetValue(i))
          System.Threading.Interlocked.Increment(i)
     End While

     For Each timeArray As IAgCrdnInterval In foundTimes.Intervals
          Console.WriteLine("Start: " + timeArray.Start)
          Console.WriteLine("Stop: " + timeArray.[Stop])
     Next
End If

Enumerate the existing event arrays.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing EventArrays using specified CrdnProvider.
For Each eventArray As IAgCrdnEventArray In provider.EventArrays
     ' All event arrays implement IAgCrdn interface which provides
     ' information about the event array instance and its type.
     Dim crdn As IAgCrdn = TryCast(eventArray, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventArray.Type)
Next

Iterate through existing event arrays.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing event arrays associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.EventArrays.Count
     Dim eventArray As IAgCrdnEventArray = provider.EventArrays(i)
     ' All event arrays implement IAgCrdn interface which provides
     ' information about the event array's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.EventArrays(i), IAgCrdn)
     ' Print the event array's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventArray.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing event array with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the event array with specified name exists
If provider.EventArrays.Contains("EventArrayName") Then
     provider.EventArrays.Remove("EventArrayName")
End If

Check whether an event interval with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if an event interval with the specified name already exists.
If provider.EventIntervals.Contains("EventIntervalName") Then
     Console.WriteLine("The event interval ""{0}"" already exists!", "EventIntervalName")
End If

Create and configure event interval between two instants.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalBetweenTimeInstants("MyIntervalBetweenTwoInstants", "MyDescription")
Dim asTimeInstant As IAgCrdnEventIntervalBetweenTimeInstants = TryCast(eventInterval, IAgCrdnEventIntervalBetweenTimeInstants)

asTimeInstant.StartTimeInstant = provider.Events("EphemerisStartTime")
asTimeInstant.StopTimeInstant = provider.Events("EphemerisStopTime")

Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()
If intervalResult.IsValid Then
     Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)
     Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])
End If

Create and configure event interval from an interval list.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalFromIntervalList("MyIntervalList", "MyDescription")
Dim asIntervalList As IAgCrdnEventIntervalFromIntervalList = TryCast(eventInterval, IAgCrdnEventIntervalFromIntervalList)

asIntervalList.ReferenceIntervals = provider.EventIntervalLists("AttitudeIntervals")
asIntervalList.IntervalSelection = AgECrdnIntervalSelection.eCrdnIntervalSelectionMaxGap

' Or from start...
asIntervalList.IntervalSelection = AgECrdnIntervalSelection.eCrdnIntervalSelectionFromStart
asIntervalList.IntervalNumber = 1

Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()
If intervalResult.IsValid Then
     Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)
     Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])
End If

Create and configure fixed duration event interval.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalFixedDuration("MyIntervalFixedDuration", "MyDescription")
Dim asFixedDuration As IAgCrdnEventIntervalFixedDuration = TryCast(eventInterval, IAgCrdnEventIntervalFixedDuration)

asFixedDuration.ReferenceTimeInstant = provider.Events("AvailabilityStartTime")

' Uses current Time unit preference, this code snippet assumes seconds.
asFixedDuration.StartOffset = 10

' Uses current Time unit preference, this code snippet assumes seconds.
asFixedDuration.StopOffset = 360

Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()
If intervalResult.IsValid Then
     Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)
     Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])
End If

Create and configure fixed event interval.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalFixed("MyIntervalFixed", "MyDescription")
Dim asFixed As IAgCrdnEventIntervalFixed = TryCast(eventInterval, IAgCrdnEventIntervalFixed)

asFixed.SetInterval(provider.Events("AvailabilityStartTime").FindOccurrence().Epoch, provider.Events("AvailabilityStopTime").FindOccurrence().Epoch)

Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()
If intervalResult.IsValid Then
     Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)
     Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])
End If

Create and configure scaled event interval.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalScaled("MyIntervalScaled", "MyDescription")
Dim asScaled As IAgCrdnEventIntervalScaled = TryCast(eventInterval, IAgCrdnEventIntervalScaled)

asScaled.OriginalInterval = provider.EventIntervals("AvailabilityTimeSpan")

asScaled.AbsoluteIncrement = 30

' Or use Relative
asScaled.UseAbsoluteIncrement = False
asScaled.RelativeIncrement = 45
' Percentage
Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()
If intervalResult.IsValid Then
     Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)
     Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])
End If

Create and configure signaled event interval.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt
Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt

Dim eventInterval As IAgCrdnEventInterval = satelliteVgtProvider.EventIntervals.Factory.CreateEventIntervalSignaled("MyIntervalSignaled", "MyDescription")
Dim asSignaled As IAgCrdnEventIntervalSignaled = TryCast(eventInterval, IAgCrdnEventIntervalSignaled)

asSignaled.OriginalInterval = aircraftVgtProvider.EventIntervals("AvailabilityTimeSpan")
asSignaled.BaseClockLocation = satelliteVgtProvider.Points("Center")
asSignaled.TargetClockLocation = aircraftVgtProvider.Points("Center")

asSignaled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseReceive
Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asSignaled.SignalDelay, IAgCrdnSignalDelayBasic)
basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnLightTransmissionSpeed

' Uses current Time unit preference, this code snippet assumes seconds.
basicSignalDelay.TimeDelayConvergence = 0.002

Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()
If intervalResult.IsValid Then
     Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)
     Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])
End If

Create and configure time offset event interval.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalTimeOffset("MyIntervalFixedTimeOffset", "MyDescription")
Dim asFixedTimeOffset As IAgCrdnEventIntervalTimeOffset = TryCast(eventInterval, IAgCrdnEventIntervalTimeOffset)

asFixedTimeOffset.ReferenceInterval = provider.EventIntervals("AvailabilityTimeSpan")

' Uses current Time unit preference, this code snippet assumes seconds.
asFixedTimeOffset.TimeOffset = 30

Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()
If intervalResult.IsValid Then
     Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)
     Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])
End If

Determine if event occurred in interval.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' The event you are interested in.
Dim timeEventInterval As IAgCrdnEventInterval = provider.EventIntervals("LightingIntervals.Sunlight.First")

' The reference event you want to determine if event occurred in the interval.
Dim timeEvent As IAgCrdnEvent = provider.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMax")
Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()

If occurrence.IsValid Then
     If timeEventInterval.Occurred(occurrence.Epoch) Then
          Console.WriteLine("Our highest altitude was reached on the first lighting pass")
     Else
          Console.WriteLine("Our highest altitude was not reached on the first lighting pass")
     End If
End If

Determine if the specified event interval type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnEventIntervalType eventIntervalType: A event interval type.

' Check if the specified event interval type is supported.
If provider.EventIntervals.Factory.IsTypeSupported(eventIntervalType) Then
     'Create an EventInterval with the supported Type
     Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.Create("MyEventInterval", String.Empty, eventIntervalType)
End If

Determines the start and stop times of the event interval.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals("AvailabilityTimeSpan")

Dim interval As IAgCrdnEventIntervalResult = eventInterval.FindInterval()

If interval.IsValid Then
     Console.WriteLine("Interval Start: " + interval.Interval.Start)
     Console.WriteLine("Interval Stop: " + interval.Interval.[Stop])
End If

Enumerate the existing event intervals.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing EventIntervals using specified CrdnProvider.
For Each eventInterval As IAgCrdnEventInterval In provider.EventIntervals
     ' All event intervals implement IAgCrdn interface which provides
     ' information about the event interval instance and its type.
     Dim crdn As IAgCrdn = TryCast(eventInterval, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventInterval.Type)
Next

Iterate through existing event intervals.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing event intervals associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.EventIntervals.Count
     Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals(i)
     ' All event intervals implement IAgCrdn interface which provides
     ' information about the event interval's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.EventIntervals(i), IAgCrdn)
     ' Print the event interval's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventInterval.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing event interval with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the event interval with specified name exists
If provider.EventIntervals.Contains("EventIntervalName") Then
     provider.EventIntervals.Remove("EventIntervalName")
End If

Check whether an event interval collection with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if an event interval collection with the specified name already exists.
If provider.EventIntervalCollections.Contains("EventIntervalCollectionName") Then
     Console.WriteLine("The event interval collection ""{0}"" already exists!", "EventIntervalCollectionName")
End If

Create and configure lighting event interval collection.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections.Factory.CreateEventIntervalCollectionLighting("MyIntervalCollectionLightning", "MyDescription")
Dim asCollectionLightning As IAgCrdnEventIntervalCollectionLighting = TryCast(intervalCollection, IAgCrdnEventIntervalCollectionLighting)

' Optionally use a separate central body
asCollectionLightning.UseObjectEclipsingBodies = True
asCollectionLightning.Location = provider.Points("Center")
asCollectionLightning.EclipsingBodies = New Object() {"Saturn", "Jupiter"}

Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalCollection.FindIntervalCollection()
If intervalResult.IsValid Then
     #If Not CSToJava Then
     For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections
          #Else
          #End If
          For Each interval As IAgCrdnInterval In intervals
               Console.WriteLine("Start: " + interval.Start)
               Console.WriteLine("Start: " + interval.[Stop])
          Next
     Next
End If

Create and configure signaled event interval collection.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt
Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt

Dim intervalCollection As IAgCrdnEventIntervalCollection = satelliteVgtProvider.EventIntervalCollections.Factory.CreateEventIntervalCollectionSignaled("MyIntervalCollectionSignaled", "MyDescription")
Dim asCollectionSignaled As IAgCrdnEventIntervalCollectionSignaled = TryCast(intervalCollection, IAgCrdnEventIntervalCollectionSignaled)

asCollectionSignaled.OriginalCollection = aircraftVgtProvider.EventIntervalCollections("LightingIntervals")
asCollectionSignaled.BaseClockLocation = satelliteVgtProvider.Points("Center")
asCollectionSignaled.TargetClockLocation = aircraftVgtProvider.Points("Center")

asCollectionSignaled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseTransmit
Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asCollectionSignaled.SignalDelay, IAgCrdnSignalDelayBasic)
basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnLightTransmissionSpeed

' Uses current Time unit preference, this code snippet assumes seconds.
basicSignalDelay.TimeDelayConvergence = 0.002

Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalCollection.FindIntervalCollection()
If intervalResult.IsValid Then
     #If Not CSToJava Then
     For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections
          #Else
          #End If
          For Each interval As IAgCrdnInterval In intervals
               Console.WriteLine("Start: " + interval.Start)
               Console.WriteLine("Start: " + interval.[Stop])
          Next
     Next
End If

Determine if epoch occurred in interval collection.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalVectorCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections("LightingIntervals")

Dim occurredResult As IAgCrdnEventIntervalCollectionOccurredResult = intervalVectorCollection.Occurred("1 May 2015 04:30:00.000")

If occurredResult.IsValid Then
     Console.WriteLine("Occurred at {0} index", occurredResult.Index)

     ' Use the index from IAgCrdnEventIntervalCollectionOccurredResult as the index to IAgCrdnIntervalsVectorResult.IntervalCollections
     Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalVectorCollection.FindIntervalCollection()
     Dim intervalCollection As IAgCrdnIntervalCollection = intervalResult.IntervalCollections(occurredResult.Index)
End If

Determine if the specified event interval collection type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnEventIntervalCollectionType eventIntervalCollectionType: A event interval collection type.

' Check if the specified event interval collection type is supported.
If provider.EventIntervalCollections.Factory.IsTypeSupported(eventIntervalCollectionType) Then
     'Create an EventIntervalCollection with the supported Type
     Dim eventIntervalCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections.Factory.Create("MyEventIntervalCollection", String.Empty, eventIntervalCollectionType)
End If

Determines the event intervals contained in the interval collection.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections("LightingIntervals")

Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalCollection.FindIntervalCollection()
If intervalResult.IsValid Then
     #If Not CSToJava Then
     For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections
          #Else
          #End If
          For Each interval As IAgCrdnInterval In intervals
               Console.WriteLine("Start: " + interval.Start)
               Console.WriteLine("Start: " + interval.[Stop])
          Next
     Next
End If

Enumerate the existing event interval collections.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing EventIntervalCollections using specified CrdnProvider.
For Each eventIntervalCollection As IAgCrdnEventIntervalCollection In provider.EventIntervalCollections
     ' All event interval collections implement IAgCrdn interface which provides
     ' information about the event interval collection instance and its type.
     Dim crdn As IAgCrdn = TryCast(eventIntervalCollection, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventIntervalCollection.Type)
Next

Iterate through existing event interval collections.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing event interval collections associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.EventIntervalCollections.Count
     Dim eventIntervalCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections(i)
     ' All event interval collections implement IAgCrdn interface which provides
     ' information about the event interval collection's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.EventIntervalCollections(i), IAgCrdn)
     ' Print the event interval collection's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventIntervalCollection.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing event interval collection with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the event interval collection with specified name exists
If provider.EventIntervalCollections.Contains("EventIntervalCollectionName") Then
     provider.EventIntervalCollections.Remove("EventIntervalCollectionName")
End If

Check whether an event interval list with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if an event interval list with the specified name already exists.
If provider.EventIntervalLists.Contains("EventIntervalListName") Then
     Console.WriteLine("The event interval list ""{0}"" already exists!", "EventIntervalListName")
End If

Create and configure event interval list from file.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider
' String intervalFile: Path to interval file.

' Example contents of a file
'
'  STK.V.10.0
'
'  BEGIN IntervalList
'      ScenarioEpoch 1 Jul 1999 00:00:00.00
'      DATEUNITABRV UTCG
'
'  BEGIN Intervals
'      "1 Jul 1999 00:00:00.00" "1 Jul 1999 02:00:00.00"
'      "1 Jul 1999 05:00:00.00" "1 Jul 1999 07:00:00.00"
'      "1 Jul 1999 11:00:00.00" "1 Jul 1999 13:00:00.00"
'      "1 Jul 1999 17:00:00.00" "1 Jul 1999 19:00:00.00"
'  END Intervals
'
'  END IntervalList

Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListFile("MyIntervalListFromFile", "MyDescription", intervalFile)
Dim asListFile As IAgCrdnEventIntervalListFile = TryCast(intervalList, IAgCrdnEventIntervalListFile)

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Create and configure filtered event interval list.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListFiltered("MyIntervalListFiltered", "MyDescription")
Dim listFiltered As IAgCrdnEventIntervalListFiltered = TryCast(intervalList, IAgCrdnEventIntervalListFiltered)

listFiltered.OriginalIntervals = provider.EventIntervalLists("AttitudeIntervals")

Dim firstIntervals As IAgCrdnFirstIntervalsFilter = TryCast(listFiltered.FilterFactory.Create(AgECrdnPruneFilter.eCrdnPruneFilterFirstIntervals), IAgCrdnFirstIntervalsFilter)
firstIntervals.MaximumNumberOfIntervals = 3

' Or for example satisfaction intervals
Dim asSatisfactionCondition As IAgCrdnSatisfactionConditionFilter = TryCast(listFiltered.FilterFactory.Create(AgECrdnPruneFilter.eCrdnPruneFilterSatisfactionIntervals), IAgCrdnSatisfactionConditionFilter)
asSatisfactionCondition.Condition = provider.Conditions("BeforeStop")
asSatisfactionCondition.DurationKind = AgECrdnIntervalDurationKind.eCrdnIntervalDurationKindAtLeast

' Uses current Time unit preference, this code snippet assumes seconds.
asSatisfactionCondition.IntervalDuration = 30

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Create and configure list condition event interval.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListCondition("MyIntervalListSatisfaction", "MyDescription")
Dim asListCondition As IAgCrdnEventIntervalListCondition = TryCast(intervalList, IAgCrdnEventIntervalListCondition)

asListCondition.Condition = provider.Conditions("AfterStart")

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Create and configure merged event interval list.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt
Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt

Dim intervalList As IAgCrdnEventIntervalList = satelliteVgtProvider.EventIntervalLists.Factory.CreateEventIntervalListMerged("MyIntervalListMerged", "MyDescription")
Dim asListMerged As IAgCrdnEventIntervalListMerged = TryCast(intervalList, IAgCrdnEventIntervalListMerged)

asListMerged.SetIntervalListA(satelliteVgtProvider.EventIntervalLists("AvailabilityIntervals"))
asListMerged.SetIntervalListB(aircraftVgtProvider.EventIntervalLists("AvailabilityIntervals"))
asListMerged.MergeOperation = AgECrdnEventListMergeOperation.eCrdnEventListMergeOperationMINUS

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Create and configure scaled event interval list.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListScaled("MyIntervalListScaled", "MyDescription")
Dim asListScaled As IAgCrdnEventIntervalListScaled = TryCast(intervalList, IAgCrdnEventIntervalListScaled)

asListScaled.AbsoluteIncrement = 40

' Or use Relative
asListScaled.UseAbsoluteIncrement = False
asListScaled.RelativeIncrement = 20
' Percentage
Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Create and configure signaled event interval list.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt
Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt

Dim intervalList As IAgCrdnEventIntervalList = satelliteVgtProvider.EventIntervalLists.Factory.CreateEventIntervalListSignaled("MyIntervalListSignaled", "MyDescription")
Dim asListSingled As IAgCrdnEventIntervalListSignaled = TryCast(intervalList, IAgCrdnEventIntervalListSignaled)

asListSingled.OriginalIntervals = aircraftVgtProvider.EventIntervalLists("BeforeStop.SatisfactionIntervals")
asListSingled.BaseClockLocation = satelliteVgtProvider.Points("Center")
asListSingled.TargetClockLocation = aircraftVgtProvider.Points("Center")

asListSingled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseTransmit
Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asListSingled.SignalDelay, IAgCrdnSignalDelayBasic)
basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnCustomTransmissionSpeed

' Uses current Time unit preference, this code snippet assumes seconds.
basicSignalDelay.TimeDelayConvergence = 0.002

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Create and configure time offset event interval list.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListTimeOffset("MyIntervalListFixedTimeOffset", "MyDescription")
Dim asTimeOffset As IAgCrdnEventIntervalListTimeOffset = TryCast(intervalList, IAgCrdnEventIntervalListTimeOffset)

asTimeOffset.ReferenceIntervals = provider.EventIntervalLists("AfterStart.SatisfactionIntervals")

' Uses current Time unit preference, this code snippet assumes seconds.
asTimeOffset.TimeOffset = 300

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Determine if epoch occured in interval collection.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists("AttitudeIntervals")

' The reference event you want to determine if event of interest happened before.
Dim timeEvent As IAgCrdnEvent = provider.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMin")
Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()

If intervalList.Occurred(occurrence.Epoch) Then
     Console.WriteLine("The time of maximum altitude occurred in event interval list.")
Else
     Console.WriteLine("The time of maximum altitude did not occurred in event interval list.")
End If

Determine if the specified event interval list type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnEventIntervalListType eventIntervalListType: A event interval list type.

' Check if the specified event interval list type is supported.
If provider.EventIntervalLists.Factory.IsTypeSupported(eventIntervalListType) Then
     'Create an EventIntervalList with the supported Type
     Dim eventIntervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.Create("MyEventIntervalList", String.Empty, eventIntervalListType)
End If

Determine the intervals an aircraft is above a certain velocity.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt

Dim intervalList As IAgCrdnEventIntervalList = aircraftVgtProvider.EventIntervalLists.Factory.CreateEventIntervalListCondition("IntervalsAboveCertainVelocity", "MyDescription")
Dim asListCondition As IAgCrdnEventIntervalListCondition = TryCast(intervalList, IAgCrdnEventIntervalListCondition)

Dim aboveBoundCondition As IAgCrdnCondition = aircraftVgtProvider.Conditions.Factory.CreateConditionScalarBounds("AboveCertainBound", "MyDescription")
Dim asScalarBounds As IAgCrdnConditionScalarBounds = TryCast(aboveBoundCondition, IAgCrdnConditionScalarBounds)
asScalarBounds.Operation = AgECrdnConditionThresholdOption.eCrdnConditionThresholdOptionAboveMin
asScalarBounds.Scalar = aircraftVgtProvider.CalcScalars("Trajectory(CBI).Cartesian.Z")
'asScalarBounds.Minimum = 4082;

asListCondition.Condition = aboveBoundCondition

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Determine the intervals without access.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root

' Compute UAV's access to the satellite
Dim satellite As IAgStkObject = stkRoot.GetObjectFromPath("Satellite/LEO")
Dim aircraft As IAgStkObject = stkRoot.GetObjectFromPath("Aircraft/UAV")
Dim satelliteAccess As IAgStkAccess = aircraft.GetAccessToObject(satellite)
satelliteAccess.ComputeAccess()

' Subtract the aircraft availability time with the access times to get the times without access.
Dim intervalList As IAgCrdnEventIntervalList = aircraft.Vgt.EventIntervalLists.Factory.CreateEventIntervalListMerged("IntervalsWithoutAccess", "MyDescription")
Dim asListMerged As IAgCrdnEventIntervalListMerged = TryCast(intervalList, IAgCrdnEventIntervalListMerged)
asListMerged.SetIntervalListA(aircraft.Vgt.EventIntervalLists("AvailabilityIntervals"))
asListMerged.SetIntervalListB(satelliteAccess.Vgt.EventIntervalLists("AccessIntervals"))
asListMerged.MergeOperation = AgECrdnEventListMergeOperation.eCrdnEventListMergeOperationMINUS

' Print times without access.
Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()
If intervals.IsValid Then
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Start: " + interval.Start)
          Console.WriteLine("Stop: " + interval.[Stop])
     Next
End If

Determines the event intervals contained in the interval list.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalsList As IAgCrdnEventIntervalList = provider.EventIntervalLists("AttitudeIntervals")

Dim intervals As IAgCrdnIntervalListResult = intervalsList.FindIntervals()

If intervals.IsValid Then
     Console.WriteLine("Intervals:")
     For Each interval As IAgCrdnInterval In intervals.Intervals
          Console.WriteLine("Interval Start: " + interval.Start)
          Console.WriteLine("Interval Stop: " + interval.[Stop])
     Next
End If

Enumerate the existing event interval lists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing EventIntervalLists using specified CrdnProvider.
For Each eventIntervalList As IAgCrdnEventIntervalList In provider.EventIntervalLists
     ' All event interval lists implement IAgCrdn interface which provides
     ' information about the event interval list instance and its type.
     Dim crdn As IAgCrdn = TryCast(eventIntervalList, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventIntervalList.Type)
Next

Iterate through existing event interval lists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing event interval lists associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.EventIntervalLists.Count
     Dim eventIntervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists(i)
     ' All event interval lists implement IAgCrdn interface which provides
     ' information about the event interval list's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.EventIntervalLists(i), IAgCrdn)
     ' Print the event interval list's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventIntervalList.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing event interval list with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the event interval list with specified name exists
If provider.EventIntervalLists.Contains("EventIntervalListName") Then
     provider.EventIntervalLists.Remove("EventIntervalListName")
End If

Check whether a parameter set with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

'Check if a parameter set with the specified name already exists.
If provider.ParameterSets.Contains("ParameterSetName") Then
     Console.WriteLine("The parameter set ""{0}"" already exists!", "ParameterSetName")
End If

Create an attitude parameter set.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

'Create an attitude parameter set.
Dim parameterSet As IAgCrdnParameterSetAttitude = DirectCast(provider.ParameterSets.Factory.Create("ParameterSetName", "Attitude parameter set.", AgECrdnParameterSetType.eCrdnParameterSetTypeAttitude), IAgCrdnParameterSetAttitude)

Determine if the specified parameter set type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnParameterSetType parameterSetType: A parameter set type.

' Check if the specified parameter set type is supported.
If provider.ParameterSets.Factory.IsTypeSupported(parameterSetType) Then
     'Create a ParameterSet with the supported Type
     Dim parameterSet As IAgCrdnParameterSet = provider.ParameterSets.Factory.Create("MyParameterSet", String.Empty, parameterSetType)
End If

Enumerate the existing parameter sets.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing ParameterSets using specified CrdnProvider.
For Each parameterSet As IAgCrdnParameterSet In provider.ParameterSets
     ' All parameter sets implement IAgCrdn interface which provides
     ' information about the parameter set instance and its type.
     Dim crdn As IAgCrdn = TryCast(parameterSet, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, parameterSet.Type)
Next

Iterate through existing parameter sets.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing parameter sets associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.ParameterSets.Count
     Dim parameterSet As IAgCrdnParameterSet = provider.ParameterSets(i)
     ' All parameter sets implement IAgCrdn interface which provides
     ' information about the parameter set's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.ParameterSets(i), IAgCrdn)
     ' Print the parameter set's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, parameterSet.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing parameter set with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the parameter set with specified name exists
If provider.ParameterSets.Contains("ParameterSetName") Then
     provider.ParameterSets.Remove("ParameterSetName")
End If

Check whether a plane with specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the plane with the specified name already exists.
If provider.Planes.Contains("PlaneName") Then
     Console.WriteLine("The plane ""{0}"" already exists!", "PlaneName")
End If

Check whether the reference plane has a cyclic dependency on another plane.

[Visual Basic .NET] Copy Code
' IAgCrdnPlaneRefTo planeRefTo: Reference to a plane.
' IAgCrdnPlane plane: A plane to check against reference plane.

'Check if the reference plane has a cyclic dependency on another plane.
If planeRefTo.HasCyclicDependency(plane) Then
     Console.WriteLine("The plane {0} has a cyclic dependency on plane {1}.", DirectCast(planeRefTo.GetPlane(), IAgCrdn).Name, DirectCast(plane, IAgCrdn).Name)
End If

Create a plane normal to vector.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Create a plane normal to vector.
Dim p As IAgCrdnPlaneNormal = DirectCast(provider.Planes.Factory.Create("PlaneName", "A plane normal to vector.", AgECrdnPlaneType.eCrdnPlaneTypeNormal), IAgCrdnPlaneNormal)

Determine if the specified plane type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' AgECrdnPlaneType planeType: A plane type.

' Check if the specified plane type is supported.
If provider.Planes.Factory.IsTypeSupported(planeType) Then
     Dim p As IAgCrdnPlane = provider.Planes.Factory.Create("PlaneName", String.Empty, planeType)
End If

Enumerate the existing planes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing Planes using specified CrdnProvider.
For Each plane As IAgCrdnPlane In provider.Planes
     ' All planes implement IAgCrdn interface which provides
     ' information about the plane instance and its type.
     Dim crdn As IAgCrdn = TryCast(plane, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, plane.Type)
Next

Iterate through existing planes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing planes associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.Planes.Count
     Dim plane As IAgCrdnPlane = provider.Planes(i)
     ' All planes implement IAgCrdn interface which provides
     ' information about the plane's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.Planes(i), IAgCrdn)
     ' Print the plane's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, plane.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing plane with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the plane with specified name exists
If provider.Planes.Contains("PlaneName") Then
     provider.Planes.Remove("PlaneName")
End If

Check whether a point with the specified name exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if a point with specified name exists.
If provider.Points.Contains("PointName") Then
     Console.WriteLine("The point ""{0}"" exists!", "PointName")
End If

Check whether the reference point has a cyclic dependency on another point.

[Visual Basic .NET] Copy Code
' IAgCrdnPointRefTo pointRefTo: Reference to a point.
' IAgCrdnPoint point: A point to check against reference point.

'Check if the reference point has a cyclic dependency on another point.
If pointRefTo.HasCyclicDependency(point) Then
     Console.WriteLine("The point {0} has a cyclic dependency on point {1}.", DirectCast(pointRefTo.GetPoint(), IAgCrdn).Name, DirectCast(point, IAgCrdn).Name)
End If

Create a B-Plane point using selected target body.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' String TargetBody: A target central body

' Create a B-Plane point using selected target body
Dim point As IAgCrdnPointBPlane = DirectCast(provider.Points.Factory.Create("PointName", String.Empty, AgECrdnPointType.eCrdnPointTypeBPlane), IAgCrdnPointBPlane)
point.TargetBody.SetPath(TargetBody)

Determine if the specified point type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' AgECrdnPointType PointType: A point type

' Check if the specified point type is supported.
If provider.Points.Factory.IsTypeSupported(PointType) Then
     Dim point As IAgCrdnPoint = provider.Points.Factory.Create("PointName", String.Empty, PointType)
End If

Enumerate the existing points.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing points using specified CrdnProvider.
For Each point As IAgCrdnPoint In provider.Points
     ' All points implement IAgCrdn interface which provides
     ' information about the point instance and its type.
     Dim crdn As IAgCrdn = TryCast(point, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, point.Type)
Next

Iterate through the existing points.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing points associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.Points.Count
     Dim point As IAgCrdnPoint = provider.Points(i)
     ' All points implement IAgCrdn interface which provides
     ' information about the point instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.Points(i), IAgCrdn)
     ' Print the point name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, point.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Locates a point in the Earth's Fixed reference frame.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' IAgCrdnPoint point: A valid VGT point object.

Dim result As IAgCrdnPointLocateInSystemResult = point.LocateInSystem(0, provider.WellKnownSystems.Earth.Fixed)
If result.IsValid Then
     Console.WriteLine("The position of the point in Earth's Fixed reference frame: {0},{1},{2}", result.Position.X, result.Position.Y, result.Position.Z)
End If

Remove an existing point with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the specified point exists
If provider.Points.Contains("PointName") Then
     provider.Points.Remove("PointName")
End If

Check whether a system with the specified name exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the specified system exists.
If provider.Systems.Contains("SystemName") Then
     Console.WriteLine("The system ""{0}"" exists!", "SystemName")
End If

Check whether the reference system has a cyclic dependency on another system.

[Visual Basic .NET] Copy Code
' IAgCrdnSystemRefTo systemRefTo: Reference to a system.
' IAgCrdnSystem system: A system to check against reference system.

'Check if the reference system has a cyclic dependency on another system.
If systemRefTo.HasCyclicDependency(system) Then
     Console.WriteLine("The system {0} has a cyclic dependency on system {1}.", DirectCast(systemRefTo.GetSystem(), IAgCrdn).Name, DirectCast(system, IAgCrdn).Name)
End If

Create a non-persistent point fixed in a specified reference frame given Cartesian data (using common tasks).

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of a central body VGT provider
' IAgFacility facility: An instance of a facility

Dim X As Double, Y As Double, Z As Double
#If Not CSToJava Then
facility.Position.QueryCartesian(X, Y, Z)
#Else
#End If
Dim origin As IAgCrdnPointFixedInSystem = provider.Points.CommonTasks.CreateFixedInSystemCartesian(provider.Systems("Fixed"), X, Y, Z)

Create a non-persistent point fixed in a specified reference frame given Cartographic data (using common tasks).

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of a central body VGT provider
' IAgFacility facility: An instance of a facility

Dim lat As Object = 0, lon As Object = 0
Dim alt As Double = 0
#If Not CSToJava Then
facility.Position.QueryPlanetodetic(lat, lon, alt)
#Else
#End If
Dim origin As IAgCrdnPointFixedInSystem = provider.Points.CommonTasks.CreateFixedInSystemCartographic(provider.Systems("Fixed"), lat, lon, alt)

Create a system assembled from a point serving as its origin and a set of reference axes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' IAgCrdnPoint OriginPoint: A point of origin.
' IAgCrdnAxes ReferenceAxes: A reference axes.

Dim system As IAgCrdnSystemAssembled = DirectCast(provider.Systems.Factory.Create("SystemName", String.Empty, AgECrdnSystemType.eCrdnSystemTypeAssembled), IAgCrdnSystemAssembled)
' Set the system's origin point.
system.OriginPoint.SetPoint(OriginPoint)
' Set the system's reference axes.
system.ReferenceAxes.SetAxes(ReferenceAxes)

Creates a East-North-Up system at the specified geodetic location (using common tasks).

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of a VGT provider
' IAgFacility facility: An instance of a facility

Dim lat As Object = 0, lon As Object = 0
Dim alt As Double = 0
#If Not CSToJava Then
facility.Position.QueryPlanetodetic(lat, lon, alt)
#Else
#End If
Dim systemAssembled As IAgCrdnSystemAssembled = provider.Systems.CommonTasks.CreateEastNorthUpCartographic(lat, lon, alt)

Creates a system assembled from an origin point and a set of reference axes (using common tasks).

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of a central body VGT provider
' IAgFacility facility: An instance of a facility

Dim systemAssembled As IAgCrdnSystemAssembled = provider.Systems.CommonTasks.CreateAssembled((DirectCast(facility, IAgStkObject)).Vgt.Points("Center"), provider.Axes("Fixed"))

Determine if the specified System type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' AgECrdnSystemType SystemType: A system type

' Check if the specified system type is supported.
If provider.Systems.Factory.IsTypeSupported(SystemType) Then
     'Create a System with supported Type
     Dim system As IAgCrdnSystem = provider.Systems.Factory.Create("SystemName", String.Empty, SystemType)
End If

Enumerate the existing systems.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing Systems using specified CrdnProvider.
For Each system As IAgCrdnSystem In provider.Systems
     ' All systems implement IAgCrdn interface which provides
     ' information about the system instance and its type.
     Dim crdn As IAgCrdn = TryCast(system, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, system.Type)
Next

Iterate through existing systems (coordinate reference frames).

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing systems associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.Systems.Count
     Dim crdnSystem As IAgCrdnSystem = provider.Systems(i)
     ' All coordinate reference frames implement IAgCrdn interface which provides
     ' information about the reference frame's instance and its type.
     Dim crdn As IAgCrdn = TryCast(provider.Systems(i), IAgCrdn)
     ' Print the reference frame's name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, crdnSystem.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing system with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider

' Check if the specified system exists.
If provider.Systems.Contains("SystemName") Then
     provider.Systems.Remove("SystemName")
End If

Check whether the reference vector has a cyclic dependency on another vector.

[Visual Basic .NET] Copy Code
' IAgCrdnVectorRefTo vectorRefTo: Reference to a vector.
' IAgCrdnVector vector: A vector to check against reference vector.

'Check if the reference vector has a cyclic dependency on another vector.
If vectorRefTo.HasCyclicDependency(vector) Then
     Console.WriteLine("The vector {0} has a cyclic dependency on vector {1}.", DirectCast(vectorRefTo.GetVector(), IAgCrdn).Name, DirectCast(vector, IAgCrdn).Name)
End If

Check whether the vector with the specified name already exists.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' String VectorName: Name of the vector to check for.

'Check if the vector with specified name already exists.
If provider.Vectors.Contains(VectorName) Then
     Console.WriteLine("The vector {0} already exists!", VectorName)
End If

Computes the vector in the Earth's Fixed axes.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider
' IAgCrdnVector vector: A valid VGT vector object.

Dim result As IAgCrdnVectorFindInAxesResult = vector.FindInAxes(0, provider.WellKnownAxes.Earth.Fixed)
If result.IsValid Then
     Console.WriteLine("Vector in the Earth's Fixed axes (x,y,z) => {0},{1},{2}", result.Vector.X, result.Vector.Y, result.Vector.Z)
End If

Create a displacement vector defined by its origin and destination points.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' IAgCrdnPoint OriginPoint: Defines the vector origin.
' IAgCrdnPoint DestinationPoint: Defines the vector destination.

'Create a displacement vector with two specified points
Dim vector As IAgCrdnVectorDisplacement = provider.Vectors.Factory.CreateDisplacementVector("VectorName", OriginPoint, DestinationPoint)

Creates a vector defined as a cross product of vectors A and B.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' IAgCrdnVector VectorA: First vector.
' IAgCrdnVector VectorB: Second vector.

'Create a vector defined as cross product of vectors A and B.
Dim vector As IAgCrdnVectorCross = provider.Vectors.Factory.CreateCrossProductVector("CrossVector", VectorA, VectorB)

Determine if the specified vector type is supported.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' AgECrdnVectorType vectorType: A vector type.

'Check if the specified vector type is supported.
If provider.Vectors.Factory.IsTypeSupported(vectorType) Then
     ' Create a custom vector.
     Dim vector As IAgCrdnVector = provider.Vectors.Factory.Create("myVector", String.Empty, vectorType)
End If

Enumerate the existing vectors.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: A Vector Geometry Tool provider

' Enumerate the existing vectors using specified CrdnProvider.
For Each vector As IAgCrdnVector In provider.Vectors
     ' All vectors implement IAgCrdn interface which provides
     ' information about the vector instance and its type.
     Dim crdn As IAgCrdn = TryCast(vector, IAgCrdn)
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, vector.Type)
Next

Iterate through the existing vectors.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.

' Iterate through the the group of existing vectors associated
' with the specified CrdnProvider.
Dim i As Integer = 0
While i < provider.Vectors.Count
     Dim vector As IAgCrdnVector = provider.Vectors(i)
     ' All vectors implement IAgCrdn interface which provides
     ' information about the vector instance and its type.
     Dim crdn As IAgCrdn = TryCast(vector, IAgCrdn)
     ' Print the vector name and type to the standard output.
     Console.WriteLine("Name: {0}, type: {1}", crdn.Name, vector.Type)
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Remove an existing vector with the specified name.

[Visual Basic .NET] Copy Code
' IAgCrdnProvider provider: An instance of VGT provider.
' String VectorName: A name of the vector to be removed.

' Check if the vector with specified name already exists.
If provider.Vectors.Contains(VectorName) Then
     provider.Vectors.Remove(VectorName)
End If

Enumerate all 2D (Map) windows and print their map identifiers.

[Visual Basic .NET] Copy Code
' AgUiApplication application: STK Application object

For Each window As IAgUiWindow In application.Windows
     Dim oSvc As Object = window.GetServiceByType(AgEWindowService.eWindowService2DWindow)
     Dim mapObject As IAgUiWindowMapObject = TryCast(oSvc, IAgUiWindowMapObject)
     If mapObject IsNot Nothing Then
          Console.WriteLine("Window Title: {0}, scene ID: {1}", window.Caption, mapObject.MapID)
     End If
Next

Enumerate all 2D (Map) windows and print their map identifiers.

[Visual Basic .NET] Copy Code
' AgUiApplication application: STK Application object

For Each window As IAgUiWindow In application.Windows
     Dim oSvc As Object = window.GetServiceByType(AgEWindowService.eWindowService2DWindow)
     Dim mapObject As IAgUiWindowMapObject = TryCast(oSvc, IAgUiWindowMapObject)
     If mapObject IsNot Nothing Then
          Console.WriteLine("Window Title: {0}, scene ID: {1}", window.Caption, mapObject.MapID)
     End If
Next

Enumerate all 3D (Globe) windows and print their scene identifiers.

[Visual Basic .NET] Copy Code
' AgUiApplication application: STK Application object

For Each window As IAgUiWindow In application.Windows
     Dim oSvc As Object = window.GetServiceByType(AgEWindowService.eWindowService3DWindow)
     Dim globeObject As IAgUiWindowGlobeObject = TryCast(oSvc, IAgUiWindowGlobeObject)
     If globeObject IsNot Nothing Then
          Console.WriteLine("Window Title: {0}, scene ID: {1}", window.Caption, globeObject.SceneID)
     End If
Next

Enumerate all 3D (Globe) windows and print their scene identifiers.

[Visual Basic .NET] Copy Code
' AgUiApplication application: STK Application object

For Each window As IAgUiWindow In application.Windows
     Dim oSvc As Object = window.GetServiceByType(AgEWindowService.eWindowService3DWindow)
     Dim globeObject As IAgUiWindowGlobeObject = TryCast(oSvc, IAgUiWindowGlobeObject)
     If globeObject IsNot Nothing Then
          Console.WriteLine("Window Title: {0}, scene ID: {1}", window.Caption, globeObject.SceneID)
     End If
Next

Computes the distance between two locations.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim centralBodyEllipsoid As IAgStkCentralBodyEllipsoid = root.CentralBodies("Earth").Ellipsoid

' Compute the distance between Philadelphia and London.
' The code snippet assumes the latitude and longitude unit preference is set to degrees.
Dim distance As Double = centralBodyEllipsoid.ComputeSurfaceDistance(40.0068, -75.1347, 51.4879, -0.178)
Console.WriteLine("The distance between Philadelphia and London is: {0}", distance)

Create 2525b symbol

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' String filePath: Saved image file path

' Generate a 2525b symbol
Dim symbol As IAgStdMil2525bSymbols = root.StdMil2525bSymbols

' Configure symbol properties
symbol.SymbolImageSize = 128
symbol.FillEnabled = True

' CreateSymbol
symbol.CreateSymbol("sjgpewrh--mtusg", filePath)

Gets the altitude of the terrain at a single location and in batches.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' Double latitude: Terrain Latitude Position
' Double longitude: Terrain Longitude Position
' String terrainFile: Path of Terrain file

Dim scneario As IAgScenario = DirectCast(root.CurrentScenario, IAgScenario)

' If you haven't done so, add the terrain to your scenario (for example .PDTT)
Dim earthTerrain As IAgCentralBodyTerrainCollectionElement = scneario.Terrain("Earth")
earthTerrain.TerrainCollection.Add(terrainFile, AgETerrainFileType.ePDTTTerrainFile)

' Get single altitude
Dim altitude As Double = earthTerrain.GetAltitude(latitude, longitude, AgEAltRefType.eMSL)

' Get points in batches.
#If Not CSToJava Then
#Else
#End If
Dim specifiedPositions As Array = New Object(,) {{40.0386, -75.5966}, {28.5383, -81.3792}, {37.7749, -122.4194}}

#If Not CSToJava Then
Dim altitudes As Array = earthTerrain.GetAltitudeBatch(specifiedPositions, AgEAltRefType.eWGS84)
#Else
#End If

' GetAltitudeBatch returns a one-dimensional array of altitude values in the distance unit perference.
Dim numPoints As Integer = altitudes.GetLength(0)
Dim i As Integer = 0
While i < numPoints
     Console.WriteLine("Latitude={0}, Longitude={1}, Altitude={2}", specifiedPositions.GetValue(i, 0), specifiedPositions.GetValue(i, 1), altitudes.GetValue(i))
     System.Threading.Interlocked.Increment(i)
End While

Gets the altitude profile of the terrain.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root
' String terrainFile: Path of Terrain file

Dim scneario As IAgScenario = DirectCast(root.CurrentScenario, IAgScenario)

' If you haven't done so, add the terrain to your scenario (for example .PDTT)
Dim earthTerrain As IAgCentralBodyTerrainCollectionElement = scneario.Terrain("Earth")
Dim terrain As IAgTerrain = earthTerrain.TerrainCollection.Add(terrainFile, AgETerrainFileType.ePDTTTerrainFile)

' Get diagonal altitude profile using the max resolution of the terrain file.
Dim terrainProfile As Array = earthTerrain.GetAltitudesBetweenPointsAtResolution(terrain.SWLatitude, terrain.SWLongitude, terrain.NELatitude, terrain.NELongitude, terrain.Resolution, AgEDistanceOnSphere.eDistanceOnSphereGreatCircle, _
     AgEAltRefType.eMSL)

' GetAltitudeProfile returns a two dimensional array of lat lon alt values.
Dim numPoints As Integer = terrainProfile.GetLength(0)
Dim i As Integer = 0
While i < numPoints
     Console.WriteLine("Latitude={0}, Longitude={1}, Altitude={2}", terrainProfile.GetValue(i, 0), terrainProfile.GetValue(i, 1), terrainProfile.GetValue(i, 2))
     System.Threading.Interlocked.Increment(i)
End While

Load a VDF

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model Root
' String vdfPath: The full file path of the VDF
' String vdfPassword: The password to open the VDF

' Pass an empty string if there is no password to the VDF.
root.LoadVDF(vdfPath, vdfPassword)

Sets the scenario analysis time to the empheris time of another object.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root
' IAgScenario scenario: Scenario object

Dim satellite As IAgSatellite = TryCast(stkRoot.GetObjectFromPath("/Satellite/GeoEye"), IAgSatellite)

Dim vgtProvider As IAgCrdnProvider = stkRoot.VgtRoot.GetProvider("/Satellite/GeoEye")
Dim twoBody As IAgVePropagatorTwoBody = TryCast(satellite.Propagator, IAgVePropagatorTwoBody)
Dim startEpoch As IAgCrdnEventSmartEpoch = twoBody.EphemerisInterval.GetStartEpoch()
Dim stopEpoch As IAgCrdnEventSmartEpoch = twoBody.EphemerisInterval.GetStopEpoch()

scenario.AnalysisInterval.SetStartAndStopEpochs(startEpoch, stopEpoch)

Sets the scenario analysis time to today and the duration to one day.

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot stkRoot: STK Object Model root
' IAgScenario scenario: Scenario object

scenario.AnalysisInterval.SetStartTimeAndDuration("Today", "+1 Day")

Execute Connect command

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim result As IAgExecCmdResult = root.ExecuteCommand("New / */Satellite JeffSAT")

Execute multiple Connect commands

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

#If Not CSToJava Then
#Else
#End If
Dim connectCommands As Array = New Object() {"New / */Satellite MySatellite", "Graphics */Satellite/MySatellite SetColor red"}

' ExecuteMultipleCommands expect a one dimensional array of Connect commands
#If Not CSToJava Then
Dim result As IAgExecMultiCmdResult = root.ExecuteMultipleCommands(connectCommands, AgEExecMultiCmdResultAction.eExceptionOnError)
#Else
#End If

Extract data from a multiple Connect result

[Visual Basic .NET] Copy Code
' IAgExecMultiCmdResult result: Connect mutiple exection result

Dim i As Integer = 0
While i < result.Count
     If result(i).IsSucceeded Then
          Dim j As Integer = 0
          While j < result(i).Count
               Console.WriteLine(result(j))
               System.Math.Max(System.Threading.Interlocked.Increment(j),j - 1)
          End While
     End If
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Extract data from Connect result

[Visual Basic .NET] Copy Code
' IAgExecCmdResult result: Connect exection result

If result.IsSucceeded Then
     Dim i As Integer = 0
     While i < result.Count
          Console.WriteLine(result(i))
          System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
     End While
End If

Convert a position to another representation

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim converter As IAgConversionUtility = root.ConversionUtility

' ConvertPositionArray expects a two dimensional array of positions
#If Not CSToJava Then
#Else
#End If
Dim cartesianPositions As Array = New Object(,) {{1216.47, -4736.12, 4081.39}, {1000, -2000, 2000}}

' Convert cartesian dates to cylindrical
' ConvertPositionArray returns a two dimensional array of cartesian dates
#If Not CSToJava Then
Dim cylindricalPositions As Array = converter.ConvertPositionArray(AgEPositionType.eCartesian, cartesianPositions, AgEPositionType.eCylindrical)
#Else
#End If

' Print results
Dim i As Integer = 0
While i < cylindricalPositions.GetLength(0)
     Console.WriteLine("X: {0}, Y: {1}, Z: {2}", cylindricalPositions.GetValue(i, 0), cylindricalPositions.GetValue(i, 1), cylindricalPositions.GetValue(i, 2))
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Convert an orbit state to another representation or coordinate system X

[Visual Basic .NET] Copy Code
' IAgOrbitState orbit: Orbit State

Dim newOrbit As IAgOrbitStateClassical = TryCast(orbit.ConvertTo(AgEOrbitStateType.eOrbitStateClassical), IAgOrbitStateClassical)

Extends orbit state to another representation or coordinate system X

[Visual Basic .NET] Copy Code
' IAgOrbitState orbitState: Orbit State

' orbitState can be extended to one of the other representations.
' Here it is extended to Classical representation.
Dim newOrbitState As IAgOrbitStateClassical = TryCast(orbitState.ConvertTo(AgEOrbitStateType.eOrbitStateClassical), IAgOrbitStateClassical)

' Set the new orbit state parameters
newOrbitState.AssignClassical(AgECoordinateSystem.eCoordinateSystemICRF, 12000000, 0, 1.8, 0, -1.8, _
     0)

Query direction as another representation

[Visual Basic .NET] Copy Code
' IAgDirection direction: Direction

#If Not CSToJava Then
' Method 1
Dim b As Object = Nothing, c As Object = Nothing
direction.QueryEuler(AgEEulerDirectionSequence.e12, b, c)
Console.WriteLine("B = {0}, C = {1}", b, c)
#End If
' Method 2
' The Query functions returns a one dimension array
' The number of column rows depends on the representation
#If Not CSToJava Then
Dim euler As Array = direction.QueryEulerArray(AgEEulerDirectionSequence.e12)
#Else
#End If
Console.WriteLine("B = {0}, C = {1}", euler.GetValue(0), euler.GetValue(1))

Delay graphics updates while manipulating properties of an object

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Root

Dim satellite As IAgSatellite = TryCast(root.CurrentScenario.Children("Satellite1"), IAgSatellite)
Dim voElt As IAgVODataDisplayElement = satellite.VO.DataDisplay(0)

root.BeginUpdate()
' Suspend updates
' Put modifications here
voElt.IsVisible = True
voElt.UseBackground = True
voElt.BgColor = Color.Green
voElt.UseBackground = False

root.EndUpdate()
' Resume updates now

Calculate date addition (with IAgDate)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create a date representing now
#If Not CSToJava Then
Dim nowDate As IAgDate = root.ConversionUtility.NewDate("DD/MM/YYYY", DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss.fff"))
#Else
#End If

' Dates can be modified using Add 52 days
Dim newDate As IAgDate = nowDate.Add("day", 52)

' Differences between dates are calculated from Span function
Dim span As IAgQuantity = newDate.Span(nowDate)

' IAgDate also provides formatting functionalities
span.ConvertToUnit("min")
Console.WriteLine("Date(now) in UTCG is: {0}", nowDate.Format("UTCG"))
Console.WriteLine("Date(52 days from now) in UTCG is: {0}", newDate.Format("UTCG"))
Console.WriteLine("The difference between now and 52 days to come is {0} minutes!", span.Value)

Calculate date subtraction (with IAgDate)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create a date representing now
#If Not CSToJava Then
Dim nowDate As IAgDate = root.ConversionUtility.NewDate("DD/MM/YYYY", DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss.fff"))
#Else
#End If

' Dates can be modified using Subtract 52 days
Dim newDate As IAgDate = nowDate.Subtract("day", 52)

' Differences between dates are calculated from Span function
Dim span As IAgQuantity = newDate.Span(nowDate)

' IAgDate also provides formatting functionalities
span.ConvertToUnit("min")
Console.WriteLine("Date(now) in UTCG is: {0}", nowDate.Format("UTCG"))
Console.WriteLine("Date(52 days before now) in UTCG is: {0}", newDate.Format("UTCG"))
Console.WriteLine("The difference between now and 52 days ago is {0} minutes!", span.Value)

Calculate quantity addition (with IAgQuantity)

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Create a quantity representing a 3.1 mile/ 5 km fun run race
Dim race3mi As IAgQuantity = root.ConversionUtility.NewQuantity("Distance", "mi", 3.1)
Dim race5km As IAgQuantity = root.ConversionUtility.NewQuantity("Distance", "km", 5)

' Add the two 3.1 mile/ 5 km runs
Dim race10km As IAgQuantity = race5km.Add(race3mi)
Console.Write("The {0} {1} race is also called a ", race10km.Value, race10km.Unit)

' Convert 10k run to 6.2 mile run internally within the quantity
race10km.ConvertToUnit("mi")
Console.WriteLine("{0} {1} race", race10km.Value, race10km.Unit)

Convert a date format to another format

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim converter As IAgConversionUtility = root.ConversionUtility

' Individually
Dim epsec As String = converter.ConvertDate("UTCG", "Epsec", "1 Jan 2012 12:00:00.000")
Dim utcg As String = converter.ConvertDate("EpSec", "UTCG", "230126401.000")

Convert a quantity unit to another unit

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim converter As IAgConversionUtility = root.ConversionUtility

' Old value in miles, new value in km
Dim newValue As Double = converter.ConvertQuantity("DistanceUnit", "mi", "km", 1)

Convert mulitple quantities of the same unit to another unit

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim converter As IAgConversionUtility = root.ConversionUtility

' ConvertQuantityArray expects a one dimensional array of values to be converted
' An array of km/sec units
#If Not CSToJava Then
#Else
#End If
Dim kmsecUnits As Array = New Object() {100, 23}

' Convert to mi/sec units
' ConvertQuantityArray returns a one dimensional array of converted values
#If Not CSToJava Then
Dim misecUnits As Array = converter.ConvertQuantityArray("Rate", "km/sec", "mi/sec", kmsecUnits)
#Else
#End If

Convert multiple dates of the same format to another format

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

Dim converter As IAgConversionUtility = root.ConversionUtility

' In batches
' ConvertDateArray expects a one dimensional array of dates
' An array of UTCG dates
#If Not CSToJava Then
#Else
#End If
Dim tempDates As Array = New Object() {"1 Jan 2012 12:00:00.000", "1 Jan 2012 14:00:00.000"}

' Convert UTCG array to EpSec
' ConvertDateArray returns a one dimensional array of converted dates
#If Not CSToJava Then
Dim converted As Array = converter.ConvertDateArray("UTCG", "Epsec", tempDates)
#Else
#End If

' Print results
Dim i As Integer = 0
While i < converted.Length
     Console.WriteLine("Date: {0}", converted.GetValue(i))
     System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Get a current unit preference

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' DistanceUnit
Dim dimensionName As String = "Distance"
Dim unitAbbreviation As String = root.UnitPreferences.GetCurrentUnitAbbrv(dimensionName)

Isolate Unit Preferences when using multiple IAgStkObjectRoot objects

[Visual Basic .NET] Copy Code

' First root configured to use km
Dim root1 As IAgStkObjectRoot = New AgStkObjectRootClass()
root1.UnitPreferences.SetCurrentUnit("Distance", "km")

' Second root configured to use miles
Dim root2 As IAgStkObjectRoot = New AgStkObjectRootClass()
root2.Isolate()
root2.UnitPreferences.SetCurrentUnit("Distance", "mi")

' Create new scenario and ship object
' Close current scenario
If root1.CurrentScenario IsNot Nothing Then
     root1.CloseScenario()
End If
root1.NewScenario("Test")
root1.CurrentScenario.Children.[New](AgESTKObjectType.eShip, "Ship1")

' Obtain references to the ship object from each root
Dim shipFromRoot1 As IAgShip = TryCast(root1.GetObjectFromPath("Ship/Ship1"), IAgShip)
Dim shipFromRoot2 As IAgShip = TryCast(root2.GetObjectFromPath("Ship/Ship1"), IAgShip)

shipFromRoot1.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)

Dim greatArcFromRoot1 As IAgVePropagatorGreatArc = TryCast(shipFromRoot1.Route, IAgVePropagatorGreatArc)
Dim greatArcFromRoot2 As IAgVePropagatorGreatArc = TryCast(shipFromRoot2.Route, IAgVePropagatorGreatArc)

Dim waypointsFromRoot1 As IAgVeWaypointsElement = greatArcFromRoot1.Waypoints.Add()

waypointsFromRoot1.Altitude = 1
' 1 km
Dim waypointsFromRoot2 As IAgVeWaypointsElement = greatArcFromRoot2.Waypoints.Add()

waypointsFromRoot2.Altitude = 1
' 1 mile
greatArcFromRoot1.Propagate()

Dim i As Integer = 1
For Each wpt As IAgVeWaypointsElement In greatArcFromRoot1.Waypoints
     Console.WriteLine("Point #{0} Altitude {1} {2}", i, wpt.Altitude, root1.UnitPreferences.GetCurrentUnitAbbrv("Distance"))
     System.Threading.Interlocked.Increment(i)
Next
Console.WriteLine()

'Sample Output
'Point #1 Altitude 1 km
'Point #2 Altitude 1.609344 km

i = 1
For Each wpt As IAgVeWaypointsElement In greatArcFromRoot2.Waypoints
     Console.WriteLine("Point #{0} Altitude {1} {2}", i, wpt.Altitude, root2.UnitPreferences.GetCurrentUnitAbbrv("Distance"))
     System.Threading.Interlocked.Increment(i)
Next

'Sample Output
'Point #1 Altitude 0.621371192237334 mi
'Point #2 Altitude 1 mi

root1.CloseScenario()

Reset all current unit preferences

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' Reset Units
root.UnitPreferences.ResetUnits()

Set a current unit preference

[Visual Basic .NET] Copy Code
' IAgStkObjectRoot root: STK Object Model root

' DistanceUnit
root.UnitPreferences.SetCurrentUnit("Distance", "m")

STK Programming Interface 11.0.1