InitHarveyShackExtendedScatter Subroutine

InitHarveyShackExtendedScatter

Description

Initializes a T_HARVEYSHACKEXTENDEDSCATTER structure with default values.

Syntax

InitHarveyShackExtendedScatter tScat

Parameters

tScat As T_HARVEYSHACKEXTENDEDSCATTER

The T_HARVEYSHACKEXTENDEDSCATTER structure to be initialized.

Remarks

This subroutine initializes a T_HARVEYSHACKEXTENDEDSCATTER structure. Defaults are shown in the table below:

Data Type	Default
name	Harvey Shack Extended Scatter Model
description
b0	0.1
L	0.01
S	-1.5
P	0
Q	0
ApplyTrans	False
ApplyRefl	True
HaltIncident	True

Example

The following example script uses T_HARVEYSHACKEXTENDEDSCATTER to initialize and add a new Extended Harvey-Shack scatter model.

Sub Main

Dim tScatter As T_HARVEYSHACKEXTENDEDSCATTER

Dim sNode As Long

InitHarveyShackExtendedScatter( tScatter )

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