七、添加贴图（texture）
添加了材质球之后，点击字样为“Add Texture”的文本运行建立贴图的行为。脚本如下：
on mouseUp(me)
if voidP(sprite(1).member.shader(‘‘newTexture‘‘)) then
tSprite = sprite(1)
tMember = tSprite.member
tTexture = tMember.newTexture(‘‘newTexture‘‘, \
#fromCastMember, member(‘‘Colors‘‘))
tMember.model(‘‘newSphere‘‘).shader.texture = tTexture
tMember.model(‘‘newSphere‘‘).shader.textureMode = #none
go next
end if
end
脚本流程：
1、确定是否有贴图加于球体上了。
2、如果没有，脚本使用原先已经被创建的名称叫“Colors”的位图演员创建一个新的贴图。
3、然后脚本应用贴图于材质球中，于是就显示在球体的表面上。
4、材质球的textureMode属性被设为#none，结果是贴图被应用于没有特别设定的状态。
|
