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

STK Plugins

Graphics

VGT

2D Windows

3D Windows

Utilities

Create instance of AgStkObjectRoot in STK Engine application

[Visual Basic .NET]

' 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]

' Get reference to running STK instance
Dim uiApplication As AgUiApplication = TryCast(System.Runtime.InteropServices.Marshal.GetActiveObject("STK13.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]

' Get reference to running STK instance
Dim uiApplication As AgUiApplication = TryCast(System.Runtime.InteropServices.Marshal.GetActiveObject("STK13.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]

' 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]
// 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]
// 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]
// IAgStkObjectRoot root: STK Object Model Root
// IAgAreaTarget areaTarget: AreaTarget object

' By using the CommonTasks interface,
' make an array of lattitude and longitude boundary points
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
areaTarget.CommonTasks.SetAreaTypePattern(boundary)

List all points in an area target

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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

Add Metadata To Object

[Visual Basic .NET]
// IAgStkObject stkObject: STK Object to add Metadata to

stkObject.Metadata.[Set]("key", "value")

Add ReadOnly Metadata To Object

[Visual Basic .NET]
// IAgStkObject stkObject: STK Object to add Metadata to

stkObject.Metadata.[Set]("key", "value")
stkObject.Metadata.SetReadOnly("key", True)

Check If Metadata Contains Key

[Visual Basic .NET]
// IAgStkObject stkObject: STK Object to add Metadata to

If stkObject.Metadata.Contains("test") Then
Console.WriteLine("The collection contains the test element.")
End If

Check If Metadata Is ReadOnly

[Visual Basic .NET]
// IAgStkObject stkObject: STK Object to add Metadata to

If stkObject.Metadata.GetReadOnly("test") Then
Console.WriteLine("The test Metadata element is ReadOnly.")
End If

Delete a STK Object

[Visual Basic .NET]
// IAgStkObject stkObject: STK Object to be removed

stkObject.Unload()

Export a STK Object to a file

[Visual Basic .NET]
// 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]
// IAgStkObjectCollection col: STK Object Collection
// String stkObjectLocation: Path of STK Object external file

col.ImportObject(stkObjectLocation)

Iterate Metadata Keys

[Visual Basic .NET]
// IAgStkObject stkObject: STK Object to add Metadata to

For Each key As String In stkObject.Metadata.Keys
Console.WriteLine("Key: {0}, Value: {1}", key, stkObject.Metadata(key))
Next

Remove Metadata From Object

[Visual Basic .NET]
// IAgStkObject stkObject: STK Object to add Metadata to

stkObject.Metadata.RemoveKey("key")

Rename a STK Object

[Visual Basic .NET]
// IAgStkObject stkObject: STK Object to be renamed

stkObject.InstanceName = "NewObjectName"

Set/Get the STK Object description

[Visual Basic .NET]
// 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]
// IAgStkObject stkobject: STK Object

Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints

' Add constraints
accessConstraints.AddConstraint(AgEAccessConstraints.eCstrSunElevationAngle)

Add analysis workbench access constraint from analysis workbanch component

[Visual Basic .NET]
// IAgStkObject stkobject: STK Object

If stkobject.Vgt.Vectors.Contains("East") Then
Dim vec As IAgCrdnVector = stkobject.Vgt.Vectors("East")
Dim crdnVec As IAgCrdn = TryCast(vec, IAgCrdn)

Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints
Dim awbAccessConstraints As IAgAccessCnstrAWBCollection = accessConstraints.AWBConstraints

Dim awbConst As IAgAccessCnstrAWB = TryCast(awbAccessConstraints.AddConstraint(AgEAWBAccessConstraints.eCstrAWBVectorMag, crdnVec.QualifiedPath), IAgAccessCnstrAWB)
awbConst.EnableMin = True
awbConst.Min = 0
awbConst.EnableMax = True

awbConst.Max = 1000
End If

Add and configure a lighting condition access constraint

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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)

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

[Visual Basic .NET]
// IAgStkObject stkobject: STK Object

Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints
Dim awbAccessConstraints As IAgAccessCnstrAWBCollection = accessConstraints.AWBConstraints

' Add constraints
Dim objectPath As String = stkobject.ClassName + "/" + stkobject.InstanceName
Dim awbConst As IAgAccessCnstrAWB = TryCast(awbAccessConstraints.AddConstraint(AgEAWBAccessConstraints.eCstrAWBVectorMag, objectPath + " East Vector"), IAgAccessCnstrAWB)
awbConst.EnableMin = True
awbConst.Min = 0

Dim awbConst2 As IAgAccessCnstrAWB = TryCast(awbAccessConstraints.AddConstraint(AgEAWBAccessConstraints.eCstrAWBVectorMag, objectPath + " North Vector"), IAgAccessCnstrAWB)
awbConst2.EnableMax = True
awbConst2.Max = 1000

Compute an access and get constraint data from data provider

[Visual Basic .NET]
// 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
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

accessIntervals.GetInterval(index0, startTime, stopTime)

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

Dim result As IAgDrResult = dp.ExecElements(startTime, stopTime, 60, dataPrvElements)

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]
// 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]
// 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]
// 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]
// 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)
access.SpecifyAccessIntervals(computedIntervals)

Configure the access analysis time period to specified time instants.

[Visual Basic .NET]
// 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]
// 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]
// 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 &&#160;"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]
// 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 analysis workbench access constraints

[Visual Basic .NET]
// IAgStkObject stkobject: STK Object

Dim awbaccessconstraints As IAgAccessCnstrAWBCollection = stkobject.AccessConstraints.AWBConstraints
For Each awbConstraint As IAgAccessCnstrAWB In awbaccessconstraints
Console.WriteLine("Reference: {0}", awbConstraint.Reference)
Next

List all available references for analysis workbench access constraint type

[Visual Basic .NET]
// IAgStkObject stkobject: STK Object

Dim awbaccessconstraints As IAgAccessCnstrAWBCollection = stkobject.AccessConstraints.AWBConstraints
For Each availableReference As String In awbaccessconstraints.GetAvailableReferences(AgEAWBAccessConstraints.eCstrAWBAngle)
Console.WriteLine("Available Reference: {0}", availableReference)
Next

List all exclusion zones of an access constraint

[Visual Basic .NET]
// 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]
// IAgStkObject stkobject: STK Object

Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints

' Remove constraints
accessConstraints.RemoveConstraint(AgEAccessConstraints.eCstrSunElevationAngle)

Remove analysis workbench access constraint

[Visual Basic .NET]
// IAgStkObject stkobject: STK Object

Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints
Dim awbAccessConstraints As IAgAccessCnstrAWBCollection = accessConstraints.AWBConstraints

Dim objectPath As String = stkobject.ClassName + "/" + stkobject.InstanceName
awbAccessConstraints.RemoveConstraint(AgEAWBAccessConstraints.eCstrAWBVectorMag, objectPath + " East Vector")

Coarse grain approach to retrieving a fixed data provider

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgStkObject facility: STK Object

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
Dim resInfo As IAgDrResult = dpInfo.ExecElements(elems)

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

[Visual Basic .NET]
// 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]
// 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]
// IAgStkObject satellite: STK Object

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"}
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
Dim resInfo As IAgDrTimeArrayElements = dp.ExecSingleElementsArray(times, elems)

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

[Visual Basic .NET]
// IAgStkObject satellite: STK Object

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
Dim resInfo As IAgDrResult = dp.ExecSingleElements("1 Jan 2012 12:00:00.000", elems)

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

[Visual Basic .NET]
// IAgStkObject satObj: Satellite STK Object

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]
// IAgStkObject satObj: Satellite STK Object

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]
// 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]
// 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)

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
Dim resInfo As IAgDrResult = dp.ExecElements("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000", elems)

