Straight line y = x

SHP = splineshape ()
Select SHP
Spln = addnewspline SHP
For I = 1 to 1000 do
(

Addknot SHP spln # corner # line [I * 5, 0, I * 5]
)

Converttosplineshape SHP
Updateshape SHP

 

 

--- Spiral Function

SHP = splineshape ()
Select SHP
Spln = addnewspline SHP
For I = 1 to 1000 do
(
X = sin (I) -- + 80
Y = cos (I) -- + 80
Z = (I/20.) ----- This can form a ladder
--- ** If an integer is used, the result of the ladder is displayed.
 
Addknot SHP spln # corner # line [x * 20, y * 20, Z]
Addknot SHP spln # corner # line [x * 20, y * 20, Z]
)
 
Converttosplineshape SHP
Updateshape SHP

--- Zhangkou spiral Function

SHP = splineshape ()
Select SHP
Spln = addnewspline SHP
A = 10.
B = 10.
For I = 1 to 1000 do
(
X = sin (I) -- + 80
Y = cos (I) -- + 80
Z = (I/20 .)
A = a + 1
B = B + 1
Z = (I/2 .)
Addknot SHP spln # corner # line [(x * A), (y * B), Z]
)
 
Converttosplineshape SHP
Updateshape SHP

--- Closed spiral Function
SHP = splineshape ()
Select SHP
Spln = addnewspline SHP
A = 990
B = 990
For I = 1 to 1000 do
(
X = sin (I) -- + 80
Y = cos (I) -- + 80

A = A-1
B = B-1
Z = (I/2 .)
Addknot SHP spln # corner # line [(x * A), (y * B), Z]
)
 
Converttosplineshape SHP
Updateshape SHP

---- Involute
SHP = splineshape ()
Select SHP
Spln = addnewspline SHP
R = 1
For I = 1 to 1000 do
(
Ang = 360 * I
S = 2*3.14 * r * I
X0 = S * Cos (ANG)
Y0 = S * sin (ANG)
 
X = x0 + S * sin (ANG)
Y = y0 + S * Cos (ANG)
Z = 0

Addknot SHP spln # corner # line [x * 20, y * 20, Z]
)
 
Converttosplineshape SHP
Updateshape SHP

---- UFO line

SHP = splineshape ()
Select SHP
Spln = addnewspline SHP
A = 990
B = 990
Z
For I = 1 to 1000 do
(
X = sin (I) -- + 80
Y = cos (I) -- + 80
If a <=-10 then
(
Exit

) Else
(
A = A-1
B = B-1
Z = (I/2 .)
)
Addknot SHP spln # corner # line [(x * A), (y * B), Z]
)
For I = 1001 to 2000 do
(
X = sin (I) -- + 80
Y = cos (I) -- + 80

A = a + 1
B = B + 1
Z = (I)/2 .)
Addknot SHP spln # corner # line [(x * A), (y * B), Z]
)
Converttosplineshape SHP
Updateshape SHP

------------- Parabolic plot
SHP = splineshape ()
Select SHP
Spln = addnewspline SHP

For 1 to 100. Do
(

 
X = 4 * I
Y = (3 * I + 5 * I ^ 2)
Z = 0

Addknot SHP spln # corner # line [X, Z, y]
)
 
Converttosplineshape SHP
Updateshape SHP