restart:with(plots):with(plottools):
boat:=polygon([[1,0],[12,0],[14,2],[0,2],[1,0]],color=brown):
fin:=display(pieslice([0,0],3,Pi/2..Pi,color=grey)):
finrev:=display(pieslice([0,0],3,0..Pi/2,color=grey)):
body:=plot([[6,2],[6,4]],color=black):
head:=circle([6,4.5],.5,color=black):
pole:=plot([[6.15,3.1],[7.4,5]],color=gold):
arm:=plot([[6,3.5],[5.5,3.25],[6.15,3.1]],color=black):arm2:=plot([[6,3.5],[6.4,3.35],[6.15,3.1]],color=black):
reel:=plot([[7.4,5],[7.4,-0.0146]],color=gold):
re1:=plot([[7.4,5],[7.4,0]],color=gold):
re2:=plot([[7.4,5],[7.4,.25]],color=gold):
re3:=plot([[7.4,5],[7.4,.5]],color=gold):
re4:=plot([[7.4,5],[7.4,.75]],color=gold):
re5:=plot([[7.4,5],[7.4,1]],color=gold):
re6:=plot([[7.4,5],[7.4,1.25]],color=gold):
re7:=plot([[7.4,5],[7.4,1.5]],color=gold):
re8:=plot([[7.4,5],[7.4,1.75]],color=gold):
re9:=plot([[7.4,5],[7.4,2]],color=gold):
re10:=plot([[7.4,5],[7.4,2.25]],color=gold):
re11:=plot([[7.4,5],[7.4,2.5]],color=gold):
re12:=plot([[7.4,5],[7.4,2.75]],color=gold):
re13:=plot([[7.4,5],[7.4,3]],color=gold):
fin2:=pieslice([14,0],3,Pi/2..0,color=grey):
oval:=ellipse([14,-2],6,2,color=grey,filled=true):
sharkeye:=plot([[10.2,-1.4],[10.2,-1.5]],color=black):
sharkmouth:=polygon([[8.2,-2.4],[10.7,-2.4],[10.7,-3],[8.8,-3],[9.2,-2.8],[9.6,-3],[10,-2.8],[10.4,-3],[10.6,-2.4],[10.2,-2.6],[9.8,-2.4],[9.4,-2.6],[9,-2.4],[8.6,-2.6],[8.2,-2.4]],color=white):
sharkarm:=plot([[12.9,-1.6],[13.9,-3.3], [15.9,-1.6]],color=black):
shark:=display(sharkmouth,oval,sharkarm,sharkeye,translate(fin,15,0)):
endcredits:=textplot([7.5,6,"THE END"],font=[TIMES,ROMAN,30],color="Blue"):
bigpic0:=display([boat,body,head,arm,arm2,pole,reel,translate(fin,14,0)]):
bigpic1:=display([boat,body,head,arm,arm2,pole,re1,translate(fin,13,0)]):
bigpic2:=display([boat,body,head,arm,arm2,pole,re2,translate(fin,12,0)]):
bigpic3:=display([boat,body,head,arm,arm2,pole,re3,translate(fin,11,0)]):
bigpic4:=display([boat,body,head,arm,arm2,pole,re4,translate(fin,10,0)]):
bigpic5:=display([boat,body,head,arm,arm2,pole,re5,translate(fin,9,0)]):
bigpic6:=display([boat,body,head,arm,arm2,pole,re6,translate(fin,8,0)]):
bigpic7:=display([boat,body,head,arm,arm2,pole,re7,translate(fin,7,0)]):
bigpic8:=display([boat,body,head,arm,arm2,pole,re8,translate(fin,6,0)]):
bigpic9:=display([boat,body,head,arm,arm2,pole,re9,translate(fin,5,0)]):
bigpic10:=display([boat,body,head,arm,arm2,pole,re10,translate(fin,4,0)]):
bigpic11:=display([boat,body,head,arm,arm2,pole,re11,translate(fin,3,0)]):
bigpic12:=display([boat,body,head,arm,arm2,pole,re12,translate(fin,2,0)]):
bigpic13:=display([boat,body,head,arm,arm2,pole,re13,translate(fin,1,0)]):
bigpic14:=display([boat,body,head,arm,arm2,pole,re13,translate(fin,0,0)]):
bigpic15:=display([translate(finrev,1,0),boat,body,head,arm,arm2,pole,re13]):
bigpic16:=display([translate(finrev,2,0),boat,body,head,arm,arm2,pole,re13]):
bigpic17:=display([translate(finrev,3,0),boat,body,head,arm,arm2,pole,re13]):
bigpic18:=display([translate(finrev,4,0),boat,body,head,arm,arm2,pole,re13]):
bigpic19:=display([translate(finrev,5,0),boat,body,head,arm,arm2,pole,re13]):
bigpic20:=display([translate(finrev,6,0),boat,body,head,arm,arm2,pole,re13]):
bigpic21:=display([translate(finrev,7,0),boat,body,head,arm,arm2,pole,re13]):
bigpic22:=display([translate(finrev,8,0),boat,body,head,arm,arm2,pole,re13]):
bigpic23:=display([translate(finrev,9,0),boat,body,head,arm,arm2,pole,re13]):
bigpic24:=display([translate(finrev,10,0),boat,body,head,arm,arm2,pole,re13]):
bigpic25:=display([translate(finrev,11,0),boat,body,head,arm,arm2,pole,re13]):
bigpic26:=display([translate(finrev,12,0),boat,body,head,arm,arm2,pole,re13]):
bigpic27:=display([translate(finrev,13,0),boat,body,head,arm,arm2,pole,re13]):
bigpic28:=display([translate(finrev,14,0),boat,body,head,arm,arm2,pole,re13]):
bigpic0:=display([boat,body,head,arm,arm2,pole,reel,translate(fin,14,0)]):
bigpic1:=display([boat,body,head,arm,arm2,pole,re1,translate(fin,13,0)]):
bigpic2:=display([boat,body,head,arm,arm2,pole,re2,translate(fin,12,0)]):
bigpic29:=display([translate(rotate(shark,-Pi/6.9,[14,-2]),-1,2),boat,body,head,arm,arm2,pole,re2]):
bigpic30:=display([translate(rotate(shark,-Pi/6.9,[14,-2]),-3,4),boat,body,arm]):
bigpic31:=display([translate(rotate(shark,Pi/6.9,[14,-2]),-7,2),boat]):
bigpic32:=display([translate(fin,3,0),boat]):
bigpic33:=display(endcredits):
display([bigpic0,bigpic1,bigpic2,bigpic3,bigpic4,bigpic5,bigpic6,bigpic7,bigpic8,bigpic9,bigpic10,bigpic11,bigpic12,bigpic13,bigpic14,bigpic15,bigpic16,bigpic17,bigpic18,bigpic19,bigpic20,bigpic21,bigpic22,bigpic23,bigpic24,bigpic25,bigpic26,bigpic27,bigpic28,bigpic0,bigpic29,bigpic30,bigpic31,bigpic32,bigpic33,bigpic33,bigpic33,bigpic33,bigpic33],insequence=true,axes=none);
# 6 fps