Execute an object coverage data provider and dump its result

[Visual Basic .NET]
// 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
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
Dim arRanges As Array = interval.MultipleThresholdCrossings("FOM Value", arBoundaries)

Dim iRange As Integer = 0
While iRange < arRanges.GetLength(0)
Console.Write(vbLf &&#160;"Range: {0}" &&#160;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}" &&#160;vbTab &&#160;"Stop: {1}" &&#160;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]
// 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 &&#160;"{0}", value.ToString())
Next
Next

Extract data from IAgDrDataSetCollection across multiple intervals.

[Visual Basic .NET]
// 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 &&#160;"{0}", value.ToString())
Next
Next

Extract data from IAgDrIntervalCollection (generic)

[Visual Basic .NET]
// 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 &&#160;"{0}", value.ToString())
Next
Next
Next

Extract data from IAgDrResult based on its category (generic)

[Visual Basic .NET]
// 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]
// 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 &&#160;"Time {0} - {1}", interval.StartTime, interval.StopTime)

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

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

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

Extract data from IAgDrTextMessage (generic)

[Visual Basic .NET]
// IAgDrTextMessage message: 

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

Set STK Object Display to always on

[Visual Basic .NET]
// 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]
// 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 display ...
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]
// 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]
// 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
Dim objects As Array = New Object() {"Facility/facility1", "Facility/facility2"}
gfx.HideObjects(objects, "1")
gfx.ShowObjects(objects, "all")

