dim cone, n

set n = Application.ActiveProject.ActiveScene.Root.AddNull

n.Kinematics.Local.Parameters("posx").value = 5.0

n.Kinematics.Local.Parameters("posy").value = 5.0

n.Kinematics.Local.Parameters("posz").value = 0.0

set cone = n.AddGeometry("Cone","MeshSurface")

cone.Kinematics.Local.Parameters("posx").value = 1.0

cone.Kinematics.Local.Parameters("posy").value = 1.0

cone.Kinematics.Local.Parameters("posz").value = 5.0

cone.Kinematics.Local.Parameters("rotx").value = 10.0

cone.Kinematics.Local.Parameters("roty").value = 25.0

cone.Kinematics.Local.Parameters("rotz").value = 45.0

cone.Kinematics.Local.Parameters("sclx").value = 2.0

cone.Kinematics.Local.Parameters("scly").value = 2.0

cone.Kinematics.Local.Parameters("sclz").value = 2.0

logmessage "Cone position: " & cone.Kinematics.Local.Parameters("posx").value &","& cone.Kinematics.Local.Parameters("posy").value &","& cone.Kinematics.Local.Parameters("posz").value

logmessage "Cone orientation: " & cone.Kinematics.Local.Parameters("rotx").value &","& cone.Kinematics.Local.Parameters("roty").value &","& cone.Kinematics.Local.Parameters("rotz").value

logmessage "Cone scaling: " & cone.Kinematics.Local.Parameters("sclx").value &","& cone.Kinematics.Local.Parameters("scly").value &","& cone.Kinematics.Local.Parameters("sclz").value