scale Fx

-- simple scale fx

delete $*
obj = plane lengthsegs:5 widthsegs:5
convertTopoly obj
select obj
for i in polyop.getnumfaces obj to 1 by -1 do

(
polyop.detachfaces obj #{i} asnode:true name:"frag01"
subobjectlevel = 0
toolmode.selectioncenter()
)
delete obj
select $frag*
for i in 1 to selection.count do
(
set animate on
select $*[i]
slidertime = 0f
addmodifier $ (relax ())
$.modifiers[#relax].keep_boundary_pts_fixed = 0
$.modifiers[#relax].relax_value = 1
slidertime = i*1
$.modifiers[#relax].relax_value = 1
slidertime += 5
$.modifiers[#relax].relax_value = 0
set animate off
)