dim cone

set cone = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cone","MeshSurface")

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

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

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

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

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

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

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

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

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

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

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

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