//JScript example showing how to read UV values in a 
//UV Cluster Property
var oRoot = Application.ActiveProject.ActiveScene.Root;
var oObject = oRoot.AddGeometry( "Cube", "MeshSurface" );
BlendInPresets( "Image", oObject, 1, false );
CreateTextureSupport( oObject, siTxtUV, siTxtDefaultSpherical, "Texture_Support" );
SetInstanceDataValue(null, "cube.Scene_Material.UV", "Texture_Support");
var oUVWProp = oObject.Material.CurrentUV;
// Output the first 5 UV text coords
var vbaUVW = new VBArray(oUVWProp.Elements.Array);
// Use this to map from index in the Cluster back to index in the Geometry
// If the cluster is not complete or if topology changes are done then
// the geometry index is not necessarily the same as the cluster index
var vbaClusterElement = new VBArray(oUVWProp.Parent.Elements.Array);
for ( iIndex = 0; iIndex < 4; iIndex++ )
{
                logmessage ( "Sample(" + vbaClusterElement.getItem(iIndex) + ") = UV(" + 
                           vbaUVW.getItem(0,iIndex) + "," + vbaUVW.getItem(1,iIndex) + ")"  ) ;
}
//INFO : "Sample(0) = UV(0.125,0.30408671498298645)"
//INFO : "Sample(1) = UV(0.125,0.6959132552146912)"
//INFO : "Sample(2) = UV(-0.125,0.6959132552146912)"
//INFO : "Sample(3) = UV(-0.125,0.30408671498298645)"

'VBScript example showing how to read UV values in a 
'UV Cluster Property
set oRoot = application.activeproject.activescene.root
set oObject = oRoot.addgeometry( "Cube", "MeshSurface" )
BlendInPresets "Image", oObject, 1, False
CreateTextureSupport oObject, siTxtUV, siTxtDefaultSpherical, "Texture_Support"
SetInstanceDataValue , oObject & ".Scene_Material.UV", "Texture_Support"
set oUVWProp = oObject.Material.CurrentUV
' output uv text coords
aUVW=oUVWProp.elements.array
'Use this to map from index in the Cluster back to index in the Geometry
'If the cluster is not complete or if topology changes are done then
'the geometry index is not necessarily the same as the cluster index
aClusterIndices = oUVWProp.Parent.elements.array
' Print out just the first few elements
for iIndex=0 to 3 
        logmessage "Sample(" & aClusterIndices(iIndex) & ") = UV(" & _
                   aUVW(0,iIndex) & "," & aUVW(1,iIndex) & ")" 
next
'Result of running this script:
'INFO : "Sample(0) = UV(0.125,0.304086714982986)"
'INFO : "Sample(1) = UV(0.125,0.695913255214691)"
'INFO : "Sample(2) = UV(-0.125,0.695913255214691)"
'INFO : "Sample(3) = UV(-0.125,0.304086714982986)"

' VBScript example showing how to find the
' texture projection UV values associated
' with each vertex of a polygon
set oRoot = application.activeproject.activescene.root
set oObject = oRoot.addgeometry("Grid", "MeshSurface")
setValue oObject & ".polymsh.geom.subdivu", 2
setValue oObject & ".polymsh.geom.subdivv", 1
BlendInPresets "Image", oObject, 1, False
CreateTextureSupport oObject, siTxtPlanarXZ, siTxtDefaultPlanarXZ, "Texture_Support"
set oUVWProp = oObject.Material.CurrentUV
set oGeom = oObject.activeprimitive.geometry
' get UVW array
aUVW = oUVWProp.elements.Array
' The cluster knows the relationship between
' indices of the Samples and indices of the Sample cluster
set oCluster = oUVWProp.Parent
for Each oPolygon In oGeom.Polygons
        ' get polygon index
        oPolygonId = oPolygon.Index
        ' get points index array under polygon
        aPntsIndex = oPolygon.Points.IndexArray
        logMessage "Polygon" & oPolygonId
        ' get sample indices
        set oSamples = oPolygon.Samples
        for i = 0 To oSamples.Count - 1 
                'Map from the geometry index to the cluster index
                indexInCluster = oCluster.FindIndex( oSamples(i).Index )
                if ( indexInCluster <> -1 ) then  
                        logMessage "Point" & aPntsIndex(i) & ":" & "UV("_
                                & aUVW(0, oSamples(i).Index) & _
                                "," & aUVW(1, oSamples(i).Index) & ")"
                end if
        next
