''  This file downloaded from Highend3d.com
''  
''  Highend3d.com File Information:
''  
''    Script Name: Subdivide v0.0
''    Author: Dave Carroll
''    Last Updated: March 30, 2001
''    Update/Change this file at:
''    http://www.highend3d.com/xsi/scripts/?section=modeling#950
''  
''  Please do not alter any information above this line
''  it is generated dynamically by Highend3d.com and will
''  be changed automatically on any updates.
''

' Toggles the selected poly mesh's
' subdivision level between 0 and 1

Dim objSelected, intSubDLevel, intNewLevel

Subdivide

Sub Subdivide

	Set objSelected = SIFilter( null, "sceneobject", true, siQuickSearch )

	If typename(objSelected) = "Nothing" Then
		objSelected="Nothing"
		LogMessage "Invalid selection : ", siError
		Exit Sub
	Else
		intSubDLevel = GetValue (objSelected & ".geomapprox.gapproxmosl")
		' LogMessage "SubD Level : " & intSubDLevel
		
		If intSubDLevel => 1 Then
			intNewLevel = 0
		Else
			intNewLevel = 1
		End If	
	End If
	
	' sets the selected object's sub-d level
	SetValue objSelected & ".geomapprox.gapproxmosl", intNewLevel

End Sub