'
' This example shows how to use this Texture.GetTransformValues to bake the UVW effects directly in the cluster property
' This is done on the object material and assumes only one TextureProjection definition.
'
' Create scene content
NewScene , false
set oGrid = CreatePrim( "Grid", "MeshSurface" )
SetValue oGrid & ".polymsh.geom.subdivu", 2
SetValue oGrid & ".polymsh.geom.subdivv", 1
ApplyShader ,,,, siLetLocalMaterialsOverlap
BlendInPresetsInsp ,,, True, True
CreateProjection oGrid, siTxtPlanarXZ, siTxtDefaultSpherical, "Texture_Support", "Texture_Projection"
SetInstanceDataValue , oGrid & ".Material.Phong.ambient_blend.Image.tspace_id", "Texture_Projection"
' Set a translation in U of 0.5
SetValue oGrid & ".polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection.Texture_Projection_Def.projtrsu", 0.5
' Freeze everything ;-)
FreezeCurrentUV 127
sub FreezeCurrentUV( in_lFlags )
        set oMy3DObject = Application.Selection(0)
        if TypeName(oMy3DObject) <> "X3DObject" then
                Application.LogMessage "The command won't perform it should be connected to an X3DObject"
        else
                if TypeName(oMy3DObject.ActivePrimitive.Geometry) = "PolygonMesh" then
                        set oMaterial = oMy3DObject.Material
                        set oClusterProperty = oMaterial.CurrentUV
                        set oTexture = oMaterial.CurrentTexture
                        if TypeName(oTexture) <> "Nothing" then
                                aUVWValues = oTexture.GetTransformValues( in_lFlags )
                                FreezeUVWValues oClusterProperty, aUVWValues
                                SetDefaultValues oMaterial, oTexture, oClusterProperty, in_lflags
                        else
                                Application.LogMessage "There's no current texture"
                        end if
                else
                        Application.LogMessage "The command won't perform it should be connected to a PolygonMesh object"
                end if
        end if
end sub
' The array is already in cluster offset order
sub FreezeUVWValues(in_oClusterProperty, in_aUVWValues)
        aOLDUVWValues = in_oClusterProperty.Elements.Array
        for i = 0 to ubound(aOLDUVWValues,2)
                aOLDUVWValues(0,i) = in_aUVWValues(i*3)
                aOLDUVWValues(1,i) = in_aUVWValues(i*3 + 1)
                aOLDUVWValues(2,i) = in_aUVWValues(i*3 + 2)
        next
        in_oClusterProperty.Elements.Array = aOLDUVWValues
