Description Sets a specific ray filter operation for a detector entity.
Syntax DESetIthOp deNode, opInd, rfOp
Parameters deNode As Long Node number of the detector entity whose ray filter operation list is being modified.
opInd As Long Zero-based index value for the ray filter operation being modified.
rfOp As T_RAYFILTEROP Structure containing the properties of the ray filter operation.
Example The following example demonstrates the use of the ray filter operation commands as they relate to detector entities. In this example the operation count for a detector entity is retrieved and the operation at index 0 is retrieved and modified before the analysis is performed.
Sub Main
Dim rfOp As T_RAYFILTEROP Dim deNode As Long, opCount As Long, cnt As Long, arnNode As Long Dim success As Boolean
deNode = FindFullName( "Analysis Surface(s).Cylinder Detector Entity" )
opCount = DEGetOpCount( deNode ) Print "Detector entity " & deNode & " has " & opCount & " ray filter operations."
'Get, modify, and set the 0'th operation in the list success = DEGetIthOp( deNode, 0, rfOp ) rfOp.opCode = 23 'scattered rays DESetIthOp deNode, 0, rfOp
'Perform analysis with modified ray filter cnt = DEPerformAnalysis( deNode )
Print "Detector entity analysis results stored in ARN " & DEGetMostRecentARNNum( deNode )
End Sub
See Also
|