(1) 启动Director 8.5。执行Modify→Movie→Properties命令，在弹出的舞台属性检查器对话框中将电影舞台的大小设置为450×450，将背景颜色设置为黑色，如图8-19所示。

图8-19  设置舞台的属性

(2) 按Ctrl+R组合键，导入6张图片到Cast窗口中，如图8-20所示。

图8-20  导入图片

(3) 将Cast演员逐一拖动到舞台上，生成6个精灵，如图8-21所示。

图8-21  生成精灵

(4) 在工作窗口单击工具栏上的Script按钮，在弹出的Script窗口中，设置Lingo语句如下，如图8-22所示。

:global allcorners

global pCenter

global Rlist

global gRotate

global Planeangle

on startMovie

  initbox

end

(5) 在initbox函数中，设置以下Lingo语句，如图8-23所示。

on initbox

allcorners=[[–60,–60,–60],[60,–60,–60],[60,60,–60],[–60,60,–60],[–60,–60,60],

,,[60,–60,60],[60,60,60],[–60,60,60]]

  pCenter=point(200,175)

  Rlist=[[1,2,3,4],[1,2,6,5],[3,4,8,7],[2,3,7,6],[1,4,8,5],[5,6,7,8]]

end

图8-23  Initbox句柄

(6) 设置framescript句柄，输入Lingo控制语句如下，如图8-24所示。

on framescript

  gRotate=gRotate-(float(the mouseH-320)/30)*pi()/100

  Planeangle=-(float(the mouseV-240)/30)*pi()/20

  drawsides

end

图8-24  framescript句柄

[1] [2] 下一页

【责编:runlz】