Visual Basic .NET Code Snippets

[Visual Basic .NET] Copy Code

// IAgChain chain: Chain object


' Remove all previous accesses

chain.ClearAccess()


' Add some objects to chain

chain.Objects.Add("Facility/fac1")

chain.Objects.Add("Satellite/sat1")

chain.Objects.Add("Satellite/sat2")

chain.Objects.Add("Aircraft/air1")


' Configure chain parameters

chain.AutoRecompute = False

chain.EnableLightTimeDelay = False

chain.TimeConvergence = 0.001

chain.DataSaveMode = AgEDataSaveMode.eSaveAccesses


' Specify our own time period

chain.SetTimePeriodType(AgEChTimePeriodType.eUserSpecifiedTimePeriod)


' Get chain time period interface

Dim chainUserTimePeriod As IAgChUserSpecifiedTimePeriod = TryCast(chain.TimePeriod, IAgChUserSpecifiedTimePeriod)

chainUserTimePeriod.SetTimePeriod("1 Jul 2005 12:00:00", "2 Jul 2005 12:00:00")


' Compute the chain

chain.ComputeAccess()

Define and compute a chain (basic)

[Visual Basic .NET] Copy Code

// IAgChain chain: Chain object


' Add some objects to chain (using STK path)

chain.Objects.Add("Facility/fac1")

chain.Objects.Add("Satellite/sat1")

chain.Objects.Add("Satellite/sat2")

chain.Objects.Add("Aircraft/air1")


' Compute the chain

chain.ComputeAccess()

Prints the strand intervals of chain object

[Visual Basic .NET] Copy Code

// IAgChain chain: Chain Object


Dim chainAsStkObject As IAgStkObject = TryCast(chain, IAgStkObject)


' Compute the chain access if not done already.

chain.ComputeAccess()


' Considered Start and Stop time

Console.WriteLine("Chain considered start time: {0}", chainAsStkObject.Vgt.Events("ConsideredStartTime").FindOccurrence().Epoch)

Console.WriteLine("Chain considered stop time: {0}", chainAsStkObject.Vgt.Events("ConsideredStopTime").FindOccurrence().Epoch)


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

Dim intervalListResult As IAgCrdnIntervalsVectorResult = objectParticipationIntervals.FindIntervalCollection()


Dim i As Integer = 0

While i < intervalListResult.IntervalCollections.Count

 If intervalListResult.IsValid Then

 Console.WriteLine("Link Name: {0}", objectParticipationIntervals.Labels.GetValue(i))

 Console.WriteLine("--------------")

 Dim j As Integer = 0

 While j < intervalListResult.IntervalCollections(i).Count

 Dim startTime As Object = intervalListResult.IntervalCollections(i)(j).Start

 Dim stopTime As Object = intervalListResult.IntervalCollections(i)(j).[Stop]

 Console.WriteLine("Start: {0}, Stop: {1}", startTime, stopTime)

 System.Threading.Interlocked.Increment(j)

 End While

 End If

 System.Threading.Interlocked.Increment(i)

End While

Delete a STK Object

[Visual Basic .NET] Copy Code

// IAgStkObject stkObject: STK Object to be removed


stkObject.Unload()

Export a STK Object to a file

[Visual Basic .NET] Copy Code

// IAgStkObject stkObject: STK Object to be exported

// String outputPath: Output path


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

stkObject.Export(fileNameWithoutExtension)

Import an existing STK Object file into an object collection

[Visual Basic .NET] Copy Code

// IAgStkObjectCollection col: STK Object Collection

// String stkObjectLocation: Path of STK Object external file


col.ImportObject(stkObjectLocation)

Rename a STK Object

[Visual Basic .NET] Copy Code

// IAgStkObject stkObject: STK Object to be renamed


stkObject.InstanceName = "NewObjectName"

Set/Get the STK Object description

[Visual Basic .NET] Copy Code

// IAgStkObject stkobject: STK Object


' Set STK Object description

stkobject.LongDescription = "This is a very very very long description"

stkobject.ShortDescription = "This is a short description"


' Get STK Object description

Dim longDescription As String = stkobject.LongDescription

Dim shortDescription As String = stkobject.ShortDescription

Add an access constraint to an STK Object

[Visual Basic .NET] Copy Code

// IAgStkObject stkobject: STK Object


Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints


' Add constraints

accessConstraints.AddConstraint(AgEAccessConstraints.eCstrSunElevationAngle)

Add and configure a lighting condition access constraint

[Visual Basic .NET] Copy Code

// IAgAccessConstraintCollection accessConstraints: Access Constraint collection


' Condition constraint

Dim light As IAgAccessCnstrCondition = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLighting), IAgAccessCnstrCondition)

light.Condition = AgECnstrLighting.eDirectSun

Add and configure a LOS sun exclusion access constraint

[Visual Basic .NET] Copy Code

// IAgAccessConstraintCollection accessConstraints: Access Constraint collection


' Angle constraint

Dim cnstrAngle As IAgAccessCnstrAngle = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLOSSunExclusion), IAgAccessCnstrAngle)

cnstrAngle.Angle = 176

Add and configure a lunar elevation angle access constraint

[Visual Basic .NET] Copy Code

// IAgAccessConstraintCollection accessConstraints: Access Constraint collection


Dim minmax As IAgAccessCnstrMinMax = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLunarElevationAngle), IAgAccessCnstrMinMax)

minmax.EnableMin = True

minmax.Min = 11.1

minmax.EnableMax = True

minmax.Max = 88.8

Add and configure a sun elevation angle access constraint

[Visual Basic .NET] Copy Code

// IAgAccessConstraintCollection accessConstraints: Access Constraint collection


Dim minmax As IAgAccessCnstrMinMax = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrSunElevationAngle), IAgAccessCnstrMinMax)

minmax.EnableMin = True

minmax.Min = 22.2

minmax.EnableMax = True

minmax.Max = 77.7

Add and configure a third body obstruction access constraint

[Visual Basic .NET] Copy Code

// IAgAccessConstraintCollection accessconstraints: Access Constraint collection


' Get IAgAccessCnstrThirdBody interface

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


' AvailableObstructions returns a one dimensional array of obstruction paths

Dim availableArray As Array = thirdBodyConstraint.AvailableObstructions


' In this example add all available obstructions

Console.WriteLine("Available obstructions")

For Each available As String In availableArray

 Console.WriteLine(available)

 thirdBodyConstraint.AddObstruction(available)

Next


' AssignedObstructions returns a one dimensional array of obstruction paths

Dim assignedArray As Array = thirdBodyConstraint.AssignedObstructions


Console.WriteLine("Assigned obstructions")

For Each assigned As String In assignedArray

 Console.WriteLine(assigned)

Next

Add and configure an altitude access constraint

[Visual Basic .NET] Copy Code

// IAgAccessConstraintCollection accessConstraints: Access Constraint collection


' Attitude constraint

Dim altitude As IAgAccessCnstrMinMax = TryCast(accessConstraints.AddConstraint(AgEAccessConstraints.eCstrAltitude), IAgAccessCnstrMinMax)

altitude.EnableMin = True

altitude.Min = 20.5

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

[Visual Basic .NET] Copy Code

// IAgStkObject stkobject: STK Object


Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints


' Add constraints

' Only the eCstrApparentTime, eCstrDuration, eCstrGMT, eCstrIntervals, eCstrLocalTime constraint

' types can be added multiple times to the constraint collection.

accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLocalTime)

accessConstraints.AddConstraint(AgEAccessConstraints.eCstrLocalTime)

Compute an access and get constraint data from data provider

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Compute Access between the facility and the satellite

Dim sat1 As IAgStkObject = root.GetObjectFromPath("Satellite/Satellite1")

Dim fac1 As IAgStkObject = root.GetObjectFromPath("Facility/Facility1")

Dim access As IAgStkAccess = sat1.GetAccessToObject(fac1)

access.ComputeAccess()


' Get the access intervals

Dim accessIntervals As IAgIntervalCollection = access.ComputedAccessIntervalTimes


' Set unit preferences - change to get your preferred units

root.UnitPreferences.SetCurrentUnit("Distance", "km")

root.UnitPreferences.SetCurrentUnit("Angle", "deg")

root.UnitPreferences.SetCurrentUnit("Time", "sec")

root.UnitPreferences.SetCurrentUnit("DateFormat", "UTCG")


' Extract the access intervals and the range information for each access interval

 accessIntervals.GetInterval(index0, startTime, stopTime)

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

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

[Visual Basic .NET] Copy Code

// IAgStkObject stkObject1: STK Object

// IAgStkObject stkObject2: STK Object


' Get access by STK Object

Dim access As IAgStkAccess = stkObject1.GetAccessToObject(stkObject2)


' Compute access

access.ComputeAccess()

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

[Visual Basic .NET] Copy Code

// IAgStkObject stkObject: STK Object


' Get access by object path

Dim access As IAgStkAccess = stkObject.GetAccess("Facility/fac1")


' Compute access

access.ComputeAccess()

Compute an access for one point

[Visual Basic .NET] Copy Code

// IAgStkObject facility: Facility object


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


' Configure properties (if necessary)

onePtAccess.StartTime = "1 Jan 2012 12:00:00.000"

onePtAccess.StopTime = "1 Jan 2012 13:00:00.000"

onePtAccess.StepSize = 120

onePtAccess.SummaryOption = AgEOnePtAccessSummary.eOnePtAccessSummaryDetailed


' Compute results

Dim results As IAgOnePtAccessResultCollection = onePtAccess.Compute()


' Print results

Dim i As Integer = 0

While i < results.Count

 Dim result As IAgOnePtAccessResult = results(i)


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


 Dim j As Integer = 0

 While j < result.Constraints.Count

 Dim constraint As IAgOnePtAccessConstraint = result.Constraints(j)

 Console.WriteLine("Constraint: {0}, Object {1}, Status {2}, Value {3}", constraint.Constraint, constraint.ObjectPath, constraint.Status, constraint.Value)

 System.Math.Max(System.Threading.Interlocked.Increment(j),j - 1)

 End While

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Compute and extract access interval times

[Visual Basic .NET] Copy Code

// IAgStkAccess access: Access calculation


' Get and display the Computed Access Intervals

Dim intervalCollection As IAgIntervalCollection = access.ComputedAccessIntervalTimes


' Set the intervals to use to the Computed Access Intervals

Dim computedIntervals As Array = intervalCollection.ToArray(0, -1)

access.SpecifyAccessIntervals(computedIntervals)

Configure the access analysis time period to specified time instants.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim uav As IAgStkObject = stkRoot.GetObjectFromPath("/Aircraft/UAV")

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

Dim coloradoSprings As IAgStkObject = stkRoot.GetObjectFromPath("/Place/ColoradoSprings")


' For this code snippet, let's use the time interval when the UAV reached min and max altitude values.

' Note, this assumes time at min happens before time at max.

Dim timeOfAltMin As IAgCrdnEvent = uav.Vgt.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMin")

Dim timeOfAltMax As IAgCrdnEvent = uav.Vgt.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMax")


' Set the access time period with the times we figured out above.

Dim access As IAgStkAccess = sensor.GetAccessToObject(coloradoSprings)

access.AccessTimePeriod = AgEAccessTimeType.eUserSpecAccessTime

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


accessTimePeriod.AccessInterval.State = AgECrdnSmartIntervalState.eCrdnSmartIntervalStateStartStop


Dim accessStartEpoch As IAgCrdnEventSmartEpoch = accessTimePeriod.AccessInterval.GetStartEpoch()

accessStartEpoch.SetImplicitTime(timeOfAltMin)

accessTimePeriod.AccessInterval.SetStartEpoch(accessStartEpoch)


Dim accessStopEpoch As IAgCrdnEventSmartEpoch = accessTimePeriod.AccessInterval.GetStopEpoch()

accessStopEpoch.SetImplicitTime(timeOfAltMax)

accessTimePeriod.AccessInterval.SetStopEpoch(accessStopEpoch)

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim satellite As IAgStkObject = stkRoot.GetObjectFromPath("/Satellite/GEO")

Dim otherObject As IAgStkObject = stkRoot.GetObjectFromPath("/Aircraft/UAV/Sensor/UAVSensor")

Dim access As IAgStkAccess = satellite.GetAccessToObject(otherObject)


access.AccessTimePeriod = AgEAccessTimeType.eUserSpecAccessTime

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


If otherObject.Vgt.EventIntervals.Contains("AvailabilityTimeSpan") Then

 Dim availabilityTimeSpan As IAgCrdnEventInterval = otherObject.Vgt.EventIntervals("AvailabilityTimeSpan")

 accessTimePeriod.AccessInterval.SetImplicitInterval(availabilityTimeSpan)

End If

Enumerate the available constraints collection

[Visual Basic .NET] Copy Code

// IAgAccessConstraintCollection accessConstraints: Access Constraint collection


' The AvailableConstraints method returns a rectangular two-dimensional array of available constraints.

' A row of the array consists of two elements where the first element is a symbolic name of the constraint,

' and the second is a corresponding enumeration value.


Dim arAvailable As Array = accessConstraints.AvailableConstraints()

Dim i As Integer = 0

While i < arAvailable.GetLength(0)

 Dim availName As String = DirectCast(arAvailable.GetValue(i, 0), String)

 Dim eAccessConstraint As AgEAccessConstraints = DirectCast(DirectCast(arAvailable.GetValue(i, 1), Integer), AgEAccessConstraints)

 Console.WriteLine(vbTab & "Constraint {0}: {1} ({2})", i, availName, eAccessConstraint)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

GetAccessBetweenObjectsByPath using the output of GetExistingAccesses

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


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

Dim accesses As Array = scenario.GetExistingAccesses()


Dim numAccesses As Integer = accesses.GetLength(0)

' number of accesses

Dim object1 As String = accesses.GetValue(0, 0).ToString()

' e.g. "Facility/Fac1"

Dim object2 As String = accesses.GetValue(0, 1).ToString()

' e.g. "Satellite/Sat1"

Dim computed As Boolean = DirectCast(accesses.GetValue(0, 2), Boolean)

' e.g. true  (if access has been computed)

Dim access As IAgStkAccess = scenario.GetAccessBetweenObjectsByPath(object1, object2)

List all exclusion zones of an access constraint

[Visual Basic .NET] Copy Code

// IAgAccessConstraintCollection accessconstraints: Access Constraint collection


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


If excZones IsNot Nothing Then

 ' ToArray returns a two dimensional array

 ' The second dimension is an array of minLon, minLat, maxLon, maxLat values

 Dim zones As Array = excZones.ToArray(0, -1)


 Dim i As Integer = 0

 While i < zones.GetUpperBound(0)

 Console.WriteLine("MinLon: {0}, MinLat: {1}, MaxLon: {2}, MaxLat {3}", zones.GetValue(i, 0), zones.GetValue(i, 1), zones.GetValue(i, 2), zones.GetValue(i, 3))

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

 End While

End If

Remove an access constraint from a STK Object

[Visual Basic .NET] Copy Code

// IAgStkObject stkobject: STK Object


Dim accessConstraints As IAgAccessConstraintCollection = stkobject.AccessConstraints


' Remove constraints

accessConstraints.RemoveConstraint(AgEAccessConstraints.eCstrSunElevationAngle)

Coarse grain approach to retrieving a fixed data provider

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgStkObject facility: STK Object that contains fixed data provider


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

Dim result As IAgDrResult = dp.Exec()

Coarse grain approach to retrieving a interval data provider

[Visual Basic .NET] Copy Code

// IAgStkObject facility: STK Object


Dim dp As IAgDataPrvInterval = facility.DataProviders.GetDataPrvIntervalFromPath("Lighting Times//Sunlight")

Dim result As IAgDrResult = dp.Exec("1 Jan 2012 12:00:00.000", "1 Jan 2012 12:00:20.000")

Coarse grain approach to retrieving a time var data provider

[Visual Basic .NET] Copy Code

// IAgStkObject facility: STK Object


Dim dp As IAgDataPrvTimeVar = facility.DataProviders.GetDataPrvTimeVarFromPath("Lighting AER")

Dim result As IAgDrResult = dp.Exec("1 Jan 2012 12:00:00.000", "1 Jan 2012 12:00:20.000", 60)

Coarse grain approach to retrieving data provider information

[Visual Basic .NET] Copy Code

// IAgStkObject facility: Facility STK Object


' The path separator is //

Dim dp As IAgDataProviderInfo = facility.DataProviders.GetDataPrvInfoFromPath("Lighting Times//Sunlight")

Dim dpiName As String = dp.Name

Dim dpiType As AgEDataProviderType = dp.Type

Dim isGroup As Boolean = dp.IsGroup()

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

[Visual Basic .NET] Copy Code

// IAgStkObject facility: STK Object


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

Dim resInfo As IAgDrResult = dpInfo.Exec()

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

[Visual Basic .NET] Copy Code

// IAgStkObject facility: STK Object


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] Copy Code

// IAgStkObject facility: STK Object


Dim dpInfo As IAgDataPrvTimeVar = TryCast(facility.DataProviders("Lighting AER"), IAgDataPrvTimeVar)

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

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

[Visual Basic .NET] Copy Code

// IAgStkObject satellite: STK Object


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

Dim resInfo As IAgDrResult = dp.ExecSingle("1 Jan 2012 12:00:00.000")

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

[Visual Basic .NET] Copy Code

// IAgStkObject satellite: STK Object


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] Copy Code

// IAgStkObject satellite: STK Object


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] Copy Code

// IAgStkObject satObj: Satellite STK Object

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

[Visual Basic .NET] Copy Code

// IAgStkObject satObj: Satellite STK Object

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

[Visual Basic .NET] Copy Code

// IAgStkObject satellite: Satellite STK Object

// IAgStkObject areatarget: Area Target STK Object


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

Access.ComputeAccess()


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


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

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

[Visual Basic .NET] Copy Code

// IAgStkObject satellite: Satellite STK Object

// IAgStkObject areatarget: Area Target STK Object


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

access.ComputeAccess()


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


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] Copy Code

// IAgStkObjectRoot root: STK Object


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


Dim objectCoverage As IAgStkObjectCoverage = aircraft.ObjectCoverage

objectCoverage.Clear()

objectCoverage.Assets.Add("Constellation/gps_const")

objectCoverage.Compute()


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


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


For Each section As IAgDrSubSection In result.Sections

 For Each interval As IAgDrInterval In section.Intervals

 Dim arRanges As Array = interval.MultipleThresholdCrossings("FOM Value", arBoundaries)

Extract data from IAgDrDataSetCollection (generic)

[Visual Basic .NET] Copy Code

// IAgDrDataSetCollection datasets: Data provider data sets


For Each name As [String] In datasets.ElementNames

 'If the data set collection spans multiple intervals then the GetDataSetByName method will only

 'get the first intervals dataset.  See the Extract data from IAgDrDataSetCollection across

 'multiple intervals code snippet to see how to access all of the data sets in the result.

 Dim dataset As IAgDrDataSet = datasets.GetDataSetByName(name)


 Dim datasetValues As Array = dataset.GetValues()


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


 For Each value As Object In datasetValues

 Console.WriteLine(vbTab & "{0}", value.ToString())

 Next

Next

Extract data from IAgDrDataSetCollection across multiple intervals.

[Visual Basic .NET] Copy Code

// IAgDrDataSetCollection datasets: Data provider data sets


For Each [set] As IAgDrDataSet In datasets

 Console.WriteLine("{0}", [set].ElementName)

 For Each value As Object In [set].GetValues()

 Console.WriteLine(vbTab & "{0}", value.ToString())

 Next

Next

Extract data from IAgDrIntervalCollection (generic)

[Visual Basic .NET] Copy Code

// IAgDrIntervalCollection intervals: Data provider intervals


' Enumerate IAgDrIntervalCollection collection

For Each interval As IAgDrInterval In intervals

 Console.WriteLine("{0} - {1}", interval.StartTime, interval.StopTime)


 For Each dataset As IAgDrDataSet In interval.DataSets

 Dim values As Array = dataset.GetValues()


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


 For Each value As Object In values

 Console.WriteLine(vbTab & "{0}", value.ToString())

 Next

 Next

Next

Extract data from IAgDrResult based on its category (generic)

[Visual Basic .NET] Copy Code

// IAgDrResult result: Data provider result


' Look at the Category property to find out which interface to use

Select Case result.Category

 Case AgEDrCategories.eDrCatDataSetList

 Dim datasets As IAgDrDataSetCollection = result.DataSets

 ' See IAgDrDataSetCollection inteface

 Exit Select

 Case AgEDrCategories.eDrCatIntervalList

 Dim intervals As IAgDrIntervalCollection = result.Intervals

 ' See IAgDrIntervalCollection interface

 Exit Select

 Case AgEDrCategories.eDrCatMessage

 Dim message As IAgDrTextMessage = result.Message

 ' See IAgDrTextMessage interface

 Exit Select

 Case AgEDrCategories.eDrCatSubSectionList

 Dim section As IAgDrSubSectionCollection = result.Sections

 ' See IAgDrSubSectionCollection interface

 Exit Select

End Select

Extract data from IAgDrSubSectionCollection (generic)

[Visual Basic .NET] Copy Code

// IAgDrSubSectionCollection subSection: Subsection collection


For Each section As IAgDrSubSection In subSection

 Console.WriteLine(section.Title)


 For Each interval As IAgDrInterval In section.Intervals

 Console.WriteLine(vbTab & "Time {0} - {1}", interval.StartTime, interval.StopTime)


 For Each dataset As IAgDrDataSet In interval.DataSets

 Dim values As Array = dataset.GetValues()


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


 For Each value As Object In values

 Console.WriteLine(vbTab & vbTab & "{0}", value.ToString())

 Next

 Next

 Next

Next

Extract data from IAgDrTextMessage (generic)

[Visual Basic .NET] Copy Code

// IAgDrTextMessage message: 


For Each messagei As Object In message.Messages

 Console.WriteLine(messagei)

Next

Set STK Object Display to always on

[Visual Basic .NET] Copy Code

// IAgStkObject stkObject: STK Object


Dim display As IAgDisplayTm = TryCast(stkObject, IAgDisplayTm)

display.SetDisplayStatusType(AgEDisplayTimesType.eAlwaysOn)

Set STK Object Display to use during access mode

[Visual Basic .NET] Copy Code

// IAgStkObject stkObject: STK Object


' Attempt to cast STK Object to the IAgDisplayTm interface

Dim display As IAgDisplayTm = TryCast(stkObject, IAgDisplayTm)

If display IsNot Nothing Then

 ' Configure during access

 If display.IsDisplayStatusTypeSupported(AgEDisplayTimesType.eDuringAccess) Then

 display.SetDisplayStatusType(AgEDisplayTimesType.eDuringAccess)


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


 ' Add subsequent existing stk objects to access diplay ...

 duringAccess.AccessObjects.Add("Satellite/satellite1")

 duringAccess.AccessObjects.Add("Star/star1")

 End If

End If

Set STK Object Display to use intervals mode

[Visual Basic .NET] Copy Code

// IAgStkObject stkObject: STK Object


' Attempt to cast STK Object to the IAgDisplayTm interface

Dim display As IAgDisplayTm = TryCast(stkObject, IAgDisplayTm)

If display IsNot Nothing Then

 ' Configure display intervals

 If display.IsDisplayStatusTypeSupported(AgEDisplayTimesType.eUseIntervals) Then

 display.SetDisplayStatusType(AgEDisplayTimesType.eUseIntervals)


 ' Get IAgIntervalCollection interface

 Dim intervalCollection As IAgIntervalCollection = TryCast(display.DisplayTimesData, IAgIntervalCollection)

 intervalCollection.RemoveAll()


 ' Add subsequent intervals...

 intervalCollection.Add("1 Jan 2012 12:00:00.00", "1 Jan 2012 13:00:00.000")

 End If

End If

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

[Visual Basic .NET] Copy Code

// IAgScenario scenario: Scenario object


Dim gfx As IAgScGraphics = scenario.Graphics


' Individually

gfx.HideObject("Facility/facility1", "all")

gfx.ShowObject("Facility/facility1", "1")


' In Batches

' HideObjects and ShowObjects expects as the first parameter a one dimensional array of object paths

gfx.HideObjects(objects, "1")

gfx.ShowObjects(objects, "all")

Configure 3D data display

[Visual Basic .NET] Copy Code

// IAgVODataDisplayCollection datadisplaycol: Data Display Collection


' Add existing data display

' See AvailableData property for available data display

Dim displayElement As IAgVODataDisplayElement = datadisplaycol.Add("Solar Intensity")


' Configure data display as needed

displayElement.TitleText = "Sol. Intensity"

displayElement.IsVisible = True

displayElement.Location = AgEVOLocation.e3DWindow

displayElement.FontColor = Color.White

displayElement.FontSize = AgEVOFontSize.eSmall

displayElement.UseBackground = True

displayElement.BgColor = Color.Orange

displayElement.UseAutoSizeWidth = False

displayElement.UseAutoSizeHeight = False

displayElement.BgHeight = 55

displayElement.BgWidth = 260

displayElement.BackgroundTranslucency = 0.5

displayElement.UseBackgroundTexture = False

displayElement.UseBackgroundBorder = True

displayElement.BackgroundBorderColor = Color.White

Configure 3D model articulations

[Visual Basic .NET] Copy Code

// IAgVOModel model: VO Model from an STK Object


' Configure articulation

Dim modelArticulation As IAgVOModelArtic = model.Articulation

modelArticulation.EnableDefaultSave = False

modelArticulation.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] Copy Code

// IAgVOModel model: VO model


' Set new ModelFile.Filename

model.ModelType = AgEModelType.eModelFile

Dim modelFile As IAgVOModelFile = TryCast(model.ModelData, IAgVOModelFile)

modelFile.Filename = "\STKData\VO\Models\Space\alexis.mdl"


' Configure basic settings

model.Visible = True

model.ScaleValue = 4.8

Configure 3D model level of detail

[Visual Basic .NET] Copy Code

// IAgVOModel model: VO Model from an STK Object


' Configure level of details

Dim detail As IAgVODetailThreshold = model.DetailThreshold

detail.EnableDetailThreshold = True


' (assuming unit preferences set to km)

detail.All = 2.51189

detail.ModelLabel = 158489

detail.MarkerLabel = 2511890

detail.Marker = 25110000

detail.Point = 1000000000000

Configure 3D vector

[Visual Basic .NET] Copy Code

// IAgVOVector vector: VO Vector


' See AvailableCrdns for supported elements

vector.RefCrdns.Add(AgEGeometricElemType.eVectorElem, DirectCast(m_Root.CentralBodies("Earth").Vgt.Vectors("Moon"), IAgCrdn).QualifiedPath)

vector.RefCrdns.Add(AgEGeometricElemType.eAxesElem, DirectCast(m_Root.CentralBodies("Moon").Vgt.Vectors("Position"), IAgCrdn).QualifiedPath)

vector.RefCrdns.Add(AgEGeometricElemType.eVectorElem, DirectCast(m_Root.CentralBodies("Sun").Vgt.Vectors("Velocity(Barycenter)"), IAgCrdn).QualifiedPath)


' Draw on Central Body

Dim body As IAgVORefCrdnVector = TryCast(vector.RefCrdns.GetCrdnByName(AgEGeometricElemType.eAxesElem, DirectCast(m_Root.CentralBodies("Earth").Vgt.Vectors("Moon"), IAgCrdn).QualifiedPath), IAgVORefCrdnVector)

DirectCast(body, IAgVORefCrdn).Color = Color.Yellow

body.DrawAtCB = True

body.Axes = "CentralBody/Earth Fixed Axes"


vector.ScaleRelativeToModel = True

vector.AngleSizeScale = 4.5

List all 3D model articulations

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object

// IAgVOModel model: VO Model from an STK Object


' Enumerating through the transformation collection is helpful if you do not

' know what tranformations exist or their value ranges


Dim modelArticulation As IAgVOModelArtic = model.Articulation


Dim lod As Integer = 0

While lod < modelArticulation.LODCount

 ' Get all articulations

 ' GetAvailableArticulations returns a one dimensional array of articulation names

 Dim articulations As Array = modelArticulation.GetAvailableArticulations(lod)


 ' Enumerate through available articulations

 Dim articulation As Integer = 0

 While articulation < articulations.Length

 ' We need the articulation string to call the GetAvailableTransformations function

 Dim articulationString As [String] = TryCast(articulations.GetValue(articulation), [String])


 ' Get all transformations

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


 ' Enumerate through available transformations

 For Each trans As IAgVOModelTrans In transformations

 Console.WriteLine("Name: {0}, Current {1}, Max {2}, Min {3}", trans.Name, trans.Value, trans.Max, trans.Min)

 Next

 System.Math.Max(System.Threading.Interlocked.Increment(articulation),articulation - 1)

 End While

 System.Math.Max(System.Threading.Interlocked.Increment(lod),lod - 1)

End While

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Root


' For this example, set the access times to use the light intervals of the area target.

Dim uavAircraft As IAgStkObject = root.GetObjectFromPath("Aircraft/UAV/Sensor/UAV_Camera")

Dim airspaceAreaTarget As IAgStkObject = root.GetObjectFromPath("AreaTarget/Airspace")


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

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


uavAircraft.ObjectCoverage.UseObjectTimes = False

Dim startEpoch As IAgCrdnEventSmartEpoch = uavAircraft.ObjectCoverage.AccessInterval.GetStartEpoch()

startEpoch.SetImplicitTime(firstSunlightEpoch)


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

stopEpoch.SetImplicitTime(lastSunlightEpoch)


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

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

[Visual Basic .NET] Copy Code

// IAgTransmitter geoTransmitter: Transmitter object

// IAgReceiver facilityReceiver: Receiver object

// IAgAntenna facilityDish: Antenna object

// IAgRFEnvironment scenarioRFEnv: Scenario RF Environment


Dim xmtrAsStkObject As IAgStkObject = TryCast(geoTransmitter, IAgStkObject)

Dim rcvrAsStkObject As IAgStkObject = TryCast(facilityReceiver, IAgStkObject)


'Enable the rain loss computation on the scenario RF environment

scenarioRFEnv.PropagationChannel.EnableRainLoss = True


'Set the transmitter to the complex model

geoTransmitter.SetModel("Complex Transmitter Model")

Dim complexTrans As IAgTransmitterModelComplex = TryCast(geoTransmitter.Model, IAgTransmitterModelComplex)


'Set the complex transmitter model's frequency to 3.2 GHz

complexTrans.Frequency = 3.2


'Set the complex transmitter model's Power to 50 dBW

complexTrans.Power = 50


'Set the complex transmitter's embedded antenna model to helix

complexTrans.AntennaControl.SetEmbeddedModel("Helix")


'Set the beamwidth of the parablic antenna to 2 degrees

Dim helix As IAgAntennaModelHelix = TryCast(complexTrans.AntennaControl.EmbeddedModel, IAgAntennaModelHelix)

helix.NumberOfTurns = 30


'Orient the complex transmitter embedded antenna's boresight to point directly at the receiver's location

complexTrans.AntennaControl.EmbeddedModelOrientation.AssignAzEl(287.2, 83.4, AgEAzElAboutBoresight.eAzElAboutBoresightRotate)


'Set the receiver to the complex model

facilityReceiver.SetModel("Complex Receiver Model")

Dim complexRcvr As IAgReceiverModelComplex = TryCast(facilityReceiver.Model, IAgReceiverModelComplex)


'Configure the complex receiver to use the antenna object on the same parent facility, by linking

complexRcvr.AntennaControl.ReferenceType = AgEAntennaControlRefType.eAntennaControlRefTypeLink

complexRcvr.AntennaControl.LinkedAntennaObject = "Antenna/FacilityDish"


'Enable rain loss computation on the receiver

complexRcvr.UseRain = True

complexRcvr.RainOutagePercent = 0.001


'Enable the receiver system noise temperature computation.

complexRcvr.SystemNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate


'Enable the antenna noise temperature computation

complexRcvr.SystemNoiseTemperature.AntennaNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate

complexRcvr.SystemNoiseTemperature.AntennaNoiseTemperature.UseRain = True


'Orient the antenna object's boresight to point directly at the transmitter's location

facilityDish.Orientation.AssignAzEl(202.6, 41.2, AgEAzElAboutBoresight.eAzElAboutBoresightRotate)


'Set the antenna object's model to parabolic

facilityDish.SetModel("Parabolic")


'Set the antenan object's design frequency to match the transmitter's 3.2 GHz

facilityDish.Model.DesignFrequency = 3.2


'Set the antenna object's parabolic model diameter to 5 m.

Dim parabolic As IAgAntennaModelParabolic = TryCast(facilityDish.Model, IAgAntennaModelParabolic)

parabolic.InputType = AgEAntennaModelInputType.eAntennaModelInputTypeDiameter

parabolic.Diameter = 5


'Create an access object for the access between the transmitter and recevier objects

Dim linkAccess As IAgStkAccess = xmtrAsStkObject.GetAccessToObject(rcvrAsStkObject)


'Compute access

linkAccess.ComputeAccess()


' Get the access intervals

Dim accessIntervals As IAgIntervalCollection = linkAccess.ComputedAccessIntervalTimes


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

 accessIntervals.GetInterval(index0, startTime, stopTime)

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

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

[Visual Basic .NET] Copy Code

// IAgTransmitter geoTransmitter: Transmitter object

// IAgReceiver facilityReceiver: Receiver object


Dim xmtrAsStkObject As IAgStkObject = TryCast(geoTransmitter, IAgStkObject)

Dim rcvrAsStkObject As IAgStkObject = TryCast(facilityReceiver, IAgStkObject)


'Set the transmitter to the simple model

geoTransmitter.SetModel("Simple Transmitter Model")

Dim simpleTrans As IAgTransmitterModelSimple = TryCast(geoTransmitter.Model, IAgTransmitterModelSimple)


'Set the simple transmitter model's frequency to 3.2 GHz

simpleTrans.Frequency = 3.2


'Set the simple transmitter model's EIRP to 60 dBW

simpleTrans.Eirp = 60


'Set the receiver to the simple model

facilityReceiver.SetModel("Simple Receiver Model")

Dim simpleRcvr As IAgReceiverModelSimple = TryCast(facilityReceiver.Model, IAgReceiverModelSimple)


'Set the simple receiver model's G/T to 60 dB/K

simpleRcvr.GOverT = 60


'Create an access object for the access between the transmitter and recevier objects

Dim linkAccess As IAgStkAccess = xmtrAsStkObject.GetAccessToObject(rcvrAsStkObject)


'Compute access

linkAccess.ComputeAccess()


' Get the access intervals

Dim accessIntervals As IAgIntervalCollection = linkAccess.ComputedAccessIntervalTimes


' Extract the access intervals and the range information for each access interval

Dim dataPrvElements As Array = New Object() {"Time", "Eb/No", "BER"}

 accessIntervals.GetInterval(index0, startTime, stopTime)

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

Add a STK Object to constellation using IAgStkObject interface

[Visual Basic .NET] Copy Code

// IAgConstellation constellation: Constellation object

// IAgStkObject alos: Satellite Object that is to be added to constellation


' Add object to constellation

constellation.Objects.AddObject(alos)

Add a STK Object to constellation using STK Object Path

[Visual Basic .NET] Copy Code

// IAgConstellation constellation: Constellation object


' Add object to constellation

constellation.Objects.Add("Satellite/Cameo")

Compute a coverage definition access

[Visual Basic .NET] Copy Code

// IAgCoverageDefinition coverageDefinition: Coverage Definition


' Set AutoRecomputer for Accesses

coverageDefinition.Advanced.AutoRecompute = False


' Compute

coverageDefinition.ComputeAccesses()


' Export to File

coverageDefinition.ExportAccessesAsText("MyAccess.txt")

coverageDefinition.ReloadAccesses()


' Clear accesses if necessary

'coverageDefinition.ClearAccesses();

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model Root


' Create the CoverageDefinition

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

Define a coverage definition assets

[Visual Basic .NET] Copy Code

// IAgCoverageDefinition coverageDefinition: Coverage definition object


Dim assetCollection As IAgCvAssetListCollection = coverageDefinition.AssetList

Dim assetName As String = "Satellite/sat1"

Dim subAssetName As String = "Facility/North"


' Remove asset collection if necessary

assetCollection.RemoveAll()


Dim satAsset1 As IAgCvAssetListElement = Nothing


' AvailableAssets returns a one dimensional array of assets

If Array.IndexOf(assetCollection.AvailableAssets, assetName) <> -1 Then

 ' Add assets to coverageDefintion

 If assetCollection.CanAssignAsset(assetName) Then

 satAsset1 = assetCollection.Add(assetName)


 ' Configure asset element

 satAsset1.Required = True

 satAsset1.Grouping = AgECvAssetGrouping.eGrouped

 End If


 ' Add subassets to assets

 If satAsset1.ContainsSubAssets() Then

 Dim subAssetCollection As IAgCvAssetListCollection = satAsset1.SubAssetList

 If subAssetCollection.CanAssignAsset(subAssetName) Then

 assetCollection.Add(subAssetName)

 End If

 End If