end sub
' Reset the default values, so to remove the actions of those effects on the
' Texture projection cluster property.
sub SetDefaultValues(in_oMaterial, in_oTexture, in_oClusterProperty, in_lflags)
        if in_lflags and siTextureComputeTransformation then
                strClusterProperty = in_oClusterProperty.FullName
                ' Set translation
                SetValue strClusterProperty & ".Texture_Projection_Def.projtrsu", 0
                SetValue strClusterProperty & ".Texture_Projection_Def.projtrsv", 0
                SetValue strClusterProperty & ".Texture_Projection_Def.projtrsw", 0
                ' Set scaling
                SetValue strClusterProperty & ".Texture_Projection_Def.projsclu", 1
                SetValue strClusterProperty & ".Texture_Projection_Def.projsclv", 1
                SetValue strClusterProperty & ".Texture_Projection_Def.projsclw", 1
                ' Set rotation
                SetValue strClusterProperty & ".Texture_Projection_Def.projrotu", 0
                SetValue strClusterProperty & ".Texture_Projection_Def.projrotv", 0
                SetValue strClusterProperty & ".Texture_Projection_Def.projrotw", 0
        end if
        if in_lflags and siTextureComputeWrapping then
                strClusterProperty = in_oClusterProperty.FullName
                ' Set wrapping
                SetValue strClusterProperty & ".Texture_Projection_Def.wrap_u", false
                SetValue strClusterProperty & ".Texture_Projection_Def.wrap_v", false
                SetValue strClusterProperty & ".Texture_Projection_Def.wrap_w", false
        end if
        if in_lflags and siTextureComputeRepeats then
                strTexture = in_oTexture.FullName
                SetValue strTexture & ".repeats.x", 1
                SetValue strTexture & ".repeats.y", 1
                SetValue strTexture & ".repeats.z", 1
        end if
        if in_lflags and siTextureComputeUVRemap then
                strTexture = in_oTexture.FullName
                SetValue strTexture & ".min.x", 0
                SetValue strTexture & ".min.y", 0
                SetValue strTexture & ".min.z", 0
                SetValue strTexture & ".max.x", 1
                SetValue strTexture & ".max.y", 1
                SetValue strTexture & ".max.z", 1
        end if
        if in_lflags and siTextureComputeAlternate then
                strTexture = in_oTexture.FullName
                SetValue strTexture & ".alt_x", 0
                SetValue strTexture & ".alt_y", 0
        end if
        if in_lflags and siTextureComputeCropping then
                set oImageClip = in_oMaterial.CurrentImageClip
                strImageClip = oImageClip.FullName
                SetValue strImageClip & ".Xmin", 0
                SetValue strImageClip & ".Ymin", 0
                SetValue strImageClip & ".Xmax", 1
                SetValue strImageClip & ".Ymax", 1
        end if
        if in_lflags and siTextureComputeFlip then
                set oImageClip = in_oMaterial.CurrentImageClip
                strImageClip = oImageClip.FullName
                SetValue strImageClip & ".FlipX", False
                SetValue strImageClip & ".FlipY", False
        end if
end sub

