squircles

squircle.R

library(tidyverse)
library(gganimate)

animate(
    crossing(
        p = seq(0.1, 5, by = 0.1),
        theta = seq(0, 2*pi, length.out = 101)
    ) %>% 
        mutate(r = 1 / (abs(cos(theta))^p + abs(sin(theta))^p)^(1/p)) %>% 
        ggplot(aes(theta, r, fill = p)) + 
        geom_area(show.legend = FALSE) + 
        scale_fill_viridis_c(option = 'A') + 
        coord_polar() + 
        theme_void() + 
        transition_time(p), 
    rewind = TRUE, 
    nframes = 300, 
    fps = 100/3, 
    device = "svglite", 
    renderer = magick_renderer(), 
    width = 5, height = 5
)