End If

Define a coverage definition by points

[Visual Basic .NET] Copy Code

// IAgCoverageDefinition coverageDefinition: Coverage Definition

// String regionFilePath: Path of region file


' Get the IAgCvGrid interface

Dim cvGrid As IAgCvGrid = coverageDefinition.Grid


' Define custom region

cvGrid.BoundsType = AgECvBounds.eBoundsCustomRegions

Dim oBoundsCustom As IAgCvBoundsCustomRegions = TryCast(cvGrid.Bounds, IAgCvBoundsCustomRegions)

oBoundsCustom.RegionFiles.Add(regionFilePath)

oBoundsCustom.AreaTargets.Add("AreaTarget/AreaTarget1")


' Create an Array of LLA points

' Array should contain Lat, Lon, Alt values

coverageDefinition.PointDefinition.SetPointsLLA(points)

Define a custom grid using area targets

[Visual Basic .NET] Copy Code

// IAgCoverageDefinition coverageDefinition: Coverage Definition


' Get the IAgCvGrid interface

Dim cvGrid As IAgCvGrid = coverageDefinition.Grid


' Set bound region type to use custom regions

cvGrid.BoundsType = AgECvBounds.eBoundsCustomRegions


' Get IAgCvBoundsCustomRegions interface

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


' Add custom regions

boundRegion.AreaTargets.Add("AreaTarget/AreaTarget1")

boundRegion.AreaTargets.Add("AreaTarget/AreaTarget2")

Define a grid resolution by latitude and longitude

[Visual Basic .NET] Copy Code

// IAgCoverageDefinition coverageDefinition: Coverage definition object


' Get the IAgCvGrid interface

Dim grid As IAgCvGrid = coverageDefinition.Grid


' Set resolution type

grid.ResolutionType = AgECvResolution.eResolutionLatLon


' Get the resolution interface

Dim resolution As IAgCvResolution = grid.Resolution

Dim latLonResolution As IAgCvResolutionLatLon = TryCast(resolution, IAgCvResolutionLatLon)


' Assign LatLon used to define grid resolution

' Uses Angle Dimension

latLonResolution.LatLon = 3

Define and configure grid constraint options

[Visual Basic .NET] Copy Code

// IAgCoverageDefinition coverageDefinition: Coverage definition object


Dim pointDefinition As IAgCvPointDefinition = coverageDefinition.PointDefinition


' Set facility as object seed instance

pointDefinition.GridClass = AgECvGridClass.eGridClassFacility

pointDefinition.UseGridSeed = True

pointDefinition.SeedInstance = "Facility/North"


' Configure Altitude

pointDefinition.AltitudeMethod = AgECvAltitudeMethod.eAltitude

pointDefinition.Altitude = 0

coverageDefinition.PointDefinition.GroundAltitudeMethod = AgECvGroundAltitudeMethod.eCvGroundAltitudeMethodUsePointAlt

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Root

// IAgCoverageDefinition coverage: An instance of the coverage definition object


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


' For this example, we will set the coverage analysis time to the times the asset is available.

' Note, this doesn't handle subassets. To do that, you'll just have to iterate through the subasset list.

Dim minStartTime As IAgDate = Nothing

Dim maxStartTime As IAgDate = Nothing


For Each cvAsset As IAgCvAssetListElement In coverage.AssetList

 Dim subAsset As IAgStkObject = stkRoot.GetObjectFromPath(cvAsset.ObjectName)

 If subAsset.Vgt.EventIntervals.Contains("AvailabilityTimeSpan") Then

 Dim availableTimeSpan As IAgCrdnEventIntervalResult = subAsset.Vgt.EventIntervals("AvailabilityTimeSpan").FindInterval()

 Dim startDate As IAgDate = stkRoot.ConversionUtility.NewDate(currentDateFormat, availableTimeSpan.Interval.Start.ToString())

 If Not (minStartTime IsNot Nothing) OrElse startDate.OLEDate < minStartTime.OLEDate Then

 minStartTime = startDate

 End If


 Dim stopTime As IAgDate = stkRoot.ConversionUtility.NewDate(currentDateFormat, availableTimeSpan.Interval.[Stop].ToString())

 If Not (maxStartTime IsNot Nothing) OrElse stopTime.OLEDate > maxStartTime.OLEDate Then

 maxStartTime = stopTime

 End If

 End If

Next


If minStartTime IsNot Nothing AndAlso maxStartTime IsNot Nothing Then

 ' Now, that we have the minimum start time and the maximum stop time of the asset list, we can explicitly set the coverage analysis time.

 coverage.Interval.AnalysisInterval.SetExplicitInterval(minStartTime.Format(currentDateFormat), maxStartTime.Format(currentDateFormat))

End If


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

Configure a coverage definition adaptive sampling

[Visual Basic .NET] Copy Code

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

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

// IAgCvGraphics cvGraphics: Coverage definition


' Configure animation

Dim cvAnimation As IAgCvGfxAnimation = cvGraphics.Animation

cvAnimation.IsSatisfactionVisible = True

cvAnimation.Color = Color.Green


' Configure progress

Dim cvProgress As IAgCvGfxProgress = cvGraphics.Progress

cvProgress.IsVisible = True

cvProgress.Color = Color.Red


' Configure static

Dim cvStatic As IAgCvGfxStatic = cvGraphics.[Static]

cvStatic.Color = Color.Blue

cvStatic.MarkerStyle = "Star"

Create a facility (on current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Create a facility on current scenario central body

Dim facility As IAgFacility = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eFacility, "MyFacility"), IAgFacility)

Create a facility from facility database

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Get STK database location using Connect

Dim result As IAgExecCmdResult = root.ExecuteCommand("GetDirectory / Database Facility")

Dim facDataDir As String = result(0)

Dim filelocation As String = Path.Combine(facDataDir, "stkFacility.fd")


' Import object from database using Connect

