restart:with(plots): with(plottools):
body := ellipse([0,0], 2, 1, filled = true, color ="DeepSkyBlue"):
head:=disk([2.5,0],.5, color="DeepSkyBlue"):
beak:=polygon([[2.8, .25], [3.5, 0], [2.8, -.25]], color = "yellow"):
eye:=disk([2.5,.25],.05, color=black):
openbeak:=polygon([[2.8, .25],[2.8, -.25],[3.5, -.25],[2.8,0],[3.5,.25]], color = "yellow"):
frontwing1:=polygon([[.75, 0], [-.75, 0], [-2.5, -1.5]], color = "DodgerBlue"):
backwing1:=polygon([[.75, 0], [-.75, 0], [-2.5, -.5]], color = "DodgerBlue"):
frontwing2:=polygon([[.75, 0], [-.75, 0], [-2.5, -1]], color = "DodgerBlue"):
backwing2:=polygon([[.75, 0], [-.75, 0], [-2.5, -0]], color = "DodgerBlue"):
frontwing3:=polygon([[.75, 0], [-.75, 0], [-2.5, -.5]], color = "DodgerBlue"):
backwing3:=polygon([[.75, 0], [-.75, 0], [-2.5, .5]], color = "DodgerBlue"):
frontwing4:=polygon([[.75, 0], [-.75, 0], [-2.5, 0]], color = "DodgerBlue"):
backwing4:=polygon([[.75, 0], [-.75, 0], [-2.5, 1]], color = "DodgerBlue"):
frontwing5:=polygon([[.75, 0], [-.75, 0], [-2.5, .5]], color = "DodgerBlue"):
backwing5:=polygon([[.75, 0], [-.75, 0], [-2.5, 1.5]], color = "DodgerBlue"):
frontwing6:=polygon([[.75, 0], [-.75, 0], [-2.5, 1]], color = "DodgerBlue"):
backwing6:=polygon([[.75, 0], [-.75, 0], [-2.5, 2]], color = "DodgerBlue"):
line1:=plot([[2.45,.2],[2.55,.3]], color = black):
line2:=plot([[2.45,.3],[2.55,.2]], color= black):
deadeye:=display(line1,line2):
leafness:=translate(ellipse([0,0], 7, 4, filled = true, color ="LimeGreen"), 0, 16):
trunk:=polygon([[-2,0], [-2, 13],[2,13], [2,0]], color = "SaddleBrown"):
tree:=display(leafness, trunk, scaling=constrained):
bbbottom:=polygon([[-12.5,0], [-12.5,65], [12.5, 65],[12.5,0]], color = "Bisque"):
bbpart2:=polygon([[-15,65], [-15,95], [15,95], [15,65]], color = "Bisque"):
bbpart3:=polygon([[-15,95], [-15,102], [-10,107], [10,107], [15,102], [15,95]], color = "Bisque"):
bbpart4:=polygon([[-10,107], [-5,119], [5,119], [10,107]], color = "Bisque"):
bbpart5:=polygon([[-5,119], [-5,128], [5,128], [5,119]], color = "Bisque"):
bbpart6:=polygon([[-5,128], [0,144], [5,128]], color = "Bisque"):
bbclock:=disk([0,80], 10, color=white):
hand1:=line([0, 80], [1.1, 88]):
hand2:=line([0, 80], [-5, 72]):
bigben:=display([hand1, hand2,bbclock, bbpart6,bbpart5,bbbottom, bbpart2, bbpart4,bbpart3], scaling=constrained):
bridge:=line([-124, 0], [124, 0], thickness=14, color = "LightSteelBlue" ):
btower1:=polygon([[-45,0], [-45,73], [-78,73], [-78,0]], color = "BlanchedAlmond"):
btower2:=polygon([[45,0], [45,73], [78,73], [78,0]], color = "BlanchedAlmond"):
t1t1:=polygon([[-78,73], [-74,95], [-70,73]], color = "BlanchedAlmond"):
t1t2:=polygon([[-70,73], [-62, 106], [-53,73]], color = "BlanchedAlmond"):
t1t3:=polygon([[-53,73], [-49,95], [-45,73]], color = "BlanchedAlmond"):
t2t1:=polygon([[78,73], [74,95], [70,73]], color = "BlanchedAlmond"):
t2t2:=polygon([[70,73], [62, 106], [53,73]], color = "BlanchedAlmond"):
t2t3:=polygon([[53,73], [49,95], [45,73]], color = "BlanchedAlmond"):
topbridge:=line([-45,64], [45,64], thickness=10, color = "LightSteelBlue" ):
slide1:=line([-78,72.98], [-123,0], thickness=7, color = "LightSteelBlue" ):
slide2:=line([78,72.98], [123,0], thickness=7, color = "LightSteelBlue" ):
fullBridge:=display([t2t1,t2t2,t2t3,t1t3,t1t2,t1t1, bridge,btower1,btower2,topbridge,slide1,slide2], scaling=constrained):
bird1:=display([eye,frontwing1,body,head,backwing1,beak],scaling=constrained):
bird2:=display([eye,frontwing2,body,head,backwing2,beak],scaling=constrained):
bird3:=display([eye,frontwing3,body,head,backwing3,beak],scaling=constrained):
bird4:=display([eye,frontwing4,body,head,backwing4,beak],scaling=constrained):
bird5:=display([eye,frontwing5,body,head,backwing5,beak],scaling=constrained):
bird6:=display([eye,frontwing6,body,head,backwing6,beak],scaling=constrained):
deadbird:=display([scale(deadeye,4,4,[2.5,.25]),frontwing6,body,head,backwing6,beak],scaling=constrained):
talkingbird:=display([eye,frontwing3,body,head,backwing3,openbeak],scaling=constrained):
birdmove:=display([bird1,bird2,bird3,bird4,bird5,bird6,bird5,bird4,bird3,bird2],insequence=true, scaling=constrained):
fullBird:=display([bird1,bird2,bird3,bird4,bird5,bird6,bird5,bird4,bird3,bird2],insequence=true, scaling=constrained):
egg:=ellipse([-185,170], 7, 14, filled = true, color ="Cyan"):
egg2:=ellipse([-185,129], 7, 14, filled = true, color ="Cyan"):
egg3:=ellipse([-185,87], 7, 14, filled = true, color ="Cyan"):
egg4:=ellipse([-185,45], 7, 14, filled = true, color ="Cyan"):
egg5:=ellipse([-185,14], 7, 14, filled = true, color ="Cyan"):
babybird:=(scale(bird1,8,8)):
say:=display(textplot([0,125,"Keep Calm and Fly On"], font=["Courier", "roman", 20])):
babybirdground:=translate(scale(bird1,8,8),-185,5):
babybird:=(scale(bird1,8,8)):
babybird2:=(scale(bird2,8,8)):
babybird3:=(scale(bird3,8,8)):
babybird4:=(scale(bird4,8,8)):
babybird5:=(scale(bird5,8,8)):
babybird6:=(scale(bird6,8,8)):
flyingbabybird:=translate(babybird, -160,170):
flyingbabybird2:=translate(babybird2, -90,177):
flyingbabybird3:=translate(babybird3, -20,184):
flyingbabybird4:=translate(babybird4, 30,177):
flyingbabybird5:=translate(babybird5, 100,170):
flyingbabybird6:=translate(babybird6, 170,177):
leafness2:=translate(ellipse([0,0], 7, 4, filled = true, color ="OliveDrab"), 0, 16):
tree2:=display(leafness2,trunk):
trunk2:=polygon([[-2,0], [-2, 13],[2,13], [2,0]], color = "Chocolate"):
tree3:=display(leafness,trunk2):
tree4:=display(leafness2,trunk2):
sky:=polygon([[-200,0], [-200,250],[200,250], [200,0]],color=blue):
ground:=polygon([[-200,-20], [-200,.4], [200,.4], [200,-20]], color=brown):
thames:=polygon([[-100,-20], [-100,.4], [100,.4], [100,-20]], color="Navy"):
sun:=disk([150,210],25,color = "Gold"):
background1:=display([sun,translate(tree, -75, 0),translate(tree3, -25, 0),translate(tree2, 25, 0),translate(tree4, 75, 0),ground,sky],scaling=constrained):
background2:=display([sun,fullBridge,thames,ground,sky],scaling=constrained):
background3:=display([sun,translate(tree, -100, 0),translate(tree2, 100, 0),bigben,ground,sky],scaling=constrained):
background4:=display([sun,translate(tree4, -75, 0),translate(tree2, -25, 0),translate(tree3, 25, 0),translate(tree, 75, 0),ground,sky],scaling=constrained):
bigBird:=translate(scale(bird1,15,15),0,200):
bigBird2:=translate(scale(bird2,15,15),0,200):
bigBird3:=translate(scale(bird3,15,15),0,200):
bigBird4:=translate(scale(bird4,15,15),0,200):
bigBird5:=translate(scale(bird5,15,15),0,200):
bigBird6:=translate(scale(bird6,15,15),0,200):
bigdeadbird:=translate(scale(deadbird,15,15),0,200):
bigtalkingbird:=translate(scale(talkingbird,15,15),0,200):
flyingBird:=translate(bigBird, -175,0):
flyingBird2:=translate(bigBird2, -105,7):
flyingBird3:=translate(bigBird3, -35,14):
flyingBird4:=translate(bigBird4, 45,7):
flyingBird5:=translate(bigBird5, 115,0):
flyingBird6:=translate(bigBird6, 185,7):
f1:= display(flyingBird,background1):
f2:= display(flyingBird2,background1):
f3:= display(flyingBird3,background1):
f4:= display(flyingBird4,background1):
f5:= display(flyingBird5,background1):
f6:= display(flyingBird6,background1):
f7:= display(flyingBird,background2):
f8:= display(flyingBird2,background2):
f10:= display(flyingBird3,background2):
f11:= display(flyingBird4,background2):
f12:= display(flyingBird5,background2):
f13:= display(flyingBird6,background2):
f14:= display(flyingBird,background3):
f15:= display(flyingBird2,background3):
f16:= display(flyingBird3,background3):
f17:= display(flyingBird4,background3):
f18:= display(flyingBird5,background3):
f19:= display(flyingBird6,background3):
f20:= display(flyingBird,background4):
f21:= display(flyingBird2,background4):
f22:= display(flyingBird3,background4):
f23:= display(flyingBird4,background4):
f24:= display(flyingBird5,background4):
f25:= display(flyingBird6,background4):
f26:=display(egg,flyingBird,background4):
f27:=display(egg2,flyingBird2,background4):
f28:=display(egg3,flyingBird3,background4):
f29:=display(egg4,flyingBird4,background4):
f30:=display(egg5,flyingBird5,background4):
f31:=display(flyingBird6,background4):
f31:= display([flyingbabybird,flyingBird,background1], view=[-200..200,-20..250]):
f32:= display(flyingbabybird2,flyingBird2,background1):
f33:= display(flyingbabybird3,flyingBird3,background1):
f34:= display(flyingbabybird4,flyingBird4,background1):
f35:= display(flyingbabybird5,flyingBird5,background1):
f36:= display(flyingbabybird6,flyingBird6,background1):
f37:= display(flyingbabybird,flyingBird,background2):
f38:= display(flyingbabybird2,flyingBird2,background2):
f39:= display(say,flyingbabybird3,bigtalkingbird,background2):
f41:= display(flyingbabybird4,flyingBird4,background2):
f42:= display(flyingbabybird5,flyingBird5,background2):
f43:= display(flyingbabybird6,flyingBird6,background2):
f44:= display(flyingbabybird,flyingBird,background3):
f45:= display(flyingbabybird2,flyingBird2,background3):
f46:= display(flyingbabybird3,flyingBird3,background3):
f47:= display(flyingbabybird4,flyingBird4,background3):
f48:= display(flyingbabybird5,flyingBird5,background3):
f49:= display(flyingbabybird6,flyingBird6,background3):
f50:= display(flyingbabybird,flyingBird,background4):
f51:= display(flyingbabybird2,flyingBird2,background4):
f52:= display(flyingbabybird3,flyingBird3,background4):
f53:= display(translate(bigdeadbird,0,-75),flyingbabybird4,background4):
f54:= display(translate(bigdeadbird,0,-125),flyingbabybird5,background4):
f55:= display(translate(bigdeadbird,0,-200),flyingbabybird6,background4):
f56:=display([babybirdground,flyingBird6,background1],scaling=constrained):
f57:=textplot([0,125,"Blue Bird in London"], font=["Courier", "roman", 26]):
f58:=display([flyingbabybird3,bigdeadbird,background4]):
display([f1,f2,f3,f4,f5,f6,f7,f8,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f26,f27,f28,f29,f30,f56,f56,f31,f32,f33,f34,f35,f36,f37,f38,f39,f39,f39,f39,f39,f39,f41,f42,f43,f45,f46,f47,f48,f49,f50,f51,f58,f53,f54,f55,f55,f55],insequence=true, scaling=constrained, view=[-200..200,-20..250], axes=none);
speed 5