yes its, posiblem, just animate something from 0 to 1 on xpos (anim)
(on render)
Dim i as Integer
Dim dato(4), anim, debug as xpTextObject
Dim slice(4) as xpCylinderObject
Self.GetObjectByName("debug", debug)
Self.GetObjectByName("anim", anim)
For i = 1 to 4
Self.GetObjectByName("dato" & i, dato(i))
Self.GetObjectByName("slice" & i, slice(i))
Next i
i = 0
For i = 1 to 4
slice(i).EndAngle = ((Dato(i).Text * 360) / 100) * anim.posX ((this will do the animation))
if slice(i).EndAngle = 0 then
slice(i).Visible = false
else
slice(i).Visible = true
end if
Next i
i = 0
#XPression