Dim command As String = "ImportFromDB * Facility """ + filelocation + """ Class Facility SiteName Weilheim"

root.ExecuteCommand(command)


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

Create a facility on Earth at lat/lon/alt

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


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


' Assuming unit preferences are set to radians for latitude and longitude and km for distance

facility.Position.AssignPlanetodetic(0.4506, -1.4011, 4)

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


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


' Assuming unit preferences are set to radians for latitude and longitude and km for distance

facObject.Position.AssignPlanetodetic(-5.4245, 0.1902, 0)

Move a facility while use terrain option is set true

[Visual Basic .NET] Copy Code

// IAgFacility fac: Facility object


' Set altitude automatically by using terrain data

fac.UseTerrain = True


' Set the position ignores the altitude value in AssignGeodetic

fac.Position.AssignGeodetic(29.98, -90.25, 9)


' Ignores the altitude value in AssignGeocentric

fac.Position.AssignGeocentric(32.12, -110.93, 787)


' Ignores the radius value in AssignSpherical

fac.Position.AssignSpherical(40.65, -73.78, 7)

Configure access duration figure of merit

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


' Set figure of merit defintion to eFmAccessDuration

fom.SetDefinitionType(AgEFmDefinitionType.eFmAccessDuration)


' Get IAgFmDefCompute interface

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


If defComp.IsComputeTypeSupported(AgEFmCompute.ePercentAbove) Then

 ' Set Compute type to supported compute option

 defComp.SetComputeType(AgEFmCompute.ePercentAbove)


 ' Get compute option compute interface

 Dim fomData As IAgFmDefDataPercentLevel = TryCast(defComp.Compute, IAgFmDefDataPercentLevel)

 fomData.PercentLevel = 0.25

End If

Configure coverage time figure of merit

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


' Set figure of merit defintion to eFmCoverageTime

fom.SetDefinitionType(AgEFmDefinitionType.eFmCoverageTime)


' Get IAgFmDefCompute interface

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


If defComp.IsComputeTypeSupported(AgEFmCompute.eTotalTimeAbove) Then

 ' Set Compute type to supported compute option

 defComp.SetComputeType(AgEFmCompute.eTotalTimeAbove)


 ' Get compute option compute interface

 Dim fomData As IAgFmDefDataMinAssets = TryCast(defComp.Compute, IAgFmDefDataMinAssets)

 fomData.MinAssets = 15

End If

Configure figure of merit Age Of Data definition

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


' Get the IAgFmDefAgeOfData interface

fom.SetDefinitionType(AgEFmDefinitionType.eFmAgeOfData)

Dim ageOfData As IAgFmDefAgeOfData = TryCast(fom.Definition, IAgFmDefAgeOfData)


' Set the minimum number of assets for computing

ageOfData.MinAssets = 2

Configure figure of merit contours

[Visual Basic .NET] Copy Code

// IAgFmGfxContours contours: Figure of Merit properties


contours.IsVisible = True

contours.ContourType = AgEFmGfxContourType.eSmoothFill

contours.ColorMethod = AgEFmGfxColorMethod.eExplicit


' Add level ranges (batch)

contours.LevelAttributes.AddLevelRange(25, 35, 1)

Dim firstLevel As IAgFmGfxLevelAttributesElement = contours.LevelAttributes(0)

firstLevel.Color = Color.Blue


' Add one level (individually)

Dim level As IAgFmGfxLevelAttributesElement = contours.LevelAttributes.AddLevel(55)

level.Color = Color.Red

Configure figure of merit definition altitude access constraint

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


' Set access constraint defintion to altitude

fom.SetAccessConstraintDefinition(AgEFmConstraintName.eFmAltitude)


' Get IAgFmDefAccessConstraint interface

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


' Confiure access constraint properties

defAccessCnstr.SetComputeType(AgEFmCompute.eMaximum)

defAccessCnstr.AcrossAssets = AgEFmAcrossAssets.eFmMinimum

defAccessCnstr.TimeStep = 60

Configure figure of merit Scalar Calculation definition

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


' Set the Scalar Calculation definition.

Dim scalarCalculation As IAgFmDefScalarCalculation = fom.SetScalarCalculationDefinition("CentralBody/Earth ElapsedTimeFromStart")

Configure figure of merit Scalar Calculation definition using VGT

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties

// IAgStkObjectRoot stkRoot: STK Object Model root


' Get the qualified path of a Scalar Calculation (e.g.

Dim provider As IAgCrdnProvider = stkRoot.VgtRoot.GetProvider("CentralBody/Sun")

Dim calcScalar As IAgCrdnCalcScalar = provider.CalcScalars(0)

Dim calcScalarQualifiedPath As String = TryCast(calcScalar, IAgCrdn).QualifiedPath


' Set the Scalar Calculation definition using the qualified path

Dim scalarCalculation As IAgFmDefScalarCalculation = fom.SetScalarCalculationDefinition(calcScalarQualifiedPath)

Configure figure of merit System Response Time

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


fom.SetDefinitionType(AgEFmDefinitionType.eFmSystemResponseTime)

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


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

Configure figure of merit System Response Time reset

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


fom.SetDefinitionType(AgEFmDefinitionType.eFmSystemResponseTime)

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


systemResponseTime.CommandStationPath = "NONE"

Create a figure of merit on a coverage definition

[Visual Basic .NET] Copy Code

// IAgCoverageDefinition covdef: Coverage Definition object


' Get the coverage definition as a IAgStkObject interface

Dim covdefObject As IAgStkObject = TryCast(covdef, IAgStkObject)


' Create the figure of merit

Dim fom As IAgFigureOfMerit = TryCast(covdefObject.Children.[New](AgESTKObjectType.eFigureOfMerit, "MyFigureOfMerit"), IAgFigureOfMerit)

Inspect grid by selecting a point

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


Dim gridInspector As IAgFmGridInspector = fom.GridInspector

gridInspector.SelectPoint(-13.864, -51.088)


Dim pointFom As IAgDataPrvTimeVar = TryCast(gridInspector.PointFOM, IAgDataPrvTimeVar)

Dim pointFomResult As IAgDrResult = pointFom.ExecSingle("1 Jan 2012 12:00:00.00")


Dim pointSatisfaction As IAgDataPrvInterval = TryCast(gridInspector.PointSatisfaction, IAgDataPrvInterval)

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


Dim regionFom As IAgDataPrvTimeVar = TryCast(gridInspector.RegionFOM, IAgDataPrvTimeVar)

Dim regionFomResult As IAgDrResult = regionFom.ExecSingle("1 Jan 2012 12:00:00.00")


Dim regionSatisfaction As IAgDataPrvInterval = TryCast(gridInspector.RegionSatisfaction, IAgDataPrvInterval)

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

Set the figure of merit definition to access constraint by enumeration

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


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

Set the figure of merit definition to access constraint by name

[Visual Basic .NET] Copy Code

// IAgFigureOfMerit fom: Figure of Merit properties


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


' Confiure access constraint properties

defAccessCnstr.SetComputeType(AgEFmCompute.eMaximum)

defAccessCnstr.AcrossAssets = AgEFmAcrossAssets.eFmMinimum

defAccessCnstr.TimeStep = 60

Add MTO track

[Visual Basic .NET] Copy Code

// IAgMto mto: MTO object


Dim trackCollection As IAgMtoTrackCollection = mto.Tracks


Dim track As IAgMtoTrack = trackCollection.AddTrack(1, time, latitude, longitude, altitude)

Configure MTO

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgMto mto: Mto Object


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

scenario.SetTimePeriod("1 Feb 2008 12:00:00.000", "2 Feb 2008 12:00:00.000")


' Number of tracks and points to add

Dim trackCount As Double = 10

Dim pointCount As Double = 20


' Initial values from which we will interpolate

Dim lat0 As Double = 40.04

Dim lon0 As Double = -75.595

Dim alt0 As Double = 0


root.BeginUpdate()

' Call BeginUpdate for STK engine to delay updates

Dim i As Integer = 0

While i < trackCount

 Dim track As IAgMtoTrack = mto.Tracks.Add(i)

 Dim [date] As IAgDate = root.ConversionUtility.NewDate("UTCG", TryCast(scenario.StartTime, String))


 ' Interpolate mto points

 Dim j As Integer = 0

 While j < pointCount

 Dim lat As Double = lat0 + 1 * i

 Dim lon As Double = lon0 + 0.1 * j

 Dim alt As Double = alt0


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


 track.Points.AddPoint([date].Format("UTCG"), lat, lon, alt)

 System.Threading.Interlocked.Increment(j)

 End While

 System.Threading.Interlocked.Increment(i)

End While


root.EndUpdate()

Create a MTO (on current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Create the MTO

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

Extend MTO track

[Visual Basic .NET] Copy Code

// IAgMtoTrackPointCollection trackPointCollection: Track point collection


trackPointCollection.Extend(time, latitude, longitude, altitude)

Load MTO track points from file

[Visual Basic .NET] Copy Code

// IAgMtoTrack track: MTO track object

// String filePath: Path of ephemeris file


' LoadPoints expects the path an Ephemeris file path

track.Points.LoadPoints(filePath)

Remove MTO track

[Visual Basic .NET] Copy Code

// IAgMto mto: MTO object


Dim trackCollection As IAgMtoTrackCollection = mto.Tracks


' Build tracksToRemove Array

trackCollection.RemoveTracks(tracksToRemove)

Remove MTO tracks by ids

[Visual Basic .NET] Copy Code

// IAgMto mto: MTO object


Dim trackCollection As IAgMtoTrackCollection = mto.Tracks


' RemoveTracksById expects a one dimensional array of mto track ids

trackCollection.RemoveTracksById(tracks)

Compute MTO field of view

[Visual Basic .NET] Copy Code

// 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 tracksInView As Boolean = fov.AreTracksInFOV(AgEMtoTrackEval.eMtoTrackEvalAny, tracks, "1 Jan 2012 12:00:00.000")

Compute MTO ranges

[Visual Basic .NET] Copy Code

// IAgMto mto: MTO object


Dim range As IAgMtoAnalysisRange = mto.Analysis.Range

range.StkObjectPath = "Satellite/J2Satellite"


' ComputeRanges expects a one dimensional array of mto track ids

' ComputeRanges returns a two dimensional array of track id, visibility, and range

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

Compute visibility with MTO tracks

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgMto mto: MTO object to use for visibility analysis


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


Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility

mtoVisibility.UseTerrain = False

' Set to true to use terrain instead of line of sight.

mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial

' Only applies if MTO is static (i.e. non time dependent).

mtoVisibility.StkObjectPath = "Satellite/J2Satellite"

Dim allTracksAreVisible As Boolean = mtoVisibility.AreAllTracksVisible("1 Jan 2012 14:02:00.000")

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgMto mto: MTO object to use for visibility analysis


Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility

mtoVisibility.UseTerrain = False

' Set to true to use terrain instead of line of sight.

mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial

' Only applies if MTO is static (i.e. non time dependent).

mtoVisibility.StkObjectPath = "Satellite/J2Satellite"


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] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgMto mto: MTO object to use for visibility analysis


Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility

mtoVisibility.UseTerrain = False

' Set to true to use terrain instead of line of sight.

mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial

' Only applies if MTO is static (i.e. non time dependent).

mtoVisibility.StkObjectPath = "Satellite/J2Satellite"

Dim anyTrackIsVisible As Boolean = mtoVisibility.IsAnyTrackVisible("1 Jan 2012 14:02:00.000")

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

[Visual Basic .NET] Copy Code

// IAgMto mto: MTO object to use for visibility analysis


Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility

mtoVisibility.UseTerrain = False

' Set to true to use terrain instead of line of sight.

mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial

' Only applies if MTO is static (i.e. non time dependent).

mtoVisibility.StkObjectPath = "Satellite/J2Satellite"


' ComputeAllTracks returns a two dimensional array whose elements are trackid and visibility

Dim trackVisibilityArray As Array = mtoVisibility.ComputeAllTracks(AgEMtoVisibilityMode.eVisibilityModeEach, "1 Jan 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] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgMto mto: MTO object to use for visibility analysis


Dim mtoVisibility As IAgMtoAnalysisVisibility = mto.Analysis.Visibility

mtoVisibility.UseTerrain = False

' Set to true to use terrain instead of line of sight.

mtoVisibility.Entirety = AgEMtoEntirety.eMtoEntiretyPartial

' Only applies if MTO is static (i.e. non time dependent).

Dim trackVisibilityArray As Array = mtoVisibility.ComputeTracks(AgEMtoVisibilityMode.eVisibilityModeEach, tracksOfInterest, "1 Jan 2012 12:05:00.000")

Configure MTO graphics

[Visual Basic .NET] Copy Code

// IAgMto mto: Mto object


Dim tracks As IAgMtoVOTrackCollection = mto.VO.Tracks

For Each element As IAgMtoVOTrack In tracks

 element.Marker.PixelSize = 12

 element.Marker.OrientationMode = AgEVOMarkerOrientation.eVOMarkerOrientationAngle

 element.Marker.XOrigin = AgEVOMarkerOriginType.eRight

 element.Marker.YOrigin = AgEVOMarkerOriginType.eBottom

 element.Marker.Angle = 1.23


 element.Marker.MarkerType = AgEMarkerType.eImageFile

 element.Marker.SetMarkerImageFile("STKData\VO\Markers\Fire.ppm")


 element.Model.IsVisible = True

 element.Model.Filename = "STKData\VO\Models\Land\ariane-lp.mdl"

 element.Model.InitialBearing = 3

 element.Model.ScaleValue = 2

 element.Model.ZPointsNadir = True


 element.Label.Enable = True

 element.Label.X = 33.5

 element.Label.Y = 82.2

 element.Label.Z = 100

 element.Label.OffsetFrame = AgEOffsetFrameType.eOffsetFrameCartesian

Next

Configure MTO track marker

[Visual Basic .NET] Copy Code

// IAgMtoVOTrack track: Mto VO track properties


Dim marker As IAgMtoVOMarker = track.Marker

marker.PixelSize = 12

marker.OrientationMode = AgEVOMarkerOrientation.eVOMarkerOrientationAngle

marker.XOrigin = AgEVOMarkerOriginType.eRight

marker.YOrigin = AgEVOMarkerOriginType.eBottom

marker.Angle = 1.23

marker.MarkerType = AgEMarkerType.eImageFile

marker.SetMarkerImageFile("STKData\VO\Markers\Fire.ppm")

Configure MTO track model

[Visual Basic .NET] Copy Code

// IAgMtoVOTrack track: Mto VO track properties


Dim model As IAgMtoVOModel = track.Model

model.IsVisible = True

model.Filename = "STKData\VO\Models\Land\ariane-lp.mdl"

model.InitialBearing = 3

model.ScaleValue = 2

model.ZPointsNadir = True

Create a place (on current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Create a place on current scenario central body

Dim place As IAgPlace = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.ePlace, "MyPlace"), IAgPlace)

Create a place from facility database

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Get STK database location using Connect

Dim result As IAgExecCmdResult = root.ExecuteCommand("GetDirectory / Database Facility")

Dim facDataDir As String = result(0)

Dim filelocation As String = Path.Combine(facDataDir, "stkFacility.fd")


' Import object from database using Connect

Dim command As String = "ImportFromDB * Facility """ + filelocation + """ Class Place SiteName Weilheim"

root.ExecuteCommand(command)


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

Create a place on Earth at lat/lon/alt

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


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


' Assuming unit preferences are set to radians for latitude and longitude and km for distance

place.Position.AssignPlanetodetic(0.4506, -1.4011, 4)

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


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


' Assuming unit preferences are set to radians for latitude and longitude and km for distance

placeObject.Position.AssignPlanetodetic(-5.4245, 0.1902, 0)

Move a place while use terrain option is set true

[Visual Basic .NET] Copy Code

// IAgPlace place: Place object


' Set altitude automatically by using terrain data

place.UseTerrain = True


' Set the position ignores the altitude value in AssignGeodetic

place.Position.AssignGeodetic(29.98, -90.25, 9)


' Ignores the altitude value in AssignGeocentric

place.Position.AssignGeocentric(32.12, -110.93, 787)


' Ignores the radius value in AssignSpherical

place.Position.AssignSpherical(40.65, -73.78, 7)

Configure a planet

[Visual Basic .NET] Copy Code

// IAgPlanet planet: Planet


planet.PositionSource = AgEPlPositionSourceType.ePosCentralBody


' Get IAgPlPosCentralBody interface

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


body.AutoRename = False

body.CentralBody = "Jupiter"


' AvailableEphemSourceTypes is a one dimensional array of AgEEphemSourceType values

If Array.IndexOf(body.AvailableEphemSourceTypes, DirectCast(AgEEphemSourceType.eEphemAnalytic, Integer)) <> -1 Then

 body.EphemSource = AgEEphemSourceType.eEphemAnalytic

End If

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

[Visual Basic .NET] Copy Code

// IAgPlanet planet: Planet

// String planetEphemeris: Planet Ephemeris file


' Position source files traditionally have .pe extensions

planet.CommonTasks.SetPositionSourceFile(planetEphemeris)

Configure a planet graphics

[Visual Basic .NET] Copy Code

// IAgPlGraphics graphics: Planet graphics


graphics.Inherit = False


graphics.Color = Color.Red

graphics.MarkerStyle = "Circle"

graphics.LineStyle = AgELineStyle.eMDashDot

graphics.LineWidth = AgELineWidth.e4


graphics.InertialPositionVisible = False

graphics.SubPlanetPointVisible = False

graphics.PositionLabelVisible = False

graphics.SubPlanetLabelVisible = False

graphics.OrbitVisible = True

graphics.OrbitDisplay = AgEPlOrbitDisplayType.eOrbitDisplayTime

Dim displayTime As IAgPlOrbitDisplayTime = TryCast(graphics.OrbitDisplayData, IAgPlOrbitDisplayTime)

displayTime.Time = 10000

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

[Visual Basic .NET] Copy Code

// IAgRadar radar: Radar object

// IAgAircraft targetAircraft: Aircraft object

// IAgRFEnvironment scenarioRFEnv: Scenario RF Environment


Dim rdrAsStkObject As IAgStkObject = TryCast(radar, IAgStkObject)

Dim tgtAsStkObject As IAgStkObject = TryCast(targetAircraft, IAgStkObject)


'Enable the rain loss computation on the scenario RF environment

scenarioRFEnv.PropagationChannel.EnableRainLoss = True


'Configure the radar object as a monostatic model.

radar.SetModel("Monostatic")

Dim monostaticModel As IAgRadarModelMonostatic = TryCast(radar.Model, IAgRadarModelMonostatic)


'Orient the radar antenna in the direction of the target

radar.Model.AntennaControl.EmbeddedModelOrientation.AssignAzEl(50.9, 36.8, AgEAzElAboutBoresight.eAzElAboutBoresightRotate)


'Set the radar antenna model to parabolic

radar.Model.AntennaControl.SetEmbeddedModel("Parabolic")

Dim parabolic As IAgAntennaModelParabolic = TryCast(radar.Model.AntennaControl.EmbeddedModel, IAgAntennaModelParabolic)


'Give the parabolic antenna a 2 deg beamwidth;

parabolic.InputType = AgEAntennaModelInputType.eAntennaModelInputTypeBeamwidth

parabolic.Beamwidth = 2


'Put the monostatic radar model in Search/Track mode

monostaticModel.SetMode("Search Track")

Dim searchTrackMode As IAgRadarModeMonostaticSearchTrack = TryCast(monostaticModel.Mode, IAgRadarModeMonostaticSearchTrack)


'Set the waveform type to fixed prf

searchTrackMode.SetWaveformType(AgERadarWaveformSearchTrackType.eRadarWaveformSearchTrackTypeFixedPRF)

Dim fixedPrf As IAgRadarWaveformMonostaticSearchTrackFixedPRF = TryCast(searchTrackMode.Waveform, IAgRadarWaveformMonostaticSearchTrackFixedPRF)

fixedPrf.PulseDefinition.Prf = 0.002

'2 kHz

'Set the pulse width to 1e-8 sec

fixedPrf.PulseDefinition.PulseWidth = 1E-08

'sec

'Set the number of pulses

fixedPrf.PulseDefinition.NumberOfPulses = 25


'Set the pulse integration strategy to goal SNR

fixedPrf.PulseIntegrationType = AgERadarPulseIntegrationType.eRadarPulseIntegrationTypeGoalSNR

Dim pulseIntGoalSNR As IAgRadarPulseIntegrationGoalSNR = TryCast(fixedPrf.PulseIntegration, IAgRadarPulseIntegrationGoalSNR)

pulseIntGoalSNR.SNR = 40

'dB

'Set the transmit frequency

monostaticModel.Transmitter.FrequencySpecification = AgERadarFrequencySpec.eRadarFrequencySpecFrequency

monostaticModel.Transmitter.Frequency = 2.1

'GHz

'Set the transmit power

monostaticModel.Transmitter.Power = 50

'dBW

'Enable rain loss computation on the receiver

monostaticModel.Receiver.UseRain = True

monostaticModel.Receiver.RainOutagePercent = 0.001


'Enable the receiver system noise temperature computation.

monostaticModel.Receiver.SystemNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate


'Enable the antenna noise temperature computation

monostaticModel.Receiver.SystemNoiseTemperature.AntennaNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate

monostaticModel.Receiver.SystemNoiseTemperature.AntennaNoiseTemperature.UseRain = True


'Don't inherit the radar cross section settings from the scenario

targetAircraft.RadarCrossSection.Inherit = False

Dim rcs As IAgRadarCrossSectionModel = TryCast(targetAircraft.RadarCrossSection.Model, IAgRadarCrossSectionModel)


'Set the radar cross section compute strategy to constan value

rcs.FrequencyBands(0).SetComputeStrategy("Constant Value")

Dim constValRcs As IAgRadarCrossSectionComputeStrategyConstantValue = TryCast(rcs.FrequencyBands(0).ComputeStrategy, IAgRadarCrossSectionComputeStrategyConstantValue)


'Set the constant radar cross section to 0.5 dBsm

constValRcs.ConstantValue = 0.5

'dBsm

'Create an access object for the access between the radar and target

Dim radarAccess As IAgStkAccess = rdrAsStkObject.GetAccessToObject(tgtAsStkObject)


'Compute access

radarAccess.ComputeAccess()


' Get the access intervals

Dim accessIntervals As IAgIntervalCollection = radarAccess.ComputedAccessIntervalTimes


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

 accessIntervals.GetInterval(index0, startTime, stopTime)

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

Add analytical terrain to the scenario on Earth central body

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// String terrainFile: Path of Terrain data file


' Retrieve the IAgScenario interface

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


Dim terrainCollection As IAgCentralBodyTerrainCollection = scenario.Terrain

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


' Add terrain data file to current scenario's terrain collection

' Terrain data files traditionally have .dte extensions

Dim terrain As IAgTerrain = elementCollection.Add(terrainFile, AgETerrainFileType.eMUSERasterFile)


' Set Scenario to use terrain data file

terrain.UseTerrain = True

Configure scenario animation

[Visual Basic .NET] Copy Code

// IAgScenario scenario: Scenario


Dim animation As IAgScAnimation = scenario.Animation


animation.StartTime = "1 Jun 2004 12:00:00.00"

animation.EnableAnimCycleTime = True

animation.AnimCycleType = AgEScEndLoopType.eEndTime

animation.AnimCycleTime = "2 Jun 2004 12:00:00.00"

animation.AnimStepValue = 1000

animation.RefreshDeltaType = AgEScRefreshDeltaType.eRefreshDelta

animation.RefreshDelta = 0.02

Configure scenario text font

[Visual Basic .NET] Copy Code

// IAgScenario scenario: Scenario


Dim fonts As IAgSc3dFont = scenario.VO.LargeFont


fonts.Bold = True

fonts.Italic = True

fonts.PtSize = AgESc3dPtSize.eSc3dFontSize36


If fonts.IsFontAvailable("Impact") Then

 fonts.Name = "Impact"

End If


' AvailableFonts returns a one dimensional array of font strings

Dim allFonts As Array = fonts.AvailableFonts

Dim index As Integer = Array.IndexOf(allFonts, "Courier")

If index <> -1 Then

 fonts.Name = TryCast(allFonts.GetValue(index), String)

End If

Add a new STK Object to the scenario

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


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

Import an existing STK Object file into the scenario

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// String stkObjectLocation: Path of STK Object external file


root.CurrentScenario.Children.ImportObject(stkObjectLocation)

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// AgESTKObjectType type: Object type in scenario that we want to list


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


For Each o As IAgStkObject In allChildrenOfType

 Console.WriteLine(o.InstanceName)

Next

Close a scenario

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


root.CloseScenario()

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Close current scenario

If root.CurrentScenario IsNot Nothing Then

 root.CloseScenario()

End If

root.NewScenario("Scenario1")


' Get IAgScenario interface

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


' Set scenario start and stop times

scenario.SetTimePeriod("1 Jun 1999 12:00:00.00", "2 Jun 1999 12:00:00.00")

Load a scenario (closing the current scenario if necessary)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// String scenarioLocation: Specified path of scenario


' close current scenario

If root.CurrentScenario IsNot Nothing Then

 root.CloseScenario()

End If

root.LoadScenario(scenarioLocation)

Save a scenario

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


root.SaveScenario()

Save a scenario to a new location (Save as)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// String fileName: Specified path and file name of scenario


root.SaveScenarioAs(fileName)

Define a complex sensor

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


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

patterndata.AngularResolution = 0.5

Define a custom sensor

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object

// String sensorPatternPath: Path of Custom Sensor data file


' Set pattern type to Custom

Dim customPattern As IAgSnCustomPattern = sensor.CommonTasks.SetPatternCustom(sensorPatternPath)

customPattern.AngularResolution = 6

customPattern.UseNativeResolution = False

Define a half power sensor

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


' Configure pattern

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

Define a SAR sensor

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


' Configure pattern

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

Define a simple conic sensor

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


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

Define and compute sensor swath

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


' Configure swath display properties

Dim swath As IAgSwath = sensor.Swath

swath.Enable = True

swath.Color = Color.Red

' red

swath.LineStyle = AgELineStyle.eLMSDash

swath.LineWidth = AgELineWidth.e2


' New swath properties

swath.UseMaximumCone = True

swath.CurvatureTolerance = 90

swath.ScatteringTolerance = 70

swath.MinimumStep = 5

swath.MaximumStep = 10


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

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

Define external sensor pointing

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object

// String externalSensorPointingPath: Path of sensor external file


' Sensor pointing data files traditionally have .sp extensions

sensor.SetPointingExternalFile(externalSensorPointingPath)


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

Define fixed location

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


' Set sensor's location to fixed

sensor.SetLocationType(AgESnLocation.eSnFixed)


' Configure sensor location

Dim pos As IAgPosition = TryCast(sensor.LocationData, IAgPosition)

pos.AssignCartesian(595.2, -110.12, 4.6)

Define fixed sensor pointing

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


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

Define location from Vector Geometry Tool point

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


' Set location type to VGT

sensor.SetLocationType(AgESnLocation.eSnLocationCrdnPoint)


' Get IAgLocationCrdnPoint interface

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


' point sensor to an already existing object

vgtPoint.PointPath = "Facility/Facility1 Center"

Define location on 3D model

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


' Set pointing type to 3d model

sensor.SetPointingType(AgESnPointing.eSnPt3DModel)


' Point to model attach point (in this example: "SolarArrays-000000")

Dim model As IAgSnPt3DModel = sensor.CommonTasks.SetPointing3DModel("Solar_PanelsNode")

Define sensor to use azimuth elevation mask file

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object

// String maskFilePath: Path to external az-el data file


' Specify Mask file

sensor.SetAzElMaskFile(maskFilePath)


' Get Mask File interface

Dim maskFile As IAgSnAzElMaskFile = TryCast(sensor.AzElMaskData, IAgSnAzElMaskFile)


' Configure MaskFile as needed

maskFile.BoresightAxis = AgESnAzElBsightAxisType.ePlus_MinusZ

Define spinning sensor pointing

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgSensor sensor: Sensor object


' Set pattern type to Spinning

sensor.SetPointingType(AgESnPointing.eSnPtSpinning)

Dim spinning As IAgSnPtSpinning = TryCast(sensor.Pointing, IAgSnPtSpinning)


' Configure sensor

spinning.SpinAxisAzimuth = 14.24

spinning.SpinAxisElevation = 7.68

spinning.SpinAxisConeAngle = 42.46

spinning.ScanMode = AgESnScanMode.eSnContinuous

spinning.SpinRate = 88.921

spinning.OffsetAngle = 110.44

Define spinning sensor pointing (using common tasks)

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


' Configure sensor (using common taks)

sensor.CommonTasks.SetPointingSpinning(14.24, 7.68, 42.46, AgESnScanMode.eSnContinuous, 88.921, 110.44, _

 1.2, 3.5)

Define targeted sensor pointing

[Visual Basic .NET] Copy Code

// IAgSensor sensor: Sensor object


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

Configure sensor 3D projection

[Visual Basic .NET] Copy Code

// IAgSnVO sensorVo: Sensor VO object


sensorVo.ProjectionType = AgESnVOProjectionType.eProjectionAllIntersections

sensorVo.InheritFrom2D = AgESnVOInheritFrom2D.eSnVOInheritFrom2DExtentOnly

sensorVo.SpaceProjection = 2000

Configure basic properties

[Visual Basic .NET] Copy Code

// IAgStar star: Star object


' Units depend on current unit preferences

star.LocationDeclination = -40

star.LocationRightAscension = 120

' in arcSec

star.Magnitude = -1

star.Parallax = 0

' in arcSec

star.ProperMotionDeclination = 1.5

' in arcSec

star.ProperMotionRadialVelocity = 0.75

' in meters

star.ProperMotionRightAscension = -0.5

' in arcSec

Create a star (on current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Create the Star

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

Create a star from a star database

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Import object from database using Connect

Dim command As String = "ImportFromDB * Star ScenarioCollection VisualMagnitude 0 1.0 RightAsc 200.0 230.0 Constellation ImportedFromStarDB"

root.ExecuteCommand(command)


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

Change a target position

[Visual Basic .NET] Copy Code

// IAgTarget target: Target


Dim pos As IAgPosition = target.Position

pos.AssignGeodetic(39.95, 15.58, 231.54)

Configure a target from azimuth mask file

[Visual Basic .NET] Copy Code

// IAgTarget target: Target

// String maskfile: Path of maskfile


target.UseLocalTimeOffset = True

target.LocalTimeOffset = 200

target.UseTerrain = True

' Note, if SetAzElMask is set to a type other than AgEAzElMaskType.eMaskFile,

' the second parameter is ignored.

target.SetAzElMask(AgEAzElMaskType.eMaskFile, maskfile)

target.TerrainNorm = AgETerrainNormType.eSlopeAzimuth

target.AltRef = AgEAltRefType.eMSL

target.HeightAboveGround = 1472

Create a target (on the current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Create the Target on the current scenario central body (use

' NewOnCentralBody to specify explicitly the central body)

Dim areaTarget As IAgTarget = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eAreaTarget, "MyAreaTarget"), IAgTarget)

Configure an aircraft route using the Great Arc propagator

[Visual Basic .NET] Copy Code

// IAgAircraft aircraft: Aircraft object


' Set ship route to great arc

aircraft.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)


' Retrieve propagator interface

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

propagator.ArcGranularity = 51.333


' Set Ref type to WayPtAltRefTerrain and retreive IAgVeWayPtAltitudeRefTerrain interface

propagator.SetAltitudeRefType(AgEVeAltitudeRef.eWayPtAltRefTerrain)

Dim altRef As IAgVeWayPtAltitudeRefTerrain = TryCast(propagator.AltitudeRef, IAgVeWayPtAltitudeRefTerrain)

altRef.Granularity = 51.33

altRef.InterpMethod = AgEVeWayPtInterpMethod.eWayPtEllipsoidHeight


propagator.Method = AgEVeWayPtCompMethod.eDetermineTimeAccFromVel


' Add waypoints

Dim point1 As IAgVeWaypointsElement = propagator.Waypoints.Add()

point1.Latitude = 39.7674

point1.Longitude = -79.7292

point1.Altitude = 3

point1.Speed = 0.0772


Dim point2 As IAgVeWaypointsElement = propagator.Waypoints.Add()

point2.Latitude = 38.3721

point2.Longitude = -120.116

point2.Altitude = 3

point2.Speed = 0.0772


' Add more way points if necessary...


' Propagate

propagator.Propagate()

Set an aircraft to use Great Arc propagator

[Visual Basic .NET] Copy Code

// IAgAircraft aircraft: Aircraft object


' Set ship route to great arc

aircraft.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)


' Retrieve propagator interface

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

Add ground ellipse element and data element

[Visual Basic .NET] Copy Code

// IAgVeGroundEllipsesCollection ellipsesCollection: Ellipses collection


' Add ground ellipse

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


' Add ellipse data element

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


' Configure element properties

element.Time = "1 Jan 2012 12:00:00.000"

element.Latitude = 35.292

element.Longitude = -93.7299

element.SemiMajorAxis = 400

element.SemiMinorAxis = 300

element.Bearing = 35.71

Export a vehicle attitude to an external file

[Visual Basic .NET] Copy Code

// IAgScenario scenario: Current Scenario Object.

// IAgVeAttitudeExportTool attitudeExport: Attitude Export Tool


' Set and configure attitude coordinate axes

attitudeExport.SetCoordinateAxesType(AgEAttCoordinateAxes.eAttCoordinateAxesCustom)

Dim customAxes As IAgVeCoordinateAxesCustom = TryCast(attitudeExport.CoordinateAxes, IAgVeCoordinateAxesCustom)

customAxes.ReferenceAxesName = "CentralBody/Sun J2000 Axes"


attitudeExport.VersionFormat = AgEExportToolVersionFormat.eExportToolVersionFormatCurrent

attitudeExport.Include = AgEAttInclude.eAttIncludeQuaternionsAngularVelocity


' Set the attitude file to use Scenario start and stop time

attitudeExport.TimePeriod.TimePeriodType = AgEExportToolTimePeriod.eExportToolTimePeriodSpecify

attitudeExport.TimePeriod.Start = scenario.StartTime

attitudeExport.TimePeriod.[Stop] = scenario.StopTime


attitudeExport.StepSize.StepSizeType = AgEExportToolStepSize.eExportToolStepSizeSpecify

attitudeExport.StepSize.Value = 3600


' Save Attitude File

attitudeExport.Export("OMExternalFileAttitude.a")

Export a vehicle STK ephemeris to an external file

[Visual Basic .NET] Copy Code

// IAgScenario scenario: Scenario object

// IAgVeEphemerisStkExportTool stkEphem: STK Ephemeris Export Tool

// String ephemFilePath: The fully qualified file path where the Ephemeris is to be exported to


' set export parameters

stkEphem.CoordinateSystem = AgEStkEphemCoordinateSystem.eStkEphemCoordinateSystemFixed

stkEphem.IncludeInterp = True

stkEphem.VersionFormat = AgEExportToolVersionFormat.eExportToolVersionFormatCurrent

stkEphem.TimePeriod.TimePeriodType = AgEExportToolTimePeriod.eExportToolTimePeriodSpecify


' Set the ephemeris to the Scenario start and stop times

stkEphem.TimePeriod.Start = scenario.StartTime

stkEphem.TimePeriod.[Stop] = scenario.StopTime


stkEphem.StepSize.StepSizeType = AgEExportToolStepSize.eExportToolStepSizeEphem

stkEphem.Export(ephemFilePath)

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

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set Attitude to Standard

satellite.SetAttitudeType(AgEVeAttitude.eAttitudeStandard)

' Get IAgVeOrbitAttitudeStandard interface

Dim standard As IAgVeOrbitAttitudeStandard = TryCast(satellite.Attitude, IAgVeOrbitAttitudeStandard)


' Set Profile to Inertially Fixed

standard.Basic.SetProfileType(AgEVeProfile.eProfileInertiallyFixed)

' Get IAgVeProfileInertial interface

Dim interfix As IAgVeProfileInertial = TryCast(standard.Basic.Profile, IAgVeProfileInertial)


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

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

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


satellite.SetAttitudeType(AgEVeAttitude.eAttitudeStandard)

Dim standard As IAgVeOrbitAttitudeStandard = TryCast(satellite.Attitude, IAgVeOrbitAttitudeStandard)

standard.Basic.SetProfileType(AgEVeProfile.eProfileInertiallyFixed)

Dim interfix As IAgVeProfileInertial = TryCast(standard.Basic.Profile, IAgVeProfileInertial)


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

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

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgSatellite satellite: Satellite object

// Array cpfQuaternion: Array that contains CPF Quaternion data


satellite.SetAttitudeType(AgEVeAttitude.eAttitudeRealTime)

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


Dim i As Integer = 0

While i < cpfQuaternion.GetUpperBound(0)

 realtime.AddCBFQuaternion(cpfQuaternion.GetValue(i, 0), DirectCast(cpfQuaternion.GetValue(i, 1), Double), DirectCast(cpfQuaternion.GetValue(i, 2), Double), DirectCast(cpfQuaternion.GetValue(i, 3), Double), DirectCast(cpfQuaternion.GetValue(i, 4), Double))

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Configure real-time attitude

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' set attitude type to real time

satellite.SetAttitudeType(AgEVeAttitude.eAttitudeRealTime)

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


' Set our Attitude Look Ahead method to Extrapolate

realtime.LookAheadMethod = AgEVeLookAheadMethod.eExtrapolate


' Duration

Dim duration As IAgVeDuration = realtime.Duration

duration.LookAhead = 1600

duration.LookBehind = 1600


' BlockFactor

realtime.BlockFactor = 40

realtime.DataReference.SetProfileType(AgEVeProfile.eProfileInertiallyFixed)

Set attitude profile type (if profile is supported)

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


Dim standard As IAgVeOrbitAttitudeStandard = TryCast(satellite.Attitude, IAgVeOrbitAttitudeStandard)

If standard.Basic.IsProfileTypeSupported(AgEVeProfile.eProfileSpinning) Then

 standard.Basic.SetProfileType(AgEVeProfile.eProfileSpinning)

End If

Configure access intervals graphics

[Visual Basic .NET] Copy Code

// IAgVeGfxAttributesAccess accessAttributes: Access Attributes graphics


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


accessAttributes.DuringAccess.IsVisible = True

accessAttributes.DuringAccess.Color = Color.Yellow

accessAttributes.NoAccess.IsVisible = True

accessAttributes.NoAccess.Color = Color.Red

Configure basic graphics

[Visual Basic .NET] Copy Code

// IAgVeGfxAttributesBasic basicAttributes: Basic Attributes graphics


' Change display

basicAttributes.IsVisible = True

basicAttributes.Color = Color.Red

basicAttributes.Line.Style = AgELineStyle.eDotted

basicAttributes.Line.Width = AgELineWidth.e3

basicAttributes.MarkerStyle = "Square"

Configure custom intervals graphics

[Visual Basic .NET] Copy Code

// IAgVeGfxAttributesCustom customAttributes: Custom Attributes graphics


Dim customIntervals As IAgVeGfxIntervalsCollection = customAttributes.Intervals


' Add intervals

customIntervals.Add("1 Jan 2012 12:00:00.000", "1 Jan 2012 14:00:00.000")

customIntervals.Add("2 Jan 2012 01:00:00.000", "2 Jan 2012 02:00:00.000")


' Deconflict intervals if necessary

customAttributes.Deconflict()

Configure elevation contours

[Visual Basic .NET] Copy Code

// IAgVeGfxElevContours gfxContours: Gfx contours

// IAgVeVOElevContours voContours: VO contours


gfxContours.IsVisible = True

gfxContours.IsFillVisible = True

gfxContours.FillStyle = AgEFillStyle.eFillStyleHorizontalStripe

gfxContours.NumOfDecimalDigits = 5


' Add contour elevation level

Dim elevation As IAgVeGfxElevationsElement = gfxContours.Elevations.AddLevel(25)


' Configure contour elevation element

elevation.Color = Color.Red

elevation.DistanceVisible = True

elevation.LineStyle = AgELineStyle.eDotted

elevation.LineWidth = AgELineWidth.e3

elevation.UserTextVisible = True

elevation.UserText = "My new elevation"


' Set contours to visible on scenario

voContours.IsVisible = True

voContours.Fill = True

voContours.FillTranslucency = 80

Configure sunlight lighting graphics

[Visual Basic .NET] Copy Code

// IAgVeGfxLighting lighting: Vehicle graphics lighting


Dim sunlight As IAgVeGfxLightingElement = lighting.Sunlight


sunlight.Visible = True

sunlight.Color = Color.Red

sunlight.LineStyle = AgELineStyle.eDotted

sunlight.LineWidth = AgELineWidth.e3

sunlight.MarkerStyle = "Circle"

Set a vehicle's graphics to access intervals

[Visual Basic .NET] Copy Code

// IAgGreatArcGraphics graphics: Great Arc graphics


If graphics.IsAttributesTypeSupported(AgEVeGfxAttributes.eAttributesAccess) Then

 ' Set graphics to access intervals

 graphics.SetAttributesType(AgEVeGfxAttributes.eAttributesAccess)


 ' Get IAgVeGfxAttributesAccess interface


 ' adjust the access intervals graphics

 Dim accessAttributes As IAgVeGfxAttributesAccess = TryCast(graphics.Attributes, IAgVeGfxAttributesAccess)

End If

Set a vehicle's graphics to basic

[Visual Basic .NET] Copy Code

// IAgGreatArcGraphics graphics: Great Arc graphics


If graphics.IsAttributesTypeSupported(AgEVeGfxAttributes.eAttributesBasic) Then

 ' Set graphics to basic

 graphics.SetAttributesType(AgEVeGfxAttributes.eAttributesBasic)


 ' Get IAgVeGfxAttributesBasic interface


 ' adjust the basic graphics

 Dim basicAttributes As IAgVeGfxAttributesBasic = TryCast(graphics.Attributes, IAgVeGfxAttributesBasic)

End If

Set a vehicle's graphics to custom intervals

[Visual Basic .NET] Copy Code

// IAgGreatArcGraphics graphics: Great Arc graphics


If graphics.IsAttributesTypeSupported(AgEVeGfxAttributes.eAttributesCustom) Then

 ' Set graphics to custom

 graphics.SetAttributesType(AgEVeGfxAttributes.eAttributesCustom)


 ' Get IAgVeGfxAttributesCustom interface


 ' adjust the custom intervals graphics

 Dim customAttributes As IAgVeGfxAttributesCustom = TryCast(graphics.Attributes, IAgVeGfxAttributesCustom)

End If

Configure 3D dropline graphics

[Visual Basic .NET] Copy Code

// IAgVeVODropLinePathItem dropLine: Drop line


dropLine.IsVisible = True

dropLine.Use2DColor = False

dropLine.Color = Color.Red

dropLine.LineStyle = AgELineStyle.eDashed

dropLine.LineWidth = AgELineWidth.e4

dropLine.Interval = 100

' in sec

Configure 3D pass graphics

[Visual Basic .NET] Copy Code

// IAgVeVOPass pass: Vehicle pass


' Set lead data type to fraction, retrieved IAgVeGfxLeadData implementation

pass.TrackData.PassData.GroundTrack.SetLeadDataType(AgELeadTrailData.eDataQuarter)


pass.TrackData.PassData.GroundTrack.SetTrailDataType(AgELeadTrailData.eDataHalf)

pass.TrackData.PassData.Orbit.SetLeadDataType(AgELeadTrailData.eDataQuarter)

pass.TrackData.PassData.Orbit.SetTrailSameAsLead()


pass.TickMarks.GroundTrack.IsVisible = True

pass.TickMarks.GroundTrack.SetTickDataType(AgETickData.eTickDataRadial)

pass.TickMarks.Orbit.IsVisible = True

pass.TickMarks.Orbit.SetTickDataType(AgETickData.eTickDataRadialAndCrossTrack)

pass.TickMarks.TimeBetweenTicks = 180

Configure control from a propagate segment with Design Explorer Optimizer

[Visual Basic .NET] Copy Code

// IAgVAMCSTargetSequence sequence: Target sequence object


Dim deoStr As String = "Design Explorer Optimizer"


' Retrieve sequence profile

If Array.IndexOf(sequence.Profiles.AvailableProfiles, deoStr) <> -1 Then

 ' Add a propagate segment on the Target Sequence in order to provide a control

 Dim propagate As IAgVAMCSPropagate = TryCast(sequence.Segments.Insert(AgEVASegmentType.eVASegmentTypePropagate, "MyPropagate", "-"), IAgVAMCSPropagate)


 ' Enable the propagate "StoppingConditions.Duration.TripValue" control

 Dim durationControl As IAgVAStoppingConditionElement = propagate.StoppingConditions("Duration")

 durationControl.EnableControlParameter(AgEVAControlStoppingCondition.eVAControlStoppingConditionTripValue)


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


 ' Retrieve result reference

 Dim controls As IAgVADEControlCollection = deo.ControlParameters

 Dim prop1Duration As IAgVADEControl = controls.GetControlByPaths("MyPropagate", "StoppingConditions.Duration.TripValue")


 ' Configure IAgVADEControl properties

 prop1Duration.Enable = True

 prop1Duration.Perturbation = 0.01

 prop1Duration.LowerBound = 0

 prop1Duration.UpperBound = 43200

 prop1Duration.ScalingMethod = AgEVADEScalingMethod.eVADEScalingMethodCustom

 prop1Duration.ScalingValue = 5.5E-05

End If

Configure initial state segment

[Visual Basic .NET] Copy Code

// IAgVADriverMCS driver: Astrogrator driver object


' Add a new segment and cast the segment to the IAgVAMCSInitialState interface

Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeInitialState, "Inner Orbit", "-")

Dim initState As IAgVAMCSInitialState = TryCast(segment, IAgVAMCSInitialState)


initState.CoordSystemName = "CentralBody/Earth Fixed"

initState.OrbitEpoch = "1 Jan 2012 12:00:00.000"


' Set element type and cast the Element property to the appropriate interface

' configure the element as necessary

initState.SetElementType(AgEVAElementType.eVAElementTypeCartesian)

Dim cartesian As IAgVAElementCartesian = TryCast(initState.Element, IAgVAElementCartesian)

cartesian.Vx = 8051.21

cartesian.Y = 55

cartesian.Z = 0

cartesian.Vx = 0.45

cartesian.Vy = 8.10158

cartesian.Vz = 3.51009


' Configure fuel tank if necessary

initState.FuelTank.FuelDensity = 1001

initState.FuelTank.FuelMass = 501

initState.FuelTank.TankPressure = 5001

initState.FuelTank.TankTemperature = 292


' Configure spacecraft parameters

initState.SpacecraftParameters.Cd = 2.3

initState.SpacecraftParameters.Ck = 1.1

initState.SpacecraftParameters.Cr = 1.3

initState.SpacecraftParameters.DragArea = 21

initState.SpacecraftParameters.DryMass = 501

initState.SpacecraftParameters.K1 = 2

initState.SpacecraftParameters.K2 = 3

initState.SpacecraftParameters.RadiationPressureArea = 23

initState.SpacecraftParameters.SolarRadiationPressureArea = 22

Configure launch segment

[Visual Basic .NET] Copy Code

// IAgVADriverMCS driver: Astrogrator driver object


' Add launch sequence and retrieve the

Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeLaunch, "MyLaunch", "-")

Dim launch As IAgVAMCSLaunch = TryCast(segment, IAgVAMCSLaunch)


' Configure launch properties

launch.CentralBodyName = "Mars"

launch.Epoch = "1 Jan 2012 12:00:00.000"

launch.StepSize = 6

launch.UsePreviousSegmentState = False

launch.PreLaunchTime = 1

launch.TimeOfFlight = 500

launch.AscentType = AgEVAAscentType.eVAAscentTypeEllipseQuarticMotion

launch.InitialAcceleration = 0.02


' Configure display type

launch.SetDisplaySystemType(AgEVALaunchDisplaySystem.eVADisplaySystemGeocentric)

Dim llr As IAgVADisplaySystemGeocentric = DirectCast(launch.DisplaySystem, IAgVADisplaySystemGeocentric)

llr.Latitude = 35.581

llr.Longitude = -92.263

llr.Radius = 1000


' Configure launch type

launch.AscentType = AgEVAAscentType.eVAAscentTypeEllipseQuarticMotion

launch.InitialAcceleration = 0.02

launch.AscentType = AgEVAAscentType.eVAAscentTypeEllipseCubicMotion


' Configure burnout type

Dim velocity As IAgVABurnoutVelocity = launch.BurnoutVelocity

velocity.BurnoutOption = AgEVABurnoutOptions.eVABurnoutOptionsInertialVelocity

velocity.InertialVelocity = 20

velocity.InertialHorizontalFPA = 22

velocity.InertialVelocityAzimuth = 55

velocity.BurnoutOption = AgEVABurnoutOptions.eVABurnoutOptionsFixedVelocity

velocity.FixedVelocity = 20

Configure maneuver segment

[Visual Basic .NET] Copy Code

// IAgVADriverMCS driver: Astrogrator driver object


' Add launch sequence and retrieve the IAgVAMCSManeuver interface

Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeManeuver, "MyManeuver", "-")

Dim maneuver As IAgVAMCSManeuver = TryCast(segment, IAgVAMCSManeuver)


' Set Maneuver to Impulsive

maneuver.SetManeuverType(AgEVAManeuverType.eVAManeuverTypeImpulsive)

Dim impulse As IAgVAManeuverImpulsive = TryCast(maneuver.Maneuver, IAgVAManeuverImpulsive)


' Set Impulsive attitude to VelocityVector

impulse.SetAttitudeControlType(AgEVAAttitudeControl.eVAAttitudeControlVelocityVector)

Dim velVec As IAgVAAttitudeControlImpulsiveVelocityVector = TryCast(impulse.AttitudeControl, IAgVAAttitudeControlImpulsiveVelocityVector)

velVec.DeltaVMagnitude = 1


impulse.SetPropulsionMethod(AgEVAPropulsionMethod.eVAPropulsionMethodThrusterSet, "Thruster Set")

impulse.UpdateMass = True

Configure propagate segment

[Visual Basic .NET] Copy Code

// IAgVADriverMCS driver: Astrogrator driver object


' Add a propagate segment to our sequence

Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypePropagate, "Propagate", "-")

Dim propagate As IAgVAMCSPropagate = TryCast(segment, IAgVAMCSPropagate)

propagate.PropagatorName = "Earth Point Mass"


' Configure propagtor advanced properties

propagate.MinPropagationTime = 0

propagate.EnableMaxPropagationTime = True

propagate.MaxPropagationTime = 72000000

propagate.EnableWarningMessage = True


' Configure stopping conditions

Dim duration As IAgVAStoppingCondition = TryCast(propagate.StoppingConditions("Duration").Properties, IAgVAStoppingCondition)

duration.Trip = 7200

duration.Tolerance = 1E-05


' Add any addition stopping conditions

Dim lightning As IAgVAStoppingCondition = TryCast(propagate.StoppingConditions.Add("Lighting"), IAgVAStoppingCondition)

Configure result from a maneuver segment with Design Explorer Optimizer

[Visual Basic .NET] Copy Code

// IAgVAMCSTargetSequence sequence: Target sequence object


' Add a maneuver segment on the Target Sequence in order to provide access result

Dim maneuver As IAgVAMCSManeuver = TryCast(sequence.Segments.Insert(AgEVASegmentType.eVASegmentTypeManeuver, "MyManeuver", "-"), IAgVAMCSManeuver)


' Add results the Access result to the manuever

DirectCast(maneuver, IAgVAMCSSegment).Results.Add("Access/Access")


Dim deoStr As String = "Design Explorer Optimizer"


' Retrieve sequence profile

If Array.IndexOf(sequence.Profiles.AvailableProfiles, deoStr) <> -1 Then

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


 ' Retrieve result reference

 Dim altitudeResult As IAgVADEResult = deo.Results.GetResultByPaths("MyManeuver", "Access")


 ' Configure VADEResult properties


 altitudeResult.Enable = True

 altitudeResult.Goal = AgEVADEGoal.eVADEGoalMaximize

 altitudeResult.Weight = 2

 altitudeResult.ScalingMethod = AgEVADEScalingMethod.eVADEScalingMethodInitialValue

End If

Configure sequence segment with scripting tool

[Visual Basic .NET] Copy Code

// IAgVADriverMCS driver: Astrogrator driver object


' Add launch sequence and retrieve the

Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeSequence, "MySequence", "-")

Dim sequence As IAgVAMCSSequence = TryCast(segment, IAgVAMCSSequence)


Dim scriptTool As IAgVAScriptingTool = sequence.ScriptingTool

scriptTool.Enable = True

scriptTool.LanguageType = AgEVALanguage.eVALanguageVBScript

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


' Configure the script tool's segments


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


If Array.IndexOf(burn1X.AvailableObjectNames, "Optimize_Delta_w.Burn1") <> -1 Then

 burn1X.ObjectName = "Optimize_Delta_w.Burn1"

 burn1X.Attribute = "ImpulsiveMnvr.Cartesian.X"

 burn1X.Unit = "km/sec"

End If


Dim period0 As IAgVAScriptingCalcObject = scriptTool.CalcObjects.Add("Period_0")

period0.CalcObjectName = "Segments/Value At Segment"

Dim valAtSeg As IAgVAStateCalcValueAtSegment = TryCast(period0.CalcObject, IAgVAStateCalcValueAtSegment)

valAtSeg.CalcObjectName = "Keplerian Elems/Orbit Period"

Configure target sequence segment

[Visual Basic .NET] Copy Code

// IAgVADriverMCS driver: Astrogrator driver object


' First add a sequence target

Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeTargetSequence, "Start Transfer", "-")

Dim targetSequence As IAgVAMCSTargetSequence = TryCast(segment, IAgVAMCSTargetSequence)


targetSequence.Action = AgEVATargetSeqAction.eVATargetSeqActionRunActiveProfiles

targetSequence.WhenProfilesFinish = AgEVAProfilesFinish.eVAProfilesFinishRunToReturnAndContinue

targetSequence.ContinueOnFailure = False


' Add as many child segments to target

Dim dv1 As IAgVAMCSManeuver = TryCast(targetSequence.Segments.Insert(AgEVASegmentType.eVASegmentTypeManeuver, "DV1", "-"), IAgVAMCSManeuver)

Dim dv2 As IAgVAMCSManeuver = TryCast(targetSequence.Segments.Insert(AgEVASegmentType.eVASegmentTypeManeuver, "DV2", "-"), IAgVAMCSManeuver)


' Add more profiles if necessary

Dim profileName As String = "Change Maneuver Type"

If Array.IndexOf(targetSequence.Profiles.AvailableProfiles, profileName) <> -1 Then

 Dim newProfile As IAgVAProfile = targetSequence.Profiles.Add(profileName)

End If


' Enable controls

dv1.EnableControlParameter(AgEVAControlManeuver.eVAControlManeuverImpulsiveCartesianX)

Dim dc As IAgVAProfileDifferentialCorrector = TryCast(targetSequence.Profiles("Differential Corrector"), IAgVAProfileDifferentialCorrector)

Dim controlParam As IAgVADCControl = dc.ControlParameters.GetControlByPaths("DV1", "ImpulsiveMnvr.Cartesian.X")

controlParam.Enable = True

controlParam.MaxStep = 0.3


' Enable results

DirectCast(dv1, IAgVAMCSSegment).Results.Add("Epoch")

Dim roaResult As IAgVADCResult = dc.Results.GetResultByPaths("DV1", "Epoch")

roaResult.Enable = True


' Confiure the differential corrector

dc.MaxIterations = 50

dc.EnableDisplayStatus = True

dc.Mode = AgEVAProfileMode.eVAProfileModeIterate

targetSequence.Action = AgEVATargetSeqAction.eVATargetSeqActionRunActiveProfiles

Configure target sequence with Differential Corrector profile

[Visual Basic .NET] Copy Code

// IAgVADriverMCS driver: Astrogrator driver object


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


Dim dcString As String = "Differential Corrector"


If Array.IndexOf(startTransfer.Profiles.AvailableProfiles, dcString) <> -1 Then

 Dim dc As IAgVAProfileDifferentialCorrector = TryCast(startTransfer.Profiles.Add(dcString), IAgVAProfileDifferentialCorrector)


 ' Configure differential corrector

 dc.ClearCorrectionsBeforeRun = True

 dc.ConvergenceCriteria = AgEVAConvergenceCriteria.eVAConvervenceCriteriaEitherEqualityConstraintsOrControlParams

 dc.EnableBPlaneNominal = False

 dc.EnableBPlanePerturbations = False

 dc.EnableDisplayStatus = True

 dc.EnableHomotopy = True

 dc.HomotopySteps = 2

 dc.EnableHomotopy = False

 dc.EnableLineSearch = True

 dc.LineSearchLowerBound = 0.001

 dc.LineSearchTolerance = 0.001

 dc.LineSearchUpperBound = 5

 dc.MaxLineSearchIterations = 5

 dc.MaxIterations = 20


 ' Apply

 startTransfer.ApplyProfiles()

End If

Configure the Astrogrator propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorAstrogator)


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


' Remove if necessary

driver.MainSequence.RemoveAll()


' Configure properties as necessarily

driver.Options.DrawTrajectoryIn3D = True

driver.Options.GraphicsUpdateRate = 0.9

driver.Options.UpdateAnimationTimeForAllObjects = False

driver.Options.StoppingConditionTimeTolerance = 5E-08

driver.Options.EnableLogging = True

Configure update segment

[Visual Basic .NET] Copy Code

// IAgVADriverMCS driver: Astrogrator driver object


' Add launch sequence and retrieve the

Dim segment As IAgVAMCSSegment = driver.MainSequence.Insert(AgEVASegmentType.eVASegmentTypeUpdate, "MyUpdate", "-")

Dim update As IAgVAMCSUpdate = TryCast(segment, IAgVAMCSUpdate)


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


' Add values

update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamCd, AgEVAUpdateAction.eVAUpdateActionAddValue, 2)

update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamFuelDensity, AgEVAUpdateAction.eVAUpdateActionAddValue, 1)


' Set to new value

update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamTankPressure, AgEVAUpdateAction.eVAUpdateActionSetToNewValue, 6000)

update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamTankTemp, AgEVAUpdateAction.eVAUpdateActionSetToNewValue, 5)


' Subtract values

update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamSRPArea, AgEVAUpdateAction.eVAUpdateActionSubtractValue, 10)

update.SetActionAndValue(AgEVAUpdateParam.eVAUpdateParamSRPArea, AgEVAUpdateAction.eVAUpdateActionSubtractValue, 1)

Configure the Ballistic propagator

[Visual Basic .NET] Copy Code

// IAgVePropagatorBallistic propagator: Ballistic propagator


propagator.[Step] = 30

propagator.SetLaunchType(AgEVeLaunch.eLaunchLLA)


Dim launch As IAgVeLaunchLLA = TryCast(propagator.Launch, IAgVeLaunchLLA)

launch.Lat = 30.338

launch.Lon = 33.468

launch.Alt = 1.5


propagator.SetImpactLocationType(AgEVeImpactLocation.eImpactLocationPoint)


Dim impactLocation As IAgVeImpactLocationPoint = TryCast(propagator.ImpactLocation, IAgVeImpactLocationPoint)

impactLocation.SetImpactType(AgEVeImpact.eImpactLLA)

impactLocation.SetLaunchControlType(AgEVeLaunchControl.eLaunchControlFixedDeltaV)


Dim impact As IAgVeImpactLLA = TryCast(impactLocation.Impact, IAgVeImpactLLA)

impact.Lat = 25.474

impact.Lon = 68.306

impact.Alt = 0


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

fixedDeltaV.DeltaV = 7.545


propagator.Propagate()

Configure the GPS propagator with an almanac

[Visual Basic .NET] Copy Code

// IAgVePropagatorGPS propagator: GPS propagator

// String almanacPath: Almanac path

// IAgStkObject scenario: Current scenario


' Configure properties

' Use the scenario's analysis interval

propagator.EphemerisInterval.SetImplicitInterval(scenario.Vgt.EventIntervals("AnalysisInterval"))


' PRN must be set before configuring GPS almanac

propagator.PRN = Int32.Parse(DirectCast(propagator.AvailablePRNs.GetValue(0), String))


' Turn the Auto-update off

propagator.AutoUpdateEnabled = False


' Specify a catalog

propagator.SpecifyCatalog.Filename = almanacPath


' Configure the properties specific to the chosen almanac

Select Case propagator.SpecifyCatalog.Properties.Type

 Case AgEVeGPSAlmanacType.eGPSAlmanacTypeSEM

 If True Then

 ' configure the SEM almanac


 Dim sem As IAgVeGPSAlmanacPropertiesSEM = TryCast(propagator.SpecifyCatalog.Properties, IAgVeGPSAlmanacPropertiesSEM)

 sem.ReferenceWeek = AgEGPSReferenceWeek.eGPSReferenceWeek22Aug1999

 Exit Select

 End If

 Case AgEVeGPSAlmanacType.eGPSAlmanacTypeSP3

 If True Then

 ' SP3 almanac contains no configurable properties


 Dim sp3 As IAgVeGPSAlmanacPropertiesSP3 = TryCast(propagator.SpecifyCatalog.Properties, IAgVeGPSAlmanacPropertiesSP3)

 Exit Select

 End If

 Case AgEVeGPSAlmanacType.eGPSAlmanacTypeYUMA

 If True Then

 ' configure the YUMA almanac


 Dim yuma As IAgVeGPSAlmanacPropertiesYUMA = TryCast(propagator.SpecifyCatalog.Properties, IAgVeGPSAlmanacPropertiesYUMA)

 yuma.ReferenceWeek = AgEGPSReferenceWeek.eGPSReferenceWeek22Aug1999

 Exit Select

 End If

End Select


' Propagate

propagator.Propagate()

Configure the Great Arc propagator with a list of waypoints

[Visual Basic .NET] Copy Code

// IAgVePropagatorGreatArc propagator: Great arc propagator


' Array with waypoints to insert

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


propagator.Method = AgEVeWayPtCompMethod.eDetermineVelFromTime


' Remove any previous waypoints

propagator.Waypoints.RemoveAll()


' Insert the waypoints

Dim i As Integer = 0

While i < waypoints.GetLength(0)

 Dim waypoint As IAgVeWaypointsElement = propagator.Waypoints.Add()

 waypoint.Altitude = DirectCast(waypoints(i, 0), Double)

 waypoint.Latitude = waypoints(i, 1)

 waypoint.Longitude = waypoints(i, 2)

 waypoint.Time = waypoints(i, 3)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While


' Propagate ground vehicle

propagator.Propagate()

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

[Visual Basic .NET] Copy Code

// IAgVePropagatorGreatArc propagator: Great arc propagator


' Array with waypoints to insert

' Consists of: altitude, latitude, longitude, speed

Dim waypoints As Double(,) = New Double(,) {{20.36, 19.41, -99.125, 10.5}, {20.3, 19.421, -99.135, 12.5}, {20.3, 19.434, -99.137, 15}}


propagator.Method = AgEVeWayPtCompMethod.eDetermineTimeAccFromVel


' Remove any previous waypoints

propagator.Waypoints.RemoveAll()


' Insert the waypoints

Dim i As Integer = 0

While i < waypoints.GetLength(0)

 Dim waypoint As IAgVeWaypointsElement = propagator.Waypoints.Add()

 waypoint.Altitude = waypoints(i, 0)

 waypoint.Latitude = waypoints(i, 1)

 waypoint.Longitude = waypoints(i, 2)

 waypoint.Speed = waypoints(i, 3)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While


' Propagate ground vehicle

propagator.Propagate()

List all waypoints in a Waypoint Collection

[Visual Basic .NET] Copy Code

// IAgVePropagatorGreatArc propagator: Great arc propagator


' Array with waypoints to insert

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


propagator.Method = AgEVeWayPtCompMethod.eDetermineVelFromTime


' Remove any previous waypoints

propagator.Waypoints.RemoveAll()


' Insert the waypoints

Dim i As Integer = 0

While i < waypoints.GetLength(0)

 Dim waypoint As IAgVeWaypointsElement = propagator.Waypoints.Add()

 waypoint.Altitude = DirectCast(waypoints(i, 0), Double)

 waypoint.Latitude = waypoints(i, 1)

 waypoint.Longitude = waypoints(i, 2)

 waypoint.Time = waypoints(i, 3)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While


' List the waypoints after extracting them into an array

Dim waypointArray As Array = propagator.Waypoints.ToArray()

Dim j As Integer = 0

While j < waypointArray.GetLength(0)

 Console.WriteLine("  Time: {0} Latitude: {1} Longitude: {2} Altitude: {3}", waypointArray.GetValue(j, 0), Convert.ToDouble(waypointArray.GetValue(j, 1)), Convert.ToDouble(waypointArray.GetValue(j, 2)), Convert.ToDouble(waypointArray.GetValue(j, 3)))

 System.Threading.Interlocked.Increment(j)

End While

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

[Visual Basic .NET] Copy Code

// IAgVePropagatorGreatArc propagator: Great arc propagator


propagator.Method = AgEVeWayPtCompMethod.eDetermineTimeAccFromVel


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


' Point #1

waypoints.SetValue(0, 0, 0)

' Lat

waypoints.SetValue(0, 0, 1)

' Lon

waypoints.SetValue(35000, 0, 2)

' Alt

waypoints.SetValue(35, 0, 3)

' Vel

waypoints.SetValue(0, 0, 4)

' Acc

waypoints.SetValue(0, 0, 5)

' Turn radius

' Point #2

waypoints.SetValue(0.1, 1, 0)

' Lat

waypoints.SetValue(0.1, 1, 1)

' Lon

waypoints.SetValue(35100, 1, 2)

' Alt

waypoints.SetValue(35, 1, 3)

' Vel

waypoints.SetValue(0, 1, 4)

' Acc

waypoints.SetValue(0.2, 1, 5)

' Turn radius

' Point #3

waypoints.SetValue(0.2, 2, 0)

' Lat

waypoints.SetValue(0.2, 2, 1)

' Lon

waypoints.SetValue(35200, 2, 2)

' Alt

waypoints.SetValue(35, 2, 3)

' Vel

waypoints.SetValue(0, 2, 4)

' Acc

waypoints.SetValue(0, 2, 5)

' Turn radius

' Point #4

waypoints.SetValue(0, 3, 0)

' Lat

waypoints.SetValue(0, 3, 1)

' Lon

waypoints.SetValue(35200, 3, 2)

' Alt

waypoints.SetValue(35, 3, 3)

' Vel

waypoints.SetValue(0, 3, 4)

' Acc

waypoints.SetValue(0, 3, 5)

' Turn radius

propagator.SetPointsSpecifyVelocityAndPropagate(waypoints)

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

[Visual Basic .NET] Copy Code

// IAgVePropagatorGreatArc propagator: Great arc propagator


propagator.Method = AgEVeWayPtCompMethod.eDetermineTimeFromVelAcc


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

' Point #1

waypoints.SetValue(0, 0, 0)

' Lat

waypoints.SetValue(0, 0, 1)

' Lon

waypoints.SetValue(35000, 0, 2)

' Alt

waypoints.SetValue(35, 0, 3)

' Vel

waypoints.SetValue(0, 0, 4)

' Turn radius

' Point #2

waypoints.SetValue(0.1, 1, 0)

' Lat

waypoints.SetValue(0.1, 1, 1)

' Lon

waypoints.SetValue(35100, 1, 2)

' Alt

waypoints.SetValue(35, 1, 3)

' Vel

waypoints.SetValue(0.2, 1, 4)

' Turn radius

' Point #3

waypoints.SetValue(0.2, 2, 0)

' Lat

waypoints.SetValue(0.2, 2, 1)

' Lon

waypoints.SetValue(35200, 2, 2)

' Alt

waypoints.SetValue(35, 2, 3)

' Vel

waypoints.SetValue(0, 2, 4)

' Turn radius

' Point #4

waypoints.SetValue(0, 3, 0)

' Lat

waypoints.SetValue(0, 3, 1)

' Lon

waypoints.SetValue(35200, 3, 2)

' Alt

waypoints.SetValue(35, 3, 3)

' Vel

waypoints.SetValue(0, 3, 4)

' Turn radius

propagator.SetPointsSmoothRateAndPropagate(waypoints)

Set Waypoints (Derive Velocity from Time) and Propagate

[Visual Basic .NET] Copy Code

// IAgVePropagatorGreatArc propagator: Great arc propagator


propagator.Method = AgEVeWayPtCompMethod.eDetermineVelFromTime


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

' Point #1

waypoints.SetValue("17 Jan 2013 17:00:00.000", 0, 0)

' Time

waypoints.SetValue(0, 0, 1)

' Lat

waypoints.SetValue(0, 0, 2)

' Lon

waypoints.SetValue(35000, 0, 3)

' Alt

waypoints.SetValue(0, 0, 4)

' Turn radius

' Point #2

waypoints.SetValue("17 Jan 2013 17:01:00.000", 1, 0)

' Time

waypoints.SetValue(0.1, 1, 1)

' Lat

waypoints.SetValue(0.1, 1, 2)

' Lon

waypoints.SetValue(35100, 1, 3)

' Alt

waypoints.SetValue(0.2, 1, 4)

' Turn radius

' Point #3

waypoints.SetValue("17 Jan 2013 17:02:00.000", 2, 0)

' Time

waypoints.SetValue(0.2, 2, 1)

' Lat

waypoints.SetValue(0.2, 2, 2)

' Lon

waypoints.SetValue(35200, 2, 3)

' Alt

waypoints.SetValue(0, 2, 4)

' Turn radius

' Point #4

waypoints.SetValue("17 Jan 2013 17:03:00.000", 3, 0)

' Time

waypoints.SetValue(0, 3, 1)

' Lat

waypoints.SetValue(0, 3, 2)

' Lon

waypoints.SetValue(35200, 3, 3)

' Alt

waypoints.SetValue(0, 3, 4)

' Turn radius

propagator.SetPointsSpecifyTimeAndPropagate(waypoints)

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

[Visual Basic .NET] Copy Code

// IAgVePropagatorGreatArc propagator: Great Arc propagator


' Set the epoch time to tomorrow.

Dim startEpoch As IAgCrdnEventSmartEpoch = propagator.EphemerisInterval.GetStartEpoch()

startEpoch.SetExplicitTime("Tomorrow")

propagator.EphemerisInterval.SetStartEpoch(startEpoch)


' Waypoints time start from explicit start time that we set above.

propagator.SetPointsSmoothRateAndPropagate(waypointsAndTimes)

Configure the HPOP propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set satellite propagator to HPOP

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorHPOP)


' Get IAgVePropagatorLOP interface

Dim hpopProp As IAgVePropagatorHPOP = TryCast(satellite.Propagator, IAgVePropagatorHPOP)


' Configure force model

Dim hpopForceModel As IAgVeHPOPForceModel = hpopProp.ForceModel

hpopForceModel.CentralBodyGravity.File = "STKData\CentralBodies\Earth\GGM02C.grv"

hpopForceModel.CentralBodyGravity.MaxDegree = 45

hpopForceModel.CentralBodyGravity.MaxOrder = 10

hpopForceModel.CentralBodyGravity.UseOceanTides = True


hpopForceModel.Drag.Use = True

Dim hpopDragModel As IAgVeHPOPDragModelSpherical = TryCast(hpopForceModel.Drag.DragModel, IAgVeHPOPDragModelSpherical)

hpopDragModel.Cd = 1.89

hpopDragModel.AreaMassRatio = 0.05

hpopForceModel.Drag.AtmosphericDensityModel = AgEAtmosphericDensityModel.eMSIS90


hpopForceModel.ThirdBodyGravity.RemoveThirdBody("Moon")


' Propagate

hpopProp.Propagate()

Configure the J2 Perturbation propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set propagator to SGP4

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorJ2Perturbation)


' J2 Perturbation propagator

Dim j2prop As IAgVePropagatorJ2Perturbation = TryCast(satellite.Propagator, IAgVePropagatorJ2Perturbation)


' Configure time period

j2prop.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")

j2prop.[Step] = 60


' Configure propagator initial state

Dim initial As IAgVeJxInitialState = j2prop.InitialState

initial.Representation.Epoch = "1 Jan 2012 12:00:00.000"

' in km (assuming unit preferences set to km)

' in km

' in km

' in km/sec (assuming unit preferences set to km/sec)

' in km/sec

initial.Representation.AssignCartesian(AgECoordinateSystem.eCoordinateSystemFixed, -1514.4, -6790.1, -1.25, 4.8151, 1.771, _

 5.6414)

' in km/sec

initial.EllipseOptions = AgEVeEllipseOptions.eSecularlyPrecessing


' Propagate

j2prop.Propagate()

Configure the J4 Perturbation propagator to a circular orbit

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object

// Double incl: Inclination (default 45.0)

// Double altitude: Atitude (default 500 km)


satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorJ4Perturbation)

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


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


keplerian.SizeShapeType = AgEClassicalSizeShape.eSizeShapeAltitude

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


size.ApogeeAltitude = altitude

size.PerigeeAltitude = altitude


keplerian.Orientation.Inclination = incl

keplerian.Orientation.ArgOfPerigee = 0

keplerian.Orientation.AscNodeType = AgEOrientationAscNode.eAscNodeRAAN

TryCast(keplerian.Orientation.AscNode, IAgOrientationAscNodeRAAN).Value = 0


keplerian.LocationType = AgEClassicalLocation.eLocationTrueAnomaly

TryCast(keplerian.Location, IAgClassicalLocationTrueAnomaly).Value = 0


prop.InitialState.Representation.Assign(keplerian)

prop.Propagate()

Configure the J4 Perturbation propagator to a critically inclined orbit

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object

// Double apogeeAlt: Apogee altitude (default 12000 km)

// Double perigeeAlt: Perigee altitude (default 400 km)

// Double ascNodeLon: Longitude of ascending node (default -100 deg


satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorJ4Perturbation)

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


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


keplerian.SizeShapeType = AgEClassicalSizeShape.eSizeShapeAltitude

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


size.ApogeeAltitude = apogeeAlt

size.PerigeeAltitude = perigeeAlt


keplerian.Orientation.Inclination = 63.434949

keplerian.Orientation.ArgOfPerigee = 270

keplerian.Orientation.AscNodeType = AgEOrientationAscNode.eAscNodeLAN

TryCast(keplerian.Orientation.AscNode, IAgOrientationAscNodeLAN).Value = ascNodeLon


keplerian.LocationType = AgEClassicalLocation.eLocationTrueAnomaly

TryCast(keplerian.Location, IAgClassicalLocationTrueAnomaly).Value = 90


prop.InitialState.Representation.Assign(keplerian)

prop.Propagate()

Configure the LOP propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set satellite propagator to LOP

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorLOP)


' Get IAgVePropagatorLOP interface

Dim lopProp As IAgVePropagatorLOP = TryCast(satellite.Propagator, IAgVePropagatorLOP)


' Configure time period

lopProp.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")

lopProp.[Step] = 86400


' Configure propagator initial state

Dim orbit As IAgOrbitState = lopProp.InitialState.Representation

orbit.Epoch = "1 Jan 2012 12:00:00.000"

' in km (assuming unit preferences set to km)

' in km

' in km

' in km/sec (assuming unit preferences set to km/sec)

' in km/sec

orbit.AssignCartesian(AgECoordinateSystem.eCoordinateSystemFixed, -1120.32, -9520.84, 0.129, 2.155, -1.54416, _

 5.668412)

' in km/sec

' Configure force model

Dim lopForceModel As IAgVeLOPForceModel = lopProp.ForceModel

lopForceModel.CentralBodyGravity.MaxDegree = 15

lopForceModel.CentralBodyGravity.MaxOrder = 8

lopForceModel.Drag.Use = True

lopForceModel.Drag.Cd = 3.55

lopForceModel.SolarRadiationPressure.Use = True

lopForceModel.SolarRadiationPressure.Cp = 1.125

lopForceModel.SolarRadiationPressure.AtmosHeight = 125

lopForceModel.PhysicalData.DragCrossSectionalArea = 0.001555512

lopForceModel.PhysicalData.SRPCrossSectionalArea = 0.001810026

lopForceModel.PhysicalData.SatelliteMass = 1505.001


' Propagate

lopProp.Propagate()

Add realtime LLA positions

[Visual Basic .NET] Copy Code

// IAgVePropagatorRealtime propagator: Realtime Propagator


Dim points As IAgVeRealtimeLLAPoints = propagator.PointBuilder.LLA

points.Add("1 Jan 2012 12:00:00.000", 39.693, -76.399, 0.039, 0.03458, 0.01223, _

 0.05402)

Add realtime LLA positions in batches

[Visual Basic .NET] Copy Code

// IAgVePropagatorRealtime propagator: Realtime Propagator


' Add realtime LLA points in batches

points.AddBatch(times, lat, lon, alt, latrate, lonrate, _

 altrate)

Configure the Realtime propagator

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// IAgVePropagatorRealtime propagator: Realtime propagator


' Set Realtime Propagator settings if they should be other than

' the defaults.

propagator.InterpolationOrder = 1

propagator.TimeoutGap = 30

propagator.TimeStep = 60


' Since we want to use the Two Body Look Ahead Propagator, check

' to see that it is supported before we set the Realtime Propagator

' to use this look ahead type

If propagator.IsLookAheadPropagatorSupported(AgELookAheadPropagator.eLookAheadTwoBody) Then

 ' Set the look ahead type

 propagator.LookAheadPropagator = AgELookAheadPropagator.eLookAheadTwoBody


 ' Set the duration time to look ahead and look behind

 Dim duration As IAgVeDuration = propagator.Duration

 duration.LookAhead = 3600

 duration.LookBehind = 3600


 ' Apply the Realtime Propagator settings

 propagator.Propagate()

End If

Configure the SGP4 propagator with file source

[Visual Basic .NET] Copy Code

// IAgVePropagatorSGP4 propagator: An SGP4 propagator

// String tleFilePath: Path to the external TLE data file


' Configure propagator's TLE file path

propagator.CommonTasks.AddSegsFromFile("2215", tleFilePath)


' Propagate

propagator.Propagate()

Configure the SGP4 propagator with online source

[Visual Basic .NET] Copy Code

// IAgVePropagatorSGP4 propagator: An SGP4 propagator


' Configure time period

propagator.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")

propagator.[Step] = 60


' Add segments

propagator.CommonTasks.AddSegsFromOnlineSource("25544")


' Propagate

propagator.Propagate()

Set SGP4 to auto-update from file source

[Visual Basic .NET] Copy Code

// IAgVePropagatorSGP4 propagator: SGP4 satellite propagator

// String fileUpdateSource: File update source


propagator.AutoUpdateEnabled = True

propagator.AutoUpdate.SelectedSource = AgEVeSGP4AutoUpdateSource.eSGP4AutoUpdateSourceFile

propagator.AutoUpdate.FileSource.Filename = fileUpdateSource


' Preview TLEs (optional)

' Preview() returns a one dimension string of tles

Dim tles As Array = propagator.AutoUpdate.FileSource.Preview()


Dim rx As New Regex("^(?<ssc>[-]?\d+) (?<orbitepoch>[-]?\d+[.]?\d+) (?<revnumber>[-]?\d+)$")

Set SGP4 to auto-update from online source

[Visual Basic .NET] Copy Code

// IAgVePropagatorSGP4 propagator: SGP4 satellite propagator


propagator.AutoUpdateEnabled = True

propagator.AutoUpdate.SelectedSource = AgEVeSGP4AutoUpdateSource.eSGP4AutoUpdateSourceOnline


' Preview TLEs (optional)

' Preview() returns a one dimension string of tles

Dim tles As Array = propagator.AutoUpdate.FileSource.Preview()


Dim rx As New Regex("^(?<ssc>[-]?\d+) (?<orbitepoch>[-]?\d+[.]?\d+) (?<revnumber>[-]?\d+)$")

Configure the Simple Ascent propagator

[Visual Basic .NET] Copy Code

// IAgVePropagatorSimpleAscent propagator: The Simple Ascent Propagator


' Configure time period

propagator.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")

propagator.[Step] = 60


' Set the initial state

propagator.InitialState.Launch.AssignGeodetic(38.3721, -77.6402, 25)

propagator.InitialState.Burnout.AssignGeodetic(48.1395, -82.5145, 25)

propagator.InitialState.BurnoutVel = 7.7258


' Propagate

propagator.Propagate()

Configure the SPICE propagator

[Visual Basic .NET] Copy Code

// IAgVePropagatorSPICE propagator: The SPICE propagator

// String spiceFile: Path of SPICE file


' Set the SPICE file

propagator.Spice = spiceFile


' Configure time period

propagator.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")

propagator.[Step] = 60

propagator.BodyName = "-200000"


' Propagate

propagator.Propagate()

Create a ground vehicle (on current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model Root


' Create the ground vehicle

Dim launchVehicle As IAgGroundVehicle = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eGroundVehicle, "MyGroundVehicle"), IAgGroundVehicle)

Get the ground vehicle Attitude Export tool

[Visual Basic .NET] Copy Code

// IAgGroundVehicle groundVehicle: GroundVehicle whose attitude we want to export


Dim attExTool As IAgVeAttitudeExportTool = groundVehicle.ExportTools.GetAttitudeExportTool()

Get the ground vehicle Propagator Definition Export tool

[Visual Basic .NET] Copy Code

// IAgGroundVehicle groundVehicle: GroundVehicle whose propagator definition we want to export


Dim attExTool As IAgVePropDefExportTool = groundVehicle.ExportTools.GetPropDefExportTool()

Get the ground vehicle STK Ephemeris Export tool

[Visual Basic .NET] Copy Code

// IAgGroundVehicle groundVehicle: GroundVehicle whose ephemeris we want to export


Dim stkEphem As IAgVeEphemerisStkExportTool = groundVehicle.ExportTools.GetEphemerisStkExportTool()

Set ground vehicle to use Great Arc propagator

[Visual Basic .NET] Copy Code

// IAgGroundVehicle groundVehicle: Ground Vehicle object


' Set ground vehicle route to great arc

groundVehicle.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)


' Retrieve propagator interface if necessary

Dim propagator As IAgVePropagatorGreatArc = TryCast(groundVehicle.Route, IAgVePropagatorGreatArc)

Set ground vehicle to use Realtime propagator

[Visual Basic .NET] Copy Code

// IAgGroundVehicle groundVehicle: Ground Vehicle object


' Set ground vehicle route to STK External propagator

groundVehicle.SetRouteType(AgEVePropagatorType.ePropagatorRealtime)


' Retrieve propagator interface if necessary

Dim propagator As IAgVePropagatorRealtime = TryCast(groundVehicle.Route, IAgVePropagatorRealtime)

Set ground vehicle to use STK External propagator

[Visual Basic .NET] Copy Code

// IAgGroundVehicle groundVehicle: Ground Vehicle object


' Set groundVehicle route to STK External propagator

groundVehicle.SetRouteType(AgEVePropagatorType.ePropagatorStkExternal)


' Retrieve propagator interface if necessary

Dim propagator As IAgVePropagatorStkExternal = TryCast(groundVehicle.Route, IAgVePropagatorStkExternal)

Create a launch vehicle (on current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model Root


' Create the Launch vehicle

Dim launchVehicle As IAgLaunchVehicle = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eLaunchVehicle, "MyLaunchVehicle"), IAgLaunchVehicle)

Determine if trajectory type is supported

[Visual Basic .NET] Copy Code

// IAgLaunchVehicle launchVehicle: Launch vehicle


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

Define missile trajectory

[Visual Basic .NET] Copy Code

// IAgMissile missile: Chain object


' Set missile trajectory type

missile.SetTrajectoryType(AgEVePropagatorType.ePropagatorBallistic)


' Retrieve the Propagator interface

Dim trajectory As IAgVePropagatorBallistic = TryCast(missile.Trajectory, IAgVePropagatorBallistic)


' Set propagator settings if they should be other than defaults

trajectory.EphemerisInterval.SetExplicitInterval("1 Jan 2012 12:00:00.000", "2 Jan 2012 12:00:00.000")

trajectory.[Step] = 60


' Set flight parameters

trajectory.SetLaunchType(AgEVeLaunch.eLaunchLLA)

Dim launch As IAgVeLaunchLLA = TryCast(trajectory.Launch, IAgVeLaunchLLA)

launch.Lat = 0

launch.Lon = 0

launch.Alt = 0


' Set impact location type

trajectory.SetImpactLocationType(AgEVeImpactLocation.eImpactLocationPoint)


' Retrieve the impact point interface

Dim impactLocation As IAgVeImpactLocationPoint = TryCast(trajectory.ImpactLocation, IAgVeImpactLocationPoint)

impactLocation.SetLaunchControlType(AgEVeLaunchControl.eLaunchControlFixedTimeOfFlight)


' Retrieve the launch flight interface

Dim launchControl As IAgVeLaunchControlFixedTimeOfFlight = TryCast(impactLocation.LaunchControl, IAgVeLaunchControlFixedTimeOfFlight)

launchControl.TimeOfFlight = 9000


' Configure missile Impact parameters

impactLocation.SetImpactType(AgEVeImpact.eImpactLLA)

Dim impact As IAgVeImpactLLA = TryCast(impactLocation.Impact, IAgVeImpactLLA)

impact.Lat = 12

impact.Lon = 5

impact.Alt = 0


' Propagate Missile

trajectory.Propagate()

Create a satellite (on current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Create the Satellite

Dim satellite As IAgSatellite = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eSatellite, "MySatellite"), IAgSatellite)

Create a satellite from an external ephemeris file (.e)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// String ephemerisFilePath: Path to external ephemeris data file


Dim satellite As IAgSatellite = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eSatellite, "MySatellite"), IAgSatellite)


' Configure propagator's external file path

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorStkExternal)

Dim ext As IAgVePropagatorStkExternal = TryCast(satellite.Propagator, IAgVePropagatorStkExternal)

ext.Filename = ephemerisFilePath


' Propagate

ext.Propagate()

Create a satellite from the satellite database

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Get STK database location using Connect

Dim result As IAgExecCmdResult = root.ExecuteCommand("GetDirectory / Database Satellite")

Dim satDataDir As String = result(0)

Dim filelocation As String = """" + Path.Combine(satDataDir, "stkAllTLE.sd") + """"

Dim commonname As String = """hst"""


' Import object from database using Connect

Dim command As String = [String].Format("ImportFromDB * Satellite {0} Constellation ImportedFromSatDB Propagate On CommonName {1}", filelocation, commonname)

root.ExecuteCommand(command)

Set the satellite to use the GPS propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set propagator to GPS

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorGPS)


' Get the GPS propagator

Dim propagator As IAgVePropagatorGPS = TryCast(satellite.Propagator, IAgVePropagatorGPS)

Set the satellite to use the HPOP propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set satellite propagator to HPOP

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorHPOP)


' Get the HPOP propagator

Dim propagator As IAgVePropagatorHPOP = TryCast(satellite.Propagator, IAgVePropagatorHPOP)

Set the satellite to use the J2 propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set propagator to J2 Perturbation

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorJ2Perturbation)


' Get the J2 Perturbation propagator

Dim propagator As IAgVePropagatorJ2Perturbation = TryCast(satellite.Propagator, IAgVePropagatorJ2Perturbation)

Set the satellite to use the LOP propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set satellite propagator to LOP

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorLOP)


' Get the LOP propagator

Dim propagator As IAgVePropagatorLOP = TryCast(satellite.Propagator, IAgVePropagatorLOP)

Set the satellite to use the SGP4 propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set propagator to SGP4

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorSGP4)


' Get the SGP4 propagator

Dim propagator As IAgVePropagatorSGP4 = TryCast(satellite.Propagator, IAgVePropagatorSGP4)

Set the satellite to use the SPICE propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set propagator to SPICE

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorSPICE)


' Get the SPICE propagator

Dim propagator As IAgVePropagatorSPICE = TryCast(satellite.Propagator, IAgVePropagatorSPICE)

Set the satellite to use the STK External propagator

[Visual Basic .NET] Copy Code

// IAgSatellite satellite: Satellite object


' Set propagator to STK External

satellite.SetPropagatorType(AgEVePropagatorType.ePropagatorStkExternal)


' Get the STK External propagator

Dim propagator As IAgVePropagatorStkExternal = TryCast(satellite.Propagator, IAgVePropagatorStkExternal)

Create a ship (on current scenario central body)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model Root


' Create the Ship

Dim ship As IAgShip = TryCast(root.CurrentScenario.Children.[New](AgESTKObjectType.eShip, "MyShip"), IAgShip)

Set ship to use Great Arc propagator

[Visual Basic .NET] Copy Code

// IAgShip ship: Ship object


' Set ship route to great arc

ship.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)


' Retrieve propagator interface if necessary

Dim propagator As IAgVePropagatorGreatArc = TryCast(ship.Route, IAgVePropagatorGreatArc)

Set ship to use Realtime propagator

[Visual Basic .NET] Copy Code

// IAgShip ship: Ship object


' Set ship route to STK External propagator

ship.SetRouteType(AgEVePropagatorType.ePropagatorRealtime)


' Retrieve propagator interface if necessary

Dim propagator As IAgVePropagatorRealtime = TryCast(ship.Route, IAgVePropagatorRealtime)

Set ship to use STK External propagator

[Visual Basic .NET] Copy Code

// IAgShip ship: Ship object


' Set ship route to STK External propagator

ship.SetRouteType(AgEVePropagatorType.ePropagatorStkExternal)


' Retrieve propagator interface if necessary

Dim propagator As IAgVePropagatorStkExternal = TryCast(ship.Route, IAgVePropagatorStkExternal)

Add an Attribute that provides a combobox of values from which the user can choose.

[Visual Basic .NET] Copy Code


'Add the following code to your plugin

Public _choice As Object

Public Property Choice() As Object Implements IExample1.Choice

    Get

        Return _choice

    End Get

    Set(ByVal value As Object)

        _choice = value

    End Set

End Property

Public Choices() As Object = New Object(3) {"0", "1", "2", "3"}



Public Function GetPluginConfig(ByVal pAttrBuilder As AGI.Attr.AgAttrBuilder) As Object Implements IAgUtPluginConfig.GetPluginConfig

    If m_AgAttrScope = Nothing Then

        m_AgAttrScope = pAttrBuilder.NewScope()

        pAttrBuilder.AddChoicesDispatchProperty(m_AgAttrScope, "Choice", "A property", "Choice", Choices)

    End If


    Return m_AgAttrScope

End Function

Add an Attribute that provides a combobox of values populated by a function from which the user can choose.

[Visual Basic .NET] Copy Code


'Add the following code to your plugin

      Public _choice As Object

      Public Property Choice() As Object Implements IExample2.Choice

          Get

              Return _choice

          End Get

          Set(ByVal value As Object)

              _choice = value

          End Set

      End Property

      Public ReadOnly Property Choices() As Object() Implements IExample2.Choices

          Get

              Return New Object(3) {"0", "1", "2", "3"}

          End Get

      End Property



      Public Function GetPluginConfig(ByVal pAttrBuilder As AGI.Attr.AgAttrBuilder) As Object Implements IAgUtPluginConfig.GetPluginConfig

          If m_AgAttrScope = Nothing Then

              m_AgAttrScope = pAttrBuilder.NewScope()

              pAttrBuilder.AddChoicesFuncDispatchProperty(m_AgAttrScope, "Choice", "A property", "Choice", "Choices")

          End If


          Return m_AgAttrScope

      End Function

Shows the format of the Center parameter when creating a bounding sphere.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim center As Array = New Object() {1247.87, -4739.74, 4067.77}


Dim boundingSphere As IAgStkGraphicsBoundingSphere = sceneManager.Initializers.BoundingSphere.Initialize(center, 100)

Shows the format of the Size parameter when computing using a box triangulator.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim size As Array = New Object() {1000, 1000, 2000}


Dim result As IAgStkGraphicsSolidTriangulatorResult = sceneManager.Initializers.BoxTriangulator.Compute(size)

Change view mode to use Earth's fixed frame

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


scene.Camera.ViewCentralBody("Earth", root.VgtRoot.WellKnownAxes.Earth.Fixed)

Shows the format of the Camera's Position property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene


Dim position As Array = New Object() {31378.1, 0, 0}


scene.Camera.Position = position

Shows the format of the Camera's ReferencePoint property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene


Dim point As Array = New Object() {31378.1, 0, 0}


scene.Camera.ReferencePoint = point

Shows the format of the Camera's UpVector property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene


Dim upVector As Array = New Object() {0, 0, 1}


scene.Camera.UpVector = upVector

Shows the format of the Extent parameter when zooming to a cartographic extent on a central body.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene


Dim extent As Array = New Object() {90, 30, -77, 39}


scene.Camera.ViewExtent("Earth", extent)

Shows the format of the Offset and UpAxis parameters when setting the camera's reference point with an offset.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// IAgCrdnPoint point: A valid VGT point object.

// IAgCrdnAxes axes: A valid VGT axes object.


Dim offset As Array = New Object() {50, 50, -50}


Dim upAxis As Array = New Object() {0, 0, 1}


scene.Camera.ViewOffsetWithUpAxis(axes, point, offset, upAxis)

Shows the format of the Position parameter when converting a cartogaphic position to a pixel coordinate.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene


Dim position As Array = New Object() {0.627, -1.644, 0}


Dim windowPos As Array = scene.Camera.CartographicToWindow("Earth", position)

Shows the format of the Position parameter when converting a pixel coordinate to a cartographic position.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene


Dim position As Array = New Object() {150, 116}


Dim cartographicPos As Array = scene.Camera.WindowToCartographic("Earth", position)

Take a snapshot of the camera's view

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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


'

' The snapshot can be saved to a file, texture, image, or the clipboard

'

Dim texture As IAgStkGraphicsRendererTexture2D = scene.Camera.Snapshot.SaveToTexture()


Dim overlay As IAgStkGraphicsTextureScreenOverlay = CreateOverlayFromTexture(texture, root)

Dim screenOverlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays, IAgStkGraphicsScreenOverlayCollectionBase)

screenOverlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Shows the format of the ConvolutionFilter's Kernel property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsConvolutionFilter convolutionFilter: A valid convolution filter


Dim kernel As Array = New Object() {1, 1, 1, 1, 1, 1, _

 1, 1, 1}


convolutionFilter.Kernel = kernel

Shows the format of the Kernel parameter when creating a convolution filter.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim kernel As Array = New Object() {1, 1, 1, 1, 1, 1, _

 1, 1, 1}


Dim convolutionFilter As IAgStkGraphicsConvolutionFilter = sceneManager.Initializers.ConvolutionFilter.InitializeWithKernel(kernel)

Shows the format of the distance to position display condition's Position property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsDistanceToPositionDisplayCondition condition: A distance to position display condition


Dim position As Array = New Object() {6700, 0, 0}


condition.Position = position

Shows the format of the Position parameter when creating a distance to position display condition.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim position As Array = New Object() {6700, 0, 0}


Dim condition As IAgStkGraphicsDistanceToPositionDisplayCondition = sceneManager.Initializers.DistanceToPositionDisplayCondition.InitializeWithDistances(position, 0, 10000)

Draw a primitive based on a time interval

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String globeOverlayFile: Location of the globe overlay file


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


Dim overlay As IAgStkGraphicsGeospatialImageGlobeOverlay = manager.Initializers.GeospatialImageGlobeOverlay.InitializeWithString(globeOverlayFile)


Dim start As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 14:30:00.000")

Dim [end] As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 15:00:00.000")


DirectCast(root.CurrentScenario, IAgScenario).Animation.StartTime = Double.Parse(start.Subtract("sec", 3600).Format("epSec"))


Dim condition As IAgStkGraphicsTimeIntervalDisplayCondition = manager.Initializers.TimeIntervalDisplayCondition.InitializeWithTimes(start, [end])

DirectCast(overlay, IAgStkGraphicsGlobeOverlay).DisplayCondition = TryCast(condition, IAgStkGraphicsDisplayCondition)


scene.CentralBodies.Earth.Imagery.Add(DirectCast(overlay, IAgStkGraphicsGlobeImageOverlay))

Draw a primitive based on multiple conditions

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String modelFile: Location of the model file

// IAgCrdnAxesFixed axes: An axes used to orient the model


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

Dim position As Array = New Object() {29.98, -90.25, 0.0}


Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _

    modelFile)

model.SetPositionCartographic("Earth", position)

model.Scale = Math.Pow(10, 1.5)


Dim start1 As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 14:00:00.000")

Dim end1 As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 14:30:00.000")

DirectCast(root, IAgAnimation).CurrentTime = Double.Parse(start1.Format("epSec"))

Dim start2 As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 15:00:00.000")

Dim end2 As IAgDate = root.ConversionUtility.NewDate("UTCG", "30 May 2008 15:30:00.000")


Dim time1 As IAgStkGraphicsTimeIntervalDisplayCondition = manager.Initializers.TimeIntervalDisplayCondition.InitializeWithTimes(start1, end1)

Dim time2 As IAgStkGraphicsTimeIntervalDisplayCondition = manager.Initializers.TimeIntervalDisplayCondition.InitializeWithTimes(start2, end2)

Dim composite As IAgStkGraphicsCompositeDisplayCondition = manager.Initializers.CompositeDisplayCondition.Initialize()


composite.Add(DirectCast(time1, IAgStkGraphicsDisplayCondition))

composite.Add(DirectCast(time2, IAgStkGraphicsDisplayCondition))

composite.LogicOperation = AgEStkGraphicsBinaryLogicOperation.eStkGraphicsBinaryLogicOperationOr

DirectCast(model, IAgStkGraphicsPrimitive).DisplayCondition = TryCast(composite, IAgStkGraphicsDisplayCondition)


Dim result As IAgCrdnAxesFindInAxesResult = root.VgtRoot.WellKnownAxes.Earth.Fixed.FindInAxes(DirectCast(root.CurrentScenario, IAgScenario).Epoch, DirectCast(axes, IAgCrdnAxes))

model.Orientation = result.Orientation


manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Draw a primitive based on viewer altitude

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

Dim extent As Array = New Object() _

{ _

    -94, 29, _

    -89, 33 _

}


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


Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()

Dim boundaryPositions As Array = triangles.BoundaryPositions

line.Set(boundaryPositions)

DirectCast(line, IAgStkGraphicsPrimitive).Color = Color.White


Dim condition As IAgStkGraphicsAltitudeDisplayCondition = manager.Initializers.AltitudeDisplayCondition.InitializeWithAltitudes(500000, 2500000)

DirectCast(line, IAgStkGraphicsPrimitive).DisplayCondition = TryCast(condition, IAgStkGraphicsDisplayCondition)


manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw a primitive based on viewer distance

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String modelFile: Location of the model file


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

Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _

    modelFile)

Dim position As Array = New Object() {29.98, -90.25, 8000.0}

model.SetPositionCartographic("Earth", position)

model.Scale = Math.Pow(10, 3)


Dim condition As IAgStkGraphicsDistanceDisplayCondition = manager.Initializers.DistanceDisplayCondition.InitializeWithDistances(2000, 40000)

DirectCast(model, IAgStkGraphicsPrimitive).DisplayCondition = TryCast(condition, IAgStkGraphicsDisplayCondition)


manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Draw a screen overlay based on viewer distance

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// IAgStkGraphicsModelPrimitive model: A model

// IAgStkGraphicsScreenOverlay overlay: A overlay


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)


Dim condition As IAgStkGraphicsDistanceToPrimitiveDisplayCondition = manager.Initializers.DistanceToPrimitiveDisplayCondition.InitializeWithDistances(DirectCast(model, IAgStkGraphicsPrimitive), 0, 40000)

DirectCast(overlay, IAgStkGraphicsOverlay).DisplayCondition = DirectCast(condition, IAgStkGraphicsDisplayCondition)


manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

overlayManager.Add(overlay)

Shows the format of the TimeInterval parameter when creating a time interval display condition.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim timeInterval As Array = New Object() {"1 Jan 2012 12:00:00.000", "1 Jan 2012 14:00:00.000"}


sceneManager.Initializers.TimeIntervalDisplayCondition.InitializeWithTimeInterval(timeInterval)

Shows the format of the Radii parameter when computing using an ellipsoid triangulator.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim radii As Array = New Object() {2000, 1000, 1000}


Dim result As IAgStkGraphicsSolidTriangulatorResult = sceneManager.Initializers.EllipsoidTriangulator.ComputeSimple(radii)

Shows the format of the BottomPositions and TopPositions parameters when computing using an extruded polyline triangulator with cartographic positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim bottomPositions As Array = New Object() {0, 0, 200000, 0.1, 0.1, 200000, _

 0, 0.1, 200000, 0, 0, 200000}


Dim topPositions As Array = New Object() {0.1, 0.1, 900000, 0.2, 0.2, 900000, _

 0.1, 0.2, 900000, 0.1, 0.1, 900000}


Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeCartographic("Earth", bottomPositions, topPositions)

Shows the format of the BottomPositions and TopPositions parameters when computing using an extruded polyline triangulator.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim bottomPositions As Array = New Object() {6578.14, 0, 0, 6512.79, 653.458, 652.476, _

 6545.27, 656.718, 0, 6578.14, 0, 0}


Dim topPositions As Array = New Object() {7205.81, 722.992, 722.36, 6991.68, 1417.28, 1437.63, _

 7097.63, 1438.76, 722.36, 7205.81, 722.992, 722.36}


Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.Compute("Earth", bottomPositions, topPositions)

Shows the format of the Positions parameter when computing using an extruded polyline triangulator with altitudes and cartographic positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim positions As Array = New Object() {0, 0, 200000, 0.1, 0.1, 200000, _

 0, 0.1, 200000, 0, 0, 200000}


Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeCartographicWithAltitudes("Earth", positions, 0, 100)

Shows the format of the Positions parameter when computing using an extruded polyline triangulator with altitudes.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim positions As Array = New Object() {6578.14, 0, 0, 6512.79, 653.458, 652.476, _

 6545.27, 656.718, 0, 6578.14, 0, 0}


Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeWithAltitudes("Earth", positions, 0, 100)

Shows the format of the Positions parameter when computing using an extruded polyline triangulator with cartographic positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim positions As Array = New Object() {0, -0.0079, 15000, -0.0078, 0, 45000, _

 0, 0.0079, 15000, 0, 0, 45000, _

 0, -0.0079, 15000}


Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeSingleConstantAltitudeCartographic("Earth", positions, 30000)

Shows the format of the Positions parameter when computing using an extruded polyline triangulator.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim positions As Array = New Object() {6392.94, -50.5053, 0, 6422.94, 0, -49.7669, _

 6392.94, 50.5053, 0, 6422.94, 0, 49.7669, _

 6392.94, -50.5053, 0}


Dim result As IAgStkGraphicsExtrudedPolylineTriangulatorResult = sceneManager.Initializers.ExtrudedPolylineTriangulator.ComputeSingleConstantAltitude("Earth", positions, 30000)

Add custom imagery to the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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


Dim activator As IAgStkGraphicsCustomImageGlobeOverlayPluginActivator = manager.Initializers.CustomImageGlobeOverlayPluginActivator.Initialize()

Dim proxy As IAgStkGraphicsCustomImageGlobeOverlayPluginProxy = activator.CreateFromDisplayName("OpenStreetMapPlugin.VBNET")


Dim overlay As IAgStkGraphicsCustomImageGlobeOverlay = proxy.CustomImageGlobeOverlay

scene.CentralBodies.Earth.Imagery.Add(DirectCast(overlay, IAgStkGraphicsGlobeImageOverlay))

Add jp2 imagery to the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String globeOverlayFile: The globe overlay file


'

' Either jp2 or pdttx can be used here

'

Dim overlay As IAgStkGraphicsGlobeImageOverlay = scene.CentralBodies.Earth.Imagery.AddUriString(globeOverlayFile)

Add terrain to the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String terrainOverlayFile: The terrain overlay file


Dim overlay As IAgStkGraphicsTerrainOverlay = scene.CentralBodies.Earth.Terrain.AddUriString( _

    terrainOverlayFile)

Draw an image on top of another

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String topOverlayFile: The top globe overlay file

// String bottomOverlayFile: The bottom globe overlay file


Dim topOverlay As IAgStkGraphicsGlobeImageOverlay = scene.CentralBodies.Earth.Imagery.AddUriString(topOverlayFile)

Dim bottomOverlay As IAgStkGraphicsGlobeImageOverlay = scene.CentralBodies.Earth.Imagery.AddUriString(bottomOverlayFile)


'

' Since bottom.jp2 was added after top.jp2, bottom.jp2 will be

' drawn on top.  In order to draw top.jp2 on top, we swap the Overlays.

'

scene.CentralBodies.Earth.Imagery.Swap(topOverlay, bottomOverlay)

Shows the format of the Extent parameter when creating a raster imgae globe overlay.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim extent As Array = New Object() {90, 30, -77, 39}


Dim overlay As IAgStkGraphicsRasterImageGlobeOverlay = sceneManager.Initializers.RasterImageGlobeOverlay.InitializeWithColor(Color.Red, extent)

Adjust brightness, contrast, and gamma

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

'

' The URI can be a file path, http, https, or ftp location

'

Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _

    imageFile)


'

' Add brightness, contrast, and gamma correction filters to sequence

'

Dim sequenceFilter As IAgStkGraphicsSequenceFilter = manager.Initializers.SequenceFilter.Initialize()

sequenceFilter.Add(DirectCast(manager.Initializers.BrightnessFilter.InitializeWithAdjustment(0.1), IAgStkGraphicsRasterFilter))

sequenceFilter.Add(DirectCast(manager.Initializers.ContrastFilter.InitializeWithAdjustment(0.2), IAgStkGraphicsRasterFilter))

sequenceFilter.Add(DirectCast(manager.Initializers.GammaCorrectionFilter.InitializeWithGamma(0.9), IAgStkGraphicsRasterFilter))


image.ApplyInPlace(DirectCast(sequenceFilter, IAgStkGraphicsRasterFilter))


Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()

DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

overlay.Texture = texture

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginCenterRight


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Adjust the color levels of an image

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

'

' The URI can be a file path, http, https, or ftp location

'

Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _

    imageFile)


'

' Adjust the color levels of the image

'

Dim levelsFilter As IAgStkGraphicsLevelsFilter = manager.Initializers.LevelsFilter.Initialize()

levelsFilter.SetLevelAdjustment(AgEStkGraphicsRasterBand.eStkGraphicsRasterBandBlue, -255)

levelsFilter.SetLevelAdjustment(AgEStkGraphicsRasterBand.eStkGraphicsRasterBandGreen, -255)

image.ApplyInPlace(DirectCast(levelsFilter, IAgStkGraphicsRasterFilter))


Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()

DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

overlay.Texture = texture

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginBottomRight


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Blur an image with a convolution matrix

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

'

' The URI can be a file path, http, https, or ftp location

'

Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _

    imageFile)


'

' Set convolution matrix to blur

'

Dim kernel As Array = New Object() {1, 1, 1, 1, 1, 1, _

 1, 1, 1}

Dim convolutionMatrix As IAgStkGraphicsConvolutionFilter = manager.Initializers.ConvolutionFilter.InitializeWithKernelAndDivisor(kernel, 9.0)

image.ApplyInPlace(DirectCast(convolutionMatrix, IAgStkGraphicsRasterFilter))


Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()

DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

overlay.Texture = texture

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginBottomLeft


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Extract the alpha component from an image

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

'

' The URI can be a file path, http, https, or ftp location

'

Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _

    imageFile)


'

' Extract the alpha channel from the image

'

Dim channelExtract As IAgStkGraphicsBandExtractFilter = manager.Initializers.BandExtractFilter.InitializeWithBand(AgEStkGraphicsRasterBand.eStkGraphicsRasterBandAlpha)

image.ApplyInPlace(DirectCast(channelExtract, IAgStkGraphicsRasterFilter))


Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()

DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

overlay.Texture = texture

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopRight


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Flip an image

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

'

' The URI can be a file path, http, https, or ftp location

'

Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _

    imageFile)

image.Flip(AgEStkGraphicsFlipAxis.eStkGraphicsFlipAxisVertical)


Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()

DirectCast(overlay, IAgStkGraphicsOverlay).Size = New Object() _

    { _

        0.2, 0.2, _

        AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction, _

        AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction _

    }

overlay.Texture = texture

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopLeft


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Load and display a raster stream

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)


'

' Create the RasterStream from the plugin

'

Dim activator As IAgStkGraphicsProjectionRasterStreamPluginActivator = manager.Initializers.ProjectionRasterStreamPluginActivator.Initialize()

Dim proxy As IAgStkGraphicsProjectionRasterStreamPluginProxy = activator.CreateFromDisplayName("ProjectionRasterStreamPlugin.VBNET")


'

' Use reflection to set the plugin's properties

'

Dim plugin As Type = proxy.RealPluginObject.[GetType]()

plugin.GetProperty("RasterPath").SetValue(proxy.RealPluginObject, imageFile, Nothing)


Dim rasterStream As IAgStkGraphicsRasterStream = proxy.RasterStream

rasterStream.UpdateDelta = 0.01667


'

' Creates the texture overlay

'

Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(DirectCast(rasterStream, IAgStkGraphicsRaster))

Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, texture.Template.Width, texture.Template.Height)

overlay.Texture = texture

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginCenterLeft


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Swizzle an image's components

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

'

' The URI can be a file path, http, https, or ftp location

'

Dim image As IAgStkGraphicsRaster = manager.Initializers.Raster.InitializeWithStringUri( _

    imageFile)


'

' Swizzle RGBA to BGRA

'

Dim channelOrder As IAgStkGraphicsBandOrderFilter = manager.Initializers.BandOrderFilter.InitializeWithOrder(AgEStkGraphicsRasterFormat.eStkGraphicsRasterFormatBgra)

image.ApplyInPlace(DirectCast(channelOrder, IAgStkGraphicsRasterFilter))


Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(image)


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.Initialize()

DirectCast(overlay, IAgStkGraphicsOverlay).Width = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).WidthUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

DirectCast(overlay, IAgStkGraphicsOverlay).Height = 0.2

DirectCast(overlay, IAgStkGraphicsOverlay).HeightUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitFraction

overlay.Texture = texture

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopCenter


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Shows the format of the Extent and SubExtent parameters when writing using a Jpeg 2000 Writer.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// String imagePath: Path to the image to write

// String saveFile: Path to the output file


Dim extent As Array = New Object() {-1, -1, 1, 1}


Dim subExtent As Array = New Object() {-0.5, -0.5, 0.5, 0.5}


sceneManager.Initializers.Jpeg2000Writer.WriteExtentAndSubExtentString(imagePath, extent, subExtent, AgEStkGraphicsJpeg2000CompressionProfile.eStkGraphicsJpeg2000CompressionProfileDefault, 1, saveFile, _

 True)

Shows the format of the model's Position property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsModelPrimitive model: A model primitive


Dim position As Array = New Object() {31378.1, 0, 0}


model.Position = position

Shows the format of the Position parameter when updating a model.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsModelPrimitive model: A model primitive


Dim position As Array = New Object() {39.88, -75.25, 0}


model.SetPositionCartographic("Earth", position)

Shows the format of the overlay's MaximumSize property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsOverlay overlay: A valid overlay object.


Dim maximumSize As Array = New Object() {500, 500, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


overlay.MaximumSize = maximumSize

Shows the format of the overlay's MinimumSize property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsOverlay overlay: A valid overlay object.


Dim minimumSize As Array = New Object() {5, 5, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


overlay.MinimumSize = minimumSize

Shows the format of the overlay's Padding property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsOverlay overlay: A valid overlay object.


Dim padding As Array = New Object() {10, 10, 10, 10}


overlay.Padding = padding

Shows the format of the overlay's PinningPosition property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsOverlay overlay: A valid overlay object.


Dim pinningPosition As Array = New Object() {5, 5, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


overlay.PinningPosition = pinningPosition

Shows the format of the overlay's Position property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsOverlay overlay: A valid overlay object.


Dim position As Array = New Object() {50, 50, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


overlay.Position = position

Shows the format of the overlay's RotationPoint property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsOverlay overlay: A valid overlay object.


Dim rotationPoint As Array = New Object() {False, AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginCenter, True, 0, 0, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, _

 AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


overlay.RotationPoint = rotationPoint

Shows the format of the overlay's Size property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsOverlay overlay: A valid overlay object.


Dim size As Array = New Object() {300, 300, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


overlay.Size = size

Shows the format of the path point's Position property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsPathPoint path: A valid path point object


Dim position As Array = New Object() {1089235, -4800930, 4046386}


path.Position = position

Shows the format of the Position parameter when creating a path point.

[Visual Basic .NET] Copy Code

// AgStkObjectRoot root: STK Object Model root

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim position As Array = New Object() {1089235, -4800930, 4046386}


Dim path As IAgStkGraphicsPathPoint = sceneManager.Initializers.PathPoint.InitializeWithDateAndPosition(root.ConversionUtility.NewDate("UTCG", DirectCast(root.CurrentScenario, IAgScenario).StartTime.ToString()), position)

Change a model's color on mouse over

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// IAgStkGraphicsPrimitive m_SelectedModel: The previously selected model


'

' Get a collection of picked objects under the mouse location.

' The collection is sorted with the closest object at index zero.

'

            Dim collection As IAgStkGraphicsPickResultCollection = scene.Pick(mouseX, mouseY)

If collection.Count <> 0 Then

 Dim objects As IAgStkGraphicsObjectCollection = collection(0).Objects

 Dim composite As IAgStkGraphicsCompositePrimitive = TryCast(objects(0), IAgStkGraphicsCompositePrimitive)


 '

 ' Was a model in our composite picked?

 '

                If composite Is m_Models Then

                    Dim model As IAgStkGraphicsPrimitive = TryCast(objects(1), IAgStkGraphicsPrimitive)


                    '

                    ' Selected Model

                    '

                    model.Color = Color.Cyan


                    If model IsNot m_SelectedModel Then

                        '

                        ' Unselect previous model

                        '

                        If m_SelectedModel IsNot Nothing Then

                            m_SelectedModel.Color = Color.Red

                        End If

                        m_SelectedModel = model

                        scene.Render()

                    End If

                    Return

                End If

End If


'

' Unselect previous model

'

If m_SelectedModel IsNot Nothing Then

                m_SelectedModel.Color = Color.Red

 m_SelectedModel = Nothing

 scene.Render()

Change model colors within a rectangular region

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// List<IAgStkGraphicsModelPrimitive> SelectedModels: The previously selected models


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

'

' Get a collection of picked objects in a 100 by 100 rectangular region.

' The collection is sorted with the closest object at index zero.

'

Dim newModels As New List(Of IAgStkGraphicsModelPrimitive)()

Dim collection As IAgStkGraphicsPickResultCollection = scene.PickRectangular(mouseX - 50, mouseY + 50, mouseX + 50, mouseY - 50)

For Each pickResult As IAgStkGraphicsPickResult In collection

    Dim objects As IAgStkGraphicsObjectCollection = pickResult.Objects

    Dim composite As IAgStkGraphicsCompositePrimitive = TryCast(objects(0), IAgStkGraphicsCompositePrimitive)


    '

    ' Was a model in our composite picked?

    '

    If composite Is m_Models Then

        Dim model As IAgStkGraphicsModelPrimitive = TryCast(objects(1), IAgStkGraphicsModelPrimitive)


        '

        ' Selected Model

        '

        DirectCast(model, IAgStkGraphicsPrimitive).Color = Color.Cyan

        newModels.Add(model)

    End If

Next

'

' Reset color of models that were previous selected but were not in this pick.

'

For Each selectedModel As IAgStkGraphicsModelPrimitive In SelectedModels

    If Not newModels.Contains(selectedModel) Then

        DirectCast(selectedModel, IAgStkGraphicsPrimitive).Color = Color.Red

    End If

Next

SelectedModels = newModels

Zoom to a model on double click

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


Dim selectedModel As IAgStkGraphicsPrimitive = Nothing

'

' Get a collection of picked objects under the mouse location.

' The collection is sorted with the closest object at index zero.

'

Dim collection As IAgStkGraphicsPickResultCollection = scene.Pick(mouseX, mouseY)

If collection.Count <> 0 Then

    Dim objects As IAgStkGraphicsObjectCollection = collection(0).Objects

    Dim composite As IAgStkGraphicsCompositePrimitive = TryCast(objects(0), IAgStkGraphicsCompositePrimitive)


    '

    ' Was a model in our composite picked?

    '

    If composite Is m_Models Then

        selectedModel = TryCast(objects(1), IAgStkGraphicsPrimitive)

    End If

Zoom to a particular marker in a batch

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String markerFile: The file to use for the markers

// IList<Array> markerPositions: A list of the marker positions


Dim selectedMarkerCartesianPosition As Array = Nothing

'

' Get a collection of picked objects under the mouse location.

' The collection is sorted with the closest object at index zero.

'

Dim collection As IAgStkGraphicsPickResultCollection = scene.Pick(mouseX, mouseY)

If collection.Count <> 0 Then

 Dim objects As IAgStkGraphicsObjectCollection = collection(0).Objects

 Dim batchPrimitive As IAgStkGraphicsMarkerBatchPrimitive = TryCast(objects(0), IAgStkGraphicsMarkerBatchPrimitive)


 '

 ' Was a marker in our marker batch picked?

 '

 If batchPrimitive Is m_MarkerBatch Then

 '

 ' Get the index of the particular marker we picked

 '

 Dim markerIndex As IAgStkGraphicsBatchPrimitiveIndex = TryCast(objects(1), IAgStkGraphicsBatchPrimitiveIndex)

 '

 ' Get the position of the particular marker we picked

 '

 Dim markerCartographic As Array = markerPositions(markerIndex.Index)


 Dim markerPosition As IAgPosition = root.ConversionUtility.NewPositionOnEarth()

 markerPosition.AssignPlanetodetic(CDbl(markerCartographic.GetValue(0)), CDbl(markerCartographic.GetValue(1)), CDbl(markerCartographic.GetValue(2)))


 Dim x As Double, y As Double, z As Double

 markerPosition.QueryCartesian(x, y, z)


 selectedMarkerCartesianPosition = New Object() {x, y, z}

 End If

End If



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


Dim positions As IList(Of Array) = New List(Of Array)()

positions.Add(New Object() {39.88, -75.25, 3000.0})

positions.Add(New Object() {38.85, -77.04, 3000.0})

positions.Add(New Object() {38.85, -77.04, 0.0})

positions.Add(New Object() {29.98, -90.25, 0.0})

positions.Add(New Object() {37.37, -121.92, 0.0})


Dim positionsArray As Array = Array.CreateInstance(GetType(Object), positions.Count * 3)

For i As Integer = 0 To positions.Count - 1

 Dim position As Array = positions(i)

 position.CopyTo(positionsArray, i * 3)

Next


Dim markerBatch As IAgStkGraphicsMarkerBatchPrimitive = manager.Initializers.MarkerBatchPrimitive.Initialize()

markerBatch.Texture = manager.Textures.LoadFromStringUri( _

 markerFile)

markerBatch.SetCartographic("Earth", positionsArray)


' Save the positions of the markers for use in the pick event

markerPositions = positions

' Enable per item picking

markerBatch.PerItemPickingEnabled = True


manager.Primitives.Add(DirectCast(markerBatch, IAgStkGraphicsPrimitive))

Shows the format of the Positions parameter when interpolating positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim interpolator As IAgStkGraphicsPositionInterpolator = TryCast(sceneManager.Initializers.GreatArcInterpolator.InitializeWithCentralBody("Earth"), IAgStkGraphicsPositionInterpolator)


Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0}


Dim results As Array = interpolator.Interpolate(positions)

Create layers of primitives

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String modelFile: Location of the model file

// String markerFile: The file to use for the marker batch


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


Dim r As New Random()

Dim holder As Integer = 25

Dim modelCount As Integer = 25


Dim positions As Array = Array.CreateInstance(GetType(Object), modelCount * 3)


'

' Create the models

'

Dim models As IAgStkGraphicsCompositePrimitive = manager.Initializers.CompositePrimitive.Initialize()


For i As Integer = 0 To modelCount - 1

    Dim latitude As Double = 35 + 1.5 * r.NextDouble()

    Dim longitude As Double = -(80 + 1.5 * r.NextDouble())

    Dim altitude As Double = 0

    Dim position As Array = New Object() {latitude, longitude, altitude}


    positions.SetValue(latitude, 3 * i)

    positions.SetValue(longitude, (3 * i) + 1)

    positions.SetValue(altitude, (3 * i) + 2)


    Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri(modelFile)

    model.SetPositionCartographic("Earth", position)

    model.Scale = Math.Pow(10, 2)

    models.Add(model)

Next


'

' Create the markers

'

Dim markers As IAgStkGraphicsMarkerBatchPrimitive = manager.Initializers.MarkerBatchPrimitive.Initialize()

markers.RenderPass = AgEStkGraphicsMarkerBatchRenderPass.eStkGraphicsMarkerBatchRenderPassTranslucent


markers.Texture = manager.Textures.LoadFromStringUri(markerFile)

markers.SetCartographic("Earth", positions)


'

' Create the points

'

Dim points As IAgStkGraphicsPointBatchPrimitive = manager.Initializers.PointBatchPrimitive.Initialize()

points.PixelSize = 5

DirectCast(points, IAgStkGraphicsPrimitive).Color = Color.Orange

Dim colors As Array = Array.CreateInstance(GetType(Object), modelCount)

For i As Integer = 0 To colors.Length - 1

    colors.SetValue(Color.Orange.ToArgb(), i)

Next

points.SetCartographicWithColorsAndRenderPass("Earth", positions, colors, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)


'

' Set the display Conditions

'

Dim near As IAgStkGraphicsAltitudeDisplayCondition = manager.Initializers.AltitudeDisplayCondition.InitializeWithAltitudes(0, 500000)

DirectCast(models, IAgStkGraphicsPrimitive).DisplayCondition = DirectCast(near, IAgStkGraphicsDisplayCondition)


Dim medium As IAgStkGraphicsAltitudeDisplayCondition = manager.Initializers.AltitudeDisplayCondition.InitializeWithAltitudes(500000, 2000000)

DirectCast(markers, IAgStkGraphicsPrimitive).DisplayCondition = DirectCast(medium, IAgStkGraphicsDisplayCondition)


Dim far As IAgStkGraphicsAltitudeDisplayCondition = manager.Initializers.AltitudeDisplayCondition.InitializeWithAltitudes(2000000, 4000000)

DirectCast(points, IAgStkGraphicsPrimitive).DisplayCondition = DirectCast(far, IAgStkGraphicsDisplayCondition)


manager.Primitives.Add(DirectCast(models, IAgStkGraphicsPrimitive))

manager.Primitives.Add(DirectCast(markers, IAgStkGraphicsPrimitive))

manager.Primitives.Add(DirectCast(points, IAgStkGraphicsPrimitive))

Z-order primitives on the surface

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// Array pennsylvaniaPositions: Pennsylvania positions

// Array areaCode610Positions: Area Code 610 positions

// Array areaCode215Positions: Area Code 215 positions

// Array schuylkillPositions: Schuylkill positions


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


Dim pennsylvania As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

pennsylvania.SetTriangulator(DirectCast(manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", pennsylvaniaPositions), IAgStkGraphicsTriangulatorResult))

DirectCast(pennsylvania, IAgStkGraphicsPrimitive).Color = Color.Yellow


Dim areaCode610 As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

areaCode610.SetTriangulator(DirectCast(manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", areaCode610Positions), IAgStkGraphicsTriangulatorResult))

DirectCast(areaCode610, IAgStkGraphicsPrimitive).Color = Color.DarkRed


Dim areaCode215 As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

areaCode215.SetTriangulator(DirectCast(manager.Initializers.SurfacePolygonTriangulator.Compute("Earth", areaCode215Positions), IAgStkGraphicsTriangulatorResult))

DirectCast(areaCode215, IAgStkGraphicsPrimitive).Color = Color.Green


Dim schuylkillRiver As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()

schuylkillRiver.Set(schuylkillPositions)

DirectCast(schuylkillRiver, IAgStkGraphicsPrimitive).Color = Color.Blue

schuylkillRiver.Width = 2


Dim composite As IAgStkGraphicsCompositePrimitive = manager.Initializers.CompositePrimitive.Initialize()

composite.Add(DirectCast(pennsylvania, IAgStkGraphicsPrimitive))

composite.Add(DirectCast(areaCode610, IAgStkGraphicsPrimitive))

composite.Add(DirectCast(areaCode215, IAgStkGraphicsPrimitive))

composite.Add(DirectCast(schuylkillRiver, IAgStkGraphicsPrimitive))


manager.Primitives.Add(DirectCast(composite, IAgStkGraphicsPrimitive))

Draw a set of markers

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String markerImageFile: The image file to use for the markers


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


Dim positions As Array = New Object() { _

    39.88, -75.25, 0, _

     38.85, -77.04, 0, _

     29.98, -90.25, 0, _

     37.37, -121.92, 0}


Dim markerBatch As IAgStkGraphicsMarkerBatchPrimitive = manager.Initializers.MarkerBatchPrimitive.Initialize()

markerBatch.Texture = manager.Textures.LoadFromStringUri( _

    markerImageFile)

markerBatch.SetCartographic("Earth", positions)


manager.Primitives.Add(DirectCast(markerBatch, IAgStkGraphicsPrimitive))

Shows the format of the Colors parameter when setting per marker colors.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetColors(colors)

Shows the format of the Colors, Positions and Indices parameters when updating a marker batch primitive with cartographic positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetColors(colors)


Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _

 29.98, -90.25, 0, 37.37, -121.92, 0}


Dim indices As Array = New Object() {0, 1, 2, 3}


markerBatch.SetPartialCartographicWithOptionalParametersIndicesOrderAndRenderPass("Earth", positions, parameters, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the Colors, Positions and Indices parameters when updating a marker batch primitive.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetColors(colors)


Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _

 -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}


Dim indices As Array = New Object() {0, 1, 2, 3}


markerBatch.SetPartialWithOptionalParametersIndicesOrderAndRenderPass(positions, parameters, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the EyeOffsets parameter when setting per marker eye offsets.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim eyeoffset As Array = New Object() {2, 3, 4, 2, 3, 4}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetEyeOffsets(eyeoffset)

Shows the format of the marker batch's EyeOffset property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive


Dim eyeoffset As Array = New Object() {2, 3, 4}


markerBatch.EyeOffset = eyeoffset

Shows the format of the marker batch's PixelOffset property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive


Dim pixelOffset As Array = New Object() {1, 2}


markerBatch.PixelOffset = pixelOffset

Shows the format of the marker batch's Size property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive


Dim size As Array = New Object() {256, 128}


markerBatch.Size = size

Shows the format of the marker batch's TextureCoordinate property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsMarkerBatchPrimitive markerBatch: A marker batch primitive


Dim coordinates As Array = New Object() {0, 0, 1, 1}


markerBatch.TextureCoordinate = coordinates

Shows the format of the Origins parameter when setting per marker origins.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim origins As Array = New Object() {AgEStkGraphicsOrigin.eStkGraphicsOriginCenter, AgEStkGraphicsOrigin.eStkGraphicsOriginBottomLeft, AgEStkGraphicsOrigin.eStkGraphicsOriginBottomRight, AgEStkGraphicsOrigin.eStkGraphicsOriginTopLeft}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetOrigins(origins)

Shows the format of the PixelOffsets parameter when setting per marker pixel offsets.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim pixelOffset As Array = New Object() {1, 2, 2, 1}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetPixelOffsets(pixelOffset)

Shows the format of the RotationAngles parameter when setting per marker rotations.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim rotations As Array = New Object() {15, 30, 45, 60}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetRotations(rotations)

Shows the format of the Sizes parameter when setting per marker sizes.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim size As Array = New Object() {256, 128, 128, 256}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetSizes(size)

Shows the format of the TextureCoordinates parameter when setting per marker texture coordinates.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim coordinates As Array = New Object() {0, 0, 1, 1, 1, 1, _

 0, 0}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetTextureCoordinates(coordinates)

Shows the format of the Textures parameter when setting per marker textures.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// String texturePath1: Path to the first texture file

// String texturePath2: Path to the second texture file

// String texturePath3: Path to the third texture file

// String texturePath4: Path to the fourth texture file


Dim textures As Array = New Object() {sceneManager.Textures.LoadFromStringUri(texturePath1), sceneManager.Textures.LoadFromStringUri(texturePath2), sceneManager.Textures.LoadFromStringUri(texturePath3), sceneManager.Textures.LoadFromStringUri(texturePath4)}


Dim parameters As IAgStkGraphicsMarkerBatchPrimitiveOptionalParameters = sceneManager.Initializers.MarkerBatchPrimitiveOptionalParameters.Initialize()

parameters.SetTextures(textures)

Draw a Collada model with user defined lighting

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String modelFile: The model file


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

Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _

    modelFile)


Dim position As Array = New Object() {39.88, -75.25, 500000.0}

model.SetPositionCartographic("Earth", position)

model.Scale = Math.Pow(10, 2)


manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Draw a Collada or MDL model

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String modelFile: The model file


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

Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _

    modelFile)


Dim position As Array = New Object() {39.88, -75.25, 5000.0}

model.SetPositionCartographic("Earth", position)

model.Scale = Math.Pow(10, 2)


manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Draw a dynamically textured Collada model

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String modelFile: The model file


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

Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _

    modelFile)


Dim position As Array = New Object() {49.88, -77.25, 5000.0}

model.SetPositionCartographic("Earth", position)

model.Scale = Math.Pow(10, 2)


manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))


'  hellfireflame.anc

'

'  <?xml version = "1.0" standalone = "yes"?>

'  <ancillary_model_data version = "1.0">

'       <video_textures>

'           <video_texture image_id = "smoketex_tga" init_from = "smoke.avi" video_loop="true" video_framerate="60" />

'           <video_texture image_id = "flametex_tga" init_from = "flame.mov" video_loop="true" video_framerate="60" />

'      </video_textures>

'  </ancillary_model_data>

Draw a model with moving articulations

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String modelFile: The model file


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

'

' Create the model

'

Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _

 modelFile)


Dim position As Array = New Object() {36, -116.75, 25000.0}

model.SetPositionCartographic("Earth", position)


'

' Rotate the model to be oriented correctly

'

model.Articulations.GetByName("Commuter").GetByName("Roll").CurrentValue = 4.08407

model.Articulations.GetByName("Commuter").GetByName("Yaw").CurrentValue = -0.43633


manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))



Friend Sub TimeChanged(TimeEpSec As Double)

 '

 ' Rotate the propellors every time the animation updates

 '

 If m_Model IsNot Nothing Then

 Dim TwoPI As Double = 2 * Math.PI

 DirectCast(m_Model, IAgStkGraphicsModelPrimitive).Articulations.GetByName("props").GetByName("Spin").CurrentValue = TimeEpSec Mod TwoPI

 End If

End Sub

Orient a model

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String modelFile: The model file

// IAgCrdnSystem referenceFrame: A reference frame for the model


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


Dim model As IAgStkGraphicsModelPrimitive = manager.Initializers.ModelPrimitive.InitializeWithStringUri( _

    modelFile)

DirectCast(model, IAgStkGraphicsPrimitive).ReferenceFrame = referenceFrame

' Model is oriented using east-north-up axes.  Use model.Orientation for addition rotation.

Dim zero As Array = New Object() {0, 0, 0}

' Origin of reference frame

model.Position = zero

model.Scale = Math.Pow(10, 1.5)


manager.Primitives.Add(DirectCast(model, IAgStkGraphicsPrimitive))

Shows the format of the Positions parameter when adding points to a path primitive.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsPathPrimitive path: A path primitive


Dim positions As Array = New Object() {0, 0, 0, 1, 1, 1, _

 2, 2, 2, 3, 3, 3, _

 4, 4, 4}


path.AddRangeToFront(positions)

Draw a set of points

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

' Philadelphia

' Washington, D.C.

' New Orleans

' San Jose

Dim positions As Array = New Object() {39.88, -75.25, 0, _

                                       38.85, -77.04, 0, _

                                       29.98, -90.25, 0, _

                                       37.37, -121.92, 0}


Dim pointBatch As IAgStkGraphicsPointBatchPrimitive = manager.Initializers.PointBatchPrimitive.Initialize()

pointBatch.SetCartographic("Earth", positions)

pointBatch.PixelSize = 5

DirectCast(pointBatch, IAgStkGraphicsPrimitive).Color = Color.White

pointBatch.DisplayOutline = True

pointBatch.OutlineWidth = 2

pointBatch.OutlineColor = Color.Red


manager.Primitives.Add(DirectCast(pointBatch, IAgStkGraphicsPrimitive))

Draw a set of uniquely colored points

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

' San Francisco, Sacramento, Los Angeles, San Diego

Dim positions As Array = New Object() _

{ _

    37.62, -122.38, 0.0, _

    38.52, -121.5, 0.0, _

    33.93, -118.4, 0.0, _

    32.82, -117.13, 0.0 _

}


Dim colors As Array = New Object() _

{ _

    Color.Red.ToArgb(), _

     Color.Orange.ToArgb(), _

     Color.Blue.ToArgb(), _

     Color.White.ToArgb() _

}


Dim pointBatch As IAgStkGraphicsPointBatchPrimitive = manager.Initializers.PointBatchPrimitive.Initialize()

pointBatch.SetCartographicWithColors("Earth", positions, colors)

pointBatch.PixelSize = 8


manager.Primitives.Add(DirectCast(pointBatch, IAgStkGraphicsPrimitive))

Shows the format of the Positions, Colors and Indices parameters when updating a point batch with cartographic positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsPointBatchPrimitive pointBatch: A point batch primitive


Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _

 29.98, -90.25, 0, 37.37, -121.92, 0}


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim indices As Array = New Object() {0, 1, 2, 3}


pointBatch.SetPartialCartographicWithColorsIndicesOrderAndRenderPass("Earth", positions, colors, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the Positions, Colors and Indices parameters when updating a point batch.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsPointBatchPrimitive pointBatch: A point batch primitive


Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _

 -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim indices As Array = New Object() {0, 1, 2, 3}


pointBatch.SetPartialWithColorsIndicesOrderAndRenderPass(positions, colors, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Draw a great arc on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

Dim washingtonDC As Array = New Object() {38.85, -77.04, 0.0}

Dim newOrleans As Array = New Object() {29.98, -90.25, 0.0}


Dim positions As Array = New Object(5) {}

washingtonDC.CopyTo(positions, 0)

newOrleans.CopyTo(positions, 3)


Dim interpolator As IAgStkGraphicsPositionInterpolator = TryCast(manager.Initializers.GreatArcInterpolator.Initialize(), IAgStkGraphicsPositionInterpolator)

Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.InitializeWithInterpolator(interpolator)

line.SetCartographic("Earth", positions)


manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw a line between two points

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

Dim philadelphia As Array = New Object() {39.88, -75.25, 3000.0}

Dim washingtonDC As Array = New Object() {38.85, -77.04, 3000.0}


Dim positions As Array = New Object(5) {}

philadelphia.CopyTo(positions, 0)

washingtonDC.CopyTo(positions, 3)


Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()

'$planetName$Name of the planet to place primitive$

line.SetCartographic("Earth", positions)

manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw a rhumb line on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

Dim newOrleans As Array = New Object() {29.98, -90.25, 0.0}

Dim sanJose As Array = New Object() {37.37, -121.92, 0.0}


Dim positions As Array = New Object(5) {}

newOrleans.CopyTo(positions, 0)

sanJose.CopyTo(positions, 3)


Dim interpolator As IAgStkGraphicsPositionInterpolator = TryCast(manager.Initializers.RhumbLineInterpolator.Initialize(), IAgStkGraphicsPositionInterpolator)

Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.InitializeWithInterpolator(interpolator)

line.SetCartographic("Earth", positions)

manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw a STK area target outline on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// Array positions: The area target positions


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


Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()


line.Set(positions)

line.Width = 2

DirectCast(line, IAgStkGraphicsPrimitive).Color = Color.Yellow

line.DisplayOutline = True

line.OutlineWidth = 2

line.OutlineColor = Color.Black


manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw the outline of a circle on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

Dim philadelphia As Array = New Object() {39.88, -75.25, 0.0}


Dim shape As IAgStkGraphicsSurfaceShapesResult = manager.Initializers.SurfaceShapes.ComputeCircleCartographic("Earth", philadelphia, 10000)

Dim positions As Array = shape.Positions


Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.InitializeWithType(shape.PolylineType)

line.Set(positions)

line.Width = 2

DirectCast(line, IAgStkGraphicsPrimitive).Color = Color.White


manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Draw the outline of an ellipse on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

Dim washingtonDC As Array = New Object() {38.85, -77.04, 3000.0}


Dim shape As IAgStkGraphicsSurfaceShapesResult = manager.Initializers.SurfaceShapes.ComputeEllipseCartographic("Earth", washingtonDC, 45000, 30000, 45)

Dim positions As Array = shape.Positions


Dim line As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.InitializeWithType(shape.PolylineType)

line.Set(positions)

DirectCast(line, IAgStkGraphicsPrimitive).Color = Color.Cyan


manager.Primitives.Add(DirectCast(line, IAgStkGraphicsPrimitive))

Shows the format of the Positions parameter when updating a polyline primitive with cartographic positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsPolylinePrimitive polyline: A polyline primitive


Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _

 29.98, -90.25, 0, 37.37, -121.92, 0}


polyline.SetSubsetCartographic("Earth", positions, 1, 2)

Shows the format of the Positions parameter when updating a polyline primitive.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsPolylinePrimitive polyline: A polyline primitive


Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _

 -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}


polyline.SetSubset(positions, 1, 2)

Shows the format of the Positions, Colors and Indices parameters when updating a polyline primitive with cartographic positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsPolylinePrimitive polyline: A polyline primitive


Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _

 29.98, -90.25, 0, 37.37, -121.92, 0}


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim indices As Array = New Object() {0, 1, 2, 3}


polyline.SetPartialCartographicWithColorsIndicesOrderAndRenderPass("Earth", positions, colors, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the Positions, Colors and Indices parameters when updating a polyline primitive.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsPolylinePrimitive polyline: A polyline primitive


Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _

 -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim indices As Array = New Object() {0, 1, 2, 3}


polyline.SetPartialWithColorsIndicesOrderAndRenderPassHint(positions, colors, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Draw a box

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// IAgCrdnSystem system: A system for the solid


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


Dim pos As Array = New Object() {1000, 1000, 2000}

Dim result As IAgStkGraphicsSolidTriangulatorResult = manager.Initializers.BoxTriangulator.Compute(pos)

Dim solid As IAgStkGraphicsSolidPrimitive = manager.Initializers.SolidPrimitive.Initialize()

DirectCast(solid, IAgStkGraphicsPrimitive).ReferenceFrame = system

solid.SetWithResult(result)


manager.Primitives.Add(DirectCast(solid, IAgStkGraphicsPrimitive))

Draw a cylinder

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// IAgCrdnSystem system: A system for the solid


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


Dim result As IAgStkGraphicsSolidTriangulatorResult = manager.Initializers.CylinderTriangulator.CreateSimple(1000, 2000)

Dim solid As IAgStkGraphicsSolidPrimitive = manager.Initializers.SolidPrimitive.Initialize()

DirectCast(solid, IAgStkGraphicsPrimitive).ReferenceFrame = system

DirectCast(solid, IAgStkGraphicsPrimitive).Color = Color.Yellow

solid.OutlineColor = Color.Black

solid.OutlineWidth = 2

solid.OutlineAppearance = AgEStkGraphicsOutlineAppearance.eStkGraphicsStylizeBackLines

solid.BackLineColor = Color.Black

solid.BackLineWidth = 1

solid.SetWithResult(result)


manager.Primitives.Add(DirectCast(solid, IAgStkGraphicsPrimitive))

Draw an ellipsoid

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// IAgCrdnSystem system: A system for the solid


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


Dim radii As Array = New Object() {2000, 1000, 1000}

Dim result As IAgStkGraphicsSolidTriangulatorResult = manager.Initializers.EllipsoidTriangulator.ComputeSimple(radii)

Dim solid As IAgStkGraphicsSolidPrimitive = manager.Initializers.SolidPrimitive.Initialize()

DirectCast(solid, IAgStkGraphicsPrimitive).ReferenceFrame = DirectCast(system, IAgCrdnSystem)

DirectCast(solid, IAgStkGraphicsPrimitive).Color = Color.Orange

DirectCast(solid, IAgStkGraphicsPrimitive).Translucency = 0.3F

solid.OutlineAppearance = AgEStkGraphicsOutlineAppearance.eStkGraphicsFrontLinesOnly

solid.OutlineColor = Color.Blue

solid.OutlineWidth = 2

solid.DisplaySilhouette = True

solid.SetWithResult(result)


manager.Primitives.Add(DirectCast(solid, IAgStkGraphicsPrimitive))

Draw a filled STK area target on terrain

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String terrainFile: The terrain file

// Array positions: The positions used to compute triangulation


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

Dim overlay As IAgStkGraphicsTerrainOverlay = scene.CentralBodies.Earth.Terrain.AddUriString( _

    terrainFile)


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


Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()

DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Purple

mesh.Set(triangles)

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled STK area target on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String textureFile: The texture file


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

'

' Load the UAV image where each corner maps to a longitude and latitude defined

' in degrees below.

'

'    lower left  = (-0.386182, 42.938583)

'    lower right = (-0.375100, 42.929871)

'    upper right = (-0.333891, 42.944780)

'    upper left  = (-0.359980, 42.973438)

'


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

    textureFile)


'

' Define the bounding extent of the image.  Create a surface mesh that uses this

' extent.

'

Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()

mesh.Texture = texture


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


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

mesh.Set(triangles)

DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.0F


'

' Create the texture matrix that maps the image corner points to their actual

' cartographic coordinates.  A few notes:

'

' 1. The TextureMatrix does not do any special processing on these values

'    as if they were cartographic coordinates.

'

' 2. Because of 1., the values only have to be correct relative to each

'    other, which is why they do not have to be converted to radians.

'

' 3. Because of 2., if your image straddles the +/- 180 degs longitude line,

'    ensure that longitudes east of the line are greater than those west of

'    the line.  For example, if one point were 179.0 degs longitude and the

'    other were to the east at -179.0 degs, the one to the east should be

'    specified as 181.0 degs.

'


Dim c0 As Array = New Object() {-0.386182, 42.938583}

Dim c1 As Array = New Object() {-0.3751, 42.929871}

Dim c2 As Array = New Object() {-0.333891, 42.94478}

Dim c3 As Array = New Object() {-0.35998, 42.973438}


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


'

' Enable the transparent texture border option on the mesh so that the texture will not

' bleed outside of the trapezoid.

'

mesh.TransparentTextureBorder = True


'

' Add the surface mesh to the Scene manager

'

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled, dynamically textured extent on terrain

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String rasterFile: The file to use as the raster


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


Dim activator As IAgStkGraphicsProjectionRasterStreamPluginActivator = manager.Initializers.ProjectionRasterStreamPluginActivator.Initialize()

Dim proxy As IAgStkGraphicsProjectionRasterStreamPluginProxy = activator.CreateFromDisplayName("ProjectionRasterStreamPlugin.VBNET")


'

' Use reflection to set the plugin's properties

'

Dim plugin As Type = proxy.RealPluginObject.[GetType]()

plugin.GetProperty("RasterPath").SetValue(proxy.RealPluginObject, rasterFile, Nothing)


Dim rasterStream As IAgStkGraphicsRasterStream = proxy.RasterStream

rasterStream.UpdateDelta = 0.025


Dim texture As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(DirectCast(rasterStream, IAgStkGraphicsRaster))

Dim extent As Array = DirectCast(overlay, IAgStkGraphicsGlobeOverlay).Extent

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

Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()

DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.2F

mesh.Texture = texture

mesh.Set(triangles)

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled, textured extent on terrain

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String textureFile: The file to use as the texture of the surface mesh


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

Dim overlayExtent As Array = DirectCast(overlay, IAgStkGraphicsGlobeOverlay).Extent

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

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

    textureFile)

Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()

DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.3F

mesh.Texture = texture

mesh.Set(triangles)

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a moving water texture using affine transformations

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String textureFile: The file to use as the texture of the surface mesh


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

Dim cartographicExtent As Array = New Object() {-96, 22, -85, 28}


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


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

 textureFile)

Dim mesh As IAgStkGraphicsSurfaceMeshPrimitive = manager.Initializers.SurfaceMeshPrimitive.Initialize()

DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.3F

mesh.Texture = texture

mesh.TextureFilter = manager.Initializers.TextureFilter2D.LinearRepeat

mesh.Set(triangles)

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))



Friend Sub TimeChanged(scene As IAgStkGraphicsScene, root As AgStkObjectRoot, TimeEpSec As Double)

 '

 '  Translate the surface mesh every animation update

 '

 If m_Primitive IsNot Nothing Then

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


 m_Translation = CSng(TimeEpSec)

 m_Translation /= 1000


 Dim transformation As New Matrix()

 transformation.Translate(-m_Translation, 0)

 ' Sign determines the direction of apparent flow

 ' Convert the matrix to an object array

 Dim transformationArray As Array = Array.CreateInstance(GetType(Object), transformation.Elements.Length)

 For i As Integer = 0 To transformationArray.Length - 1

 transformationArray.SetValue(DirectCast(transformation.Elements.GetValue(i), Object), i)

 Next


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

 End If

End Sub

Draw a set of strings

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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


Dim text As Array = New Object() {"Philadelphia", "Washington, D.C.", "New Orleans", "San Jose"}


Dim positions As Array = New Object() {39.88, -75.25, 0, _

                                       38.85, -77.04, 0, _

                                       29.98, -90.25, 0, _

                                      37.37, -121.92, 0}


Dim font As IAgStkGraphicsGraphicsFont = manager.Initializers.GraphicsFont.InitializeWithNameSizeFontStyleOutline("MS Sans Serif", 12, AgEStkGraphicsFontStyle.eStkGraphicsFontStyleBold, True)

Dim textBatch As IAgStkGraphicsTextBatchPrimitive = manager.Initializers.TextBatchPrimitive.InitializeWithGraphicsFont(font)

DirectCast(textBatch, IAgStkGraphicsPrimitive).Color = Color.White

textBatch.OutlineColor = Color.Red

textBatch.SetCartographic("Earth", positions, text)


manager.Primitives.Add(DirectCast(textBatch, IAgStkGraphicsPrimitive))

Draw a set of uniquely colored strings

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

Dim strings As Array = New Object() {"San Francisco", "Sacramento", "Los Angeles", "San Diego"}


Dim positions As Array = New Object() _

{ _

    37.62, -122.38, 0.0, _

    38.52, -121.5, 0.0, _

    33.93, -118.4, 0.0, _

    32.82, -117.13, 0.0 _

}


Dim colors As Array = New Object() _

{ _

    Color.Red.ToArgb(), _

    Color.Green.ToArgb(), _

    Color.Blue.ToArgb(), _

   Color.White.ToArgb() _

}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = manager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.SetColors(colors)


Dim font As IAgStkGraphicsGraphicsFont = manager.Initializers.GraphicsFont.InitializeWithNameSizeFontStyleOutline("MS Sans Serif", 12, AgEStkGraphicsFontStyle.eStkGraphicsFontStyleBold, False)

Dim textBatch As IAgStkGraphicsTextBatchPrimitive = manager.Initializers.TextBatchPrimitive.InitializeWithGraphicsFont(font)

textBatch.SetCartographicWithOptionalParameters("Earth", positions, strings, parameters)


manager.Primitives.Add(DirectCast(textBatch, IAgStkGraphicsPrimitive))

Shows the format of the Colors parameter when setting per string colors.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.SetColors(colors)

Shows the format of the EyeOffset property when setting the per-batch eye offset.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim eyeoffset As Array = New Object() {2, 3, 4}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.EyeOffset = eyeoffset

Shows the format of the EyeOffsets parameter when setting per string eye offsets.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim eyeoffset As Array = New Object() {2, 3, 4, 2, 3, 4}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.SetEyeOffsets(eyeoffset)

Shows the format of the Origins parameter when setting per string origins.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim origins As Array = New Object() {AgEStkGraphicsOrigin.eStkGraphicsOriginCenter, AgEStkGraphicsOrigin.eStkGraphicsOriginBottomLeft, AgEStkGraphicsOrigin.eStkGraphicsOriginBottomRight, AgEStkGraphicsOrigin.eStkGraphicsOriginTopLeft}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.SetOrigins(origins)

Shows the format of the PixelOffset property when setting the per-batch pixel offset.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim pixelOffset As Array = New Object() {1, 2}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.PixelOffset = pixelOffset

Shows the format of the PixelOffsets parameter when setting per string pixel offsets.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim pixelOffset As Array = New Object() {1, 2, 2, 1}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.SetPixelOffsets(pixelOffset)

Shows the format of the Text, Positions, Colors and Indices parameters when updating a text batch primitive with cartographic positions.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// IAgStkGraphicsTextBatchPrimitive textBatch: A text batch primitive


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.SetColors(colors)


Dim text As Array = New Object() {"Philadelphia", "Washington D.C.", "New Orleans", "San Jose"}


' Philadelphia

' Washington, D.C.

' New Orleans

 ' San Jose

Dim positions As Array = New Object() {39.88, -75.25, 0, 38.85, -77.04, 0, _

 29.98, -90.25, 0, 37.37, -121.92, 0}


Dim indices As Array = New Object() {0, 1, 2, 3}


textBatch.SetPartialCartographicWithOptionalParametersIndicesOrderAndRenderPass("Earth", positions, text, parameters, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, _

 AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Shows the format of the Text, Positions, Colors and Indices parameters when updating a text batch primitive.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// IAgStkGraphicsTextBatchPrimitive textBatch: A text batch primitive


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim parameters As IAgStkGraphicsTextBatchPrimitiveOptionalParameters = sceneManager.Initializers.TextBatchPrimitiveOptionalParameters.Initialize()

parameters.SetColors(colors)


Dim text As Array = New Object() {"Philadelphia", "Washington D.C.", "New Orleans", "San Jose"}


Dim positions As Array = New Object() {1247.87, -4739.74, 4067.77, 1115.48, -4847.09, 3979.36, _

 -24.12, -5529.31, 3168.45, -2683.42, -4307.74, 3850.11}


Dim indices As Array = New Object() {0, 1, 2, 3}


textBatch.SetPartialWithOptionalParametersIndicesOrderAndRenderPass(positions, text, parameters, indices, AgEStkGraphicsIndicesOrderHint.eStkGraphicsIndicesOrderHintSortedAscending, AgEStkGraphicsRenderPassHint.eStkGraphicsRenderPassHintOpaque)

Draw a filled circle on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

'$lat$new latitude$

'$lon$new longitude$

'$alt$new altitude$

Dim center As Array = New Object() {39.88, -75.25, 0.0}


'$planetName$Name of the planet to place primitive$

'$radius$The radius of the circle.$

Dim shape As IAgStkGraphicsSurfaceShapesResult = manager.Initializers.SurfaceShapes.ComputeCircleCartographic("Earth", center, 10000)

Dim positions As Array = shape.Positions

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


Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))

DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.White

DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.5F


manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled ellipse on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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

Dim washingtonDC As Array = New Object() {38.85, -77.04, 3000.0}


Dim shape As IAgStkGraphicsSurfaceShapesResult = manager.Initializers.SurfaceShapes.ComputeEllipseCartographic("Earth", washingtonDC, 45000, 30000, 45)

Dim positions As Array = shape.Positions


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

Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))

DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Cyan


manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled polygon with a hole on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// Array positions: The positions used to compute triangulation

// Array holePositions: The positions of the hole


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


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


Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))

DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Gray

DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.5F

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))


Dim boundaryLine As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()

Dim boundaryPositionsArray As Array = triangles.BoundaryPositions

boundaryLine.Set(boundaryPositionsArray)

DirectCast(boundaryLine, IAgStkGraphicsPrimitive).Color = Color.Red

boundaryLine.Width = 2

manager.Primitives.Add(DirectCast(boundaryLine, IAgStkGraphicsPrimitive))


Dim holeLine As IAgStkGraphicsPolylinePrimitive = manager.Initializers.PolylinePrimitive.Initialize()

holeLine.Set(holePositions)

DirectCast(holeLine, IAgStkGraphicsPrimitive).Color = Color.Red

holeLine.Width = 2

manager.Primitives.Add(DirectCast(holeLine, IAgStkGraphicsPrimitive))

Draw a filled rectangular extent on the globe

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root


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


Dim extent As Array = New Object() {-94, 29, -89, 33}


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


Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))

DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Salmon

mesh.Lighting = False


manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw a filled STK area target

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// Array positions: The positions used to compute triangulation


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


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


Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))

DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Red

manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Draw an extrusion around a STK area target

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// Array positions: The positions used to compute triangulation


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


Dim triangles As IAgStkGraphicsExtrudedPolylineTriangulatorResult = manager.Initializers.ExtrudedPolylineTriangulator.ComputeWithAltitudes("Earth", positions, 10000, 25000)

Dim mesh As IAgStkGraphicsTriangleMeshPrimitive = manager.Initializers.TriangleMeshPrimitive.Initialize()

mesh.SetTriangulator(DirectCast(triangles, IAgStkGraphicsTriangulatorResult))

DirectCast(mesh, IAgStkGraphicsPrimitive).Color = Color.Red

DirectCast(mesh, IAgStkGraphicsPrimitive).Translucency = 0.4F


manager.Primitives.Add(DirectCast(mesh, IAgStkGraphicsPrimitive))

Shows the format of the Colors parameter when setting per vertex colors.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim colors As Array = New Object() {Color.Red.ToArgb(), Color.Green.ToArgb(), Color.Blue.ToArgb(), Color.White.ToArgb()}


Dim parameters As IAgStkGraphicsTriangleMeshPrimitiveOptionalParameters = sceneManager.Initializers.TriangleMeshPrimitiveOptionalParameters.Initialize()

parameters.SetPerVertexColors(colors)

Shows the format of the Positions, Normals and Indices parameters when updating a triangle mesh primitive.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsTriangleMeshPrimitive triangleMesh: A triangle mesh primitive


Dim positions As Array = New Object() {0, 0, 0, 70000, 0, 0, _

 0, 70000, 0}


Dim normals As Array = New Object() {0, 0, 1, 0, 0, 1, _

 0, 0, 1}


Dim indices As Array = New Object() {0, 1, 2}


triangleMesh.[Set](positions, normals, indices)

Shows the format of the TextureCoordinates parameter when setting per vertex texture coordinates.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim coordinates As Array = New Object() {0, 0, 1, 1, 0, 0, _

 1, 1}


Dim parameters As IAgStkGraphicsTriangleMeshPrimitiveOptionalParameters = sceneManager.Initializers.TriangleMeshPrimitiveOptionalParameters.Initialize()

parameters.SetTextureCoordinates(coordinates)

Shows the format of the Position parameter when creating a projection.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// IAgOrientation orientation: A valid orientation object.


Dim position As Array = New Object() {31378.1, 0, 0}


Dim projection As IAgStkGraphicsProjection = sceneManager.Initializers.Projection.InitializeWithData(position, orientation, 200, 200, 20, 10000)

Shows the format of the projection's Position property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsProjection projection: A valid projection object


Dim position As Array = New Object() {31378.1, 0, 0}


projection.Position = position

How to get the scene manager from the STK Object Model root.

[Visual Basic .NET] Copy Code

// AgStkObjectRoot root: STK Object Model root


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

Add a company logo with a texture overlay

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)


Dim texture2D As IAgStkGraphicsRendererTexture2D = manager.Textures.LoadFromStringUri( _

    imageFile)


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(10, 0, texture2D.Template.Width / 2, texture2D.Template.Height / 2)

DirectCast(overlay, IAgStkGraphicsOverlay).X = 10

DirectCast(overlay, IAgStkGraphicsOverlay).XUnit = AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels

DirectCast(overlay, IAgStkGraphicsOverlay).Translucency = 0.1F

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginBottomRight

overlay.Texture = texture2D


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Add a video with a texture overlay

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String videoFile: The video file


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)


Dim videoStream As IAgStkGraphicsVideoStream = manager.Initializers.VideoStream.InitializeWithStringUri(videoFile)

videoStream.Playback = AgEStkGraphicsVideoPlayback.eStkGraphicsVideoPlaybackRealTime

videoStream.[Loop] = True


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, DirectCast(videoStream, IAgStkGraphicsRaster).Width / 4, DirectCast(videoStream, IAgStkGraphicsRaster).Height / 4)

DirectCast(overlay, IAgStkGraphicsOverlay).BorderSize = 1

DirectCast(overlay, IAgStkGraphicsOverlay).BorderTranslucency = 0.3F

DirectCast(overlay, IAgStkGraphicsOverlay).Translucency = 0.3F

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopRight

overlay.Texture = manager.Textures.FromRaster(DirectCast(videoStream, IAgStkGraphicsRaster))


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Add overlays to a panel overlay

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String imageFile: The image file to use for the child overlay

// String rasterFile: The raster file for the second child overlay


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, 188, 200)

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopLeft

DirectCast(overlay, IAgStkGraphicsOverlay).BorderTranslucency = 0.3F

DirectCast(overlay, IAgStkGraphicsOverlay).BorderSize = 1

DirectCast(overlay, IAgStkGraphicsOverlay).BorderColor = Color.LightBlue

DirectCast(overlay, IAgStkGraphicsOverlay).Color = Color.LightSkyBlue

DirectCast(overlay, IAgStkGraphicsOverlay).Translucency = 0.7F


Dim childOverlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, DirectCast(overlay, IAgStkGraphicsOverlay).Width, DirectCast(overlay, IAgStkGraphicsOverlay).Height)

DirectCast(childOverlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginCenter


childOverlay.Texture = manager.Textures.LoadFromStringUri(imageFile)


'

' Create the RasterStream from the plugin the same way as in ImageDynamicCodeSnippet.cs

'

Dim activator As IAgStkGraphicsProjectionRasterStreamPluginActivator = manager.Initializers.ProjectionRasterStreamPluginActivator.Initialize()

Dim proxy As IAgStkGraphicsProjectionRasterStreamPluginProxy = activator.CreateFromDisplayName("ProjectionRasterStreamPlugin.VBNET")

Dim plugin As Type = proxy.RealPluginObject.[GetType]()

plugin.GetProperty("RasterPath").SetValue(proxy.RealPluginObject, rasterFile, Nothing)


Dim rasterStream As IAgStkGraphicsRasterStream = proxy.RasterStream

rasterStream.UpdateDelta = 0.01667

Dim texture2D As IAgStkGraphicsRendererTexture2D = manager.Textures.FromRaster(DirectCast(rasterStream, IAgStkGraphicsRaster))


Dim secondChildOverlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(0, 0, 128, 128)

DirectCast(secondChildOverlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginTopRight

DirectCast(secondChildOverlay, IAgStkGraphicsOverlay).TranslationX = -36

DirectCast(secondChildOverlay, IAgStkGraphicsOverlay).TranslationY = -18

DirectCast(secondChildOverlay, IAgStkGraphicsOverlay).ClipToParent = False

secondChildOverlay.Texture = texture2D


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))


Dim parentOverlayManager As IAgStkGraphicsScreenOverlayCollectionBase = TryCast(DirectCast(overlay, IAgStkGraphicsOverlay).Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

parentOverlayManager.Add(DirectCast(childOverlay, IAgStkGraphicsScreenOverlay))


Dim childOverlayManager As IAgStkGraphicsScreenOverlayCollectionBase = TryCast(DirectCast(childOverlay, IAgStkGraphicsOverlay).Overlays, IAgStkGraphicsScreenOverlayCollectionBase)

childOverlayManager.Add(DirectCast(secondChildOverlay, IAgStkGraphicsScreenOverlay))

Shows the format of the Position and Size parameters when creating a screen overlay.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim position As Array = New Object() {0, 0, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


Dim size As Array = New Object() {100, 200, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


Dim screenOverlay As IAgStkGraphicsScreenOverlay = sceneManager.Initializers.ScreenOverlay.InitializeWithPosAndSize(position, size)

Shows the format of the screen overlay manager's Padding property.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim padding As Array = New Object() {10, 10, 10, 10}


sceneManager.ScreenOverlays.Padding = padding

Write text to a texture overlay

[Visual Basic .NET] Copy Code

// IAgStkGraphicsScene scene: Current Scene

// AgStkObjectRoot root: STK Object Model root

// String temporaryFile: The file to which the bitmap will be temporarily saved (should not exist yet)


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

Dim overlayManager As IAgStkGraphicsScreenOverlayCollectionBase = DirectCast(manager.ScreenOverlays.Overlays, IAgStkGraphicsScreenOverlayCollectionBase)


Dim font As New Font("Arial", 12, CType(FontStyle.Bold, System.Drawing.FontStyle))

Dim text As String = "Insight3D" & vbLf & "Analytical Graphics" & vbLf & "Overlays"

Dim textSize As Size = MeasureString(text, font)

Dim textBitmap As New Bitmap(textSize.Width, textSize.Height)

Dim gfx As Graphics = Graphics.FromImage(textBitmap)

gfx.DrawString(text, font, Brushes.White, New PointF(0, 0))


Dim overlay As IAgStkGraphicsTextureScreenOverlay = manager.Initializers.TextureScreenOverlay.InitializeWithXYWidthHeight(10, 10, textSize.Width, textSize.Height)

DirectCast(overlay, IAgStkGraphicsOverlay).Origin = AgEStkGraphicsScreenOverlayOrigin.eStkGraphicsScreenOverlayOriginBottomLeft


'

' Any bitmap can be written to a texture by temporarily saving the texture to disk.

'

Dim filePath As String = temporaryFile

textBitmap.Save(filePath)

overlay.Texture = manager.Textures.LoadFromStringUri(filePath)

' The temporary file is no longer required and can be deleted

System.IO.File.Delete(filePath)


overlay.TextureFilter = manager.Initializers.TextureFilter2D.NearestClampToEdge


overlayManager.Add(DirectCast(overlay, IAgStkGraphicsScreenOverlay))

Shows the format of the Extent parameter when computing using a surface extent triangulator.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


'The LongitudeUnit and LatitudeUnit is expected to be in degrees

Dim extent As Array = New Object() {90, 30, -77, 39}


Dim result As IAgStkGraphicsSurfaceTriangulatorResult = sceneManager.Initializers.SurfaceExtentTriangulator.ComputeSimple("Earth", extent)

Shows the format of the Positions and HolePositions parameters when computing using a surface polygon triangulator.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim positions As Array = New Object() {1097959.63, -5171334.09, 3556288, 1007572.15, -5150349.71, 3612667.74, _

 978879.05, -5195164.23, 3556326.55, 1037389.68, -5188523.96, 3549473.77, _

 1097959.63, -5171334.09, 3556288}


Dim holePositions As Array = New Object() {1079859.69, -5169944.96, 3563791.24, 1030755, -5179965.11, 3563781.97, _

 1028569.57, -5145251.03, 3614006.53, 1039944.33, -5153880.71, 3598525.9, _

 1027115.87, -5150522.49, 3606951.77, 1026998.55, -5162243.13, 3590303.25, _

 1079859.69, -5169944.96, 3563791.24}


Dim result As IAgStkGraphicsSurfaceTriangulatorResult = sceneManager.Initializers.SurfacePolygonTriangulator.ComputeWithHole("Earth", positions, holePositions)

Shows the format of the Positions parameter when computing using a surface polygon triangulator.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim positions As Array = New Object() {34.11, -78.01, 0, 34.72, -78.93, 0, _

 34.11, -79.33, 0, 34.03, -78.69, 0, _

 34.11, -78.01, 0}


Dim result As IAgStkGraphicsSurfaceTriangulatorResult = sceneManager.Initializers.SurfacePolygonTriangulator.ComputeCartographic("Earth", positions)

Shows the format of the Center parameter when computing a circle with a cartographic position.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim center As Array = New Object() {39.88, -75.25, 0}


Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeCircleCartographic("Earth", center, 10000)

Shows the format of the Center parameter when computing a circle.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim center As Array = New Object() {1247.87, -4739.74, 4067.77}


Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeCircle("Earth", center, 10000)

Shows the format of the Center parameter when computing a sector with a cartographic position.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


'The AngleUnit is expected to be in degrees

Dim center As Array = New Object() {0, 0, 25000}


Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeSectorCartographic("Earth", center, 100, 350, -30, 30)

Shows the format of the Center parameter when computing a sector.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


'The AngleUnit is expected to be in degrees

Dim center As Array = New Object() {6403.14, 0, 0}


Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeSector("Earth", center, 100, 350, -30, 30)

Shows the format of the Center parameter when computing an ellipse with a cartographic position.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim center As Array = New Object() {38.85, -77.04, 3000}


Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeEllipseCartographic("Earth", center, 45000, 30000, 45)

Shows the format of the Center parameter when computing an ellipse.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim center As Array = New Object() {1639.46, -7123.95, 5861.21}


Dim shape As IAgStkGraphicsSurfaceShapesResult = sceneManager.Initializers.SurfaceShapes.ComputeEllipse("Earth", center, 45000, 30000, 45)

Shows the format of the Corner0, Corner1, Corner2 and Corner3 parameters when creating a texture matrix.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// IAgStkGraphicsSurfaceMeshPrimitive surfaceMesh: A surface mesh primitive


Dim lowerLeftCorner As Array = New Object() {-0.386182, 42.938583}

Dim lowerRightCorner As Array = New Object() {-0.3751, 42.929871}

Dim upperRightCorner As Array = New Object() {-0.333891, 42.94478}

Dim upperLeftCorner As Array = New Object() {-0.35998, 42.973438}


surfaceMesh.TextureMatrix = sceneManager.Initializers.TextureMatrix.InitializeWithRectangles(lowerLeftCorner, lowerRightCorner, upperRightCorner, upperLeftCorner)

Shows the format of the Matrix parameter when creating a texture matrix.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager

// IAgStkGraphicsSurfaceMeshPrimitive surfaceMesh: A surface mesh primitive


Dim transformationArray As Array = New Object() {1, 0, 0, 1, 0, 0}


surfaceMesh.TextureMatrix = sceneManager.Initializers.TextureMatrix.InitializeWithAffineTransform(transformationArray)

Shows the format of the Position and Size parameters when creating a texture screen overlay.

[Visual Basic .NET] Copy Code

// IAgStkGraphicsSceneManager sceneManager: The STK Graphics scene manager


Dim position As Array = New Object() {0, 0, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


Dim size As Array = New Object() {100, 200, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels, AgEStkGraphicsScreenOverlayUnit.eStkGraphicsScreenOverlayUnitPixels}


Dim screenOverlay As IAgStkGraphicsTextureScreenOverlay = sceneManager.Initializers.TextureScreenOverlay.InitializeWithPositionSize(position, size)

Create a duplicate.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of a VGT provider


Dim point As IAgCrdnPoint = provider.Points.Factory.Create("OriginalPoint", "description", AgECrdnPointType.eCrdnPointTypeAtTimeInstant)

Dim duplicate As IAgCrdn = DirectCast(point, IAgCrdn).Duplicate("DuplicatePoint", "description")

Create an anonymous duplicate.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of a VGT provider


Dim point As IAgCrdnPoint = provider.Points.Factory.Create("OriginalPoint", "description", AgECrdnPointType.eCrdnPointTypeAtTimeInstant)

Dim anonymousDuplicate As IAgCrdn = DirectCast(point, IAgCrdn).AnonymousDuplicate()

Enumerate all embedded components of a VGT component

[Visual Basic .NET] Copy Code

// IAgCrdn crdn: A VGT component


For Each embeddedComponent As IAgCrdn In crdn.EmbeddedComponents

 Console.WriteLine("Name: {0}, kind: {1}", embeddedComponent.Name, embeddedComponent.Kind)

Next

Get a Vector Geometry Tool provider

[Visual Basic .NET] Copy Code

// IAgCrdnRoot root: A VGT root object

// String path: A short name referring to an instance of STK Object or Central Body


'Returns a provider associated with the specified

' instance of an STK Object or a Central Body.

Dim provider As IAgCrdnProvider = root.GetProvider(path)

Get A Vector Geometry Tool template provider.

[Visual Basic .NET] Copy Code

// IAgCrdnRoot root: A VGT root object

// String className: A class name of STK Object or Central Body


'Returns a VGT provider associated with the specified

' STK object class (i.e., Satellite, Facility, etc.) or

' a Central Body.

Dim provider As IAgCrdnProvider = root.GetTemplateProvider(className)

Get an embedded component

[Visual Basic .NET] Copy Code

// IAgCrdn crdn: A VGT component


If crdn.EmbeddedComponents.Contains("Origin") Then

 Dim embeddedComponent As IAgCrdn = crdn.EmbeddedComponents("Origin")

End If

Iterate all embedded components of a VGT component

[Visual Basic .NET] Copy Code

// IAgCrdn crdn: A VGT component


Dim i As Integer = 0

While i < crdn.EmbeddedComponents.Count

 Dim embeddedComponent As IAgCrdn = crdn.EmbeddedComponents(i)

 Console.WriteLine("Name: {0}, kind: {1}", embeddedComponent.Name, embeddedComponent.Kind)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Check whether an angle with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if an angle with the specified name already exists.

If provider.Angles.Contains("AngleName") Then

 Console.WriteLine("The angle ""{0}"" already exists!", "AngleName")

End If

Check whether the reference angle has a cyclic dependency on another angle.

[Visual Basic .NET] Copy Code

// IAgCrdnAngleRefTo angleRefTo: Reference to a angle.

// IAgCrdnAngle angle: A angle to check against reference angle.


'Check if the reference angle has a cyclic dependency on another angle.

If angleRefTo.HasCyclicDependency(angle) Then

 Console.WriteLine("The angle {0} has a cyclic dependency on angle {1}.", DirectCast(angleRefTo.GetAngle(), IAgCrdn).Name, DirectCast(angle, IAgCrdn).Name)

End If

Computes an angle and the rate of change at a given condition.

[Visual Basic .NET] Copy Code

// IAgCrdnAngle angle: A valid VGT angle object.


Dim result As IAgCrdnAngleFindAngleWithRateResult = angle.FindAngleWithRate(0)

If result.IsValid Then

 Console.WriteLine("Angle: {0}, Rate: {1}", result.Angle, result.AngleRate)

End If

Computes an angle at a given condition.

[Visual Basic .NET] Copy Code

// IAgCrdnAngle angle: A valid VGT angle object.


Dim result As IAgCrdnAngleFindAngleResult = angle.FindAngle(0)

If result.IsValid Then

 Console.WriteLine("Angle: {0}", result.Angle)

End If

Create a vector.perpendicular to the plane in which the angle is defined.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Create a vector.perpendicular to the plane in which the angle is defined.

Dim vector As IAgCrdnVectorAngleRate = DirectCast(provider.Vectors.Factory.Create("myVector", "a vector.perpendicular to the plane in which the angle is defined.", AgECrdnVectorType.eCrdnVectorTypeAngleRate), IAgCrdnVectorAngleRate)

Create an angle between two planes.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


'Create an angle between two planes.

Dim angle As IAgCrdnAngleBetweenPlanes = DirectCast(provider.Angles.Factory.Create("AngleName", "Angle from one plane to another.", AgECrdnAngleType.eCrdnAngleTypeBetweenPlanes), IAgCrdnAngleBetweenPlanes)

Determine if the specified angle type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnAngleType angleType: An angle type.


' Check if the specified angle type is supported.

If provider.Angles.Factory.IsTypeSupported(angleType) Then

 'Create an Angle with the supported Type

 Dim angle As IAgCrdnAngle = provider.Angles.Factory.Create("MyAngle", String.Empty, angleType)

End If

Enumerate the existing angles.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing angles using specified CrdnProvider.

For Each angle As IAgCrdnAngle In provider.Angles

 ' All angles implement IAgCrdn interface which provides

 ' information about the angle instance and its type.

 Dim crdn As IAgCrdn = TryCast(angle, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, angle.Type)

Next

Iterate through existing angles.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing angles associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.Angles.Count

 Dim angle As IAgCrdnAngle = provider.Angles(i)

 ' All angles implement IAgCrdn interface which provides

 ' information about the angle instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.Angles(i), IAgCrdn)

 ' Print the angle name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, angle.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing angle with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the vector with specified name exists

If provider.Angles.Contains("AngleName") Then

 provider.Angles.Remove("AngleName")

End If

Check whether the axes with specified name exist.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if the axes with specified name exist

If provider.Axes.Contains("AxesName") Then

 Console.WriteLine("Axes ""{0}"" already exist!", "AxesName")

End If

Check whether the reference axes has a cyclic dependency on another axes.

[Visual Basic .NET] Copy Code

// IAgCrdnAxesRefTo axesRefTo: Reference to a axes.

// IAgCrdnAxes axes: A axes to check against reference axes.


'Check if the reference axes has a cyclic dependency on another axes.

If axesRefTo.HasCyclicDependency(axes) Then

 Console.WriteLine("The axes {0} has a cyclic dependency on axes {1}.", DirectCast(axesRefTo.GetAxes(), IAgCrdn).Name, DirectCast(axes, IAgCrdn).Name)

End If

Create the axes oriented using vectors fixed in these axes and independent reference vectors.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


Dim axes As IAgCrdnAxesAlignedAndConstrained = DirectCast(provider.Axes.Factory.Create("AxesName", String.Empty, AgECrdnAxesType.eCrdnAxesTypeAlignedAndConstrained), IAgCrdnAxesAlignedAndConstrained)

Creates a fixed axes based on the origin point with Euler Angles orientation (using common tasks).

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of a central body VGT provider

// IAgFacility facility: An instance of a facility


Dim lat As Object = 0, lon As Object = 0

Dim alt As Double = 0


facility.Position.QueryPlanetodetic(lat, lon, alt)

Creates a fixed axes based on the origin point with Quaternion orientation (using common tasks).

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// IAgFacility facility: An instance of a facility


Dim lat As Object = 0, lon As Object = 0

Dim alt As Double = 0


facility.Position.QueryPlanetodetic(lat, lon, alt)

Creates a fixed axes based on the specified axes (using common tasks).

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


Dim ecfAxes As IAgCrdnAxes = provider.WellKnownAxes.Earth.Fixed

Dim axesFixed As IAgCrdnAxesFixed = provider.Axes.CommonTasks.CreateFixed(ecfAxes)

Determine if the specified axes type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// AgECrdnAxesType axesType: An axes type.


If provider.Axes.Factory.IsTypeSupported(axesType) Then

 Dim axes As IAgCrdnAxes = provider.Axes.Factory.Create("AxesName", String.Empty, axesType)

End If

Enumerate the existing axes.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing Axes using specified CrdnProvider.

For Each axes As IAgCrdnAxes In provider.Axes

 ' All axes implement IAgCrdn interface which provides

 ' information about the axes instance and its type.

 Dim crdn As IAgCrdn = TryCast(axes, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, axes.Type)

Next

Finds the axes' orientation in Earth's Fixed axes.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// IAgCrdnAxes axes: A valid VGT axes object.


Dim result As IAgCrdnAxesFindInAxesResult = axes.FindInAxes(0, provider.WellKnownAxes.Earth.Fixed)

If result.IsValid Then

 Dim angles As AGI.STKUtil.IAgOrientationEulerAngles

 angles = DirectCast(result.Orientation.ConvertTo(AGI.STKUtil.AgEOrientationType.eEulerAngles), AGI.STKUtil.IAgOrientationEulerAngles)

 Console.WriteLine("Euler Angles [A,B,C,SEQ] => [{1}, {1}, {2}, {3}]", angles.A, angles.B, angles.C, angles.Sequence)

End If

Iterate through existing axes.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing angles associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.Axes.Count

 Dim axes As IAgCrdnAxes = provider.Axes(i)

 ' All axes implement IAgCrdn interface which provides

 ' information about the axes instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.Axes(i), IAgCrdn)

 ' Print the axes name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, axes.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing axes with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the axes with specified name exist

If provider.Axes.Contains("AxesName") Then

 provider.Axes.Remove("AxesName")

End If

Transform a vector and vector's rate to the Earth's Fixed axes.

[Visual Basic .NET] Copy Code

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

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

// IAgCrdnProvider provider: An instance of VGT provider


'Check if a calc scalar with the specified name already exists.

If provider.CalcScalars.Contains("CalcScalarName") Then

 Console.WriteLine("The calc scalar ""{0}"" already exists!", "CalcScalarName")

End If

Create a calc scalar constant.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


'Create a calc scalar constant.

Dim calcScalar As IAgCrdnCalcScalarConstant = DirectCast(provider.CalcScalars.Factory.Create("CalcScalarName", "Calc scalar constant.", AgECrdnCalcScalarType.eCrdnCalcScalarTypeConstant), IAgCrdnCalcScalarConstant)

Determine if the specified calc scalar type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnCalcScalarType calcScalarType: A calc scalar type.


' Check if the specified calc scalar type is supported.

If provider.CalcScalars.Factory.IsTypeSupported(calcScalarType) Then

 'Create a CalcScalar with the supported Type

 Dim calcScalar As IAgCrdnCalcScalar = provider.CalcScalars.Factory.Create("MyCalcScalar", String.Empty, calcScalarType)

End If

Enumerate the existing calc scalars.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing CalcScalars using specified CrdnProvider.

For Each calcScalar As IAgCrdnCalcScalar In provider.CalcScalars

 ' All calc scalars implement IAgCrdn interface which provides

 ' information about the calc scalar instance and its type.

 Dim crdn As IAgCrdn = TryCast(calcScalar, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, calcScalar.Type)

Next

Iterate through existing calc scalars.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing calc scalars associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.CalcScalars.Count

 Dim calcScalar As IAgCrdnCalcScalar = provider.CalcScalars(i)

 ' All calc scalars implement IAgCrdn interface which provides

 ' information about the calc scalar's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.CalcScalars(i), IAgCrdn)

 ' Print the calc scalar's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, calcScalar.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing calc scalar with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the calc scalar with specified name exists

If provider.CalcScalars.Contains("CalcScalarName") Then

 provider.CalcScalars.Remove("CalcScalarName")

End If

Check whether a condition with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if a condition with the specified name already exists.

If provider.Conditions.Contains("ConditionName") Then

 Console.WriteLine("The condition ""{0}"" already exists!", "ConditionName")

End If

Create a condition defined by determining if input scalar is within specified bounds.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


'Create a condition from a scalar.

Dim condition As IAgCrdnConditionScalarBounds = DirectCast(provider.Conditions.Factory.Create("ConditionName", "Condition from a scalar.", AgECrdnConditionType.eCrdnConditionTypeScalarBounds), IAgCrdnConditionScalarBounds)

Determine if the specified condition type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnConditionType conditionType: A condition type.


' Check if the specified condition type is supported.

If provider.Conditions.Factory.IsTypeSupported(conditionType) Then

 'Create a Condition with the supported Type

 Dim condition As IAgCrdnCondition = provider.Conditions.Factory.Create("MyCondition", String.Empty, conditionType)

End If

Enumerate the existing conditions.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing Conditions using specified CrdnProvider.

For Each condition As IAgCrdnCondition In provider.Conditions

 ' All conditions implement IAgCrdn interface which provides

 ' information about the condition instance and its type.

 Dim crdn As IAgCrdn = TryCast(condition, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, condition.Type)

Next

Iterate through existing conditions.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing conditions associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.Conditions.Count

 Dim condition As IAgCrdnCondition = provider.Conditions(i)

 ' All conditions implement IAgCrdn interface which provides

 ' information about the condition's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.Conditions(i), IAgCrdn)

 ' Print the condition's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, condition.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing condition with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the condition with specified name exists

If provider.Conditions.Contains("ConditionName") Then

 provider.Conditions.Remove("ConditionName")

End If

Check whether an event with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if an event with the specified name already exists.

If provider.Events.Contains("EventName") Then

 Console.WriteLine("The event ""{0}"" already exists!", "EventName")

End If

Configure the smart interval epoch and the duration.

[Visual Basic .NET] Copy Code

// IAgCrdnEventIntervalSmartInterval smartInterval: The time component smart interval


' Change the time interval to 1 week after the dependent interval.

Dim epochOfInterest As IAgCrdnEventSmartEpoch = smartInterval.GetStopEpoch()

smartInterval.SetStartEpochAndDuration(epochOfInterest, "+1 week")


' Or if you want a specific time, use SetStartTimeAndDuration.

smartInterval.SetStartTimeAndDuration("1 Jan 2015 16:00:00.000", "+1 day")


' You can find the event times, such as

Console.WriteLine("Start Time: " + smartInterval.FindStartTime())

Console.WriteLine("Stop Time: " + smartInterval.FindStopTime())

Console.WriteLine("Duration: " + smartInterval.DurationAsString)

' Note, only works if you specified duration.

Configure the start and stop epoch time with smart epochs.

[Visual Basic .NET] Copy Code

// IAgCrdnEventIntervalSmartInterval smartInterval: Event Smart Interval

// IAgCrdnEvent startEventEpoch: Start event epoch

// IAgCrdnEvent stopEventEpoch: Stop event epoch


smartInterval.State = AgECrdnSmartIntervalState.eCrdnSmartIntervalStateStartStop


Dim accessStartEpoch As IAgCrdnEventSmartEpoch = smartInterval.GetStartEpoch()

accessStartEpoch.SetImplicitTime(startEventEpoch)

smartInterval.SetStartEpoch(accessStartEpoch)


Dim accessStopEpoch As IAgCrdnEventSmartEpoch = smartInterval.GetStopEpoch()

accessStopEpoch.SetImplicitTime(stopEventEpoch)

smartInterval.SetStopEpoch(accessStopEpoch)

Convert the start and stop times of the interval into a time.

[Visual Basic .NET] Copy Code

// IAgCrdnEventIntervalSmartInterval smartInterval: The time component smart interval


smartInterval.SetStartTimeAndDuration("Now", "+100 day")

Dim startTime As Object = smartInterval.FindStartTime()

Dim stopTime As Object = smartInterval.FindStopTime()


Console.WriteLine("StartTime = {0}, StopTime = {1}", startTime, stopTime)

Create and configure explicit smart epoch event.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim smartEpoch As IAgCrdnEventSmartEpoch = provider.Events.Factory.CreateSmartEpochFromTime("1 May 2016 04:00:00.000")


' Smart epochs can be set explicitly (Uses current DateTime unit preference, this code snippet assumes UTCG)

smartEpoch.SetExplicitTime("1 May 2015 01:00:00.000")


Console.WriteLine("Event occurred at: " + smartEpoch.TimeInstant)

Create and configure extremum event.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim timeEvent As IAgCrdnEvent = provider.Events.Factory.CreateEventExtremum("MyEventExtremum", "MyDescription")

Dim asExtremum As IAgCrdnEventExtremum = TryCast(timeEvent, IAgCrdnEventExtremum)


' For instance, time at highest altitude

asExtremum.Calculation = provider.CalcScalars("GroundTrajectory.Detic.LLA.Altitude")

asExtremum.ExtremumType = AgECrdnExtremumConstants.eCrdnExtremumMaximum


Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()

If occurrence.IsValid Then

 Console.WriteLine("Event occurred at: " + occurrence.Epoch)

End If

Create and configure fixed epoch event.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim timeEvent As IAgCrdnEvent = provider.Events.Factory.CreateEventEpoch("MyEventFixed", "MyDescription")

Dim asEpoch As IAgCrdnEventEpoch = TryCast(timeEvent, IAgCrdnEventEpoch)


' Epoch can be set explicitly (Uses current DateTime unit preference, this code snippet assumes UTCG)

asEpoch.Epoch = "1 May 2016 04:00:00.000"


' Epoch can also be set with the epoch of another event

Dim startTime As IAgCrdnEventFindOccurrenceResult = provider.Events("AvailabilityStartTime").FindOccurrence()

asEpoch.Epoch = startTime.Epoch


Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()

If occurrence.IsValid Then

 Console.WriteLine("Event occurred at: " + occurrence.Epoch)

End If

Create and configure fixed time offset event.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim timeEvent As IAgCrdnEvent = provider.Events.Factory.CreateEventTimeOffset("MyEventTimeOffset", "MyDescription")

Dim asTimeOffset As IAgCrdnEventTimeOffset = TryCast(timeEvent, IAgCrdnEventTimeOffset)


asTimeOffset.ReferenceTimeInstant = provider.Events("AvailabilityStartTime")


' Uses current Time unit preference, this code snippet assumes seconds.

asTimeOffset.TimeOffset = 3


Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()

If occurrence.IsValid Then

 Console.WriteLine("Event occurred at: " + occurrence.Epoch)

End If

Create and configure implicit smart epoch event.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim referencedEvent As IAgCrdnEvent = provider.Events("AvailabilityStartTime")

Dim smartEpoch As IAgCrdnEventSmartEpoch = provider.Events.Factory.CreateSmartEpochFromEvent(referencedEvent)


' Smart epochs can be set implicitly using the another epoch.

Dim anotherEvent As IAgCrdnEvent = provider.Events("AvailabilityStopTime")

smartEpoch.SetImplicitTime(anotherEvent)


Console.WriteLine("Event occurred at: " + smartEpoch.TimeInstant)

Create and configure signaled event.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt

Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt


Dim timeEvent As IAgCrdnEvent = satelliteVgtProvider.Events.Factory.CreateEventSignaled("MyEventSignaled", "MyDescription")

Dim asSignaled As IAgCrdnEventSignaled = TryCast(timeEvent, IAgCrdnEventSignaled)


asSignaled.OriginalTimeInstant = aircraftVgtProvider.Events("EphemerisStartTime")

asSignaled.BaseClockLocation = satelliteVgtProvider.Points("Center")

asSignaled.TargetClockLocation = aircraftVgtProvider.Points("Center")


asSignaled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseTransmit

Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asSignaled.SignalDelay, IAgCrdnSignalDelayBasic)

basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnCustomTransmissionSpeed


' Uses current Time unit preference, this code snippet assumes seconds.

basicSignalDelay.TimeDelayConvergence = 0.002


Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()

If occurrence.IsValid Then

 Console.WriteLine("Event occurred at: " + occurrence.Epoch)

End If

Create and configure start stop time event.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim timeEvent As IAgCrdnEvent = provider.Events.Factory.CreateEventStartStopTime("MyEventStartStopTime", "MyDescription")

Dim asStartStopTime As IAgCrdnEventStartStopTime = TryCast(timeEvent, IAgCrdnEventStartStopTime)


asStartStopTime.ReferenceEventInterval = provider.EventIntervals("EphemerisTimeSpan")


asStartStopTime.UseStart = True


Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()

If occurrence.IsValid Then

 Console.WriteLine("Event occurred at: " + occurrence.Epoch)

End If

Determine if event occurs before an epoch.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' The event you are interested in.

Dim timeEvent1 As IAgCrdnEvent = provider.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMax")


' The reference event you want to determine if event of interest happened before.

Dim timeEvent2 As IAgCrdnEvent = provider.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMin")

Dim occurrence2 As IAgCrdnEventFindOccurrenceResult = timeEvent2.FindOccurrence()


If occurrence2.IsValid Then

 If timeEvent1.OccursBefore(occurrence2.Epoch) Then

 Console.WriteLine("The time of maximum altitude happend before time of minimum altitude")

 Else

 Console.WriteLine("The time of minimum altitude happend before time of maximum altitude")

 End If

End If

Determine if the specified event type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnEventType eventType: A event type.


' Check if the specified event type is supported.

If provider.Events.Factory.IsTypeSupported(eventType) Then

 'Create an Event with the supported Type

 Dim [event] As IAgCrdnEvent = provider.Events.Factory.Create("MyEvent", String.Empty, eventType)

End If

Determine the time of an event.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim timeEvent As IAgCrdnEvent = provider.Events("PassIntervals.First.Start")


Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()


If occurrence.IsValid Then

 Console.WriteLine("The first pass interval happened at: " + occurrence.Epoch)

Else

 Console.WriteLine("The first pass interval never occurred")

End If

Enumerate the existing events.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing Events using specified CrdnProvider.

For Each [event] As IAgCrdnEvent In provider.Events

 ' All events implement IAgCrdn interface which provides

 ' information about the event instance and its type.

 Dim crdn As IAgCrdn = TryCast([event], IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, [event].Type)

Next

Iterate through existing events.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing events associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.Events.Count

 Dim [event] As IAgCrdnEvent = provider.Events(i)

 ' All events implement IAgCrdn interface which provides

 ' information about the event's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.Events(i), IAgCrdn)

 ' Print the event's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, [event].Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing event with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the event with specified name exists

If provider.Events.Contains("EventName") Then

 provider.Events.Remove("EventName")

End If

Sets the start and stop epoch time with smart epochs.

[Visual Basic .NET] Copy Code

// IAgCrdnEventIntervalSmartInterval smartInterval: Event Smart Interval


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

Check whether an event array with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if an event array with the specified name already exists.

If provider.EventArrays.Contains("EventArrayName") Then

 Console.WriteLine("The event array ""{0}"" already exists!", "EventArrayName")

End If

Create and configure condition crossings event array.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayConditionCrossings("MyEventArrayConditionCrossings", "MyDescription")

Dim asConditionCrossings As IAgCrdnEventArrayConditionCrossings = TryCast(eventArray, IAgCrdnEventArrayConditionCrossings)


Dim scalarBound As IAgCrdnCondition = provider.Conditions.Factory.CreateConditionScalarBounds("Bound", "MyDescription")

Dim asScalarBounds As IAgCrdnConditionScalarBounds = TryCast(scalarBound, IAgCrdnConditionScalarBounds)

asScalarBounds.Scalar = provider.CalcScalars("GroundTrajectory.Detic.LLA.Latitude")

asScalarBounds.Operation = AgECrdnConditionThresholdOption.eCrdnConditionThresholdOptionInsideMinMax

'asScalarBounds.Set(-0.349, 0);


asConditionCrossings.Condition = scalarBound


Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()

If timeArrays.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = timeArrays.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Console.WriteLine(timeArrays.Times.GetValue(i))

 System.Threading.Interlocked.Increment(i)

 End While


 For Each timeArray As IAgCrdnInterval In timeArrays.Intervals

 Console.WriteLine("Start: " + timeArray.Start)

 Console.WriteLine("Stop: " + timeArray.[Stop])

 Next

End If

Create and configure extrema event array.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayExtrema("MyEventArrayExtrema", "MyDescription")

Dim asExtrema As IAgCrdnEventArrayExtrema = TryCast(eventArray, IAgCrdnEventArrayExtrema)


asExtrema.Calculation = provider.CalcScalars("GroundTrajectory.Detic.LLA.Altitude")


asExtrema.IsGlobal = True

asExtrema.ExtremumType = AgECrdnExtremumConstants.eCrdnExtremumMaximum


Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()

If timeArrays.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = timeArrays.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Console.WriteLine(timeArrays.Times.GetValue(i))

 System.Threading.Interlocked.Increment(i)

 End While


 For Each timeArray As IAgCrdnInterval In timeArrays.Intervals

 Console.WriteLine("Start: " + timeArray.Start)

 Console.WriteLine("Stop: " + timeArray.[Stop])

 Next

End If

Create and configure filtered event array.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayFiltered("MyEventArrayFiltered", "MyDescription")

Dim asFiltered As IAgCrdnEventArrayFiltered = TryCast(eventArray, IAgCrdnEventArrayFiltered)


asFiltered.OriginalTimeArray = provider.EventArrays("EphemerisTimes")


asFiltered.FilterType = AgECrdnEventArrayFilterType.eCrdnEventArrayFilterTypeSkipTimeStep

asFiltered.IncludeIntervalStopTimes = True


' Uses current Time unit preference, this code snippet assumes seconds.

asFiltered.[Step] = 240


Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()

If timeArrays.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = timeArrays.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Console.WriteLine(timeArrays.Times.GetValue(i))

 System.Threading.Interlocked.Increment(i)

 End While


 For Each timeArray As IAgCrdnInterval In timeArrays.Intervals

 Console.WriteLine("Start: " + timeArray.Start)

 Console.WriteLine("Stop: " + timeArray.[Stop])

 Next

End If

Create and configure fixed step event array.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayFixedStep("MyEventArrayFixedStep", "MyDescription")

Dim asFixedStep As IAgCrdnEventArrayFixedStep = TryCast(eventArray, IAgCrdnEventArrayFixedStep)


asFixedStep.BoundingIntervalList = provider.EventIntervalLists("AfterStart.SatisfactionIntervals")

asFixedStep.IncludeIntervalEdges = True


' Uses current Time unit preference, this code snippet assumes seconds.

asFixedStep.SamplingTimeStep = 240

asFixedStep.ReferenceType = AgECrdnSampledReferenceTime.eCrdnSampledReferenceTimeStartOfIntervalList


' or using time instants

asFixedStep.ReferenceType = AgECrdnSampledReferenceTime.eCrdnSampledReferenceTimeReferenceEvent

asFixedStep.ReferenceTimeInstant = provider.Events("EphemerisStartTime")


Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()

If timeArrays.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = timeArrays.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Console.WriteLine(timeArrays.Times.GetValue(i))

 System.Threading.Interlocked.Increment(i)

 End While


 For Each timeArray As IAgCrdnInterval In timeArrays.Intervals

 Console.WriteLine("Start: " + timeArray.Start)

 Console.WriteLine("Stop: " + timeArray.[Stop])

 Next

End If

Create and configure merged event array.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayMerged("MyEventArrayMerged", "MyDescription")

Dim asMerged As IAgCrdnEventArrayMerged = TryCast(eventArray, IAgCrdnEventArrayMerged)


asMerged.TimeArrayA = provider.EventArrays("GroundTrajectory.Detic.LLA.Altitude.TimesOfLocalMin")

asMerged.TimeArrayB = provider.EventArrays("GroundTrajectory.Detic.LLA.Altitude.TimesOfLocalMax")


Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()

If timeArrays.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = timeArrays.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Console.WriteLine(timeArrays.Times.GetValue(i))

 System.Threading.Interlocked.Increment(i)

 End While


 For Each timeArray As IAgCrdnInterval In timeArrays.Intervals

 Console.WriteLine("Start: " + timeArray.Start)

 Console.WriteLine("Stop: " + timeArray.[Stop])

 Next

End If

Create and configure signaled event array.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt

Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt


Dim eventArray As IAgCrdnEventArray = satelliteVgtProvider.EventArrays.Factory.CreateEventArraySignaled("MyEventArraySignaled", "MyDescription")

Dim asSignaled As IAgCrdnEventArraySignaled = TryCast(eventArray, IAgCrdnEventArraySignaled)


asSignaled.OriginalTimeArray = aircraftVgtProvider.EventArrays("OneMinuteSampleTimes")

asSignaled.BaseClockLocation = satelliteVgtProvider.Points("Center")

asSignaled.TargetClockLocation = aircraftVgtProvider.Points("Center")


asSignaled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseTransmit

Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asSignaled.SignalDelay, IAgCrdnSignalDelayBasic)

basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnLightTransmissionSpeed


' Uses current Time unit preference, this code snippet assumes seconds.

basicSignalDelay.TimeDelayConvergence = 0.01


Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()

If timeArrays.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = timeArrays.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Console.WriteLine(timeArrays.Times.GetValue(i))

 System.Threading.Interlocked.Increment(i)

 End While


 For Each timeArray As IAgCrdnInterval In timeArrays.Intervals

 Console.WriteLine("Start: " + timeArray.Start)

 Console.WriteLine("Stop: " + timeArray.[Stop])

 Next

End If

Create and configure start stop times event array.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.CreateEventArrayStartStopTimes("MyEventArrayStartStopTimes", "MyDescription")

Dim asStartStopTimes As IAgCrdnEventArrayStartStopTimes = TryCast(eventArray, IAgCrdnEventArrayStartStopTimes)


asStartStopTimes.ReferenceIntervals = provider.EventIntervalLists("LightingIntervals.Sunlight")

asStartStopTimes.StartStopOption = AgECrdnStartStopOption.eCrdnStartStopOptionCountStartOnly


Dim timeArrays As IAgCrdnFindTimesResult = eventArray.FindTimes()

If timeArrays.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = timeArrays.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Console.WriteLine(timeArrays.Times.GetValue(i))

 System.Threading.Interlocked.Increment(i)

 End While


 For Each timeArray As IAgCrdnInterval In timeArrays.Intervals

 Console.WriteLine("Start: " + timeArray.Start)

 Console.WriteLine("Stop: " + timeArray.[Stop])

 Next

End If

Determine altitude of aircraft at one minute samples.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


' Get the aircraft

Dim aircraft As IAgStkObject = stkRoot.GetObjectFromPath("Aircraft/UAV")


' Configure a fixed step array that samples every 20 seconds.

Dim twentySecondSample As IAgCrdnEventArray = aircraft.Vgt.EventArrays.Factory.CreateEventArrayFixedStep("TwentySecondSample", "MyDescription")

Dim asFixedStep As IAgCrdnEventArrayFixedStep = TryCast(twentySecondSample, IAgCrdnEventArrayFixedStep)

asFixedStep.BoundingIntervalList = aircraft.Vgt.EventIntervalLists("AvailabilityIntervals")

asFixedStep.SamplingTimeStep = 20

asFixedStep.ReferenceType = AgECrdnSampledReferenceTime.eCrdnSampledReferenceTimeStartOfIntervalList


' At each time step, get the aircraft's altitude and print the value.

Dim timeArrays As IAgCrdnFindTimesResult = twentySecondSample.FindTimes()

If timeArrays.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = timeArrays.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Dim epoch As Object = timeArrays.Times.GetValue(i)

 Dim altitueAtTime As Array = aircraft.Vgt.CalcScalars("GroundTrajectory.Detic.LLA.Altitude").QuickEvaluate(epoch)

 If DirectCast(altitueAtTime.GetValue(0), Boolean) = True Then

 Console.WriteLine("{0}: {1}", epoch, altitueAtTime.GetValue(1))

 End If

 System.Threading.Interlocked.Increment(i)

 End While

End If

Determine if the specified event array type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnEventArrayType eventArrayType: A event array type.


' Check if the specified event array type is supported.

If provider.EventArrays.Factory.IsTypeSupported(eventArrayType) Then

 'Create an EventArray with the supported Type

 Dim eventArray As IAgCrdnEventArray = provider.EventArrays.Factory.Create("MyEventArray", String.Empty, eventArrayType)

End If

Determines the time intervals of an event array.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventArray As IAgCrdnEventArray = provider.EventArrays("Orbit.Classical.SemimajorAxis.TimesOfLocalMax")


Dim foundTimes As IAgCrdnFindTimesResult = eventArray.FindTimes()

If foundTimes.IsValid Then

 Console.WriteLine("Times")

 Dim numTimes As Integer = foundTimes.Times.GetLength(0)

 Dim i As Integer = 0

 While i < numTimes

 Console.WriteLine(foundTimes.Times.GetValue(i))

 System.Threading.Interlocked.Increment(i)

 End While


 For Each timeArray As IAgCrdnInterval In foundTimes.Intervals

 Console.WriteLine("Start: " + timeArray.Start)

 Console.WriteLine("Stop: " + timeArray.[Stop])

 Next

End If

Enumerate the existing event arrays.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing EventArrays using specified CrdnProvider.

For Each eventArray As IAgCrdnEventArray In provider.EventArrays

 ' All event arrays implement IAgCrdn interface which provides

 ' information about the event array instance and its type.

 Dim crdn As IAgCrdn = TryCast(eventArray, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventArray.Type)

Next

Iterate through existing event arrays.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing event arrays associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.EventArrays.Count

 Dim eventArray As IAgCrdnEventArray = provider.EventArrays(i)

 ' All event arrays implement IAgCrdn interface which provides

 ' information about the event array's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.EventArrays(i), IAgCrdn)

 ' Print the event array's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventArray.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing event array with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the event array with specified name exists

If provider.EventArrays.Contains("EventArrayName") Then

 provider.EventArrays.Remove("EventArrayName")

End If

Check whether an event interval with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if an event interval with the specified name already exists.

If provider.EventIntervals.Contains("EventIntervalName") Then

 Console.WriteLine("The event interval ""{0}"" already exists!", "EventIntervalName")

End If

Create and configure event interval between two instants.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalBetweenTimeInstants("MyIntervalBetweenTwoInstants", "MyDescription")

Dim asTimeInstant As IAgCrdnEventIntervalBetweenTimeInstants = TryCast(eventInterval, IAgCrdnEventIntervalBetweenTimeInstants)


asTimeInstant.StartTimeInstant = provider.Events("EphemerisStartTime")

asTimeInstant.StopTimeInstant = provider.Events("EphemerisStopTime")


Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()

If intervalResult.IsValid Then

 Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)

 Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])

End If

Create and configure event interval from an interval list.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalFromIntervalList("MyIntervalList", "MyDescription")

Dim asIntervalList As IAgCrdnEventIntervalFromIntervalList = TryCast(eventInterval, IAgCrdnEventIntervalFromIntervalList)


asIntervalList.ReferenceIntervals = provider.EventIntervalLists("AttitudeIntervals")

asIntervalList.IntervalSelection = AgECrdnIntervalSelection.eCrdnIntervalSelectionMaxGap


' Or from start...

asIntervalList.IntervalSelection = AgECrdnIntervalSelection.eCrdnIntervalSelectionFromStart

asIntervalList.IntervalNumber = 1


Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()

If intervalResult.IsValid Then

 Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)

 Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])

End If

Create and configure fixed duration event interval.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalFixedDuration("MyIntervalFixedDuration", "MyDescription")

Dim asFixedDuration As IAgCrdnEventIntervalFixedDuration = TryCast(eventInterval, IAgCrdnEventIntervalFixedDuration)


asFixedDuration.ReferenceTimeInstant = provider.Events("AvailabilityStartTime")


' Uses current Time unit preference, this code snippet assumes seconds.

asFixedDuration.StartOffset = 10


' Uses current Time unit preference, this code snippet assumes seconds.

asFixedDuration.StopOffset = 360


Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()

If intervalResult.IsValid Then

 Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)

 Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])

End If

Create and configure fixed event interval.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalFixed("MyIntervalFixed", "MyDescription")

Dim asFixed As IAgCrdnEventIntervalFixed = TryCast(eventInterval, IAgCrdnEventIntervalFixed)


asFixed.SetInterval(provider.Events("AvailabilityStartTime").FindOccurrence().Epoch, provider.Events("AvailabilityStopTime").FindOccurrence().Epoch)


Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()

If intervalResult.IsValid Then

 Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)

 Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])

End If

Create and configure scaled event interval.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalScaled("MyIntervalScaled", "MyDescription")

Dim asScaled As IAgCrdnEventIntervalScaled = TryCast(eventInterval, IAgCrdnEventIntervalScaled)


asScaled.OriginalInterval = provider.EventIntervals("AvailabilityTimeSpan")


asScaled.AbsoluteIncrement = 30


' Or use Relative

asScaled.UseAbsoluteIncrement = False

asScaled.RelativeIncrement = 45

' Percentage

Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()

If intervalResult.IsValid Then

 Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)

 Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])

End If

Create and configure signaled event interval.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt

Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt


Dim eventInterval As IAgCrdnEventInterval = satelliteVgtProvider.EventIntervals.Factory.CreateEventIntervalSignaled("MyIntervalSignaled", "MyDescription")

Dim asSignaled As IAgCrdnEventIntervalSignaled = TryCast(eventInterval, IAgCrdnEventIntervalSignaled)


asSignaled.OriginalInterval = aircraftVgtProvider.EventIntervals("AvailabilityTimeSpan")

asSignaled.BaseClockLocation = satelliteVgtProvider.Points("Center")

asSignaled.TargetClockLocation = aircraftVgtProvider.Points("Center")


asSignaled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseReceive

Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asSignaled.SignalDelay, IAgCrdnSignalDelayBasic)

basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnLightTransmissionSpeed


' Uses current Time unit preference, this code snippet assumes seconds.

basicSignalDelay.TimeDelayConvergence = 0.002


Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()

If intervalResult.IsValid Then

 Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)

 Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])

End If

Create and configure time offset event interval.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.CreateEventIntervalTimeOffset("MyIntervalFixedTimeOffset", "MyDescription")

Dim asFixedTimeOffset As IAgCrdnEventIntervalTimeOffset = TryCast(eventInterval, IAgCrdnEventIntervalTimeOffset)


asFixedTimeOffset.ReferenceInterval = provider.EventIntervals("AvailabilityTimeSpan")


' Uses current Time unit preference, this code snippet assumes seconds.

asFixedTimeOffset.TimeOffset = 30


Dim intervalResult As IAgCrdnEventIntervalResult = eventInterval.FindInterval()

If intervalResult.IsValid Then

 Console.WriteLine("Interval Start: " + intervalResult.Interval.Start)

 Console.WriteLine("Interval Stop: " + intervalResult.Interval.[Stop])

End If

Determine if event occurred in interval.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' The event you are interested in.

Dim timeEventInterval As IAgCrdnEventInterval = provider.EventIntervals("LightingIntervals.Sunlight.First")


' The reference event you want to determine if event occurred in the interval.

Dim timeEvent As IAgCrdnEvent = provider.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMax")

Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()


If occurrence.IsValid Then

 If timeEventInterval.Occurred(occurrence.Epoch) Then

 Console.WriteLine("Our highest altitude was reached on the first lighting pass")

 Else

 Console.WriteLine("Our highest altitude was not reached on the first lighting pass")

 End If

End If

Determine if the specified event interval type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnEventIntervalType eventIntervalType: A event interval type.


' Check if the specified event interval type is supported.

If provider.EventIntervals.Factory.IsTypeSupported(eventIntervalType) Then

 'Create an EventInterval with the supported Type

 Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals.Factory.Create("MyEventInterval", String.Empty, eventIntervalType)

End If

Determines the start and stop times of the event interval.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals("AvailabilityTimeSpan")


Dim interval As IAgCrdnEventIntervalResult = eventInterval.FindInterval()


If interval.IsValid Then

 Console.WriteLine("Interval Start: " + interval.Interval.Start)

 Console.WriteLine("Interval Stop: " + interval.Interval.[Stop])

End If

Enumerate the existing event intervals.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing EventIntervals using specified CrdnProvider.

For Each eventInterval As IAgCrdnEventInterval In provider.EventIntervals

 ' All event intervals implement IAgCrdn interface which provides

 ' information about the event interval instance and its type.

 Dim crdn As IAgCrdn = TryCast(eventInterval, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventInterval.Type)

Next

Iterate through existing event intervals.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing event intervals associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.EventIntervals.Count

 Dim eventInterval As IAgCrdnEventInterval = provider.EventIntervals(i)

 ' All event intervals implement IAgCrdn interface which provides

 ' information about the event interval's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.EventIntervals(i), IAgCrdn)

 ' Print the event interval's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventInterval.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing event interval with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the event interval with specified name exists

If provider.EventIntervals.Contains("EventIntervalName") Then

 provider.EventIntervals.Remove("EventIntervalName")

End If

Check whether an event interval collection with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if an event interval collection with the specified name already exists.

If provider.EventIntervalCollections.Contains("EventIntervalCollectionName") Then

 Console.WriteLine("The event interval collection ""{0}"" already exists!", "EventIntervalCollectionName")

End If

Create and configure lighting event interval collection.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim intervalCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections.Factory.CreateEventIntervalCollectionLighting("MyIntervalCollectionLightning", "MyDescription")

Dim asCollectionLightning As IAgCrdnEventIntervalCollectionLighting = TryCast(intervalCollection, IAgCrdnEventIntervalCollectionLighting)


' Optionally use a separate central body

asCollectionLightning.UseObjectEclipsingBodies = True

asCollectionLightning.Location = provider.Points("Center")

asCollectionLightning.EclipsingBodies = New Object() {"Saturn", "Jupiter"}


Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalCollection.FindIntervalCollection()

If intervalResult.IsValid Then

 For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections

Create and configure signaled event interval collection.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt

Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt


Dim intervalCollection As IAgCrdnEventIntervalCollection = satelliteVgtProvider.EventIntervalCollections.Factory.CreateEventIntervalCollectionSignaled("MyIntervalCollectionSignaled", "MyDescription")

Dim asCollectionSignaled As IAgCrdnEventIntervalCollectionSignaled = TryCast(intervalCollection, IAgCrdnEventIntervalCollectionSignaled)


asCollectionSignaled.OriginalCollection = aircraftVgtProvider.EventIntervalCollections("LightingIntervals")

asCollectionSignaled.BaseClockLocation = satelliteVgtProvider.Points("Center")

asCollectionSignaled.TargetClockLocation = aircraftVgtProvider.Points("Center")


asCollectionSignaled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseTransmit

Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asCollectionSignaled.SignalDelay, IAgCrdnSignalDelayBasic)

basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnLightTransmissionSpeed


' Uses current Time unit preference, this code snippet assumes seconds.

basicSignalDelay.TimeDelayConvergence = 0.002


Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalCollection.FindIntervalCollection()

If intervalResult.IsValid Then

 For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections

Determine if epoch occurred in interval collection.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


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


Dim occurredResult As IAgCrdnEventIntervalCollectionOccurredResult = intervalVectorCollection.Occurred("1 May 2015 04:30:00.000")


If occurredResult.IsValid Then

 Console.WriteLine("Occurred at {0} index", occurredResult.Index)


 ' Use the index from IAgCrdnEventIntervalCollectionOccurredResult as the index to IAgCrdnIntervalsVectorResult.IntervalCollections

 Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalVectorCollection.FindIntervalCollection()

 Dim intervalCollection As IAgCrdnIntervalCollection = intervalResult.IntervalCollections(occurredResult.Index)

End If

Determine if the specified event interval collection type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnEventIntervalCollectionType eventIntervalCollectionType: A event interval collection type.


' Check if the specified event interval collection type is supported.

If provider.EventIntervalCollections.Factory.IsTypeSupported(eventIntervalCollectionType) Then

 'Create an EventIntervalCollection with the supported Type

 Dim eventIntervalCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections.Factory.Create("MyEventIntervalCollection", String.Empty, eventIntervalCollectionType)

End If

Determines the event intervals contained in the interval collection.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


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


Dim intervalResult As IAgCrdnIntervalsVectorResult = intervalCollection.FindIntervalCollection()

If intervalResult.IsValid Then

 For Each intervals As IAgCrdnIntervalCollection In intervalResult.IntervalCollections

Enumerate the existing event interval collections.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing EventIntervalCollections using specified CrdnProvider.

For Each eventIntervalCollection As IAgCrdnEventIntervalCollection In provider.EventIntervalCollections

 ' All event interval collections implement IAgCrdn interface which provides

 ' information about the event interval collection instance and its type.

 Dim crdn As IAgCrdn = TryCast(eventIntervalCollection, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventIntervalCollection.Type)

Next

Iterate through existing event interval collections.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing event interval collections associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.EventIntervalCollections.Count

 Dim eventIntervalCollection As IAgCrdnEventIntervalCollection = provider.EventIntervalCollections(i)

 ' All event interval collections implement IAgCrdn interface which provides

 ' information about the event interval collection's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.EventIntervalCollections(i), IAgCrdn)

 ' Print the event interval collection's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventIntervalCollection.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing event interval collection with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the event interval collection with specified name exists

If provider.EventIntervalCollections.Contains("EventIntervalCollectionName") Then

 provider.EventIntervalCollections.Remove("EventIntervalCollectionName")

End If

Check whether an event interval list with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if an event interval list with the specified name already exists.

If provider.EventIntervalLists.Contains("EventIntervalListName") Then

 Console.WriteLine("The event interval list ""{0}"" already exists!", "EventIntervalListName")

End If

Create and configure event interval list from file.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider

// String intervalFile: Path to interval file.


' Example contents of a file

'

'  STK.V.10.0

'

'  BEGIN IntervalList

'      ScenarioEpoch 1 Jul 1999 00:00:00.00

'      DATEUNITABRV UTCG

'

'  BEGIN Intervals

'      "1 Jul 1999 00:00:00.00" "1 Jul 1999 02:00:00.00"

'      "1 Jul 1999 05:00:00.00" "1 Jul 1999 07:00:00.00"

'      "1 Jul 1999 11:00:00.00" "1 Jul 1999 13:00:00.00"

'      "1 Jul 1999 17:00:00.00" "1 Jul 1999 19:00:00.00"

'  END Intervals

'

'  END IntervalList


Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListFile("MyIntervalListFromFile", "MyDescription", intervalFile)

Dim asListFile As IAgCrdnEventIntervalListFile = TryCast(intervalList, IAgCrdnEventIntervalListFile)


Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Create and configure filtered event interval list.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListFiltered("MyIntervalListFiltered", "MyDescription")

Dim listFiltered As IAgCrdnEventIntervalListFiltered = TryCast(intervalList, IAgCrdnEventIntervalListFiltered)


listFiltered.OriginalIntervals = provider.EventIntervalLists("AttitudeIntervals")


Dim firstIntervals As IAgCrdnFirstIntervalsFilter = TryCast(listFiltered.FilterFactory.Create(AgECrdnPruneFilter.eCrdnPruneFilterFirstIntervals), IAgCrdnFirstIntervalsFilter)

firstIntervals.MaximumNumberOfIntervals = 3


' Or for example satisfaction intervals

Dim asSatisfactionCondition As IAgCrdnSatisfactionConditionFilter = TryCast(listFiltered.FilterFactory.Create(AgECrdnPruneFilter.eCrdnPruneFilterSatisfactionIntervals), IAgCrdnSatisfactionConditionFilter)

asSatisfactionCondition.Condition = provider.Conditions("BeforeStop")

asSatisfactionCondition.DurationKind = AgECrdnIntervalDurationKind.eCrdnIntervalDurationKindAtLeast


' Uses current Time unit preference, this code snippet assumes seconds.

asSatisfactionCondition.IntervalDuration = 30


Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Create and configure list condition event interval.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListCondition("MyIntervalListSatisfaction", "MyDescription")

Dim asListCondition As IAgCrdnEventIntervalListCondition = TryCast(intervalList, IAgCrdnEventIntervalListCondition)


asListCondition.Condition = provider.Conditions("AfterStart")


Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Create and configure merged event interval list.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt

Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt


Dim intervalList As IAgCrdnEventIntervalList = satelliteVgtProvider.EventIntervalLists.Factory.CreateEventIntervalListMerged("MyIntervalListMerged", "MyDescription")

Dim asListMerged As IAgCrdnEventIntervalListMerged = TryCast(intervalList, IAgCrdnEventIntervalListMerged)


asListMerged.SetIntervalListA(satelliteVgtProvider.EventIntervalLists("AvailabilityIntervals"))

asListMerged.SetIntervalListB(aircraftVgtProvider.EventIntervalLists("AvailabilityIntervals"))

asListMerged.MergeOperation = AgECrdnEventListMergeOperation.eCrdnEventListMergeOperationMINUS


Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Create and configure scaled event interval list.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListScaled("MyIntervalListScaled", "MyDescription")

Dim asListScaled As IAgCrdnEventIntervalListScaled = TryCast(intervalList, IAgCrdnEventIntervalListScaled)


asListScaled.AbsoluteIncrement = 40


' Or use Relative

asListScaled.UseAbsoluteIncrement = False

asListScaled.RelativeIncrement = 20

' Percentage

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Create and configure signaled event interval list.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim satelliteVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Satellite/LEO").Vgt

Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt


Dim intervalList As IAgCrdnEventIntervalList = satelliteVgtProvider.EventIntervalLists.Factory.CreateEventIntervalListSignaled("MyIntervalListSignaled", "MyDescription")

Dim asListSingled As IAgCrdnEventIntervalListSignaled = TryCast(intervalList, IAgCrdnEventIntervalListSignaled)


asListSingled.OriginalIntervals = aircraftVgtProvider.EventIntervalLists("BeforeStop.SatisfactionIntervals")

asListSingled.BaseClockLocation = satelliteVgtProvider.Points("Center")

asListSingled.TargetClockLocation = aircraftVgtProvider.Points("Center")


asListSingled.SignalSense = AgECrdnSignalSense.eCrdnSignalSenseTransmit

Dim basicSignalDelay As IAgCrdnSignalDelayBasic = TryCast(asListSingled.SignalDelay, IAgCrdnSignalDelayBasic)

basicSignalDelay.SpeedOption = AgECrdnSpeedOptions.eCrdnCustomTransmissionSpeed


' Uses current Time unit preference, this code snippet assumes seconds.

basicSignalDelay.TimeDelayConvergence = 0.002


Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Create and configure time offset event interval list.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.CreateEventIntervalListTimeOffset("MyIntervalListFixedTimeOffset", "MyDescription")

Dim asTimeOffset As IAgCrdnEventIntervalListTimeOffset = TryCast(intervalList, IAgCrdnEventIntervalListTimeOffset)


asTimeOffset.ReferenceIntervals = provider.EventIntervalLists("AfterStart.SatisfactionIntervals")


' Uses current Time unit preference, this code snippet assumes seconds.

asTimeOffset.TimeOffset = 300


Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Determine if epoch occured in interval collection.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim intervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists("AttitudeIntervals")


' The reference event you want to determine if event of interest happened before.

Dim timeEvent As IAgCrdnEvent = provider.Events("GroundTrajectory.Detic.LLA.Altitude.TimeOfMin")

Dim occurrence As IAgCrdnEventFindOccurrenceResult = timeEvent.FindOccurrence()


If intervalList.Occurred(occurrence.Epoch) Then

 Console.WriteLine("The time of maximum altitude occurred in event interval list.")

Else

 Console.WriteLine("The time of maximum altitude did not occurred in event interval list.")

End If

Determine if the specified event interval list type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnEventIntervalListType eventIntervalListType: A event interval list type.


' Check if the specified event interval list type is supported.

If provider.EventIntervalLists.Factory.IsTypeSupported(eventIntervalListType) Then

 'Create an EventIntervalList with the supported Type

 Dim eventIntervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists.Factory.Create("MyEventIntervalList", String.Empty, eventIntervalListType)

End If

Determine the intervals an aircraft is above a certain velocity.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


Dim aircraftVgtProvider As IAgCrdnProvider = stkRoot.GetObjectFromPath("Aircraft/UAV").Vgt


Dim intervalList As IAgCrdnEventIntervalList = aircraftVgtProvider.EventIntervalLists.Factory.CreateEventIntervalListCondition("IntervalsAboveCertainVelocity", "MyDescription")

Dim asListCondition As IAgCrdnEventIntervalListCondition = TryCast(intervalList, IAgCrdnEventIntervalListCondition)


Dim aboveBoundCondition As IAgCrdnCondition = aircraftVgtProvider.Conditions.Factory.CreateConditionScalarBounds("AboveCertainBound", "MyDescription")

Dim asScalarBounds As IAgCrdnConditionScalarBounds = TryCast(aboveBoundCondition, IAgCrdnConditionScalarBounds)

asScalarBounds.Operation = AgECrdnConditionThresholdOption.eCrdnConditionThresholdOptionAboveMin

asScalarBounds.Scalar = aircraftVgtProvider.CalcScalars("Trajectory(CBI).Cartesian.Z")

'asScalarBounds.Minimum = 4082;


asListCondition.Condition = aboveBoundCondition


Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Determine the intervals without access.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root


' Compute UAV's access to the satellite

Dim satellite As IAgStkObject = stkRoot.GetObjectFromPath("Satellite/LEO")

Dim aircraft As IAgStkObject = stkRoot.GetObjectFromPath("Aircraft/UAV")

Dim satelliteAccess As IAgStkAccess = aircraft.GetAccessToObject(satellite)

satelliteAccess.ComputeAccess()


' Subtract the aircraft availability time with the access times to get the times without access.

Dim intervalList As IAgCrdnEventIntervalList = aircraft.Vgt.EventIntervalLists.Factory.CreateEventIntervalListMerged("IntervalsWithoutAccess", "MyDescription")

Dim asListMerged As IAgCrdnEventIntervalListMerged = TryCast(intervalList, IAgCrdnEventIntervalListMerged)

asListMerged.SetIntervalListA(aircraft.Vgt.EventIntervalLists("AvailabilityIntervals"))

asListMerged.SetIntervalListB(satelliteAccess.Vgt.EventIntervalLists("AccessIntervals"))

asListMerged.MergeOperation = AgECrdnEventListMergeOperation.eCrdnEventListMergeOperationMINUS


' Print times without access.

Dim intervals As IAgCrdnIntervalListResult = intervalList.FindIntervals()

If intervals.IsValid Then

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Start: " + interval.Start)

 Console.WriteLine("Stop: " + interval.[Stop])

 Next

End If

Determines the event intervals contained in the interval list.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


Dim intervalsList As IAgCrdnEventIntervalList = provider.EventIntervalLists("AttitudeIntervals")


Dim intervals As IAgCrdnIntervalListResult = intervalsList.FindIntervals()


If intervals.IsValid Then

 Console.WriteLine("Intervals:")

 For Each interval As IAgCrdnInterval In intervals.Intervals

 Console.WriteLine("Interval Start: " + interval.Start)

 Console.WriteLine("Interval Stop: " + interval.[Stop])

 Next

End If

Enumerate the existing event interval lists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing EventIntervalLists using specified CrdnProvider.

For Each eventIntervalList As IAgCrdnEventIntervalList In provider.EventIntervalLists

 ' All event interval lists implement IAgCrdn interface which provides

 ' information about the event interval list instance and its type.

 Dim crdn As IAgCrdn = TryCast(eventIntervalList, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventIntervalList.Type)

Next

Iterate through existing event interval lists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing event interval lists associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.EventIntervalLists.Count

 Dim eventIntervalList As IAgCrdnEventIntervalList = provider.EventIntervalLists(i)

 ' All event interval lists implement IAgCrdn interface which provides

 ' information about the event interval list's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.EventIntervalLists(i), IAgCrdn)

 ' Print the event interval list's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, eventIntervalList.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing event interval list with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the event interval list with specified name exists

If provider.EventIntervalLists.Contains("EventIntervalListName") Then

 provider.EventIntervalLists.Remove("EventIntervalListName")

End If

Check whether a parameter set with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


'Check if a parameter set with the specified name already exists.

If provider.ParameterSets.Contains("ParameterSetName") Then

 Console.WriteLine("The parameter set ""{0}"" already exists!", "ParameterSetName")

End If

Create an attitude parameter set.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


'Create an attitude parameter set.

Dim parameterSet As IAgCrdnParameterSetAttitude = DirectCast(provider.ParameterSets.Factory.Create("ParameterSetName", "Attitude parameter set.", AgECrdnParameterSetType.eCrdnParameterSetTypeAttitude), IAgCrdnParameterSetAttitude)

Determine if the specified parameter set type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnParameterSetType parameterSetType: A parameter set type.


' Check if the specified parameter set type is supported.

If provider.ParameterSets.Factory.IsTypeSupported(parameterSetType) Then

 'Create a ParameterSet with the supported Type

 Dim parameterSet As IAgCrdnParameterSet = provider.ParameterSets.Factory.Create("MyParameterSet", String.Empty, parameterSetType)

End If

Enumerate the existing parameter sets.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing ParameterSets using specified CrdnProvider.

For Each parameterSet As IAgCrdnParameterSet In provider.ParameterSets

 ' All parameter sets implement IAgCrdn interface which provides

 ' information about the parameter set instance and its type.

 Dim crdn As IAgCrdn = TryCast(parameterSet, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, parameterSet.Type)

Next

Iterate through existing parameter sets.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing parameter sets associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.ParameterSets.Count

 Dim parameterSet As IAgCrdnParameterSet = provider.ParameterSets(i)

 ' All parameter sets implement IAgCrdn interface which provides

 ' information about the parameter set's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.ParameterSets(i), IAgCrdn)

 ' Print the parameter set's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, parameterSet.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing parameter set with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the parameter set with specified name exists

If provider.ParameterSets.Contains("ParameterSetName") Then

 provider.ParameterSets.Remove("ParameterSetName")

End If

Check whether a plane with specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the plane with the specified name already exists.

If provider.Planes.Contains("PlaneName") Then

 Console.WriteLine("The plane ""{0}"" already exists!", "PlaneName")

End If

Check whether the reference plane has a cyclic dependency on another plane.

[Visual Basic .NET] Copy Code

// IAgCrdnPlaneRefTo planeRefTo: Reference to a plane.

// IAgCrdnPlane plane: A plane to check against reference plane.


'Check if the reference plane has a cyclic dependency on another plane.

If planeRefTo.HasCyclicDependency(plane) Then

 Console.WriteLine("The plane {0} has a cyclic dependency on plane {1}.", DirectCast(planeRefTo.GetPlane(), IAgCrdn).Name, DirectCast(plane, IAgCrdn).Name)

End If

Create a plane normal to vector.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Create a plane normal to vector.

Dim p As IAgCrdnPlaneNormal = DirectCast(provider.Planes.Factory.Create("PlaneName", "A plane normal to vector.", AgECrdnPlaneType.eCrdnPlaneTypeNormal), IAgCrdnPlaneNormal)

Determine if the specified plane type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// AgECrdnPlaneType planeType: A plane type.


' Check if the specified plane type is supported.

If provider.Planes.Factory.IsTypeSupported(planeType) Then

 Dim p As IAgCrdnPlane = provider.Planes.Factory.Create("PlaneName", String.Empty, planeType)

End If

Enumerate the existing planes.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing Planes using specified CrdnProvider.

For Each plane As IAgCrdnPlane In provider.Planes

 ' All planes implement IAgCrdn interface which provides

 ' information about the plane instance and its type.

 Dim crdn As IAgCrdn = TryCast(plane, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, plane.Type)

Next

Iterate through existing planes.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing planes associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.Planes.Count

 Dim plane As IAgCrdnPlane = provider.Planes(i)

 ' All planes implement IAgCrdn interface which provides

 ' information about the plane's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.Planes(i), IAgCrdn)

 ' Print the plane's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, plane.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing plane with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the plane with specified name exists

If provider.Planes.Contains("PlaneName") Then

 provider.Planes.Remove("PlaneName")

End If

Check whether a point with the specified name exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if a point with specified name exists.

If provider.Points.Contains("PointName") Then

 Console.WriteLine("The point ""{0}"" exists!", "PointName")

End If

Check whether the reference point has a cyclic dependency on another point.

[Visual Basic .NET] Copy Code

// IAgCrdnPointRefTo pointRefTo: Reference to a point.

// IAgCrdnPoint point: A point to check against reference point.


'Check if the reference point has a cyclic dependency on another point.

If pointRefTo.HasCyclicDependency(point) Then

 Console.WriteLine("The point {0} has a cyclic dependency on point {1}.", DirectCast(pointRefTo.GetPoint(), IAgCrdn).Name, DirectCast(point, IAgCrdn).Name)

End If

Create a B-Plane point using selected target body.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// String TargetBody: A target central body


' Create a B-Plane point using selected target body

Dim point As IAgCrdnPointBPlane = DirectCast(provider.Points.Factory.Create("PointName", String.Empty, AgECrdnPointType.eCrdnPointTypeBPlane), IAgCrdnPointBPlane)

point.TargetBody.SetPath(TargetBody)

Determine if the specified point type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// AgECrdnPointType PointType: A point type


' Check if the specified point type is supported.

If provider.Points.Factory.IsTypeSupported(PointType) Then

 Dim point As IAgCrdnPoint = provider.Points.Factory.Create("PointName", String.Empty, PointType)

End If

Enumerate the existing points.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing points using specified CrdnProvider.

For Each point As IAgCrdnPoint In provider.Points

 ' All points implement IAgCrdn interface which provides

 ' information about the point instance and its type.

 Dim crdn As IAgCrdn = TryCast(point, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, point.Type)

Next

Iterate through the existing points.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing points associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.Points.Count

 Dim point As IAgCrdnPoint = provider.Points(i)

 ' All points implement IAgCrdn interface which provides

 ' information about the point instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.Points(i), IAgCrdn)

 ' Print the point name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, point.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Locates a point in the Earth's Fixed reference frame.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// IAgCrdnPoint point: A valid VGT point object.


Dim result As IAgCrdnPointLocateInSystemResult = point.LocateInSystem(0, provider.WellKnownSystems.Earth.Fixed)

If result.IsValid Then

 Console.WriteLine("The position of the point in Earth's Fixed reference frame: {0},{1},{2}", result.Position.X, result.Position.Y, result.Position.Z)

End If

Remove an existing point with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the specified point exists

If provider.Points.Contains("PointName") Then

 provider.Points.Remove("PointName")

End If

Check whether a system with the specified name exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the specified system exists.

If provider.Systems.Contains("SystemName") Then

 Console.WriteLine("The system ""{0}"" exists!", "SystemName")

End If

Check whether the reference system has a cyclic dependency on another system.

[Visual Basic .NET] Copy Code

// IAgCrdnSystemRefTo systemRefTo: Reference to a system.

// IAgCrdnSystem system: A system to check against reference system.


'Check if the reference system has a cyclic dependency on another system.

If systemRefTo.HasCyclicDependency(system) Then

 Console.WriteLine("The system {0} has a cyclic dependency on system {1}.", DirectCast(systemRefTo.GetSystem(), IAgCrdn).Name, DirectCast(system, IAgCrdn).Name)

End If

Create a non-persistent point fixed in a specified reference frame given Cartesian data (using common tasks).

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of a central body VGT provider

// IAgFacility facility: An instance of a facility


Dim X As Double, Y As Double, Z As Double

facility.Position.QueryCartesian(X, Y, Z)

Create a non-persistent point fixed in a specified reference frame given Cartographic data (using common tasks).

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of a central body VGT provider

// IAgFacility facility: An instance of a facility


Dim lat As Object = 0, lon As Object = 0

Dim alt As Double = 0

facility.Position.QueryPlanetodetic(lat, lon, alt)

Create a system assembled from a point serving as its origin and a set of reference axes.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// IAgCrdnPoint OriginPoint: A point of origin.

// IAgCrdnAxes ReferenceAxes: A reference axes.


Dim system As IAgCrdnSystemAssembled = DirectCast(provider.Systems.Factory.Create("SystemName", String.Empty, AgECrdnSystemType.eCrdnSystemTypeAssembled), IAgCrdnSystemAssembled)

' Set the system's origin point.

system.OriginPoint.SetPoint(OriginPoint)

' Set the system's reference axes.

system.ReferenceAxes.SetAxes(ReferenceAxes)

Creates a East-North-Up system at the specified geodetic location (using common tasks).

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of a VGT provider

// IAgFacility facility: An instance of a facility


Dim lat As Object = 0, lon As Object = 0

Dim alt As Double = 0

facility.Position.QueryPlanetodetic(lat, lon, alt)

Creates a system assembled from an origin point and a set of reference axes (using common tasks).

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of a central body VGT provider

// IAgFacility facility: An instance of a facility


Dim systemAssembled As IAgCrdnSystemAssembled = provider.Systems.CommonTasks.CreateAssembled((DirectCast(facility, IAgStkObject)).Vgt.Points("Center"), provider.Axes("Fixed"))

Determine if the specified System type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// AgECrdnSystemType SystemType: A system type


' Check if the specified system type is supported.

If provider.Systems.Factory.IsTypeSupported(SystemType) Then

 'Create a System with supported Type

 Dim system As IAgCrdnSystem = provider.Systems.Factory.Create("SystemName", String.Empty, SystemType)

End If

Enumerate the existing systems.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing Systems using specified CrdnProvider.

For Each system As IAgCrdnSystem In provider.Systems

 ' All systems implement IAgCrdn interface which provides

 ' information about the system instance and its type.

 Dim crdn As IAgCrdn = TryCast(system, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, system.Type)

Next

Iterate through existing systems (coordinate reference frames).

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing systems associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.Systems.Count

 Dim crdnSystem As IAgCrdnSystem = provider.Systems(i)

 ' All coordinate reference frames implement IAgCrdn interface which provides

 ' information about the reference frame's instance and its type.

 Dim crdn As IAgCrdn = TryCast(provider.Systems(i), IAgCrdn)

 ' Print the reference frame's name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, crdnSystem.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing system with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider


' Check if the specified system exists.

If provider.Systems.Contains("SystemName") Then

 provider.Systems.Remove("SystemName")

End If

Check whether the reference vector has a cyclic dependency on another vector.

[Visual Basic .NET] Copy Code

// IAgCrdnVectorRefTo vectorRefTo: Reference to a vector.

// IAgCrdnVector vector: A vector to check against reference vector.


'Check if the reference vector has a cyclic dependency on another vector.

If vectorRefTo.HasCyclicDependency(vector) Then

 Console.WriteLine("The vector {0} has a cyclic dependency on vector {1}.", DirectCast(vectorRefTo.GetVector(), IAgCrdn).Name, DirectCast(vector, IAgCrdn).Name)

End If

Check whether the vector with the specified name already exists.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// String VectorName: Name of the vector to check for.


'Check if the vector with specified name already exists.

If provider.Vectors.Contains(VectorName) Then

 Console.WriteLine("The vector {0} already exists!", VectorName)

End If

Computes the vector in the Earth's Fixed axes.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider

// IAgCrdnVector vector: A valid VGT vector object.


Dim result As IAgCrdnVectorFindInAxesResult = vector.FindInAxes(0, provider.WellKnownAxes.Earth.Fixed)

If result.IsValid Then

 Console.WriteLine("Vector in the Earth's Fixed axes (x,y,z) => {0},{1},{2}", result.Vector.X, result.Vector.Y, result.Vector.Z)

End If

Create a displacement vector defined by its origin and destination points.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// IAgCrdnPoint OriginPoint: Defines the vector origin.

// IAgCrdnPoint DestinationPoint: Defines the vector destination.


'Create a displacement vector with two specified points

Dim vector As IAgCrdnVectorDisplacement = provider.Vectors.Factory.CreateDisplacementVector("VectorName", OriginPoint, DestinationPoint)

Creates a vector defined as a cross product of vectors A and B.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// IAgCrdnVector VectorA: First vector.

// IAgCrdnVector VectorB: Second vector.


'Create a vector defined as cross product of vectors A and B.

Dim vector As IAgCrdnVectorCross = provider.Vectors.Factory.CreateCrossProductVector("CrossVector", VectorA, VectorB)

Determine if the specified vector type is supported.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// AgECrdnVectorType vectorType: A vector type.


'Check if the specified vector type is supported.

If provider.Vectors.Factory.IsTypeSupported(vectorType) Then

 ' Create a custom vector.

 Dim vector As IAgCrdnVector = provider.Vectors.Factory.Create("myVector", String.Empty, vectorType)

End If

Enumerate the existing vectors.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: A Vector Geometry Tool provider


' Enumerate the existing vectors using specified CrdnProvider.

For Each vector As IAgCrdnVector In provider.Vectors

 ' All vectors implement IAgCrdn interface which provides

 ' information about the vector instance and its type.

 Dim crdn As IAgCrdn = TryCast(vector, IAgCrdn)

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, vector.Type)

Next

Iterate through the existing vectors.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.


' Iterate through the the group of existing vectors associated

' with the specified CrdnProvider.

Dim i As Integer = 0

While i < provider.Vectors.Count

 Dim vector As IAgCrdnVector = provider.Vectors(i)

 ' All vectors implement IAgCrdn interface which provides

 ' information about the vector instance and its type.

 Dim crdn As IAgCrdn = TryCast(vector, IAgCrdn)

 ' Print the vector name and type to the standard output.

 Console.WriteLine("Name: {0}, type: {1}", crdn.Name, vector.Type)

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Remove an existing vector with the specified name.

[Visual Basic .NET] Copy Code

// IAgCrdnProvider provider: An instance of VGT provider.

// String VectorName: A name of the vector to be removed.


' Check if the vector with specified name already exists.

If provider.Vectors.Contains(VectorName) Then

 provider.Vectors.Remove(VectorName)

End If

Enumerate all 2D (Map) windows and print their map identifiers.

[Visual Basic .NET] Copy Code

// AgUiApplication application: STK Application object


For Each window As IAgUiWindow In application.Windows

 Dim oSvc As Object = window.GetServiceByType(AgEWindowService.eWindowService2DWindow)

 Dim mapObject As IAgUiWindowMapObject = TryCast(oSvc, IAgUiWindowMapObject)

 If mapObject IsNot Nothing Then

 Console.WriteLine("Window Title: {0}, scene ID: {1}", window.Caption, mapObject.MapID)

 End If

Next

Enumerate all 2D (Map) windows and print their map identifiers.

[Visual Basic .NET] Copy Code

// AgUiApplication application: STK Application object


For Each window As IAgUiWindow In application.Windows

 Dim oSvc As Object = window.GetServiceByType(AgEWindowService.eWindowService2DWindow)

 Dim mapObject As IAgUiWindowMapObject = TryCast(oSvc, IAgUiWindowMapObject)

 If mapObject IsNot Nothing Then

 Console.WriteLine("Window Title: {0}, scene ID: {1}", window.Caption, mapObject.MapID)

 End If

Next

Enumerate all 3D (Globe) windows and print their scene identifiers.

[Visual Basic .NET] Copy Code

// AgUiApplication application: STK Application object


For Each window As IAgUiWindow In application.Windows

 Dim oSvc As Object = window.GetServiceByType(AgEWindowService.eWindowService3DWindow)

 Dim globeObject As IAgUiWindowGlobeObject = TryCast(oSvc, IAgUiWindowGlobeObject)

 If globeObject IsNot Nothing Then

 Console.WriteLine("Window Title: {0}, scene ID: {1}", window.Caption, globeObject.SceneID)

 End If

Next

Enumerate all 3D (Globe) windows and print their scene identifiers.

[Visual Basic .NET] Copy Code

// AgUiApplication application: STK Application object


For Each window As IAgUiWindow In application.Windows

 Dim oSvc As Object = window.GetServiceByType(AgEWindowService.eWindowService3DWindow)

 Dim globeObject As IAgUiWindowGlobeObject = TryCast(oSvc, IAgUiWindowGlobeObject)

 If globeObject IsNot Nothing Then

 Console.WriteLine("Window Title: {0}, scene ID: {1}", window.Caption, globeObject.SceneID)

 End If

Next

Computes the distance between two locations.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


Dim centralBodyEllipsoid As IAgStkCentralBodyEllipsoid = root.CentralBodies("Earth").Ellipsoid


' Compute the distance between Philadelphia and London.

' The code snippet assumes the latitude and longitude unit preference is set to degrees.

Dim distance As Double = centralBodyEllipsoid.ComputeSurfaceDistance(40.0068, -75.1347, 51.4879, -0.178)

Console.WriteLine("The distance between Philadelphia and London is: {0}", distance)

Create 2525b symbol

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// String filePath: Saved image file path


' Generate a 2525b symbol

Dim symbol As IAgStdMil2525bSymbols = root.StdMil2525bSymbols


' Configure symbol properties

symbol.SymbolImageSize = 128

symbol.FillEnabled = True


' CreateSymbol

symbol.CreateSymbol("sjgpewrh--mtusg", filePath)

Gets the altitude of the terrain at a single location and in batches.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// Double latitude: Terrain Latitude Position

// Double longitude: Terrain Longitude Position

// String terrainFile: Path of Terrain file


Dim scneario As IAgScenario = DirectCast(root.CurrentScenario, IAgScenario)


' If you haven't done so, add the terrain to your scenario (for example .PDTT)

Dim earthTerrain As IAgCentralBodyTerrainCollectionElement = scneario.Terrain("Earth")

earthTerrain.TerrainCollection.Add(terrainFile, AgETerrainFileType.ePDTTTerrainFile)


' Get single altitude

Dim altitude As Double = earthTerrain.GetAltitude(latitude, longitude, AgEAltRefType.eMSL)


' Get points in batches.

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

Gets the altitude profile of the terrain.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root

// String terrainFile: Path of Terrain file


Dim scneario As IAgScenario = DirectCast(root.CurrentScenario, IAgScenario)


' If you haven't done so, add the terrain to your scenario (for example .PDTT)

Dim earthTerrain As IAgCentralBodyTerrainCollectionElement = scneario.Terrain("Earth")

Dim terrain As IAgTerrain = earthTerrain.TerrainCollection.Add(terrainFile, AgETerrainFileType.ePDTTTerrainFile)


' Get diagonal altitude profile using the max resolution of the terrain file.

Dim terrainProfile As Array = earthTerrain.GetAltitudesBetweenPointsAtResolution(terrain.SWLatitude, terrain.SWLongitude, terrain.NELatitude, terrain.NELongitude, terrain.Resolution, AgEDistanceOnSphere.eDistanceOnSphereGreatCircle, _

 AgEAltRefType.eMSL)


' GetAltitudeProfile returns a two dimensional array of lat lon alt values.

Dim numPoints As Integer = terrainProfile.GetLength(0)

Dim i As Integer = 0

While i < numPoints

 Console.WriteLine("Latitude={0}, Longitude={1}, Altitude={2}", terrainProfile.GetValue(i, 0), terrainProfile.GetValue(i, 1), terrainProfile.GetValue(i, 2))

 System.Threading.Interlocked.Increment(i)

End While

Load a VDF

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model Root

// String vdfPath: The full file path of the VDF

// String vdfPassword: The password to open the VDF


' Pass an empty string if there is no password to the VDF.

root.LoadVDF(vdfPath, vdfPassword)

Sets the scenario analysis time to the empheris time of another object.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root

// IAgScenario scenario: Scenario object


Dim satellite As IAgSatellite = TryCast(stkRoot.GetObjectFromPath("/Satellite/GeoEye"), IAgSatellite)


Dim vgtProvider As IAgCrdnProvider = stkRoot.VgtRoot.GetProvider("/Satellite/GeoEye")

Dim twoBody As IAgVePropagatorTwoBody = TryCast(satellite.Propagator, IAgVePropagatorTwoBody)

Dim startEpoch As IAgCrdnEventSmartEpoch = twoBody.EphemerisInterval.GetStartEpoch()

Dim stopEpoch As IAgCrdnEventSmartEpoch = twoBody.EphemerisInterval.GetStopEpoch()


scenario.AnalysisInterval.SetStartAndStopEpochs(startEpoch, stopEpoch)

Sets the scenario analysis time to today and the duration to one day.

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot stkRoot: STK Object Model root

// IAgScenario scenario: Scenario object


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

Execute Connect command

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


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

Execute multiple Connect commands

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


Dim result As IAgExecMultiCmdResult = root.ExecuteMultipleCommands(connectCommands, AgEExecMultiCmdResultAction.eExceptionOnError)

Extract data from a multiple Connect result

[Visual Basic .NET] Copy Code

// IAgExecMultiCmdResult result: Connect mutiple exection result


Dim i As Integer = 0

While i < result.Count

 If result(i).IsSucceeded Then

 Dim j As Integer = 0

 While j < result(i).Count

 Console.WriteLine(result(j))

 System.Math.Max(System.Threading.Interlocked.Increment(j),j - 1)

 End While

 End If

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

End While

Extract data from Connect result

[Visual Basic .NET] Copy Code

// IAgExecCmdResult result: Connect exection result


If result.IsSucceeded Then

 Dim i As Integer = 0

 While i < result.Count

 Console.WriteLine(result(i))

 System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

 End While

End If

Convert a position to another representation

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


Dim converter As IAgConversionUtility = root.ConversionUtility


' ConvertPositionArray expects a two dimensional array of positions

Dim cylindricalPositions As Array = converter.ConvertPositionArray(AgEPositionType.eCartesian, cartesianPositions, AgEPositionType.eCylindrical)

Convert an orbit state to another representation or coordinate system X

[Visual Basic .NET] Copy Code

// IAgOrbitState orbit: Orbit State


Dim newOrbit As IAgOrbitStateClassical = TryCast(orbit.ConvertTo(AgEOrbitStateType.eOrbitStateClassical), IAgOrbitStateClassical)

Extends orbit state to another representation or coordinate system X

[Visual Basic .NET] Copy Code

// IAgOrbitState orbitState: Orbit State


' orbitState can be extended to one of the other representations.

' Here it is extended to Classical representation.

Dim newOrbitState As IAgOrbitStateClassical = TryCast(orbitState.ConvertTo(AgEOrbitStateType.eOrbitStateClassical), IAgOrbitStateClassical)


' Set the new orbit state parameters

newOrbitState.AssignClassical(AgECoordinateSystem.eCoordinateSystemICRF, 12000000, 0, 1.8, 0, -1.8, _

 0)

Query direction as another representation

[Visual Basic .NET] Copy Code

// IAgDirection direction: Direction


' Method 1

Dim b As Object = Nothing, c As Object = Nothing

direction.QueryEuler(AgEEulerDirectionSequence.e12, b, c)

Console.WriteLine("B = {0}, C = {1}", b, c)

#End If

' Method 2

' The Query functions returns a one dimension array

' The number of column rows depends on the representation

Dim euler As Array = direction.QueryEulerArray(AgEEulerDirectionSequence.e12)

Delay graphics updates while manipulating properties of an object

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Root


Dim satellite As IAgSatellite = TryCast(root.CurrentScenario.Children("Satellite1"), IAgSatellite)

Dim voElt As IAgVODataDisplayElement = satellite.VO.DataDisplay(0)


root.BeginUpdate()

' Suspend updates

' Put modifications here

voElt.IsVisible = True

voElt.UseBackground = True

voElt.BgColor = Color.Green

voElt.UseBackground = False


root.EndUpdate()

' Resume updates now

Calculate date addition (with IAgDate)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Create a date representing now

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

Calculate date subtraction (with IAgDate)

[Visual Basic .NET] Copy Code

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

Calculate quantity addition (with IAgQuantity)

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' Create a quantity representing a 3.1 mile/ 5 km fun run race

Dim race3mi As IAgQuantity = root.ConversionUtility.NewQuantity("Distance", "mi", 3.1)

Dim race5km As IAgQuantity = root.ConversionUtility.NewQuantity("Distance", "km", 5)


' Add the two 3.1 mile/ 5 km runs

Dim race10km As IAgQuantity = race5km.Add(race3mi)

Console.Write("The {0} {1} race is also called a ", race10km.Value, race10km.Unit)


' Convert 10k run to 6.2 mile run internally within the quantity

race10km.ConvertToUnit("mi")

Console.WriteLine("{0} {1} race", race10km.Value, race10km.Unit)

Convert a date format to another format

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


Dim converter As IAgConversionUtility = root.ConversionUtility


' Individually

Dim epsec As String = converter.ConvertDate("UTCG", "Epsec", "1 Jan 2012 12:00:00.000")

Dim utcg As String = converter.ConvertDate("EpSec", "UTCG", "230126401.000")

Convert a quantity unit to another unit

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


Dim converter As IAgConversionUtility = root.ConversionUtility


' Old value in miles, new value in km

Dim newValue As Double = converter.ConvertQuantity("DistanceUnit", "mi", "km", 1)

Convert mulitple quantities of the same unit to another unit

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


Dim converter As IAgConversionUtility = root.ConversionUtility


' ConvertQuantityArray expects a one dimensional array of values to be converted

' An array of km/sec units

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] Copy Code

// IAgStkObjectRoot root: STK Object Model root


Dim converter As IAgConversionUtility = root.ConversionUtility


' In batches

' ConvertDateArray expects a one dimensional array of dates

' An array of UTCG dates

Dim converted As Array = converter.ConvertDateArray("UTCG", "Epsec", tempDates)

Get a current unit preference

[Visual Basic .NET] Copy Code

// IAgStkObjectRoot root: STK Object Model root


' DistanceUnit

Dim dimensionName As String = "Distance"

Dim unitAbbreviation As String = root.UnitPreferences.GetCurrentUnitAbbrv(dimensionName)

Isolate Unit Preferences when using multiple IAgStkObjectRoot objects

[Visual Basic .NET] Copy Code


' First root configured to use km

Dim root1 As IAgStkObjectRoot = New AgStkObjectRootClass()

root1.UnitPreferences.SetCurrentUnit("Distance", "km")


' Second root configured to use miles

Dim root2 As IAgStkObjectRoot = New AgStkObjectRootClass()

root2.Isolate()

root2.UnitPreferences.SetCurrentUnit("Distance", "mi")


' Create new scenario and ship object

' Close current scenario

If root1.CurrentScenario IsNot Nothing Then

 root1.CloseScenario()

End If

root1.NewScenario("Test")

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


' Obtain references to the ship object from each root

Dim shipFromRoot1 As IAgShip = TryCast(root1.GetObjectFromPath("Ship/Ship1"), IAgShip)

Dim shipFromRoot2 As IAgShip = TryCast(root2.GetObjectFromPath("Ship/Ship1"), IAgShip)


shipFromRoot1.SetRouteType(AgEVePropagatorType.ePropagatorGreatArc)


Dim greatArcFromRoot1 As IAgVePropagatorGreatArc = TryCast(shipFromRoot1.Route, IAgVePropagatorGreatArc)

Dim greatArcFromRoot2 As IAgVePropagatorGreatArc = TryCast(shipFromRoot2.Route, IAgVePropagatorGreatArc)


Dim waypointsFromRoot1 As IAgVeWaypointsElement = greatArcFromRoot1.Waypoints.Add()


waypointsFromRoot1.Altitude = 1

' 1 km

Dim waypointsFromRoot2 As IAgVeWaypointsElement = greatArcFromRoot2.Waypoints.Add()


waypointsFromRoot2.Altitude = 1

' 1 mile

greatArcFromRoot1.Propagate()


Dim i As Integer = 1

For Each wpt As IAgVeWaypointsElement In greatArcFromRoot1.Waypoints

 Console.WriteLine("Point #{0} Altitude {1} {2}", i, wpt.Altitude, root1.UnitPreferences.GetCurrentUnitAbbrv("Distance"))

 System.Threading.Interlocked.Increment(i)

Next

Console.WriteLine()


'Sample Output

'Point #1 Altitude 1 km

'Point #2 Altitude 1.609344 km


i = 1

For Each wpt As IAgVeWaypointsElement In greatArcFromRoot2.Waypoints

 Console.WriteLine("Point #{0} Altitude {1} {2}", i, wpt.Altitude, root2.UnitPreferences.GetCurrentUnitAbbrv("Distance"))

 System.Threading.Interlocked.Increment(i)

Next


'Sample Output

'Point #1 Altitude 0.621371192237334 mi

'Point #2 Altitude 1 mi


root1.CloseScenario()

Visual Basic .NET Code Snippets

Introduction

How do I ...

Initialization

STK Objects

Area Target

Chain

Common

Access

Data Providers

Graphics

2D

3D

Object Coverage

Communications

Link Budget

Constellation

Coverage Definition

Advanced

Graphics

Facility

Figure of Merit

MTO

Analysis

Graphics

3D

Place

Planet

Graphics

Radar

Probability of Detection

Scenario

Graphics

Object Management

Scenario Management

Sensor

Graphics

3D

Star

Target

Vehicles

Aircraft

Common

Attitude

Graphics

3D

Propagators

Astrogator

Ballistic

GPS

Great Arc

HPOP

J2 Perturbation

J4 Perturbation

LOP

Realtime

SGP4

Simple Ascent

SPICE

Ground Vehicle

Launch Vehicle

Missile

Satellite

Ship

STK Plugins

Attributes

Graphics

Bounding Sphere

Box Triangulator

Camera

Convolution Filter

Display Condition

DisplayConditions

Ellipsoid Triangulator

Extruded Polyline Triangulator

GlobeOverlays

Imaging

Jpeg2000 Writer

Model Primitive

Overlay