' Set up a grid with a texture and an XY projection.

CreatePrim "Grid", "MeshSurface"

CreateProjection "grid", , siTxtDefaultPlanarXY, , "Texture_Projection"

BlendInTextureLayers , , 1, True, siReplaceAndNoBlendInTextureLayers

SetDisplayMode "Camera", "texturedecal"

SelectObj "grid.polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection"

' Pin components 1, 10, 20, 30

set uvprop = Selection(0)

PinUVComponents uvprop, Array(1, 10, 20, 30)

' Check the pinned component indices with the UVProperty object

componentIndices = uvprop.PinComponentArray

for i = lbound( componentIndices ) to ubound( componentIndices )

	logmessage "Index: " & componentIndices(i)

next

' Unpin components 10, 20,

UnPinUVComponents uvprop, Array(10, 20)

' Check the pinned components again

componentIndices = uvprop.PinComponentArray

for i = lbound( componentIndices ) to ubound( componentIndices )

	logmessage "Index: " & componentIndices(i)

next