'--------------------------------------------------------------------
'This example shows how to use the Subset 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 cube = model.AddGeometry( "Cube", "MeshSurface" )
	set sphere = model.AddGeometry( "Sphere", "MeshSurface" )
	set phong = sphere.AddMaterial( "phong" )
	Selection.Add cone
	Selection.Add cube
	selection.Add sphere
	Selection.Add phong	
	set subset = f.Subset(Selection)
	LogMessage  f.name & ".Subset("&Selection.GetAsText&"): " & subset.GetAsText
	'Output of above script:
	'INFO : "LargeMesh.Subset(cone,cube,sphere): sphere"
end if