Director 3D 基础(之四)

4/7/2006来源:Director教程人气:12914

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