x = seq(0.1, 0.9, length = 26)
text = strrep(letters, 6)
spiral_initialize(); spiral_track()
spiral_text(x, 0.5, text)
spiral_initialize(); spiral_track()
spiral_text(x, 0.5, text, facing = "inside")
spiral_initialize(); spiral_track()
spiral_text(x, 0.5, text, facing = "outside")
x = seq(0.1, 0.9, length = 10)
text = strrep(letters[1:10], 20)
spiral_initialize(); spiral_track()
spiral_text(x, 0.5, text, facing = "curved_inside")
spiral_initialize(); spiral_track()
spiral_text(x, 0.5, text, facing = "curved_outside")
Run the code above in your browser using DataLab