next

' This example demonstrates applying a file as a texture to an object, and explicitly setting 
' the UV values to specify how the texture maps onto the geometry
option explicit
'This Texture should be a unique name to avoid conflicts with any other possible textures
'The projection and the uv cluster property will use this name
const g_ProjectionName = "MyTexture"
'Set up a sample scene
dim oObj1, oObj2, ImageFile
ImageFile = Application.InstallationPath(siFactoryPath) & "\Data\XSI_SAMPLES\Pictures\jaiqua_face.jpg"
NewScene ,false
SetDisplayMode "Camera", "texturedecal"
set oObj1 = ActiveSceneRoot.AddGeometry( "Sphere", "MeshSurface" )
ApplyFileAsTexture oObj1,ImageFile 
set oObj2 = ActiveSceneRoot.AddGeometry( "Torus", "MeshSurface" )
Translate oObj2, 0, 5, 0, siRelative, siView, siObj, siY
ApplyFileAsTexture oObj2,ImageFile
sub ApplyFileAsTexture( in_obj, in_FileName )
        AttachImageFileToObj in_obj, in_FileName 
        dim oUVProp
        set oUVProp = FindClusterProperty( in_obj, g_ProjectionName)
        SetUVsOnProperty in_obj, oUVProp                
end sub
'Subroutine: Attach Image File to Object
'
'This method creates a texture project, and image clip
'and a small render tree that uses the image as the object's texture
sub AttachImageFileToObj( in_obj, in_FileName )
        Dim oTextureProj
        set oTextureProj = CreateProjection( in_obj, , siTxtUV, , g_ProjectionName )
        'Create a local copy of the material and attach the default (phong shader)
        in_obj.AddMaterial "Phong" 
        dim oPhongShader, oAmbientParam, oDiffuseParam
        set oPhongShader = in_obj.Material.Shaders(0)
        set oAmbientParam = oPhongShader.Parameters( "ambient" )
        set oDiffuseParam = oPhongShader.Parameters( "diffuse" )        
        dim oImageClip
        SICreateImageClip in_FileName, ,oImageClip              
        dim oImageNode
        set oImageNode = oAmbientParam.connectfrompreset("Image", siTextureShaderFamily)
        'Diffuse will be driven by the same image node
        oDiffuseParam.Connect( oImageNode )
        oImageNode.parameters( "tex" ).Connect(oImageClip)
        'Tell the image node that the uv values we are going to write into
        'the cluster property are the ones to use for this image
        oImageNode.parameters( "tspace_id" ).SetInstanceValue in_obj, oTextureProj, true
        'Connect the image to the image node            
        oImageNode.Parameters( "tex" ).Connect( oImageClip )    
