Suggestion for Celeste

suggestion.R

## Experiment with the constants below (e.g., the 5, 25, 8, etc.) so see if you can get the effect you want.
## Note that wrapping the loop in turtle_do makes it run a good bit faster
## Also think about what you can do to keep the turtle tracing over itself when it repeats 50 drips

library(TurtleGraphics)
turtle_drip_pollack<-function(n=50){
  turtle_init(75,75, mode = "clip")
  repeat {
    for( i in 1:n){
      turtle_do({
        randomColor <- sample(colors(), size = 1)
        randomLength <- runif(1, min = 5, max = 25)
        randomWidth <- runif(1, min = 1, max = 30)
        turtle_col(col=randomColor)
        turtle_up()
        turtle_forward(randomLength)
        turtle_down()
        turtle_lwd(lwd=randomWidth)
        turtle_forward(randomWidth/8)
        turtle_up()
        turtle_backward(randomWidth/8)
        turtle_backward(randomLength)
        turtle_down()
        turtle_turn(360/n)
      })
    }
    move <- readline(prompt = "More drops? (enter q to quit):  ")
    if ( move == "q") break
  }
  cat("What a beauty!")
}
turtle_drip_pollack()