七、添加贴图（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个单位。