# |8/3| star has internal angle 45 degrees and external angle 90 degrees
scale <- star_scale(8, 45)
scale2 <- star_scale(8, 90, external = TRUE)
all.equal(scale, scale2)
star_angle(8, scale)
star_angle(8, scale, external = TRUE)
grid.pattern_regular_polygon(shape = "star8", scale = scale, angle = 0,
spacing = 0.2, density = 0.8)
Run the code above in your browser using DataLab