'
' This example illustrates how to create a nem PolygonMesh from an ApproximatedMesh
' and how to carry over the attributes.
'
set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
set oMaterial = oCube.AddMaterial("Blinn")
'Add Polygon Material and texture
set oPolygonCluster = oCube.ActivePrimitive.Geometry.AddCluster(siPolygonCluster, ,Array(4))
set oMaterial	 = oPolygonCluster.AddMaterial("Phong")
set oImage = AddImageSource( "$SI_HOME\Data\XSI_SAMPLES\Pictures\jio.jpg" )
set oImageClip = AddImageClip( oImage )
set oPhong = oMaterial.Shaders("Phong")
set oColor8Mix1 = oPhong.ambient.connectfromprogid("Softimage.sib_color_8mix.1")
set oColor8Mix2 = oPhong.diffuse.connectfromprogid("Softimage.sib_color_8mix.1")
set oTex2D = oColor8Mix1.color1.connectfromprogid("Softimage.txt2d-image-explicit.1")
call oColor8Mix2.color1.connect(oTex2D)
set oTex2D.tex.source = oImageClip
'Add Polygon Material
set oPolygonCluster = oCube.ActivePrimitive.Geometry.AddCluster(siPolygonCluster,,Array(0,1))
set oMaterial = oPolygonCluster.AddMaterial("Lambert")
'Add UV and VertexColor Properties
set oSamplePointCluster = oCube.ActivePrimitive.Geometry.AddCluster(siSampledPointCluster)
set oUVProp = oSamplePointCluster.AddProperty("Texture Projection")
set oRGBAProp = oSamplePointCluster.AddProperty("Vertex Color")
set oGApprox = oCube.Properties.Find("geomapprox")
oGApprox.Parameters("gapproxmosl").value = 1
MakeLocal oGApprox
ApproxVersion( oCube)
'This function will duplicate the approximated version of the
if selection.count > 0 then
	ApproxVersion( selection(0))
else
	Application.LogMessage "You must select a PolygonMesh"
