- 积分
- 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 |
|