restart:with(plots):with(plottools):

phoenix_m.mw

Up and down the hill it goes

circleimage:=circle([0,0], 0.3, color=RGB(1,1,0)):

diskimage:=disk([0,0], 0.3, color=RGB(1,0.85,0)):

rampbodyl:=polygon([[0,0], [1,0], [0,1]], color=green):

rampbodyr:=polygon([[2,0], [3,1], [3,0]], color=green):

ball:=display(circleimage, diskimage): k:=0.212+(37/41):

rampedge:=plot([[1,0], [0,1], [0,0], [3,0], [3,1], [2,0]], color="LawnGreen"):

ramp:=display(rampbodyl, rampbodyr, rampedge):

rectangbound:=plot([[-0.2,-0.1], [-0.2,0.1], [0.2,0.1], [0.2,-0.1], [-0.2,-0.1]], color="Orange"):

rectangsub:=polygon([[-0.2,-0.1], [-0.2,0.1], [0.2,0.1], [0.2,-0.1]], color=RGB(1, 0.25, 3/16)):

rectang:=display(rectangbound, rectangsub):

rectanglist:=NULL: s:=20: t:=14:

for p from 0 to 10 do: rectanglist:=rectanglist, display(textplot([1.5, 2, "Up and down the hill it goes",'font' = ["times", "roman", 20]])):

end do:

for p from 0 to s do: rectanglist:=rectanglist, display(ramp, translate(rotate(rectang, Pi*2*p/s), 0.212+37*p/(41*s), 1.212-37*p/(41*s)), translate(ball, 0.212+37*p/(41*s), 1.212-37*p/(41*s))):

end do:

for p from 0 to t do: rectanglist:=rectanglist, display(ramp, translate(rotate(rectang, Pi*2*p/t), k+(3*p-2*k*p)/t, 1.212-37/41), translate(ball, k+(3*p-2*k*p)/t, 1.212-37/41)):

end do:

for p from 0 to s do: rectanglist:=rectanglist, display(ramp, translate(rotate(rectang, Pi*2*p/s), 3-0.212-37*(s-p)/(41*s), 1.212-37*(s-p)/(41*s)), translate(ball, 3-0.212-37*(s-p)/(41*s), 1.212-37*(s-p)/(41*s))):

end do:

for p from 0 to s do: rectanglist:=rectanglist, display(ramp, translate(rotate(rectang, Pi*2*p/s), 3-0.212-37*p/(41*s), 1.212-37*p/(41*s)), translate(ball, 3-0.212-37*p/(41*s), 1.212-37*p/(41*s))):

end do:

for p from 0 to t do: rectanglist:=rectanglist, display(ramp, translate(rotate(rectang, Pi*2*p/t), k+(3*(t-p)-2*k*(t-p))/t, 1.212-37/41), translate(ball, k+(3*(t-p)-2*k*(t-p))/t, 1.212-37/41)):

end do:

for p from 0 to s do: rectanglist:=rectanglist, display(ramp, translate(rotate(rectang, Pi*2*p/s), 0.212+37*(s-p)/(41*s), 1.212-37*(s-p)/(41*s)), translate(ball, 0.212+37*(s-p)/(41*s), 1.212-37*(s-p)/(41*s))):

end do:

rectangledrop:=display(plot([[1.1,0], [1.9,0], [1.9,0.8], [1.1,0.8], [1.1,0]], color=green), polygon([[1.1,0], [1.9,0], [1.9,0.8], [1.1,0.8]],color="LawnGreen")):

for p from 0 to 13 do: rectanglist:=rectanglist, display(translate(rectangledrop, 0, (13-p)/6), ramp, translate(rotate(rectang, Pi*2*p/(s)), 0.212+37*p/(41*s), 1.212-37*p/(41*s)), translate(ball, 0.212+37*p/(41*s), 1.212-37*p/(41*s))):

end do:

stuckscene:=display(rectangledrop, ramp, translate(rotate(rectang, Pi*26/(s)), 0.212+481/(41*s), 1.212-481/(41*s)), translate(ball, 0.212+481/(41*s), 1.212-481/(41*s))):

for p from 0 to 10 do: rectanglist:=rectanglist, stuckscene:

end do:

ohnoplot:=textplot([1.5, 2, "Oh no!",'font' = ["times", "roman", 20]]):

imstuckplot:=textplot([1.5, 2, "I'm stuck!",'font' = ["times", "roman", 20]]):

woohooplot:=textplot([1.5, 2, "Woohoo!",'font' = ["times", "roman", 20]]):

for p from 0 to 5 do: rectanglist:=rectanglist, display(stuckscene):

end do:

for p from 0 to 15 do: rectanglist:=rectanglist, display(stuckscene, ohnoplot):

end do:

for p from 0 to 10 do: rectanglist:=rectanglist, display(stuckscene, imstuckplot):

end do:

for p from 0 to 5 do: rectanglist:=rectanglist, display(stuckscene):

end do:

for p from 14 to 20 do: rectanglist:=rectanglist, display(woohooplot, translate(rectangledrop, 0, (13-p)/6), ramp, translate(rotate(rectang, Pi*2*p/(s)), 0.212+37*p/(41*s), 1.212-37*p/(41*s)), translate(ball, 0.212+37*p/(41*s), 1.212-37*p/(41*s))):

end do:

for p from 0 to t do: rectanglist:=rectanglist, display(ramp, translate(rotate(rectang, (Pi*2*p/t)), k+(3*p-2*k*p)/t, 1.212-37/41), translate(ball, k+(3*p-2*k*p)/t, 1.212-37/41)):

end do:

for p from 0 to s do: rectanglist:=rectanglist, display(ramp, translate(rotate(rectang, Pi*2*p/(s)), 3-0.212-37*(s-p)/(41*s), 1.212-37*(s-p)/(41*s)), translate(ball, 3-0.212-37*(s-p)/(41*s), 1.212-37*(s-p)/(41*s))):

end do:

display(rectanglist, insequence=true, axes=none, scaling=constrained);

#FPS=10