restart;with(plots):with(plottools):
trapazoide:=polygon([[-6,0],[-9,3],[9,3],[6,0]],color="Sienna"):
line1:=plot([[4,3],[4,6]],color=black,thickness=3):
line2:=plot([[4,5],[6,6]],thickness=3,color=black):
line3:=plot([[6,5],[6,7]],color=brown,thickness=3):
line4:=plot([[6,7],[7,8]], color=black):
line5:=plot([[7,8],[8,8]], color=black):
line6:=plot([[8,8],[11,5]], color=black):
line7:=plot([[11,5],[11,0]], color=black):
lines:=display([line1,line2,line3,line4,line5,line6,line7]):
sky:=polygon([[-20,0],[-20,15.7],[20,15.7],[20,0],[6,0],[9,3],[-9,3],[-6,0],[-20,0]],color="LightBlue"):
CHOMP:=textplot([7,10,"CHOMP!"],'align'={'above', 'right'}, font=[Times,bold,16]):
head:=disk([4,7],1,color="white",thickness=0):
eye:=circle([4.5,7.25],.1):
mouth:=line([4.8,6.5],[4.3,6.6]):
manboat:=display(lines,head,eye,mouth,trapazoide):
boat:=display(trapazoide):
sun:=display(disk([-9,13.5],1.5,color="yellow",thickness=0)):
note1:=display(circle([3,8],.17),line([3.17,8],[3.17,8.75])):
note2:=display(disk([2.3,7.5],.17),line([2.47,8.4],[2.47,7.5])):
note3:= translate(note1, -.3,.5):
note4:=translate(note2, -0.3,.5):
note5:= translate(note3, -.4,.5):
note6:=translate(note4, -0.4,.5):
water:=polygon([[-20,0],[-20,-3.3],[20,-3.3],[20,0]],color="DarkBlue"):
f0:=display(water,manboat,sun,sky):
f1:=display(water,manboat,note1,note2,sun,sky):
f2:=display(water,manboat,note3,note4,sun,sky):
f3:=display(water,manboat,note5,note6,sun,sky):
line8:=polygon([[-11,2],[-8,4],[-6,3],[2,3],[4,5],[2,5],[4,6],[3,7],[1,8],[-4,8],[-8,6],[-11,8],[-11,2]], color=white):
line9:=polygon([[-2,8],[-2,10],[0,8]],color=white):
line10:=polygon([[-3,6],[-2,4]],color=white):
line11:=polygon([[-2,4],[-1,6]],color=white):
fisheye:=(disk([2,6.5],.20),color=black):
fish:=display(fisheye,line9,line11,line10,line8):
f4:=display(water,translate(rotate(fish,Pi/2,[-2,5.5]),-10.5,-10),manboat,sun,sky):
f5:=display(water,translate(rotate(fish,Pi/2,[-2,5.5]),-10.5,-8),manboat,sun,sky):
f6:=display(water,translate(rotate(fish,Pi/2,[-2,5.5]),-10.5,-6),manboat,sun,sky):
f7:=display(water,translate(rotate(fish,Pi/2,[-2,5.5]),-10.5,-4),manboat,sun,sky):
f8:=display(water,translate(rotate(fish,.4*Pi,[-2,5.5]),-10.5,-2),manboat,sun,sky):
f9:=display(water,translate(rotate(fish,.3*Pi,[-2,5.5]),-9.5,0),manboat,sun,sky):
f10:=display(water,translate(rotate(fish,.2*Pi,[-2,5.5]),-8.5,2),manboat,sun,sky):
f11:=display(water,translate(rotate(fish,.1*Pi,[-2,5.5]),-7.5,2),manboat,sun,sky):
f12:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),-7.5,1.2),manboat,sun,sky):
f13:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),-7,1),manboat,sun,sky):
f14:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),-5,0.8),manboat,sun,sky):
f15:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),-2,0.6),manboat,sun,sky):
f16:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),-.7,0.6),manboat,sun,sky):
f17:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),2,0.6),boat,sun,sky,CHOMP):
f18:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),4.7,0.6),boat,sun,sky,CHOMP):
f19:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),6.7,0.6),boat,sun,sky,CHOMP):
f20:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),8.2,0.6),boat,sun,sky):
f21:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),10,0.6),boat,sun,sky):
f22:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),11.6,0.6),boat,sun,sky):
f23:=display(water,translate(rotate(fish,0*Pi,[-2,5.5]),13,0.6),boat,sun,sky):
f24:=display(water,translate(rotate(fish,-Pi/6,[-2,5.5]),14.5,-.5),boat,sun,sky):
f25:=display(water,translate(rotate(fish,-Pi/3.5,[-2,5.5]),14,-1),boat,sun,sky):
f26:=display(water,translate(rotate(fish,-Pi/2.5,[-2,5.5]),14,-1),boat,sun,sky):
f27:=display(water,translate(rotate(fish,-Pi/2,[-2,5.5]),14,-1),boat,sun,sky):
f28:=display(water,translate(rotate(fish,-Pi/2,[-2,5.5]),14,-5.6),boat,sun,sky):
f29:=display(water,translate(rotate(fish,-Pi/2,[-2,5.5]),14,-9),boat,sun,sky):
f30:=display(water,translate(rotate(fish,-Pi/2,[-2,5.5]),14,-13),boat,sun,sky):
f31:=display(water,translate(rotate(fish,-Pi/2,[-2,5.5]),14,-16),boat,sun,sky):
f32:=display(water,boat,sun,sky):
f33:=display(water,boat,sun,sky):
f34:=display(water,boat,sun,sky):
display([f0,f1,f2,f3,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,f27,f28,f29,f30,f31,f32,f33,f34],insequence=true, scaling=constrained, axes=none, view=[-20..20,-3..15]);
(*speed 5*)