Configure 3D data display

[Visual Basic .NET]
// 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]
// IAgVOModel model: VO Model from an STK Object

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

' 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]
// 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]
// 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]
// 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"

vector.ScaleRelativeToModel = True
vector.AngleSizeScale = 4.5

List all 3D model articulations

[Visual Basic .NET]
// 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]
// 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]
// 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

' 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"}

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

accessIntervals.GetInterval(index0, startTime, stopTime)

Dim result As IAgDrResult = dp.ExecElements(startTime, stopTime, 60, dataPrvElements)

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]
// 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

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

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
accessIntervals.GetInterval(index0, startTime, stopTime)

Dim result As IAgDrResult = dp.ExecElements(startTime, stopTime, 60, dataPrvElements)

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]
// 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]
// IAgConstellation constellation: Constellation object

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

Compute a coverage definition access

[Visual Basic .NET]
// 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]
// 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]
// IAgCoverageDefinition coverageDefinition: Coverage definition object

Dim assetCollection As IAgCvAssetListCollection = coverageDefinition.AssetList
Dim satAssetName As String = "Satellite/sat1"
Dim facAssetName 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, satAssetName) <> -1 Then
' Add assets to coverageDefinition
If assetCollection.CanAssignAsset(satAssetName) Then
satAsset1 = assetCollection.Add(satAssetName)

' Configure asset element
satAsset1.Required = True
End If
End If

' AvailableAssets returns a one dimensional array of assets
If Array.IndexOf(assetCollection.AvailableAssets, facAssetName) <> -1 Then
' Add assets to coverageDefinition
If assetCollection.CanAssignAsset(facAssetName) Then
assetCollection.Add(facAssetName)
End If
End If

Define a coverage definition by points

[Visual Basic .NET]
// 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
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
coverageDefinition.PointDefinition.SetPointsLLA(points)

Define a custom grid using area targets

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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 adaptive sampling

[Visual Basic .NET]
// IAgCoverageDefinition coverageDefinition: Coverage definition object

' Get the Sampling interface
Dim advanced As IAgCvAdvanced = coverageDefinition.Advanced
Dim sampling As IAgAccessSampling = advanced.Sampling

' Set the Sampling Method
sampling.SetType(AgESamplingMethod.eSamplingMethodAdaptive)
Dim adaptive As IAgSamplingMethodAdaptive = TryCast(sampling.Strategy, IAgSamplingMethodAdaptive)

' Set properties on the Adaptive sampling method interface
adaptive.MaxTimeStep = 180
adaptive.MinTimeStep = 1

Configure a coverage definition fixed step sampling

[Visual Basic .NET]
// IAgCoverageDefinition coverageDefinition: Coverage definition object

' Get the Sampling interface
Dim advanced As IAgCvAdvanced = coverageDefinition.Advanced
Dim sampling As IAgAccessSampling = advanced.Sampling

' Set the Sampling Method
sampling.SetType(AgESamplingMethod.eSamplingMethodFixedStep)
Dim fixedStep As IAgSamplingMethodFixedStep = TryCast(sampling.Strategy, IAgSamplingMethodFixedStep)

' Set properties on the Fixed Stop sampling method interface
fixedStep.FixedTimeStep = 360
fixedStep.TimeBound = 5

Configure a coverage definition graphics

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgMto mto: MTO object

