restart: with(plots):with(plottools):
text1:=textplot([[2,7.5,"Ughh...", font=[TIMES,ROMAN,20]]]):
text:=textplot([[2.5,10,"help...",font=[TIMES,ROMAN,20]]]):
eye1:= polygon([[2,8],[2.5,8],[2.5,7.5],[2,7.5],[2,8]],color=green):
Brown:=RGB(113/255,56/255,0/255):
eye2:=polygon([[.5,8],[.5,7.5],[1,7.5],[1,8],[.5,8]],color=green):
smile:=polygon([[.5,7],[1,6],[2,6],[2.5,7],[2.3,7],[1.8,6.2],[1.2,6.2],[.7,7],[.5,7]],color=red):
pupil:=polygon([[.65,7.65],[.85,7.65],[.85,7.85],[.65,7.85],[.65,7.65]]):
pupil2:=polygon([[2.15,7.65],[2.35,7.65],[2.35,7.85],[2.15,7.85],[2.15,7.65]]):
frown:=disk([1.5,6.5],.5,color=red):
sad:=display(eye1,eye2,frown):
see:=display(eye1,eye2,smile):
head:=polygon([[1,5],[2,5],[3,6],[3,9],[2,10],[1,10],[0,9],[0,6],[1,5]],color=tan):
face1:=display(pupil,pupil2,see,head):
hair1:=plot([[0,6],[0,5]],color=brown):
hair2:=plot([[3,6],[3,5]],color=brown):
face3:=display(pupil,pupil2,sad,head,hair1,hair2):
face2:=display(face1,hair1,hair2):
legs:=plot([[1,0],[1.5,1],[2,0]],color=tan,thickness=4):
body:=plot([[1.5,5],[1.5,2]],color=tan,thickness=4):
skirt:=polygon([[1.5,1],[2,1],[1.5,2],[1,1],[1.5,1]],color=blue):
teacher1:=display(body,legs):
arms:=plot([[1,4],[1.5,3],[2,4]],color=tan,thickness=4):
teacher2:=display(teacher1,arms):
stairs:=polygon([[2.1,0],[2.1,2],[3.3,2],[3.3,4],[4.5,4],[4.5,6],[5.7,6],[5.7,8],[6.9,8],[6.9,10],[8.1,10],[8,0],[2.1,0]], color=black):
finish:=display(skirt,face2,teacher2,stairs,pupil,pupil2):
person:=display(teacher2,face2,skirt):
person2:=display(teacher2,face3,skirt):
step1:=display(translate(person,1.2,2),stairs):
step2:=display(translate(person,2.4,4),stairs):
step3:=display(translate(person,3.6,6),stairs):
step4:=display(translate(person,4.8,8),stairs):
step5:=display(translate(person,6,10),stairs):
step6:=display(translate(rotate(person2,Pi/2,[1.5,7.5]),-2,1),stairs):
step7:=display(translate(rotate(person2,Pi,[1,0]),0,10),stairs,text):
display(finish,step1,step2,step3,step4,step5,step6,step7,insequence=true):
bed:=polygon([[-3,2],[9,2],[9,7],[-3,7],[-3,2]],color="SkyBlue"):
pillow:=polygon([[-2,2.5],[1,2.5],[1,6.5],[-2,6.5],[-2,2.5]],color=white):
l1:=polygon([[-3,2],[-3,0],[-2,0],[-2,2],[-3,2]],color=Brown):
l2:=polygon([[1,2],[2,1],[3,1],[2,2],[1,2]],color=Brown):
l3:=polygon([[8,2],[8,0],[9,0],[9,2],[8,2]],color=Brown):
bed2:=display(text1,translate(rotate(person2,.5*Pi), 8,3), pillow,bed,l1,l2,l3):
display(finish,step1,step2,step3,step4,step5,step6,step7,step7,bed2,bed2,bed2,insequence=true,axes=none,scaling=constrained);#fps=3