十、使方体运动起来
最后，方体被加上运动。点击字样为“Orbit Box”的文本运行环绕运行方体程序。脚本如下：
property pActive
on beginSprite(me)
pActive = FALSE
end beginSprite
on mouseUp(me)
tSprite = sprite(1)
tMember = tSprite.member
tMember.model(‘‘newBox‘‘).parent = tMember.model(‘‘newSphere‘‘)
pActive = TRUE
go next
end
on enterFrame(me)
if pActive then
tSprite = sprite(1)
tMember = tSprite.member
tMember.model(‘‘newBox‘‘).rotate(0,20, 25)
end if
end on
简介环绕运行方体程序所做的：
1、当鼠标点击在字样为“Orbit
Box”的文本上时，方体被指定为球体的子对象。由于球体是不停旋转的，这就造成方体开始环绕球体，以对应于球体不停修正的位置变化。（也是就说方体与球体好象有无形的棒连在一起了，不但距离保持不变，而且表面相对的位置与不变，如在本例中球体对着方体的那一面永远不变。）
2、方体自己也每次进入当前帧时都旋转。
|
