![](https://www.cnblogs.com/Images/OutliningIndicators/ContractedBlock.gif)
Code
obj_sp=sphere()
obj_sp.segments=40
obj_sp.radius=50
ConvertToPoly obj_sp
for i=1 to obj_sp.GetNumVertices() do
(sphere prefix:"dot" radius:2).pos=8*(sin i)*(obj_sp.GetVertex i)\
for i=1 to obj_sp.GetNumVertices() do animate on
(at time 100 $dot*[i].pos=4*(obj_sp.GetVertex i))
posted @
2008-12-28 19:57
HelloCG
阅读(
218)
评论()
编辑
收藏
举报