'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