'--------------------------------------------------------------------
' 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