---

(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=,,,,,
,,,,]
pCenter=point(200,175)
Rlist=,,,,,]
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句柄