restart;with(plottools):with(plots):
head:=circle([8,26],.25,color=black):
rock:=polygon([[3,0],[5,2],[7,5],[8,10],[10,7],[11,6],[11,4],[11,3],[10,0],[3,0]],color=gold):
arm:=plot([[8.05,26.25],[8.5,26.25]],color=black):
arm2:=plot([[7.5,26.25],[7.95,26.25]],color=black):
body:=plot([[8,26.25],[8,27]],color=black):
leg:=plot([[7.8,27.45],[8,27]],color=black):
leg2:=plot([[8.2,27.45],[8,27]],color=black):
person:=display(head,arm,arm2,body,leg,leg2):
text1:=textplot([[10,25,W],[10,24,H],[10,23,E],[10,22,E],[10,21,E],[10,20,E],[10,19,E],[10,18,E],[10,17,E],[10,16,E],[10,15,E],[10,14,E],[10,13,E],[10,12,E],[10,11,E]],font=[Times,New,Roman,13],color=red):
p1:=display(translate(person,0,-.5),rock):
p2:=display(translate(person,0,-1),rock,text1):
p3:=display(translate(person,0,-1.5),rock,text1):
p4:=display(translate(person,0,-2),rock,text1):
p5:=display(translate(person,0,-2.5),rock,text1):
p6:=display(translate(person,0,-3),rock,text1):
p7:=display(translate(person,0,-3.5),rock,text1):
p8:=display(translate(person,0,-4),rock,text1):
p9:=display(translate(person,0,-4.5),rock,text1):
p10:=display(translate(person,0,-5),rock,text1):
p11:=display(translate(person,0,-5.5),rock,text1):
p12:=display(translate(person,0,-6),rock,text1):
p13:=display(translate(person,0,-6.5),rock,text1):
p14:=display(translate(person,0,-7),rock,text1):
p15:=display(translate(person,0,-7.5),rock,text1):
p16:=display(translate(person,0,-8),rock,text1):
p17:=display(translate(person,0,-8.5),rock,text1):
p18:=display(translate(person,0,-9),rock,text1):
p19:=display(translate(person,0,-9.5),rock,text1):
p20:=display(translate(person,0,-10),rock,text1):
p21:=display(translate(person,0,-10.5),rock,text1):
p22:=display(translate(person,0,-11),rock,text1):
p23:=display(translate(person,0,-11.5),rock,text1):
p24:=display(translate(person,0,-12),rock,text1):
p25:=display(translate(person,0,-12.5),rock,text1):
p26:=display(translate(person,0,-13),rock,text1):
p27:=display(translate(person,0,-13.5),rock,text1):
p28:=display(translate(person,0,-14),rock,text1):
p29:=display(translate(person,0,-14.5),rock,text1):
p30:=display(translate(person,0,-15),rock,text1):
p31:=display(translate(person,0,-15.7),rock):
crack:=plot([[8,10.05],[8.1,10.2],[7.9,10.3],[8.1,10.4]],color=red):
text:=textplot([12,10.5, Ouch], font=[TIMES,ROMAN,35], color=red):
crackhead:=display([crack,p31,text]):
no:=display(arm,arm2,body,leg,leg2):
semicircle1 :=display(arc(([8,9.5], .25, 4*Pi/9..13*Pi/9,color=black),rock)):
semicircle2:=display(reflect(semicircle1, [[8.1,0],[8.1,1]])):
nono:=display(translate(no,0,-16.2),rock,translate(semicircle1,-.15,.25),translate(semicircle2,0,.25),text):
semicircle1 :=display(arc(([8,9.5], .25, 4*Pi/9..13*Pi/9,color=black),rock)):
semicircle2:=display(reflect(semicircle1, [[8.1,0],[8.1,1]])):
blood1:=plot([[7,5],[8,10]],thickness=3):
blood2:=plot([[3,0],[5,2],[7,5]],thickness=3):
blood3:=plot([[8,10],[10,7],[11,6],[11,0]],thickness=3):
pool:=ellipse([7.5,.1],4.4,.25, filled = true, color =red):
rblood4:=display(blood1,rock,blood2,blood3,translate(semicircle1,-.15,.25),translate(semicircle2,0,.25),(translate(no,0,-16.2))):
rblood3:=display(blood1,rock,blood2,blood3,(translate(no,0,-16.2))):
ha:=display(translate(no,0,-16.2), translate(semicircle1,-.5,-.5),rock,rblood3,translate(semicircle2,.5,-.5)):
ha2:=display(translate(no,0,-16.2), translate(semicircle1,-.5,-1),rock,rblood3,translate(semicircle2,1,-1)):
ha3:=display(translate(no,0,-16.2), translate(semicircle1,-.75,-1.5),rock,rblood3,translate(semicircle2,1.4,-1.5)):
ha4:=display(translate(no,0,-16.2), translate(semicircle1,-.85,-2),rock,rblood3,translate(semicircle2,1.75,-2)):
ha5:=display(translate(no,0,-16.2), translate(semicircle1,-.9,-2.5),rock,rblood3,translate(semicircle2,2,-2.5)):
ha6:=display(translate(no,0,-16.2), translate(semicircle1,-.95,-3),rock,rblood3,translate(semicircle2,2.5,-3)):
ha7:=display(translate(no,0,-16.2), translate(semicircle1,-.97,-3.5),rock,rblood3,translate(semicircle2,3,-3.5)):
ha8:=display(translate(no,0,-16.2), translate(semicircle1,-1,-4),rock,rblood3,translate(semicircle2,3,-4)):
ha9:=display(translate(no,0,-16.2), translate(semicircle1,-1.2,-4.5),rock,rblood3,translate(semicircle2,3,-4.5)):
ha10:=display(translate(no,0,-16.2), translate(semicircle1,-1.4,-5),rock,rblood3,translate(semicircle2,3,-5)):
ha11:=display(translate(no,0,-16.2), translate(semicircle1,-1.8,-5.5),rock,rblood3,translate(semicircle2,3,-5.5)):
ha12:=display(translate(no,0,-16.2), translate(semicircle1,-2.1,-6),rock,rblood3,translate(semicircle2,3,-6)):
ha13:=display(translate(no,0,-16.2), translate(semicircle1,-2.4,-6.5),rock,rblood3,translate(semicircle2,3,-6.5)):
ha14:=display(translate(no,0,-16.2), translate(semicircle1,-2.7,-7),rock,rblood3,translate(semicircle2,3,-7)):
ha15:=display(translate(no,0,-16.2), translate(semicircle1,-3.25,-7.5),rblood3,rock,translate(semicircle2,3,-7.5)):
ha16:=display(translate(no,0,-16.2), translate(semicircle1,-3.75,-8),rock,rblood3,translate(semicircle2,3,-8)):
ha17:=display(translate(no,0,-16.2), translate(semicircle1,-4.2,-8.5),rock,rblood3,translate(semicircle2,3,-8.5)):
ha18:=display(translate(no,0,-16.2), translate(semicircle1,-4.6,-9),rock,rblood3,translate(semicircle2,3,-9)):
ha19:=display(translate(no,0,-16.2), translate(semicircle1,-5.1,-9.5),rock,rblood3,translate(semicircle2,3,-9.5)):
bpool:=display(pool,rock,(translate(no,0,-16.2),ha19)):
display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p31,crackhead,crackhead,crackhead,crackhead,crackhead,crackhead,crackhead,crackhead,crackhead,crackhead,crackhead,nono,nono,nono,nono,nono,nono,nono,nono,nono,nono,nono,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,rblood4,ha,ha,ha2,ha2,ha3,ha3,ha4,ha4,ha5,ha5,ha6,ha6,ha7,ha7,ha8,ha8,ha9,ha9,ha10,ha10,ha11,ha11,ha12,ha12,ha13,ha13,ha14,ha14,ha15,ha15,ha16,ha16,ha17,ha17,ha18,ha18,ha19,ha19,ha19,ha19,ha19,ha19,ha19,ha19,ha19,bpool,bpool,bpool,bpool,bpool,bpool,bpool,bpool,bpool,bpool,bpool,bpool,bpool],insequence=true,scaling=constrained,axes=none);
#speed 10