Dim trackCollection As IAgMtoTrackCollection = mto.Tracks

Dim time As Array = New Object() {"1 Jan 2012 12:10:00.000", "1 Jan 2012 12:20:00.000"}
Dim latitude As Array = New Object() {27.97, -26.51}
Dim longitude As Array = New Object() {-80.01, 119.42}
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
Dim track As IAgMtoTrack = trackCollection.AddTrack(1, time, latitude, longitude, altitude)

Configure MTO

[Visual Basic .NET]
// 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]
// 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]
// IAgMtoTrackPointCollection trackPointCollection: Track point collection

Dim time As Array = New Object() {"1 Jan 2012 12:20:00.000", "1 Jan 2012 12:30:00.000"}
Dim latitude As Array = New Object() {-18.35, 19.55}
Dim longitude As Array = New Object() {-42.1, 83.21}
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
trackPointCollection.Extend(time, latitude, longitude, altitude)

Load MTO track points from file

[Visual Basic .NET]
// 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]
// IAgMto mto: MTO object

Dim trackCollection As IAgMtoTrackCollection = mto.Tracks

' Build tracksToRemove Array
Dim tracksToRemove As Array = New Object() {trackCollection(0), trackCollection(1)}

' RemoveTracks expects a one dimensional array of IAgMtoTrack objects
trackCollection.RemoveTracks(tracksToRemove)

Remove MTO tracks by ids

[Visual Basic .NET]
// IAgMto mto: MTO object

Dim trackCollection As IAgMtoTrackCollection = mto.Tracks

' RemoveTracksById expects a one dimensional array of mto track ids
Dim tracks As Array = New Object() {1, 4}
trackCollection.RemoveTracksById(tracks)

Compute MTO field of view

[Visual Basic .NET]
// IAgMto mto: MTO object

Dim fov As IAgMtoAnalysisFieldOfView = mto.Analysis.FieldOfView
fov.Sensor = "Satellite/J2Satellite/Sensor/Sensor1"

' AreTracksInFOV expects a one dimensional array of mto track ids
Dim tracks As Array = New Object() {1, 4}

Dim tracksInView As Boolean = fov.AreTracksInFOV(AgEMtoTrackEval.eMtoTrackEvalAny, tracks, "1 Jan 2012 12:00:00.000")

Compute MTO ranges

[Visual Basic .NET]
// 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
Dim tracks As Array = New Object() {1, 4}

Dim result As Array = range.ComputeRanges(AgEMtoRangeMode.eMtoRangeModeEach, tracks, "1 Jan 2012 12:00:00.000")

' 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]
// 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]
// 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 tracksOfInterest As Array = New Object() {1, 2, 7}

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

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

[Visual Basic .NET]
// 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]
// 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 2012 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]
// 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).
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
Dim trackVisibilityArray As Array = mtoVisibility.ComputeTracks(AgEMtoVisibilityMode.eVisibilityModeEach, tracksOfInterest, "1 Jan 2012 12:05:00.000")

' 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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

' 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"}

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
accessIntervals.GetInterval(index0, startTime, stopTime)

Dim result As IAgDrResult = dp.ExecElements(startTime, stopTime, 60, dataPrvElements)

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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgStkObjectRoot root: STK Object Model root

root.CloseScenario()

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

[Visual Basic .NET]
// 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]
// 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]
// IAgStkObjectRoot root: STK Object Model root

root.SaveScenario()

Save a scenario to a new location (Save as)

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgSensor sensor: Sensor object

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

Define and compute sensor swath

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgSensor sensor: Sensor object

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

Configure sensor 3D projection

[Visual Basic .NET]
// IAgSnVO sensorVo: Sensor VO object

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

