Description

This function retrieves the amount of power absorbed by the specified surface during the most recent raytrace.

Syntax

power = GetSurfAbsorbedPower ( n )

Parameters

power (Double)

Return value indicating the amount of power absorbed by the surface.  If no raytrace has been performed, the return value will be 0.

n As Long

Node number of the surface being queried.

Example

This example uses GetSurfAbsorbedPower to print the amount of power absorbed on each surface in the model. GetFullName is used to associate the surface names with their absorbed power.

Sub Main()

          Dim i As Long

          Dim sname As String, pwer As Double
          For i=0 To GetEntityCount()-1

                    If IsSurface( i ) Then
                              pwer    = GetSurfAbsorbedPower(i)
                              sname = GetFullName(i)
                              Print "Power absorbed on " & sname & " is " & pwer

                    End If
          Next i

End Sub
 

See Also

GetSurfIncidentPower