'VBScript example

'effector for first bone

set oEff1 = CreateObject("sumatra\Scripting\Math\SIVector3")

oEff1.x = 3

oEff1.y = 3

oEff1.z = 3

'effector for second bone

set oEff2 = CreateObject("sumatra\Scripting\Math\SIVector3")

oEff2.x = 6

oEff2.y = 0

oEff2.z = 0

'construct skeleton

set oRoot = ActiveProject.ActiveScene.Root

set oChain = oRoot.Add3dChain()

set oBone1 = oChain.AddBone(oEff1)

set oBone2 = oChain.AddBone(oEff2)

'get the root

set oChRoot = oChain.Root

oChRoot.AddBone Array(10, 0, 0)

LogMessage oChRoot.Name

LogMEssage typename(oChRoot)

for each oBone in oChRoot.Bones

	LogMessage "Name of bone: " & oBone.Name

next