Configure basic properties

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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 &&#160;vbLf &&#160;"            DeltaArg = dArg" &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;"            REM  Set the optimizers desired results" &&#160;vbCr &&#160;vbLf &&#160;"            DEOdArgUB = DeltaArg" &&#160;vbCr &&#160;vbLf &&#160;"            DEOdArgLB = DeltaArg" &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;"            REM  Initial guess tool:" &&#160;vbCr &&#160;vbLf &&#160;"            REM  Assume transfer orbit is something like a circular orbit linking apoapse of initial orbit to apoapse of final orbit" &&#160;vbCr &&#160;vbLf &&#160;"            REM  Constants: " &&#160;vbCr &&#160;vbLf &&#160;"            mu = 398600" &&#160;vbCr &&#160;vbLf &&#160;"            pi = 3.14159265358979" &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;"            REM  Step 1:  propagate to apoapsis" &&#160;vbCr &&#160;vbLf &&#160;"            Prop1Dur = Period_0/2" &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;"            REM  Step 2:  conditions at end of initial orbit:" &&#160;vbCr &&#160;vbLf &&#160;"            SMA_0 = 0.5*(RadApo_0 + RadPeri_0)" &&#160;vbCr &&#160;vbLf &&#160;"            VelApo_0 = sqr( (RadPeri_0*mu) / (RadApo_0*SMA_0) )" &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;"            REM  Step 3:  evaluate properties of the circular transfer orbit" &&#160;vbCr &&#160;vbLf &&#160;"            Rcirc = RadApo_0" &&#160;vbCr &&#160;vbLf &&#160;"            Vcirc = sqr(mu/Rcirc)" &&#160;vbCr &&#160;vbLf &&#160;"            PeriodCirc = 2*pi*Sqr( Rcirc*Rcirc*Rcirc / mu)" &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;"            REM  Step 4:  set first maneuver to enter transfer orbit" &&#160;vbCr &&#160;vbLf &&#160;"            Burn1X = Vcirc - VelApo_0" &&#160;vbCr &&#160;vbLf &&#160;"            Burn1Z = 0" &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;"            REM  Step 5:  propagate along transfer orbit the desired change in argument of periapse" &&#160;vbCr &&#160;vbLf &&#160;"            If DeltaArg >= 0 Then" &&#160;vbCr &&#160;vbLf &&#160;"             TransferDur = PeriodCirc*(DeltaArg/360)" &&#160;vbCr &&#160;vbLf &&#160;"            Else " &&#160;vbCr &&#160;vbLf &&#160;"             TransferDur = PeriodCirc*(360+DeltaArg)/360" &&#160;vbCr &&#160;vbLf &&#160;"            End If" &&#160;vbCr &&#160;vbLf &&#160;vbCr &&#160;vbLf &&#160;"            REM Step 6:  set second maneuver to enter desired final orbit" &&#160;vbCr &&#160;vbLf &&#160;"            Burn2X = -Burn1X" &&#160;vbCr &&#160;vbLf &&#160;"            Burn2Z = 0" &&#160;vbCr &&#160;vbLf &&#160;"            ")

' 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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
propagator.SetPointsSpecifyVelocityAndPropagate(waypoints)

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

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

[Visual Basic .NET]
// 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
propagator.SetPointsSmoothRateAndPropagate(waypoints)

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

Set Waypoints (Derive Velocity from Time) and Propagate

[Visual Basic .NET]
// 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
propagator.SetPointsSpecifyTimeAndPropagate(waypoints)

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]
// 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.
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}}

propagator.SetPointsSmoothRateAndPropagate(waypointsAndTimes)

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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgVePropagatorRealtime propagator: Realtime Propagator

' Add realtime LLA points in batches
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"}
Dim lat As Array = New Object() {39.693, 41.061, 39.925}
Dim lon As Array = New Object() {-76.399, -74.266, -78.578}
Dim alt As Array = New Object() {0.039, 0.042, 0.281}
Dim latrate As Array = New Object() {0.03458, 0.03215, 0.03188}
Dim lonrate As Array = New Object() {0.01223, 0.01148, 0.01075}
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
points.AddBatch(times, lat, lon, alt, latrate, lonrate, _
altrate)

Configure the Realtime propagator

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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()

Dim rx As New Regex("^(?<ssc>[-]?\d+) (?<orbitepoch>[-]?\d+[.]?\d+) (?<revnumber>[-]?\d+)$")
For Each line As Object In tles
Dim m As Match = rx.Match(line.ToString())
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]
// 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()

Dim rx As New Regex("^(?<ssc>[-]?\d+) (?<orbitepoch>[-]?\d+[.]?\d+) (?<revnumber>[-]?\d+)$")
For Each line As Object In tles
Dim m As Match = rx.Match(line.ToString())
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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgLaunchVehicle launchVehicle: Launch vehicle

