set oRoot = Application.ActiveProject.ActiveScene.Root
set oArc = oRoot.AddGeometry( "Arc", "NurbsCurve" )
aValues = oArc.ActivePrimitive.Geometry.Curves(0).EvaluateNormalizedPosition( 0.5 )
set oPosition = aValues(0)
logmessage "The position at 0.5 is x :" & oPosition.x & " y: " & oPosition.y & " z: " & oPosition.z
set oUTangent = aValues(1)
logmessage "The tangent in U at 0.5 is x :" & oUTangent.x & " y: " & oUTangent.y & " z: " & oUTangent.z
set oNormal = aValues(2)
logmessage "The normal at 0.5 is x :" & oNormal.x & " y: " & oNormal.y & " z: " & oNormal.z
set oBiNormal = aValues(3)
logmessage "The bi-normal at 0.5 is x :" & oBiNormal.x & " y: " & oBiNormal.y & " z: " & oBiNormal.z
|