'

' This example shows how to use ShowNextOGLProjection.

' 2 texture projections are created on a sphere,

' and  call the ShowNextOGLProjection command

' to show texture projection one after the other.

'

NewScene , false

CreatePrim "Sphere", "NurbsSurface", "MySphere"

' Create a shader and connect to the material property

ApplyShader

' Add an image shader

SIApplyShaderToCnxPoint "Image", "Sources.Materials.DefaultLib.Material.Phong.diffuse"

' Create 2 texture projections

CreateProjection "MySphere", siTxtUV, siTxtDefaultPlanarXY, , "Texture_Projection"

CreateProjection "MySphere", , siTxtDefaultPlanarXY, , "Texture_Projection1"

' Set initial value of the Material property

SetValue "MySphere.Material.TextureSel", 3

SetValue "MySphere.Material.ImageClipName", "Clips.noIcon_pic"

SetDisplayMode "Camera", "textured"

' Show Next Projection

msgbox "Click OK to run ShowNextOGLProjection"

ShowNextOGLProjection

msgbox "Click OK to run ShowNextOGLProjection again"

ShowNextOGLProjection