Dim supported As Boolean = launchVehicle.IsTrajectoryTypeSupported(AgEVePropagatorType.ePropagatorRealtime)

Define missile trajectory

[Visual Basic .NET]
// 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()

Configure Target Slew for a satellite

[Visual Basic .NET]
// IAgSatellite satellite: Satellite object

Dim orbitAttStandard As IAgVeOrbitAttitudeStandard = TryCast(satellite.Attitude, IAgVeOrbitAttitudeStandard)
orbitAttStandard.Pointing.UseTargetPointing = True
orbitAttStandard.Pointing.Targets.Add("Facility/FacSlew")
orbitAttStandard.Pointing.TargetSlew.SetSlewModeType(AgEVeSlewMode.eVeSlewModeConstrained2ndOrderSpline)

Dim constrainedSlew As IAgVeAttSlewConstrained = TryCast(orbitAttStandard.Pointing.TargetSlew.SlewMode, IAgVeAttSlewConstrained)
constrainedSlew.MaximumSlewTime = 20
'sec
constrainedSlew.SlewTimingBetweenTargets = AgEVeSlewTimingBetweenTargets.eVeSlewTimingBetweenTargetsOptimal

Dim maxRate As IAgVeAttMaximumSlewRate = constrainedSlew.MaximumSlewRate
maxRate.Magnitude = 10
'deg/sec^2
maxRate.PerAxisXEnabled = True
maxRate.PerAxisX = 5
'deg/sec^2
maxRate.PerAxisYEnabled = True
maxRate.PerAxisY = 5
'deg/sec^2
maxRate.PerAxisZEnabled = True
maxRate.PerAxisZ = 5
'deg/sec^2
Dim maxAcceleration As IAgVeAttMaximumSlewAcceleration = constrainedSlew.MaximumSlewAcceleration
maxAcceleration.Magnitude = 10
'deg/sec^2
maxAcceleration.PerAxisXAccelEnabled = True
maxAcceleration.PerAxisXAccel = 5
'deg/sec^2
maxAcceleration.PerAxisYAccelEnabled = True
maxAcceleration.PerAxisYAccel = 5
'deg/sec^2
maxAcceleration.PerAxisZAccelEnabled = True
maxAcceleration.PerAxisZAccel = 5
'deg/sec^2

Create a satellite (on current scenario central body)

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]

'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]

'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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgStkGraphicsScene scene: Current Scene
// AgStkObjectRoot root: STK Object Model root
// List<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]
// 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]
// IAgStkGraphicsScene scene: Current Scene
// AgStkObjectRoot root: STK Object Model root
// String markerFile: The file to use for the markers
// IList<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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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 model with moving articulations

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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" &&#160;vbLf &&#160;"Analytical Graphics" &&#160;vbLf &&#160;"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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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

facility.Position.QueryPlanetodetic(lat, lon, alt)
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]
// 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

facility.Position.QueryPlanetodetic(lat, lon, alt)
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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgStkObject sat: A satellite object.

Dim numEpSec As Integer = 180

' Get the satellite's ICRF cartesian position at 180 EpSec using the data provider interface
Dim dpGroup As IAgDataProviderGroup = TryCast(sat.DataProviders("Cartesian Position"), IAgDataProviderGroup)
Dim elements As Array = New Object() {"x", "y", "z"}
Dim dp As IAgDataPrvTimeVar = TryCast(dpGroup.Group("ICRF"), IAgDataPrvTimeVar)
Dim dpResult As IAgDrResult = dp.ExecElements(numEpSec, numEpSec, 60, elements)
Dim xICRF As Double = DirectCast(dpResult.DataSets(0).GetValues().GetValue(0), Double)
Dim yICRF As Double = DirectCast(dpResult.DataSets(1).GetValues().GetValue(0), Double)
Dim zICRF As Double = DirectCast(dpResult.DataSets(2).GetValues().GetValue(0), Double)

