x = sort(runif(1000))
y = runif(1000)
spiral_initialize()
spiral_track()
spiral_lines(x, y)
spiral_initialize()
spiral_track()
spiral_lines(x, y, type = "h")
spiral_initialize()
spiral_track()
spiral_lines(x, y, area = TRUE, gp = gpar(fill = "red", col = NA))
Run the code above in your browser using DataLab