Description

This command retrieves the overall roughness probability from a sampled random surface normal roughness model.

Syntax

roughProb = SurfRoughSRSNGetOverallRoughnessProbability( roughNode )

Parameters

roughProb (Double)

Retrieved overall roughness probability value for roughNode.

roughNode As Long

Node number of the sampled random surface normal roughness model being queried.

Example

The following example loops over all surface roughness models and prints their node number, active state, roughness probability, name and description to the output window.

Sub Main

    Print "Node" & Chr(9) & "Active" & Chr(9) & "Prob." & Chr(9) & "Name" & Chr(9) & "Desc."

    Dim roughCount As Long, curRough As Long

    Dim roughDesc As String, roughName As String

    For curRough = SurfRoughGetMaxNodeNum To 0 Step -1

        If SurfRoughIsValidNode( curRough ) Then

            roughDesc = SurfRoughGetDescription( curRough )

           roughName = SurfRoughGetName( curRough )

            Print curRough;

           Print SurfRoughIsActive( curRough );

           If SurfRoughGetType( curRough ) = "SampRanNorm" Then

                     Print SurfRoughSRSNGetOverallRoughnessProbability( curRough )

           Else

                    Print "N/A"

           End If

           Print roughName;

            Print roughDesc

        End If

    Next curRough

End Sub

See Also

SurfRoughCopy

SurfRoughDelete

SurfRoughDeleteAllNodes

SurfRoughFindName

SurfRoughGetDescription

SurfRoughGetMaxNodeNum

SurfRoughGetName

SurfRoughGetNodeCount

SurfRoughGetType

SurfRoughIsActive

SurfRoughIsValidNode

SurfRoughSetActive

SurfRoughSetDescription

SurfRoughSetName

SurfRoughSRSNCreate

SurfRoughSRSNGetEntries

SurfRoughSRSNGetEntryCount

SurfRoughSRSNGetIthAngle

SurfRoughSRSNGetIthProbability

SurfRoughSRSNSetEntries

SurfRoughSRSNSetOverallRoughnessProbability