'
' 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