// This example demonstrated the relationship
// between Texture.GetTransformValues, the Texture Projection
// and the Cluster Property
var sProjectionName = "MyProjection" ;
var oCylinder = CreateCylinderWithMaterial() ;
var oCurrentTexture = oCylinder.Material.CurrentTexture ;
logmessage( "Current Texture: " + oCurrentTexture.FullName  ) ;
logmessage( "Current UV: " + oCylinder.Material.CurrentUV.FullName ) ;
logmessage( "Current ImageClip: " + oCylinder.Material.CurrentImageClip  ) ;
logmessage( "-------------Before applying a repeat----------" ) ;
PrintTransformValues( oCurrentTexture ) ;
// Now actually apply a transformation at the Texture level 
oCurrentTexture.Parameters( "repeats" ).Parameters("x").Value = 2 ;
logmessage( "-------------After applying a repeat----------" ) ;
PrintTransformValues( oCurrentTexture ) ;
// Show that the raw data was not affected
logmessage( "-------------Raw UV----------" ) ;
PrintRawProjectionData( oCylinder ) ;
SetDisplayMode("Camera", "texturedecal");
function CreateCylinderWithMaterial()
{
        // Function to create a sample scene.  It has a Cylinder
        // with a simple render tree of an image connected to a Phong.
        // To simplify the example it does not load a specific image 
        // clip so it is using the default noIcon image.
        // Create a cylinder
        newscene(null,false) ;
        var oCylinder = ActiveSceneRoot.AddGeometry( "Cylinder", "MeshSurface" ) ;
        // Reduce the size of the geometry to reduce the amount of UV values we will print out
        var oGeometryParams = GetValue( oCylinder + ".polymsh.geom" ).Parameters
        oGeometryParams("subdivu").Value = 2
        oGeometryParams("subdivv").Value = 1
        oGeometryParams("subdivbase").Value = 1
        var oMaterial = oCylinder.AddMaterial( "Phong" ) ;
        var oPhong = oMaterial.Shaders(0) 
        var oPhongParams = oPhong.Parameters ;
        // Create a texture node and connect it to both ambient and diffuse
        var oTextureShader = oPhongParams( "ambient" ).ConnectFromPreset("Image", siTextureShaderFamily) ;
        oPhongParams( "diffuse" ).Connect( oTextureShader ) ;
        // At this point the texture will not draw because there is 
        // no projection to map the 2D onto the 3D
        // This command creates the projection and the support
        CreateProjection(
                        oCylinder, 
                        siTxtCylindrical, 
                        siTxtDefaultCylindrical, 
                        "MySupport",      // Name to give new support
                        sProjectionName,   // Name to give new projection
                        null, 
                        null, 
                        null);
        // Connect the projection
        oTextureShader.Parameters("tspace_id").SetInstanceValue( oCylinder,sProjectionName ) ;
        return oCylinder ;
}
function PrintRawProjectionData( in_oObj )
{
        // Find the ClusterProperty that contains the raw UVW values 
        // of the current texture
        var oTextureClusterProperty = in_oObj.Material.CurrentUV ;
        PrintUVWClusterProperty( oTextureClusterProperty ) ;
}
function PrintUVWClusterProperty( in_oTextureClusterProperty )
{
        // Print the UVW cluster property.  It shows how to read
        // the 2-Dimensional data with JScript VBArray object
        logmessage( "Contents of " + in_oTextureClusterProperty.FullName ) ;
        var aRawUVValues = new VBArray( in_oTextureClusterProperty.Elements.Array ) ;
        for ( i = 0 ; i <= aRawUVValues.ubound(2) ; i++ )
        {
                logmessage( "UVW["+i+"] = " 
                        + XSIRound( aRawUVValues.getItem( 0, i ), 2) + "," +
                        + XSIRound( aRawUVValues.getItem( 1, i ), 2) + "," +
                        + XSIRound( aRawUVValues.getItem( 2, i ), 2)) ;                         
        }
}
function PrintTransformValues( in_oTexture )
{
        // Print the transformed UVW values associated with the texture
        // It shows how the data is structured as a flattened 1D array
        logmessage( "Fully transformed contents of " +  in_oTexture.FullName ) ;
        aTransformedTexture = new VBArray(in_oTexture.GetTransformValues(127)) ;
        // We have a 1 dimensional array, with the U,V,W values flattened
        cntItems = ( aTransformedTexture.ubound(1) + 1 ) / 3 ;
        for ( i = 0 ; i < cntItems ; i++ )
        {
                logmessage( "UVW["+i+"] = " 
                        + XSIRound( aTransformedTexture.getItem( 3*i ), 2) + "," +
                        + XSIRound( aTransformedTexture.getItem( 3*i+1 ), 2) + "," +
                        + XSIRound( aTransformedTexture.getItem( 3*i+2 ), 2)) ;
        }
}
// Output:
//
//INFO : Current Texture: cylinder.Material.Phong.Image
//INFO : Current UV: cylinder.polymsh.cls.Texture_Coordinates_AUTO.MyProjection
//INFO : Current ImageClip: Clips.noIcon_pic
//INFO : -------------Before applying a repeat----------
//INFO : Fully transformed contents of cylinder.Material.Phong.Image
//INFO : UVW[0] = 0.61,0,0
//INFO : UVW[1] = 0.25,0,0
//INFO : UVW[2] = 0.75,0,0
//...snip...
//INFO : UVW[28] = 1.25,1,0
//INFO : UVW[29] = 0.75,1,0
//INFO : -------------After applying a repeat----------
//INFO : Fully transformed contents of cylinder.Material.Phong.Image
//INFO : UVW[0] = 1.23,0,0
//INFO : UVW[1] = 0.5,0,0
//INFO : UVW[2] = 1.5,0,0
//...snip...
//INFO : UVW[28] = 1.5,1,0
//INFO : UVW[29] = 0.5,1,0
//INFO : -------------Raw UV----------
//INFO : Contents of cylinder.polymsh.cls.Texture_Coordinates_AUTO.MyProjection
//INFO : UVW[0] = 0.61,0,0
//INFO : UVW[1] = 0.25,0,0
//INFO : UVW[2] = 0.75,0,0
//...snip...
//INFO : UVW[28] = 1.25,1,0
//INFO : UVW[29] = 0.75,1,0