powered by
bezier_i(B, nb.pts = 120)
bezier
set.seed(34) x <- coo_sample(efourier_shape(), 5) plot(x, ylim=c(-3, 3), asp=1, type='b', pch=20) b <- bezier(x) bi <- bezier_i(b$B) lines(bi, col='red')
Run the code above in your browser using DataLab