source("http://macosa.dima.unige.it/r.R")    # If I have not already loaded the library
---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
S 13 Bezier curves
 
You can trace curves by introducing points that guide the trend (Bezier method).
After putting the coordinates in X and Y and choosing a scale, use
bezier(X,Y,N)                                 where N is 0 or a color code. Try
bezier(a,b,1)  bezier(a,b,0)  bezier(a,b,"grey")     after you have introduced:
a <- c(-3,2,2,-1); b <- c(2,2,-2,1)

PLANE(-3,3, -3,3)
a <- c(-3,2,2,-1); b <- c(2,2,-2,1)
bezier(a,b,1); bezier(a,b,0); bezier(a,b,"grey")
                   
PLANE(-1,1,-1,1)
xx <- c(-1,-1,0,0,1,1)
yy <- c(0,1,1,-1,-1,0)
bezier(xx,yy,0); bezier(xx,-yy,0)
PLANE(-1,1,-1,1)
bezier(xx,yy,"red"); bezier(xx,-yy,"black")
           
# Other examples here

Other examples of use