| 
积分314新金币 魔术币 贡献 点券 版主积分 智慧  
 | 
 
 发表于 2012-1-22 23:06:24
|
显示全部楼层 
| sphere segs:4 radius:3 $Sphere:Sphere01 @ [0.000000,0.000000,0.000000]
 select $chamferbox*
 OK
 animate on
 (
 at time 0 ($.pos.z=(-25))
 at time 100 ($.pos.z=(25))
 )
 25
 26
 25
 for k = 0 to 100 do (
 animate on (
 at time k
 (
 for x = selection do x.scale=[((distance $Sphere_target x)/50+0.3),((distance $Sphere_target x)/50+0.3),((distance $Sphere_target x)/50+0.3)]
 for z = selection do rotate z (angleaxis (distance $Sphere_target z) [0,0,1])
 )))
 OK
 for s = selection do s.material=standard ()
 OK
 | 
 |