' This example creates curves:
' 1) Cubic non-interpolated curve
' 2) Cubic interpolated curve
' 3) Linear non-interpolated curve
' NOTE: That a linear interpolated curve will give the same trace as linear non-interpolated curve.
' NOTE: Put no spaces in point list.
newscene
Dim CubicInterpolated, CubicNonInterpolated, LinearNonInterpolated
'Create curves. Points are in global coordinates.
CreateCurve 3, 0, "(-2,0,0),(-2,0,-2),(2,0,-2),(2,0,0)", FALSE, CubicNonInterpolated
CreateCurve 3, 1, "(-2,0,0),(-2,0,-2),(2,0,-2),(2,0,0)", FALSE, CubicInterpolated
CreateCurve 1, 0, "(-2,0,0),(-2,0,-2),(2,0,-2),(2,0,0)", FALSE, LinearNonInterpolated
'Name the curves.
SetValue CubicNonInterpolated & ".Name", "CubicNonInterpolated"
SetValue CubicInterpolated & ".Name", "CubicInterpolated"
SetValue LinearNonInterpolated & ".Name", "LinearNonInterpolated" |