Description This function adds an Extended Harvey-Shack scatter model to the document and returns the node number at which the new scatter model was added.
Syntax sNode = AddHarveyShackExtendedScatter( tScatter )
Parameters sNode (Long) Returned node number at which the new scatter model was added to the document.
tScatter as T_HARVEYSHACKEXTENDEDSCATTER Data structure defining the parameters of the scatter model being added.
Example The example below adds a new Extended Harvey-Shack scatter model to the document using the T_HARVEYSHACKEXTENDEDSCATTER data structure.
Sub Main
Dim tScatter As T_HARVEYSHACKEXTENDEDSCATTER Dim sNode As Long InitHarveyShackExtendedScatter( tScatter ) tScatter.ApplyRefl = True tScatter.ApplyTrans = False tScatter.Description = "Extended Harvey Shack Model" tScatter.HaltIncident = False tScatter.name = "Example EHS" tScatter.b0 = 1.0 tScatter.l = 0.1 tScatter.S = -2 tScatter.P = 2 tScatter.Q = 1 sNode = AddHarveyShackExtendedScatter( tScatter )
Update
End Sub
See Also InitHarveyShackExtendedScatter
|