restart:with(plots):with(plottools):
wave0:=plot(sin(x),x=-30..20,color=blue,view=[-30..20,-20..20]):
wave1:=display(wave0,view=[-20..20,-20..20]):
wave2:=display(translate(wave0,Pi/3,0),view=[-20..20,-20..20]):
wave3:=display(translate(wave0,2*Pi/3,0),view=[-20..20,-20..20]):
wave4:=display(translate(wave0,3*Pi/3,0),view=[-20..20,-20..20]):
wave5:=display(translate(wave0,4*Pi/3,0),view=[-20..20,-20..20]):
wave6:=display(translate(wave0,5*Pi/3,0),view=[-20..20,-20..20]):
wave:=display([wave1,wave2,wave3,wave4,wave5,wave6],insequence=true):
fish01:=polygonplot([[-18,-10],[-17,-10],[-16,-11],[-17,-12],[-18,-12],[-20,-10],[-20,-12],[-18,-10]],color=red):
fisheye1:=disk([-17.5,-10.5],.25,color=blue):
fish:=display([fisheye1,fish01]):
bird1:=plot([[-11,13],[-10,14],[-7.50,14],[-7,13.50],[-6.50,14],[-4,14],[-3,13]],color=black):
bird2:=plot([[-11,15],[-10,14],[-7.50,14],[-7,13.50],[-6.50,14],[-4,14],[-3,15]],color=black):
bird:=display([bird1,bird2],insequence=true):
h:=translate(fish,-3,0):
sh:=translate(fish,-2,0):
ish:=translate(fish,-1,0):
f0:=display([fish,wave1,bird1]):
f01:=translate(fish,1,0):
f1:=display([f01,wave2,bird1]):
f02:=translate(f01,1,0):
f2:=display([f02,wave3,bird1]):
f03:=translate(rotate(f02,-Pi/4,[-15.5,-10.5]),1,-1):
f3:=display([f03,wave4,bird1,h]):
f04:=translate(f03,1,-1):
f4:=display([f04,wave5,bird1,sh]):
f05:=translate(f04,1,-1):
f5:=display([f05,wave6,bird2,ish]):
f06:=translate(rotate(f05,Pi/4,[-12.5,-13.5]),1,0):
f6:=display([f06,wave1,bird2,fish]):
f07:=translate(f06,1,0):
f7:=display([f07,wave2,bird2,f01]):
f08:=translate(f07,1,0):
f8:=display([f08,wave3,bird2,f02]):
f09:=translate(rotate(f08,Pi/4,[-9.5,-13.5]),1,1):
f9:=display([f09,wave4,bird2,f03,h]):
f010:=translate(f09,1,1):
f10:=display([f010,wave5,bird1,f04,sh]):
f011:=translate(f010,1,1):
f11:=display([f011,wave6,bird1,f05,ish]):
f012:=translate(rotate(f011,Pi/4,[-6.5,-10.5]),0,1):
f12:=display([f012,wave1,bird1,f06,fish]):
f013:=translate(f012,0,1):
f13:=display([f013,wave2,bird1,f07,f01]):
f014:=translate(f013,0,1):
f14:=display([f014,wave3,bird1,f08,f02]):
f015:=translate(rotate(f014,Pi/4,[-6.5,-7.5]),-1,1):
f15:=display([f015,wave4,bird2,f09,f03]):
f016:=translate(f015,-1,1):
f16:=display([f016,wave5,bird2,f010,f04]):
f017:=translate(f016,-1,1):
f17:=display([f017,wave6,bird2,f011,f05]):
f018:=translate(rotate(f017,Pi/4,[-9.5,-4.5]),-1,0):
f18:=display([f018,wave1,bird2,f012,f06]):
f019:=translate(f018,-1,0):
f19:=display([f019,wave1,bird2,f013,f07]):
f020:=translate(f019,-1,0):
f20:=display([f020,wave2,bird1,f014,f08]):
f021:=translate(rotate(f020,Pi/4,[-12.5,-4.5]),-1,-1):
f21:=display([f021,wave3,bird1,f015,f09]):
f022:=translate(f021,-1,-1):
f22:=display([f022,wave4,bird1,f016,f010]):
f023:=translate(f022,-1,-1):
f23:=display([f023,wave5,bird1,f017,f011]):
f024:=translate(rotate(f023,Pi/4,[-15.5,-7.5]),0,-1):
f24:=display([f024,wave6,bird1,f018,f012]):
f025:=translate(f024,0,-1):
f25:=display([f025,wave1,bird2,f019,f013]):
f026:=translate(f025,0,-1):
f26:=display([f026,wave2,bird2,f020,f014]):
f027:=translate(rotate(f026,Pi/4,[-15.5,-10.5]),1,-1):
f27:=display([f027,wave3,bird2,f021,f015]):
f028:=translate(f027,1,-1):
f28:=display([f028,wave4,bird2,f022,f016]):
f029:=translate(f028,1,-1):
f29:=display([f029,wave5,bird2,f023,f017]):
f030:=translate(rotate(f029,Pi/4,[-12.5,-13.5]),1,0):
f30:=display([f030,wave6,bird1,f024,f018]):
f031:=translate(f030,1,0):
f31:=display([f031,wave1,bird1,f025,f019]):
f032:=translate(f031,1,0):
f32:=display([f032,wave2,bird1,f026,f020]):
f033:=translate(rotate(f032,Pi/4,[-9.5,-13.5]),1,1):
f33:=display([f033,wave3,bird1,f027,f021]):
f034:=translate(f033,1,1):
f34:=display([f034,wave4,bird1,f028,f022]):
f035:=translate(f034,1,1):
f35:=display([f035,wave5,bird2,f029,f023]):
f036:=translate(rotate(f035,Pi/4,[-6.5,-10.5]),0,1):
f36:=display([f036,wave6,bird2,f030,f024]):
f037:=translate(f036,0,1):
f37:=display([f037,wave1,bird2,f032,f026]):
f038:=translate(rotate(f037,-Pi/4,[-6.5,-8.5]),1,1):
f38:=display([f038,wave2,bird2,f033,f027]):
f039:=translate(f038,1,1):
f39:=display([f039,wave3,bird2,f034,f028]):
f040:=translate(f039,1,1):
f40:=display([f040,wave4,bird1,f035,f029]):
f041:=translate(rotate(f040,-Pi/4,[-3.5,-5.5]),1,0):
f41:=display([f041,wave5,bird1,f036,f030]):
f042:=translate(f041,1,0):
f42:=display([f042,wave6,bird1,f037,f031]):
f043:=translate(f042,1,0):
f43:=display([f043,wave1,bird1,f038,f032]):
f044:=translate(rotate(f043,-Pi/4,[0.5,-5.5]),1,-1):
f44:=display([f044,wave2,bird1,f039,f033]):
f045:=translate(f044,1,-1):
f45:=display([f045,wave3,bird2,f040,f034]):
f046:=translate(f045,1,-1):
f46:=display([f046,wave4,bird2,f041,f035]):
f047:=translate(rotate(f046,-Pi/4,[3.5,-8.5]),0,-1):
f47:=display([f047,wave5,bird2,f042,f036]):
f048:=translate(f047,0,-1):
f48:=display([f048,wave6,bird2,f043,f037]):
f049:=translate(f048,0,-1):
f49:=display([f049,wave1,bird2,f044,f038]):
f050:=translate(rotate(f049,-Pi/4,[3.5,-11.5]),-1,-1):
f50:=display([f050,wave2,bird1,f045,f039]):
f051:=translate(f050,-1,-1):
f51:=display([f051,wave3,bird1,f046,f040]):
f052:=translate(f051,-1,-1):
f52:=display([f052,wave4,bird1,f047,f041]):
f053:=translate(rotate(f052,-Pi/4,[0.5,-14.5]),-1,0):
f53:=display([f053,wave5,bird1,f048,f042]):
f054:=translate(f053,-1,0):
f54:=display([f054,wave6,bird1,f048,f042]):
f055:=translate(f054,-1,0):
f55:=display([f055,wave1,bird2,f049,f043]):
f056:=translate(rotate(f055,-Pi/4,[-3.5,-14.5]),-1,1):
f56:=display([f056,wave2,bird2,f050,f044]):
f057:=translate(f056,-1,1):
f57:=display([f057,wave3,bird2,f051,f045]):
f058:=translate(f057,-1,1):
f58:=display([f058,wave4,bird2,f052,f046]):
f059:=translate(rotate(f058,-Pi/4,[-6.5,-11.5]),0,1):
f59:=display([f059,wave5,bird2,f053,f047]):
f060:=translate(f059,0,1):
f60:=display([f060,wave6,bird1,f054,f048]):
f061:=translate(f060,0,1):
f61:=display([f061,wave1,bird1,f055,f049]):
f062:=translate(rotate(f061,-Pi/4,[-6.5,-8.5]),1,1):
f62:=display([f062,wave2,bird1,f056,f050]):
f063:=translate(f062,1,1):
f63:=display([f063,wave3,bird1,f057,f051]):
f064:=translate(f063,1,1):
f64:=display([f064,wave4,bird1,f058,f052]):
f065:=translate(rotate(f064,-Pi/4,[-3.5,-5.5]),1,0):
f65:=display([f065,wave5,bird2,f059,f053]):
f066:=translate(f065,1,0):
f66:=display([f066,wave6,bird2,f060,f054]):
f067:=translate(f066,1,0):
f67:=display([f067,wave1,bird2,f061,f055]):
f068:=translate(rotate(f067,-Pi/4,[0.5,-5.5]),1,-1):
f68:=display([f068,wave2,bird2,f062,f056]):
f069:=translate(f068,1,-1):
f69:=display([f069,wave3,bird2,f063,f057]):
f070:=translate(f069,1,-1):
f70:=display([f070,wave4,bird1,f064,f058]):
f071:=translate(rotate(f070,Pi/4,[3.5,-8.5]),1,0):
f71:=display([f071,wave5,bird1,f065,f059]):
f072:=translate(f071,1,0):
f72:=display([f072,wave6,bird1,f066,f060]):
f073:=translate(f072,1,0):
f73:=display([f073,wave1,bird1,f067,f061]):
f074:=translate(f073,1,0):
f74:=display([f074,wave2,bird1,f068,f062]):
f075:=translate(f074,1,0):
f75:=display([f075,wave3,bird2,f069,f063]):
f076:=translate(f075,1,0):
f76:=display([f076,wave4,bird2,f070,f064]):
f077:=translate(f076,1,0):
f77:=display([f077,wave5,bird2,f071,f065]):
f078:=translate(f077,1,0):
f78:=display([f078,wave6,bird2,f072,f066]):
f079:=translate(f078,1,0):
f79:=display([f079,wave1,bird2,f073,f067]):
f080:=translate(f079,1,0):
f80:=display([f080,wave2,bird1,f074,f068]):
f081:=translate(f080,1,0):
f81:=display([f081,wave3,bird1,f075,f069]):
f082:=translate(f081,1,0):
f82:=display([f082,wave4,bird1,f076,f070]):
f083:=translate(f082,1,0):
f83:=display([f083,wave5,bird1,f077,f071]):
f084:=translate(f083,1,0):
f84:=display([f084,wave6,bird1,f078,f072]):
f085:=translate(f084,1,0):
f85:=display([f085,wave1,bird2,f079,f073]):
f086:=translate(f085,1,0):
f86:=display([f086,wave2,bird2,f080,f074]):
f087:=translate(f086,1,0):
f87:=display([f087,wave3,bird2,f081,f075]):
f088:=translate(f087,1,0):
f88:=display([f088,wave4,bird2,f082,f076]):
f089:=translate(f088,1,0):
f89:=display([f089,wave5,bird2,f083,f077]):
f090:=translate(f089,1,0):
f90:=display([f090,wave6,bird1,f084,f078]):
f091:=translate(f090,1,0):
f91:=display([f091,wave1,bird1,f085,f079]):
f092:=translate(f091,1,0):
f92:=display([f092,wave2,bird1,f086,f080]):
f093:=translate(f092,1,0):
f93:=display([f093,wave3,bird1,f087,f081]):
f94:=display([wave4,bird1,f088,f082]):
f95:=display([wave5,bird2,f089,f083]):
f96:=display([wave6,bird2,f090,f084]):
f97:=display([wave1,bird2,f091,f085]):
f98:=display([wave2,bird2,f092,f086]):
f99:=display([wave3,bird2,f093,f087]):
f100:=display([wave4,bird1,f088]):
f101:=display([wave5,bird1,f089]):
f102:=display([wave6,bird1,f090]):
f103:=display([wave1,bird1,f091]):
f104:=display([wave2,bird1,f092]):
f105:=display([wave3,bird2,f093]):
display([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,f35,f36,f37,f38,f39,f40,f41,f42,f43,f44,f45,f46,f47,f48,f49,f50,f51,f52,f53,f54,f55,f56,f57,f58,f59,f60,f61,f62,f63,f64,f65,f66,f67,f68,f69,f70,f71,f72,f73,f74,f75,f76,f77,f78,f79,f80,f81,f82,f83,f84,f85,f86,f87,f88,f89,f90,f91,f92,f93,f94,f95,f96,f97,f98,f99,f100,f101,f102,f103,f104,f105],insequence=true,view=[-20..20,-20..20],axes=none):
#speed 10