Description This subroutine sets the exponents of a Super Gaussian position apodization function.
Syntax SetSourcePosApodSuperGaussianExponents( src, eX, eY )
Parameters src As Long Node number of the source being modified.
eX As Double Super-Gaussian exponent of the function in the X axis.
eY As Double Super-Gaussian exponent of the function in the Y axis.
Example The example below demonstrates how to set the widths, offsets, exponents and mode values of a Super Gaussian position apodization function.
Sub Main
Dim src As Long src = FindFullName( "Optical Sources.Apodized Source" )
SetSourcePosApodSuperGaussian( src, 0.06, 0.001, 0, 0 ) SetSourcePosApodSuperGaussianExponents( src, 10, 1 ) SetSourcePosApodSuperGaussianMode( src, 0, 0, 0 )
Update
End Sub
See Also Detailed Source Scripting Commands GetSourcePosApodSuperGaussianExponent GetSourcePosApodSuperGaussianMode SetSourcePosApodSuperGaussianMode
|