# Get the shape of s in the default font
font <- font_info()
glyph <- glyph_info("s", path = font$path, index = font$index)
s <- glyph_outline(glyph$index, font$path, font$index, size = 150)
plot(s$x, s$y, type = 'l')
Run the code above in your browser using DataLab