CreatePrim "Grid", "MeshSurface"

'Create a texture property containing the projected U,V,W values

CreateProjection "grid", "siTxtPlanarXZ", "siTxtDefaultPlanarXZ", , tex_obj, True

SelectObj "Grid.polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection" ' & tex_obj

'The current selection contains the new texture property

set sel = application.selection(0)

' List of sample points to modify.

mySampleList = Array(1,2)

myValues = sel.obj.ElementsValues( mySampleList )

for i = LBound( myValues, 1 ) to UBound( myValues, 1 )

		logmessage "(" & myValues(i,0) & " , " & myValues(i,1) & ")"

		'Do an operation on each value.

		' this is the U value

		myValues( i, 0 ) = .45

		' this is the V value

		myValues( i, 1 ) = .45

next

'Set the new values

sel.obj.SetElementsValues mySampleList , myValues