7.13 绘制正弦线和余弦线
在Director 8.5的舞台上只能画简单的线，要画复杂的曲线就要使用Lingo语言。
绘制正弦线和余弦线的操作步骤如下：
(1) 进入Director 8.5。执行Modify→Movie→Properties命令，在弹出的舞台属性检查器对话框中将电影舞台的大小设置为400×350，将背景颜色设置为白色，如图7-109所示。
(2) 按Ctrl+6组合键，弹出Text窗口，设置字体和大小，输入文本“正弦”，如图7-110所示。
(3) 单击窗口左上角的“+”按钮，创建新的窗口，输入文本“余弦”，如图7-111所示。
(4) 按照步骤(3)的方法，分别再创建2个窗口，并分别输入文本“退出”和“显示区”。此时共生成4个Cast演员，如图7-112所示。
(5) 将所有演员拖动到舞台适当位置上，生成4个精灵。并使用矩形(Rectangle)工具绘制一个大矩形，将边线设置为Two-Pixel Line，如图7-113所示。
(6) 选中舞台上的精灵1(正弦)，单击右键，在快捷菜单中选择Script命令，打开Script窗口为其添加以下的Lingo语句，如图7-114所示。
global i
on beginsprite
i = 0
end
on mouseUp me
makesin
end
on makesin
memsin=new (#vectorshape)
memsin.name="sine"
list=[]
repeat with x =50*pi() to 150*pi()
y=sin(float(x)/50.0)*100+150
add list,[#vertex:point(x,y)]
end repeat
memsin.vertexlist=list
i = i+1
if(i>1) then
erase memsin
end if
set the member of sprite 4 to member "sine" of castLib "Internal"
sprite (4).ink = 8
end
