restart: with(plots): with(plottools): pool:= polygon([[1,0.5],[4,0.5],[4,-1],[1,-1], [1, 0.5]],color=blue): ladder:=polygon([[4.5,0],[4.5,3],[5.5,3],[5.5,0]],color=white): rung1:=plot([[4.5,1],[5.5,1]],color=black): rung2:=plot([[4.5,2],[5.5,2]],color=black): rung5:=plot([[4.5,.5],[5.5,.5]],color=black): rung6:=plot([[4.5,1.5],[5.5,1.5]],color=black): rung7:=plot([[4.5,2.5],[5.5,2.5]],color=black): board:=plot([[4.5,3],[2.5,3],[2.5,2.5],[4.5,2.5]], color=black): ladder2:= plot([[-.5,0],[-.5,3],[-1.5,3],[-1.5,0]],color=black): rung3:=plot([[-1.5,1],[-.5,1]],color=black): rung4:=plot([[-1.5,2],[-.5,2]],color=black): rung8:=plot([[-1.5,.5],[-.5,.5]],color=black): rung9:=plot([[-1.5,1.5],[-.5,1.5]],color=black): rung10:=plot([[-1.5,2.5],[-.5,2.5]],color=black): boardslant:=plot([[4.5,3],[2.5,2.5],[2.5,2],[4.5,2.5]], color=black): p1:=display(pool,ladder,rung1,rung2,board,ladder2,rung3,rung4): p2:=display(pool,ladder,rung1,rung2,ladder2,rung3,rung4,boardslant): p3:=display(pool,ladder,rung1,rung2,boardslant,ladder2,rung3,rung4): s1:=arc([0,3],.5, 0..Pi,thickness=3): slide:=ellipticArc([1.5,3],1,2,Pi..3*Pi/2,thickness=3): head:=circle([5,1],.25,color=black): body:=plot([[5,.75],[5,.25]],color=black): arms:=plot([[4.5,1],[5,.5],[5.5,1]],color=black): legs:=plot([[4.5,0],[5,.30],[5.5,0]],color=black): person:=display( head,body,arms,legs): bkgd:=display(s1,slide,pool,ladder,rung1,rung2,rung5,rung6,ladder2,rung3,rung4,rung7,rung8,rung9,rung10): text:=textplot([2,2.5,"The splash of MATH"], font=[TIMES,ROMAN, 20], color=blue): box:=plot([[-.25,2],[-.25,3],[4.25,3],[4.25,2],[-.25,2]],color="Aqua",thickness=3): box2:=plot([[-.5,1.75],[-.5,3.25],[4.5,3.25],[4.5,1.75],[-.5,1.75]],color="DeepSkyBlue",thickness=3): f0:=display(text,box,box2): f1:=display(person,board,bkgd): f2:=display(translate(person,0,.5),board,bkgd): f3:=display(translate(person,0,1),board,bkgd): f4:=display(translate(person,0,1.5),board,bkgd): f5:=display(translate(person,0,2),board,bkgd): f6:=display(translate(person,0,2.5),board,bkgd): f7:=display(translate(person,0,3),board,bkgd): f8:=display(translate(person,-.5,3),board,bkgd): f9:=display(translate(person,-1,3),board,bkgd): f10:=display(translate(person,-1.5,3),board,bkgd): f11:=display(translate(person,-2,3),board,bkgd): f12:=display(translate(person,-2,2.75),boardslant,bkgd): f13:=display(translate(person,-2,3.25),board,bkgd): f14:=display(translate(person,-2,2.75),boardslant,bkgd): f15:=display(translate(person,-2,3.75),board,bkgd): f16:=display(translate(person,-3,4),board,bkgd): f17:=display(translate(person,-6,3),board,bkgd): f18:=display(translate(person,-5,3.5),board,bkgd): f19:=display(translate(rotate(person,-Pi/4),-2.7,5.9),board,bkgd): f20:=display(translate(rotate(person,-Pi/4),-2.7,5.9),board,bkgd): wee:=textplot([2,4,"wee!!!"],color="LimeGreen",font=[TIMES,ROMAN,14]): f20b:=display(bkgd,board,wee,translate(rotate(person,-Pi/4),-2.7,5.9)): f21:=display(translate(rotate(person,-Pi/6),-2.8,4.2),bkgd,board): f22:=display(translate(person,-2.5,-.5),bkgd,board): numbers1:=textplot([1.5,1,"165"], font=[TIMES,ROMAN, 14], color=blue): numbers2:=textplot([1.5,.75,"39"], font=[TIMES,ROMAN, 12], color=blue): numbers3:=textplot([1.5,.50,"347"], font=[TIMES,ROMAN, 12], color=blue): numbers4:=textplot([3.5,.75,"16"], font=[TIMES,ROMAN, 12], color=blue): numbers5:=textplot([2.25,1,"129"], font=[TIMES,ROMAN, 12], color=blue): numbers6:=textplot([2.25,.75,"56"], font=[TIMES,ROMAN, 10], color=blue): numbers7:=textplot([2.25,.5,"19"], font=[TIMES,ROMAN, 10], color=blue): numbers8:=textplot([3,.75,"165"], font=[TIMES,ROMAN, 10], color=blue): numbers9:=textplot([3,1,"95"],font=[TIMES,ROMAN, 10], color=blue): numbers10:=textplot([3,.5,"17"],font=[TIMES,ROMAN, 10], color=blue): numbers11:=textplot([3.5,1,"146"],font=[TIMES,ROMAN, 10], color=blue): numbers12:=textplot([3.5,.75,"10"],font=[TIMES,ROMAN, 10], color=blue): numbers13:=textplot([3.5,.5,"15"],font=[TIMES,ROMAN, 10], color=blue): f23:=display(numbers1,numbers2,numbers3,numbers4,numbers5,numbers6,numbers7,numbers8,numbers9,numbers10,numbers11,numbers12,numbers13,board,bkgd,translate(person,-2.5,-.5)): display([f0,f0,f0,f0,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f20b,f21,f22,f23], insequence=true, scaling=constrained,axes=none); #speed 3