'--------------------------------------------------------------------
' Example to show how to use the LargeMesh filter Match
' method
'
' README: install the example from the filter object help
' page before running this example.
'--------------------------------------------------------------------
set f = Application.Filters("LargeMesh")
if ( typename(f) <> "Nothing" ) then
set model = ActiveSceneRoot
set cone = model.AddGeometry( "cone", "MeshSurface" )
set grid = model.AddGeometry( "Grid", "MeshSurface" )
For Each o in model.Children
LogMessage o & " is a large mesh: " & f.Match(o)
Next
'Output of above script:
'INFO : "Camera_Root is a large mesh: False"
'INFO : "light is a large mesh: False"
'INFO : "cone is a large mesh: False"
'INFO : "grid is a large mesh: True"
end if |