' Get the satellite's ICRF cartesian velocity at 180 EpSec using the data provider interface
dpGroup = TryCast(sat.DataProviders("Cartesian Velocity"), IAgDataProviderGroup)
dp = TryCast(dpGroup.Group("ICRF"), IAgDataPrvTimeVar)
dpResult = dp.ExecElements(numEpSec, numEpSec, 60, elements)
Dim xvelICRF As Double = DirectCast(dpResult.DataSets(0).GetValues().GetValue(0), Double)
Dim yvelICRF As Double = DirectCast(dpResult.DataSets(1).GetValues().GetValue(0), Double)
Dim zvelICRF As Double = DirectCast(dpResult.DataSets(2).GetValues().GetValue(0), Double)

' Create a position vector using the ICRF coordinates
Dim axesICRF As IAgCrdnAxes = sat.Vgt.WellKnownAxes.Earth.ICRF
Dim vectorICRF As IAgCartesian3Vector = Application.ConversionUtility.NewCartesian3Vector()
vectorICRF.[Set](xICRF, yICRF, zICRF)

' Create a velocity vector using the ICRF coordinates
Dim vectorvelICRF As IAgCartesian3Vector = Application.ConversionUtility.NewCartesian3Vector()
vectorvelICRF.[Set](xvelICRF, yvelICRF, zvelICRF)

' Use the TransformWithRate method to transform ICRF to Fixed
Dim axesFixed As IAgCrdnAxes = sat.Vgt.WellKnownAxes.Earth.Fixed
Dim result As IAgCrdnAxesTransformWithRateResult = axesICRF.TransformWithRate(numEpSec, axesFixed, vectorICRF, vectorvelICRF)

' Get the Fixed position and velocity coordinates
Dim xFixed As Double = result.Vector.X
Dim yFixed As Double = result.Vector.Y
Dim zFixed As Double = result.Vector.Z
Dim xvelFixed As Double = result.Velocity.X
Dim yvelFixed As Double = result.Velocity.Y
Dim zvelFixed As Double = result.Velocity.Z

Transform a vector to the Earth's Fixed axes.

[Visual Basic .NET]
// IAgStkObject sat: A satellite object.

' Get the satellite's ICRF cartesian position at 180 EpSec using the data provider interface
Dim numEpSec As Integer = 180
Dim dpGroup As IAgDataProviderGroup = TryCast(sat.DataProviders("Cartesian Position"), IAgDataProviderGroup)
Dim elements As Array = New Object() {"x", "y", "z"}
Dim dp As IAgDataPrvTimeVar = TryCast(dpGroup.Group("ICRF"), IAgDataPrvTimeVar)
Dim dpResult As IAgDrResult = dp.ExecElements(numEpSec, numEpSec, 60, elements)
Dim xICRF As Double = DirectCast(dpResult.DataSets(0).GetValues().GetValue(0), Double)
Dim yICRF As Double = DirectCast(dpResult.DataSets(1).GetValues().GetValue(0), Double)
Dim zICRF As Double = DirectCast(dpResult.DataSets(2).GetValues().GetValue(0), Double)

' Create a vector using the ICRF coordinates
Dim axesICRF As IAgCrdnAxes = sat.Vgt.WellKnownAxes.Earth.ICRF
Dim vectorICRF As IAgCartesian3Vector = Application.ConversionUtility.NewCartesian3Vector()
vectorICRF.[Set](xICRF, yICRF, zICRF)

' Use the Transform method to transform ICRF to Fixed
Dim axesFixed As IAgCrdnAxes = sat.Vgt.WellKnownAxes.Earth.Fixed
Dim result As IAgCrdnAxesTransformResult = axesICRF.Transform(numEpSec, axesFixed, vectorICRF)

' Get the Fixed coordinates
Dim xFixed As Double = result.Vector.X
Dim yFixed As Double = result.Vector.Y
Dim zFixed As Double = result.Vector.Z

Check whether a calc scalar with specified name already exists.

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgCrdnEventIntervalSmartInterval smartInterval: Event Smart Interval

smartInterval.SetExplicitInterval("Today", "Tomorrow")

Check whether an event array with specified name already exists.

[Visual Basic .NET]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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
For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections
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]
// 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
For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections
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]
// 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]
// 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]
// IAgCrdnProvider provider: A Vector Geometry Tool provider

