七、添加贴图（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，结果是贴图被应用于没有特别设定的状态。
八、使球体运动起来
添加了贴图之后，点击字样为“Set the Sphere in Motion”的文本运行旋转程序。脚本如下：
property pActive
on beginSprite(me)
pActive = FALSE
end beginSprite
on mouseUp(me)
pActive = TRUE
go next
end
on enterFrame(me)
if pActive then
tSprite = sprite(1)
tMember = tSprite.member
tMember.model(‘‘newSphere‘‘).rotate(0,0,-5)
end if
end
脚本流程：
1、当用户点击文本时，脚本把pActive的值设为TRUE，就可以使球旋转起来。
2、然后脚本设定每次进入当前帧时都使球旋转5个单位。