end sub 
'Subroutine: SetUVOnProperty
'
'Given an object and a Cluster Property of UV's 
'this routine will fill in values.
'Currently it just show the entire texture on 
'each polygon.  However it could also be adjusted 
'to take the UV values as arguments
sub SetUVsOnProperty( in_oObj, in_oUVProp )
        dim oUVElements, oCluster, cnt
        'get the ClusterElementCollection       
        set oUVElements = in_oUVProp.Elements  
        set oCluster = in_oUVProp.Parent
        cnt = oUVElements.Count
        'Get an array of all the UV Values
        dim ElArray, i
        ElArray = oUVElements.Array
        'Zero out the u,v,w values in the array
        for i = 0 to cnt - 1
                ElArray( 0, i ) = 0
                ElArray( 1, i ) = 0
                ElArray( 2, i ) = 0
        next
        'Traverse the facets (eg polygons on a polymesh)
        'setting the UV values for each sample  
        dim oFacets, oFacet, oSamples, oSample, cntSamples
        dim sample1ClusterIdx, sample2ClusterIdx, sample3ClusterIdx
        set oFacets = in_oObj.ActivePrimitive.Geometry.Facets
        for each oFacet in oFacets              
                set oSamples = oFacet.Samples
                cntSamples = oSamples.Count
                'In this example we will map each polygon to cover
                'the entire u/v space - eg the entire texture shows up on
                'each
                'Because values are already zeroed we only set
                'the values     we want as non-zero
                sample1ClusterIdx = oCluster.FindIndex( oSamples(1).Index )
                sample2ClusterIdx = oCluster.FindIndex( oSamples(2).Index )     
                ElArray( 0, sample1ClusterIdx ) = 1
                ElArray( 0, sample2ClusterIdx ) = 1
                ElArray( 1, sample2ClusterIdx ) = 1
                if ( cntSamples >= 4 ) then
                        sample3ClusterIdx = oCluster.FindIndex( oSamples(2).Index )
                        ElArray( 1, oSamples(3).Index ) = 1
                end if
        next
        'Assign these values to the cluster property
        oUVElements.Array = ElArray
        'Freezing the property provides the most efficient memory representation        
        FreezeObj in_oUVProp
end sub
'Subroutine: FindClusterProperty
'Give an object and a property name string,
'this will find the UV cluster property
function FindClusterProperty( in_obj, in_Name )
        dim oClusters, oCluster, oProps, oProp
        'Get the sample clusters
        set oClusters = in_obj.ActivePrimitive.Geometry.Clusters.Filter( "Sample" )
        for each oCluster in oClusters
                set oProps = oCluster.Properties.Filter( "uvspace" )
                for each oProp in oProps
                        if ( oProp.Name = in_Name ) then
                                set FindClusterProperty = oProp
                                exit function
                        end if                          
                next    
        next
        set FindClusterProperty = Nothing
end function

'VBScript example showing how to find ClusterProperty objects
'on an Mesh
'Create a sample scene with many different cluster properties
newscene ,false
dim sphere
set sphere = CreatePrim ( "Sphere", "MeshSurface" )
'Create a vertex color cluster property
CreateVertexColorSupport , "MyVertexColorProperty", sphere 
'Save a Shape
SaveShapeKey "sphere", , , 1, , , , , siShapeLocalReferenceMode
'Create a symmetry map
CreateSymmetryMap
'Save two weight maps (they will re-use the same
'cluster)
CreateWeightMap , sphere, "Weight_Map1"
CreateWeightMap , sphere, "Weight_Map2"
'Create an skeleton and envelop weight map
Create2DSkeleton -5, 1, 0, 6, 1, 0, -6, 0, 0, 4
AppendBone "eff", 5, 4, 0
ApplyFlexEnv "sphere;bone,bone1", False
'Demonstrate how it is possible to find all the
'clusters and cluster properties
logmessage "List of Clusters and Cluster Properties on " & sphere.Name
logmessage "--------------------------------"
for each oCluster in sphere.ActivePrimitive.Geometry.Clusters   
        logmessage "Cluster: " & oCluster.Name
        for each oLocalProp in oCluster.LocalProperties
                if typename( oLocalProp ) = "ClusterProperty" then
                        logmessage "   " & oLocalProp.Name & " (Type: " & oLocalProp.Type & ")"
                end if
        next    
        logmessage "--------------------------------"
next
'Demonstrate how we can be more direct if we are looking for a specific type
'of cluster property
'We know that weight maps are always on point clusters
set oPntClusters = sphere.ActivePrimitive.Geometry.Clusters.Filter( "pnt" )
for each oPntCluster in oPntClusters
        set oWeightMaps = oPntCluster.LocalProperties.Filter( "wtmap" )
        for each oWeightMap in oWeightMaps
                logmessage "Found weight map " & oWeightMap.FullName
        next 
next