molars[4] %>% coo_center %>% coo_scale %>% coo_interpolate(1080) %>% coo_slidedirection("E") %>%
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