'
'       This example demonstrates how to generate a NURBS object from curves via the Extrusion operator
'       and then use that operator to generate UV texture coordinates for the new surface mesh. For a
'       JScript version, see the next example.
'
Dim l_GeneratedUVs
Dim l_AlreadyGeneratedUVs
NewScene ,false
' Create curve objects that will be used to create surfaces.
CreatePrim "Circle", "NurbsCurve" 
SetValue "circle.circle.radius", 1
SICreateCurve "crvlist", 3, 1
SIAddPointOnCurveAtEnd "crvlist", 0, 0, -3, False, 1
SIAddPointOnCurveAtEnd "crvlist", 0, 0, -13, False, 1
SIAddPointOnCurveAtEnd "crvlist", 8, 0, -13, False, 1
SIAddPointOnCurveAtEnd "crvlist", 8, 0, -3, False, 1
' Generate a mesh surface from the curves.
ApplyGenOp "Extrusion", "MeshSurface", "circle;crvlist", 3, siPersistentOperation, siKeepGenOpInputs
SetValue "polymsh.polymsh.extrusion.subdivvperspan", 5
' Put a material on the generated surface
ApplyShader , , , , siLetLocalMaterialsOverlap
SIApplyShaderToCnxPoint "Image", "Sources.Materials.DefaultLib.Material.Phong.diffuse"
' Generate automatic UVs.
set l_GeneratedUVs = GenerateAutomaticUVs( "polymsh.polymsh.extrusion", "polymsh", "AutoUVTxtCoords")
' Log name of UV texture coordinate cluster property
Application.LogMessage "Automatic Generation of UV Texture Coordinates returns the generated cluster property."
Application.LogMessage "Generated UV Texture Coordinate Cluster Property: " & l_GeneratedUVs.FullName
' Trying to regenerate again will log a warning message and the already existing 
' UV texture coordinate cluster property will be returned.
' Generate automatic UVs.
Application.LogMessage "Regeneration of UV Texture Coordinates generates a warning and the already generated cluster property is returned."
set l_AlreadyGeneratedUVs = GenerateAutomaticUVs( "polymsh.polymsh.extrusion", "polymsh", "AutoUVTxtCoords")
'Log name of UV texture coordinate cluster property
Application.LogMessage "Already Generated UV Texture Coordinate Cluster Property: " &l_AlreadyGeneratedUVs.FullName
'Logged information and warning by this example.
'INFO : Automatic Generation of UV Texture Coordinates returns the generated cluster property."
'INFO : Generated UV Texture Coordinate Cluster Property: polymsh.polymsh.cls.AutomaticSamples.AutoUVTxtCoords
'INFO : Regeneration of UV Texture Coordinates generates a warning and the already generated cluster property is returned.
'WARNING : 3000-MODE-GenerateAutomaticUVs - Returning already generated UV texture coordinate cluster property. None re-generated.
'INFO : Already Generated UV Texture Coordinate Cluster Property: polymsh.polymsh.cls.AutomaticSamples.AutoUVTxtCoords
' View results.  
SetDisplayMode "Camera", "texturedecal"

/*
        This example demonstrates how to generate a NURBS object from curves via the Extrusion operator
        and then use that operator to generate UV texture coordinates for the new surface mesh. This
        example is similar to the VBScript version above, except that it uses the object model 
        instead of scripting commands.
*/
var l_GeneratedUVs;
var l_AlreadyGeneratedUVs;
NewScene( null, false );
// Create curve objects that will be used to create surfaces.
var oCrv = ActiveSceneRoot.AddGeometry( "Circle", "NurbsCurve" );
oCrv.radius = 1;
var pnts = new Array( 0,0,-3,1, 0,0,-3,1, 0,0,-3,1, 0,0,-3,1, 0,0,-6.333333333333333,1,
        0,0,-9.666666666666666,1, 0,0,-13,1, 2.6666666666666665,0,-13,1, 5.333333333333333,0,-13,1, 
        8,0,-13,1, 8,0,-9.666666666666667,1, 8,0,-6.333333333333334,1, 8,0,-3,1 );
var oCrvlist = ActiveSceneRoot.AddNurbsCurve( pnts );
// // Generate a mesh surface from the curves.
var oGenOp = ApplyGenOp( "Extrusion", "MeshSurface", oCrv + ";" + oCrvlist, 3, siPersistentOperation, siKeepGenOpInputs )(0);
var oNewMesh = oGenOp.OutputPorts(0).Target2.Parent3DObject;
oGenOp.subdivvperspan = 5;
// Put a material on the generated surface
ApplyShader( null, null, null, null, siLetLocalMaterialsOverlap );
SIApplyShaderToCnxPoint( "Image", "Sources.Materials.DefaultLib.Material.Phong.diffuse" );
// Generate automatic UVs.
l_GeneratedUVs = GenerateAutomaticUVs( oGenOp, oNewMesh, "AutoUVTxtCoords");
// Log name of UV texture coordinate cluster property
Application.LogMessage( "Automatic Generation of UV Texture Coordinates returns the generated cluster property." );
Application.LogMessage( "Generated UV Texture Coordinate Cluster Property: " + l_GeneratedUVs.fullname );
// Trying to regenerate again will log a warning message and the already existing 
// UV texture coordinate cluster property will be returned.
// Generate automatic UVs.
Application.LogMessage( "Regeneration of UV Texture Coordinates generates a warning and the already generated cluster property is returned." );
l_AlreadyGeneratedUVs = GenerateAutomaticUVs( oGenOp, oNewMesh, "AutoUVTxtCoords");
// Log name of UV texture coordinate cluster property
Application.LogMessage( "Already Generated UV Texture Coordinate Cluster Property: " + l_AlreadyGeneratedUVs.fullname );
// Logged information and warning by this example.
//INFO : Automatic Generation of UV Texture Coordinates returns the generated cluster property."
//INFO : Generated UV Texture Coordinate Cluster Property: polymsh.polymsh.cls.AutomaticSamples.AutoUVTxtCoords
//INFO : Regeneration of UV Texture Coordinates generates a warning and the already generated cluster property is returned.
//WARNING : 3000-MODE-GenerateAutomaticUVs - Returning already generated UV texture coordinate cluster property. None re-generated.
//INFO : Already Generated UV Texture Coordinate Cluster Property: polymsh.polymsh.cls.AutomaticSamples.AutoUVTxtCoords
// View results.  
SetDisplayMode( "Camera", "texturedecal" );