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
|