end if		
'This function will duplicate the approximated version of the
Sub ApproxVersion(in_obj)
	Dim l_NewMesh
	Dim l_Parent
	Dim l_AllInputUVTxtAndCAV
	Dim l_AllOutputUVTxtAndCAV
	Dim l_GeometryApproximation
	Dim l_NewLocalGeometryApproximation
	Dim l_aVertices
	Dim l_aPolygonData
	Dim l_aPolygonNodeNormalArray
	Dim l_aUVArray
	Dim l_aColorArray
	Dim l_aMaterialArray
	Dim l_LocalProperties
	Dim l_attribs
	set l_AllInputUVTxtAndCAV = CreateObject( "XSI.Collection")
	set l_AllOutputUVTxtAndCAV = CreateObject( "XSI.Collection")
	'Check that in_obj is an object
	if not(IsObject(in_obj)) then
		Application.LogMessage "The inputed parameter must be a 3D Object."
		Exit Sub
	end if
	if not(in_obj.BelongsTo("3D Object")) then
		Application.LogMessage "The inputed object must be a 3D Object."
		Exit Sub
	end if
	'If the object is not a PolygonMesh than exit the function
	if in_obj.activeprimitive.geometry.type <> "PolygonMesh" then
		Application.LogMessage in_obj & " has to be a polymesh object"
		Exit Sub
	end if
	set l_GeometryApproximation = in_Obj.Properties.Find("geomapprox")
	l_attribs = in_obj.ActivePrimitive.Geometry.GetApproximatedMeshAndAttributes( _
		l_GeometryApproximation.Parameters("gapproxmosr").value,_
		l_GeometryApproximation.Parameters("gapproxmosl").value,_
		l_GeometryApproximation.Parameters("gapproxmoad").value,_
		l_GeometryApproximation.Parameters("gapproxmoan").value )
	l_aVertices = l_attribs(0)
	l_aPolygonData = l_attribs(1)
	l_aPolygonNodeNormalArray = l_attribs(2)
	l_aPolygonNodePolygonFaceIndexArray = l_attribs(3)
	l_aPolygonFaceParentPolygonFaceIndexArray = l_attribs(4)
	l_aUVArray = l_attribs(5)
	l_aColorArray = l_attribs(6)
	l_aMaterialArray = l_attribs(7)
	set l_Parent  = 	in_obj.Parent
	set l_NewMesh =	l_Parent.AddPolygonMesh(l_aVertices,l_aPolygonData)	
	'Copy local properties
	set l_LocalProperties = in_obj.LocalProperties
	for each iLocProp in l_LocalProperties
			CopyPaste iLocProp,,l_NewMesh,2
	next
	'If the geometry approximation is a local property we set the subdivision level to
	'0 as it is the most likely thing users want to do.
	set l_NewLocalGeometryApproximation = l_NewMesh.LocalProperties.Find("geomapprox")
	if IsObject(l_NewLocalGeometryApproximation) and TypeName(l_NewLocalGeometryApproximation) <> "Nothing" then
		l_NewLocalGeometryApproximation.Parameters("gapproxmosl").value = 0
	end if
	'Add a sample cluster if there's some VertexColors or UVProp
	if IsArray(l_aUVArray) then
		i = 0
		do while i < ubound(l_aUVArray)
			set l_Cluster = l_NewMesh.ActivePrimitive.Geometry.AddCluster(siSampledPointCluster)
			set l_UVProp = l_Cluster.AddProperty("Texture Projection", ,l_aUVArray(i).Name & "_" & l_Cluster.Name)
			ReDim l_UVPropArray(2,(l_Cluster.Elements.Count - 1))
			for j = 0 to l_Cluster.Elements.Count-1
				l_UVPropArray(0,j) = l_aUVArray(i+1)(j*3)
				l_UVPropArray(1,j) = l_aUVArray(i+1)(j*3 + 1)
				l_UVPropArray(2,j) = l_aUVArray(i+1)(j*3 + 2)
			next
			l_UVProp.Elements.Array  = l_UVPropArray
			l_AllInputUVTxtAndCAV.Add l_aUVArray(i)
			l_AllOutputUVTxtAndCAV.Add l_UVProp
			i = i+2
		Loop
	end if
	if IsArray(l_aColorArray) then
		i = 0
		do while i < ubound(l_aColorArray)
			set l_Cluster = l_NewMesh.ActivePrimitive.Geometry.AddCluster(siSampledPointCluster)
			set l_ColorProp = l_Cluster.AddProperty("Vertex Color", ,l_aColorArray(i).Name & "_" & l_Cluster.Name)
			ReDim l_ColorPropArray(3,l_Cluster.Elements.Count - 1)
			for j = 0 to l_Cluster.Elements.Count-1
				l_ColorPropArray(0,j) = l_aColorArray(i+1)(j*4)
				l_ColorPropArray(1,j) = l_aColorArray(i+1)(j*4 + 1)
				l_ColorPropArray(2,j) = l_aColorArray(i+1)(j*4 + 2)
				l_ColorPropArray(3,j) = l_aColorArray(i+1)(j*4 + 3)
			next
			l_ColorProp.Elements.Array  = l_ColorPropArray
			l_AllInputUVTxtAndCAV.Add l_aColorArray(i)
			l_AllOutputUVTxtAndCAV.Add l_ColorProp
			i = i+2
		Loop
	end if
	if IsArray(l_aMaterialArray) then
		Dim l_bEmptyMaterialIndexArray
		Dim l_CurrentMaterial
		Dim l_NewMaterial
		Dim l_NewCluster
		Dim l_MaxIndex
		Dim l_MaterialIndexArray
		Dim l_Material
		i = 0
		do while i < ubound(l_aMaterialArray)
			set l_NewCluster = l_NewMesh.ActivePrimitive.Geometry.AddCluster(siPolygonCluster, , l_aMaterialArray(i+1))
			MakeLocal l_NewCluster.Material
			CopyPaste l_aMaterialArray(i),,l_NewCluster,2
			SIRebindByNameUserData l_NewCluster.Material, l_AllInputUVTxtAndCAV, l_AllOutputUVTxtAndCAV
			i = i+2
		Loop
	end if
	'Rebind the material that may be a local property at object level
	SIRebindByNameUserData l_NewMesh.Material, l_AllInputUVTxtAndCAV, l_AllOutputUVTxtAndCAV
	SelectObj l_NewMesh
End Sub