molars[4] %>%
coo_center %>% coo_scale %>% coo_interpolate(1080) %>%
coo_slidedirection("right") %>%
coo_sample(360) %T>% coo_plot(zoom=2) %>%
sfourier(16) %>%
sfourier_i() %>%
coo_draw(bor="red", points=TRUE)
Run the code above in your browser using DataLab