Description Adds an infinite conjugate lens module surface type to the document.
Syntax LMNode = ModulePerfLensInfiniteAdd( ent, focal )
Parameters LMNode (Long) Node number of the infinite conjugate lens module surface added to the document.
ent As T_ENTITY Data structure containing generic information about the surface (name, description, traceable, etc.).
focal As Double Focal length for the infinite conjugate lens module surface.
Example The following example demonstrates how to create, modify and retrieve information from an infinite conjugate lens module surface.
Sub Main
Dim ent As T_ENTITY Dim CENode As Long, LMInfinite As Long Dim focal As Double
'Add a custom element to store the LM surface ent.name = "Infinite Conjugate LM" ent.Description = "Lens module representing an infinite conjugate lens" ent.parent = 2 'geometry ent.axesDrawable = False ent.limitsDrawable = False ent.traceable = True ent.neverTraceable = False CENode = AddCustomElement( ent )
'Add an infinite conjugate lens module surface type ent.name = "Surf 1" ent.Description = "" ent.parent = CENode LMInfinite = ModulePerfLensInfiniteAdd( ent, 5 ) Print "Infinite Conjugate LM added:" Print Chr(9) & "Node number: " & LMInfinite
'Update the document Update
'Modify infinite conjugate lens module radius and retrieve information ModulePerfLensInfiniteSet LMInfinite, ent, 20 ModulePerfLensInfiniteGet LMInfinite, ent, focal Print Chr(9) & "New focal length: " & focal
End Sub
See Also
|