Dim intervalCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections("LightingIntervals")

Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalCollection.FindIntervalCollection()
If intervalResult.IsValid Then
For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections
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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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
facility.Position.QueryCartesian(X, Y, Z)
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]
// 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
facility.Position.QueryPlanetodetic(lat, lon, alt)
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]
// 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]
// 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
facility.Position.QueryPlanetodetic(lat, lon, alt)
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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// 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]
// IAgStkObjectRoot root: STK Object Model root
// Double latitude: Terrain Latitude Position
// Double longitude: Terrain Longitude Position
// String terrainFile: Path of Terrain file

Dim scenario 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 = scenario.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.
Dim specifiedPositions As Array = New Object(,) {{40.0386, -75.5966}, {28.5383, -81.3792}, {37.7749, -122.4194}}

Dim altitudes As Array = earthTerrain.GetAltitudeBatch(specifiedPositions, AgEAltRefType.eWGS84)

' 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]
// IAgStkObjectRoot root: STK Object Model root
// String terrainFile: Path of Terrain file

Dim scenario 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 = scenario.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)

' GetAltitudesBetweenPointsAtResolution 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]
// 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]
// 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]
// IAgStkObjectRoot stkRoot: STK Object Model root
// IAgScenario scenario: Scenario object

scenario.AnalysisInterval.SetStartTimeAndDuration("Today", "+1 Day")

Execute Connect command

[Visual Basic .NET]
// IAgStkObjectRoot root: STK Object Model root

Dim result As IAgExecCmdResult = root.ExecuteCommand("New / */Satellite JeffSAT")

Execute multiple Connect commands

[Visual Basic .NET]
// IAgStkObjectRoot root: STK Object Model root

Dim connectCommands As Array = New Object() {"New / */Satellite MySatellite", "Graphics */Satellite/MySatellite SetColor red"}

' ExecuteMultipleCommands expect a one dimensional array of Connect commands
Dim result As IAgExecMultiCmdResult = root.ExecuteMultipleCommands(connectCommands, AgEExecMultiCmdResultAction.eExceptionOnError)

Extract data from a multiple Connect result

[Visual Basic .NET]
// 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]
// 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]
// IAgStkObjectRoot root: STK Object Model root

Dim converter As IAgConversionUtility = root.ConversionUtility

' ConvertPositionArray expects a two dimensional array of positions
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
Dim cylindricalPositions As Array = converter.ConvertPositionArray(AgEPositionType.eCartesian, cartesianPositions, AgEPositionType.eCylindrical)

' 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]
// 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]
// 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]
// IAgDirection direction: Direction

' 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)
' Method 2
' The Query functions returns a one dimension array
' The number of column rows depends on the representation
Dim euler As Array = direction.QueryEulerArray(AgEEulerDirectionSequence.e12)
Console.WriteLine("B = {0}, C = {1}", euler.GetValue(0), euler.GetValue(1))

Delay graphics updates while manipulating properties of an object

[Visual Basic .NET]
// 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]
// IAgStkObjectRoot root: STK Object Model root

' Create a date representing now
Dim nowDate As IAgDate = root.ConversionUtility.NewDate("DD/MM/YYYY", DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss.fff"))

' 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]
// IAgStkObjectRoot root: STK Object Model root

' Create a date representing now
Dim nowDate As IAgDate = root.ConversionUtility.NewDate("DD/MM/YYYY", DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss.fff"))

' 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]
// 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]
// 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]
// 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]
// 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
Dim kmsecUnits As Array = New Object() {100, 23}

' Convert to mi/sec units
' ConvertQuantityArray returns a one dimensional array of converted values
Dim misecUnits As Array = converter.ConvertQuantityArray("Rate", "km/sec", "mi/sec", kmsecUnits)

Convert multiple dates of the same format to another format

[Visual Basic .NET]
// 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
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
Dim converted As Array = converter.ConvertDateArray("UTCG", "Epsec", tempDates)

' 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]
// 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]


Reset all current unit preferences

[Visual Basic .NET]
// IAgStkObjectRoot root: STK Object Model root

' Reset Units
root.UnitPreferences.ResetUnits()

Set a current unit preference

[Visual Basic .NET]
// IAgStkObjectRoot root: STK Object Model root

' DistanceUnit
root.UnitPreferences.SetCurrentUnit("Distance", "m")