ReplaceShaderWithPreset

導入

v1.0

詳細

シェーダを接続解除し、プリセットから作成された別のシェーダに接続します。

スクリプト構文

ReplaceShaderWithPreset( [Source], PresetObj );

パラメータ

パラメータ タイプ 説明
Source 文字列 接続解除するシェーダ

デフォルト値: 現在選択されている値

PresetObj String またはプリセット オブジェクト(「SIGetPreset」を参照) 任意の適切なシェーダ プリセット

VBScript の例

'

' This example demonstrates how to replace an existing shader on an object with

' a preset shader.

'

NewScene , false

' Get the default pass

Set oDefPass = GetValue( "Passes.Default_Pass" )

' Create a sphere and apply a default (Phong) shader to it 

Set oSphere = CreatePrim( "Sphere", "MeshSurface" )

ApplyShader , oSphere

' Tweak the color values on the sphere's material using the Shader

' parameter shortcuts "diffuse" and "ambient"

Set oPhong = oSphere.Material.Shaders( "Phong" )

oPhong.diffuse.Parameters( "red" ).Value = 0.9

oPhong.diffuse.Parameters( "green" ).Value = 0.5

oPhong.ambient.Parameters( "green" ).Value = 0.7

' View the results in a rendered frame. (You can see the sphere looks magenta

' with a specular highlight)

RenderPasses oDefPass, 1, 1

' Now, replace the Phong shader on the sphere by a Toon preset shader 

ReplaceShaderWithPreset oPhong, "Material\Toon_Paint_Highlight.Preset"

Set oToon = oSphere.Material.Shaders( "Toon_Paint_Highlight" )

oToon.cover.Value = 0.1

oToon.softness.Value = 0.6

' View the results in a rendered frame. (Now the sphere has a gray, soft and

' dull appearance)

RenderPasses oDefPass, 1, 1

関連項目

ApplyShader ReplaceShader ReplaceShaderWithProgID