R is for Love

    t = seq (0, 60, by = .1)

    x=-.01 * (-t^2 + 40*t + 1200) * sin(pi*t/180)

    y=.01 * (-t^2 + 40*t + 1200) * cos(pi*t/180)

    x=c(x,rev(.01 * (-t^2 + 40*t + 1200) * sin(pi*t/180)))

    y=c(y,rev(.01 * (-t^2 + 40*t + 1200) * cos(pi*t/180)))

    polygon(x,y, col=color, border=border)

    sleepTime = .01

    for (i in seq(1:paletteLength)) {

        draw(q[i],q[paletteLength+1-i])

        Sys.sleep(sleepTime)

    }

    for (i in rev(seq(1:paletteLength))) {

        draw(q[i],q[paletteLength+1-i])

        Sys.sleep(sleepTime)

    }