Scripting: ShowNextOGLProjection

ShowNextOGLProjection

Introduced

v1.5

Description

Switches the active OGL texture projection of all objects in the current selection.

Scripting Syntax

ShowNextOGLProjection();

Examples

VBScript Example

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