restart:with(plots):with(plottools):
sky1:=polygon([[-6,20],[40,20],[40,-17],[-6,-17],[-6,20]], (color=turquoise)):
cloud1:=disk([7,15],3,color=gray,style=polygon):
cloud2:=disk([2,14],3,color=gray, style=polygon):
cloud3:=disk([7,13],4,color=gray,style=polygon):
cloud4:=disk([12,13],4,color=gray,style=polygon):
wholecloud:=display(cloud1,cloud2,cloud3,cloud4):
grass2:=polygon([[-6,-14],[40,-14],[40,-17],[-6,-17],[-6,-14]],color=green):
raindrop:=disk([6,5],1,color=blue,style=polygon):
treetrunk:=polygon([[29,-16],[30,-5],[33,-5],[34,-16],[29,-16]],color=brown):
treeleaves:=disk([27,-4],3,color="DarkOliveGreen",style=polygon):
treeleaves2:=disk([31,-4],5,color="DarkOliveGreen",style=polygon):
treeleaves3:=disk([35,-3],4,color="DarkOliveGreen",style=polygon):
treeleaves4:=disk([30.5,-2],5,color="DarkOliveGreen",style=polygon):
alltreeleaves:=display(treeleaves,treeleaves2,treeleaves3,treeleaves4):
raindrop2:=disk([17,5],1,color=blue,style=polygon):
raindroptop2:=polygon([[17,8],[16, 5],[18,5],[17,8]],(color=blue,style=polygon)):
completeraindrop2:=display(raindrop2,raindroptop2):
branch:=plot([[30,-10],[20,-10]],color=brown,thickness=6):
f6:=display(translate(wholecloud,9,1),branch,alltreeleaves,treetrunk,grass2,sky1):
head:=disk([21,-2],1.5,color=red):
body:= ellipse([21,-6], 1.5, 2.5, filled=true, color=green):
tail:=polygon([[21,-8.5],[22.5,-10.5],[19.5,-10.5]], color="Aquamarine"):
leftwing:=plot([[19.5,-6],[16,-6]],color=brown,thickness=5):
rightwing:=plot([[22.5,-6],[26.5,-6]],color=brown,thickness=5):
eye:=disk([20.5,-1.5],.2,color=black):
beak:=polygon([[19.75,-1.5],[17,-2.5],[19.75,-2.5]],color=yellow):
bird:=display(eye,head,body,tail,beak):
wings:=display(leftwing,rightwing):
d1:=display([bird,wings,f6,branch,wholecloud,completeraindrop2,alltreeleaves,treetrunk,grass2,sky1]):
d2:=display(translate(completeraindrop2,5,2),bird,wings,f6,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1):
d3:=display(translate(completeraindrop2,5,0),bird,wings,f6,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1):
d4:=display(translate(completeraindrop2,5,-4),bird,wings,f6,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1):
d5:=display(translate(completeraindrop2,5,-8),bird,wings,f6,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1,raindrop):
d6:=display(translate(completeraindrop2,5,-12),bird,wings,f6,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1):
d7:=display(translate(completeraindrop2,5,-16),bird,wings,f6,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1):
raindroptop:=polygon([[6,8],[5, 5],[7,5],[6,8]],(color=blue,style=polygon)):
raindrop1:=display(raindroptop,raindrop):
r1:=display([bird,wings,branch,wholecloud,raindrop1,alltreeleaves,treetrunk,grass2,sky1]):
r2:=display(translate(raindrop1,3,2),bird,wings,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1,raindrop):
r3:=display(translate(raindrop1,3,0),bird,wings,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1,raindrop):
r4:=display(translate(raindrop1,3,-4),bird,wings,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1,raindrop):
r5:=display(translate(raindrop1,3,-8),bird,wings,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1,raindrop):
r6:=display(translate(raindrop1,3,-12),bird,wings,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1,raindrop):
r7:=display(translate(raindrop1,3,-16),bird,wings,branch,wholecloud,alltreeleaves,treetrunk,grass2,sky1,raindrop):
f1:=display([bird,wings,wholecloud,alltreeleaves,treetrunk,grass2,sky1]):
f2:=display(translate(wholecloud,1,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f3:=display(translate(wholecloud,3,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f4:=display(translate(wholecloud,5,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f5:=display(translate(wholecloud,7,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f6:=display(translate(wholecloud,9,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f7:=display(translate(wholecloud,11,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f8:=display(translate(wholecloud,13,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f9:=display(translate(wholecloud,15,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f10:=display(translate(wholecloud,17,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f11:=display(translate(wholecloud,19,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f12:=display(translate(wholecloud,21,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
f13:=display(translate(wholecloud,23,1),bird,wings,branch,alltreeleaves,treetrunk,grass2,sky1):
w1:=display([bird,wings,wholecloud,alltreeleaves,treetrunk,grass2,sky1]):
w2:=display(translate(wings,0,-1),bird,branch,alltreeleaves,treetrunk,grass2,sky1):
w3:=display(translate(wings,0,-.5),bird,branch,alltreeleaves,treetrunk,grass2,sky1):
w4:=display(translate(wings,0,.5),bird,branch,alltreeleaves,treetrunk,grass2,sky1):
hummingbird:=display(bird,wings):
h1:=display([branch,hummingbird,wholecloud,alltreeleaves,treetrunk,grass2,sky1]):
h2:=display(translate(hummingbird,0,0),wholecloud,branch,alltreeleaves,treetrunk,grass2,sky1):
h3:=display(translate(hummingbird,-5,1),wholecloud,branch,alltreeleaves,treetrunk,grass2,sky1):
h4:=display(translate(hummingbird,-10,2),wholecloud,branch,alltreeleaves,treetrunk,grass2,sky1):
h5:=display(translate(hummingbird,-15,2),wholecloud,branch,alltreeleaves,treetrunk,grass2,sky1):
h6:=display(translate(hummingbird,-20,2),wholecloud,branch,alltreeleaves,treetrunk,grass2,sky1):
h7:=display(translate(hummingbird,-25,2),wholecloud,branch,alltreeleaves,treetrunk,grass2,sky1):
h8:=display(translate(hummingbird,-30,2),wholecloud,branch,alltreeleaves,treetrunk,grass2,sky1):
h9:=display(translate(hummingbird,-35,2),wholecloud,branch,alltreeleaves,treetrunk,grass2,sky1):
sky2:= polygon([[-6,7],[30,7],[30,-20],[-6,-20]], (color=cyan)):
grass:=polygon([[-6,-20],[30,-20],[30,-25],[-6,-25]], color=green):
sun:=disk([-1,9],3,color=yellow):
rays:=polygon([[-1,14],[0,12],[-2,12],[-1,14]], color=orange):
ray2:=polygon([[0,12],[2,12],[2,10],[0,12]],color=orange):
ray3:=polygon([[2,10],[3,8],[1.5,7],[2,10]],color=orange):
ray4:=polygon([[1.5,7],[2,5],[1.5,7],[0,6],[2,5]],color=orange):
ray5:=polygon([[0,6],[-2,4],[-3,6.5],[0,6]],color=orange):
ray6:=polygon([[-3,6.5],[-5.5,7.5],[-4,9],[-3,6.5]],color=orange):
ray7:=polygon([[-4,9],[-5,11],[-3,11.5],[-4,9]],color=orange):
ray8:=polygon([[-3,11.5],[-3.5,13],[-2,12],[-3,11.5]],color=orange):
sky2:=display(grass,sky2):
wholesun:=display(sun,rays,ray2,ray3,ray4,ray5,ray6,ray7,ray8):
wholesun_center:=translate(wholesun,1,-9):
wholesun2:=rotate(wholesun_center,-Pi/2):
wholesun3:=rotate(wholesun2,-Pi/2):
wholesun4:=rotate(wholesun3,-Pi/2):
birdhouse:=polygon([[20,-12],[26,-12],[26,-7],[23,-5],[20,-7],[20,-12]],color=tan):
roof:=plot([[19,-7],[23,-5],[27,-7]],color=brown,thickness=14):
pole:=plot([[23,-12],[23,-22]],color=brown,thickness=15):
hole:=disk([23,-8],1,color=black):
perch:=plot([[22,-11],[24,-11]],color=brown,thickness=5):
stem:=plot([[8,-10],[8,-22]],color="LimeGreen",thickness=7):
flowercenter:=disk([8,-9],1,color=yellow):
flower1:=polygon([[9,-9],[11.5,-7.5],[11,-10],[9,-9]],color=magenta):
flower2:=polygon([[7,-9],[5,-7.5],[4.5,-10],[7,-9]],color=magenta):
flower3:=polygon([[6,-6],[8,-5],[7.5,-8]],color=magenta):
flower4:=polygon([[11.5,-6.5],[9,-5.5],[8,-9]],color=magenta):
flower5:=polygon([[7.5,-9.5],[5,-11],[7,-12]],color=magenta):
flower6:=polygon([[8.5,-9.5],[11,-11],[9,-12]],color=magenta):
p1:=display(hole,birdhouse,wholesun_center,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
p2:=display(hole,birdhouse,wholesun2,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
p3:=display(hole,birdhouse,wholesun3,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
p4:=display(hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k1:=display(hole,birdhouse,wholesun_center,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k2:=display(translate(hummingbird,30,15),hole,birdhouse,wholesun2,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k3:=display(translate(hummingbird,25,12),hole,birdhouse,wholesun3,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k4:=display(translate(hummingbird,15,10),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k5:=display(translate(hummingbird,10,8),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k6:=display(translate(hummingbird,5,8),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k7:=display(translate(hummingbird,0,5),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k8:=display(translate(hummingbird,-5,2),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k9:=display(translate(hummingbird,-10,-4),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k10:=display(reflect(hummingbird,[[12,0],[12,1]]),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k12:=display(translate(reflect(hummingbird,[[12,0],[12,1]]),-5,-4),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
k13:=display(translate(reflect(hummingbird,[[12,0],[12,1]]),0,-4),hole,birdhouse,wholesun4,flowercenter,flower1,flower2,flower3,flower4,flower5,flower6,stem,grass,sky2,roof,perch,pole):
display(r2,r3,r4,r5,r6,r7,f3,f4,f5,f6,d1,d2,d3,d4,d5,d6,d7,f7,f8,f9,f10,f11,f12,f13,w1,w2,w3,w4,h1,h2,h3,h4,h5,h6,h7,h8,h9,p1,p2,p3,p4,k1,k2,k3,k4,k5,k6,k7,k8,k9,k10,k12,k13,insequence=true,scaling=constrained,axes=none,view=[-8..45,-25..20]);
(*speed=7*)