restart; with(plots): with(plottools):
water:=plot([[0,0], [31,0]],color=blue):
boat:=polygon([[12,0], [18,0], [22,4], [8,4],[12,0]],color=gray):
manleg :=polygon([[17,4],[18,4], [18,5],[17,5], [17,4], [19,4], [19,5], [18,5],[18,4]],color=blue):
eye:=circle([17,11],.25,color=blue):
eye2:=circle([19,11],.25,color=blue):
nose:=plot([[18,10.5],[18.5,10],[17.5,10]],color=red):
mouth:=plot([[17.5,9.5],[18.5,9.5]],color=black):
fish:=polygon([[30,0],[29,3],[28,0],[30,0]], color=blue):
fishingline:=plot([[25,12],[26,0]], color=gray):
body:=polygon([[17,4],[17,9],[19,9],[19,4],[17,4]], color=red):
arm1:=polygon([[17,5],[16,5],[16,8],[17,8],[17,5]],color=red):
arm2:=polygon([[19,5],[20,5],[20,8],[19,8],[19,5]], color=red):
head:=circle([18,11], 2, color=blue):
fishingpole:=plot([[20,6],[25,12]], color=black):
p1:=display(arm1,manleg,body,boat,mouth,fish,water,arm2,eye,nose,eye2,head,fishingpole,fishingline):
p2:=display(water,translate(display(arm1,manleg,body,eye,eye2,boat,mouth,nose,arm2,fish,fishingline,head,fishingpole),1,0)):
words:=textplot([25,17,"help i'm being pulled away"], font=[Times,bold,16]):
p3:=display(translate(p1,2,0),words):
p4:=display(translate(p2,2,0),words):
p5:=display(translate(p1,4,0),words):
p6:=display(translate(p2,4,0),words):
p7:=display(translate(p1,6,0),words):
p8:=display(translate(p2,6,0),words):
p9:=display(translate(p1,8,0),words):
p10:=display(translate(p2,8,0),words):
p11:=display(translate(p1,10,0),words):
p12:=display(translate(p2,10,0),words):
p13:=display(translate(p1,12,0),words):
p14:=display(translate(p2,12,0),words):
p15:=display(translate(p1,14,0),words):
p16:=display(translate(p2,14,0),words):
p17:=display(translate(p1,16,0),words):
p18:=display(translate(p2,16,0),words):
p19:=display(translate(p1,18,0),words):
p20:=display(translate(p2,18,0),words):
p21:=display(translate(p1,20,0),words):
p21:=display(translate(p2,20,0),words):
speed 10
display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21], insequence=true, scaling=constrained, axes=none);