'--------------------------------------------------------------------

'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