BlendInTextureLayersInsp

指定したオブジェクトにアタッチされたイミディエイトシェーダですべてのデフォルトテクスチャ接続ポイントの位置を指定します。要求されたプリセットおよびイメージを作成し、作成したすべてのプリセットと指定した接続ポイントに既存のシェーダをブレンドします。

このコマンドは BlendInTextureLayers コマンドと同等ですが、新しく作成されたシェーダも調べる点が異なります。

スクリプト構文

戻り値

パラメータ

パラメータタイプ説明

PresetNames 文字列レイヤを作成するシェーダ/イメージに対応するシェーダプリセット
デフォルト値：「Image」

InputObjs 文字列デフォルトのテクスチャ接続ポイントを検索するオブジェクトのリスト
デフォルト値：現在選択されている値

SharedMatAction Integer 共有マテリアルをローカルに設定するかどうかを設定します。注: 「2」または「3」に設定すると、ユーザに選択を求めるポップアップダイアログが表示されます(0=No または 1=Yes)。「2」に設定されている場合に記録されているコマンドが再度実行されると、ユーザの応答に応じてコマンドは「可」または「不可」の応答を自動的に返します。「3」に設定されている場合には、再度ポップアップダイアログが表示されます。
デフォルト値：2 (初級ユーザに確認)

指定可能な値：

説明：

0 不可

1 可

2 初級ユーザに確認

3 上級ユーザに確認

NotifyNoResult Boolean プリセットが作成されない場合に、ユーザに通知するには True。
デフォルト値：False (通知しない)

Mode siBlendInTextureLayersModes 新しいプリセットでのブレンディング方法
デフォルト値：siBlendInTextureLayers (置き換えない)

Ambient Boolean True の場合、アンビエントポート(存在する場合)にブレンドします。
デフォルト値：True (アンビエントを適用)

Diffuse Boolean True の場合、ディフューズポート(存在する場合)にブレンドします。
デフォルト値：True (ディフューズを適用)

Transparency Boolean True の場合、トランスペアレンシポート(存在する場合)にブレンドします。
デフォルト値：False (トランスペアレンシを適用しない)

Reflection Boolean True の場合、リフレクションポート(存在する場合)にブレンドします。
デフォルト値：False (リフレクションを適用しない)

例

VBScript の例

'

' This example demonstrates how to apply blended shaders to all texture ports on a

' cube. It also shows how to access the shader information both from the collection 

' returned by BlendInTextureLayersInsp and through the object's material.

'

NewScene , false

' Create a default cube

Set oBox = ActiveSceneRoot.AddGeometry( "Cube", "MeshSurface" )

' Apply Cloud and Gradient presets on all texture ports

Set oLayers = BlendInTextureLayersInsp( "Cloud,Gradient", oBox, 1, False, False )

' At this point you will also see a Multiple Property Sets page pop up for the shaders.

' Now display the name of the created shaders:

For Each oLayer In oLayers

	Set oShader = SIGetShaderOnCnxPoint( oLayer & ".color" )

	Application.LogMessage oLayer.Name & " created with shader " & oShader.Name

Next

' View the results in a rendered frame. (The colors appear quite smooth.)

RenderPasses oDefPass, 1, 1

' Set the mode of the Gradient to "Darken":

SetValue oBox.Material.Shaders( "Phong" ) & ".Gradient_Layer.mode", 8

' View the results in a rendered frame. (Now the colors seem to be quite mottled.) 

RenderPasses oDefPass, 1, 1

' Output of above script:

'INFO : "Cloud_Layer created with shader Cloud"

'INFO : "Gradient_Layer created with shader Gradient"