在director开发使用手册上有现成的程序啊

on makesin
mem=new(#vectorshape)
mem.name = "sine"

list = []
repeat with x = -100*pi() to 100*pi()
y = sin(float(x)/100.0)*100
add list,[#vertex:point(x,y)]
end repeat
mem.vertexlist = list
end