restart:with (plots):with (plottools):
head:=disk([5,6],1,color=pink,style=polygon):
eye1:=disk([4.5,6],0.1,color=black):
mouth:=ellipse([5,5.5],0.5,0.2,filled=true,color=red,style=polygon):
eye2:=disk([5.5,6],0.1,color=black):
eye3:=plot([[4.3,6],[4.7,6]],color=black):
eye4:=plot([[5.3,6],[5.7,6]],color=black):
bow1:=polygon([[-0.5,0.8],[-0.5,0.2],[0,0.5],[-0.5,0.8]],color="DeepPink",style=polygon):
bow2:=polygon([[0,0.5],[0.5,0.8],[0.5,0.2],[0,0.5]],color="DeepPink",style=polygon):
bow3:=display([bow1,bow2]):
bow4:=translate(bow3,5.5,6.2):
phead1:=display([bow4,eye3,mouth,eye4,head]):
body1:=polygon([[5,5],[6,3],[4,3],[5,5]],color="DarkViolet",style=polygon):
pbody:=polygon([[19.5,23],[20.5,23],[21,22],[19,22]],color="DarkViolet",style=polygon):
arm1:=plot([[4.7,4.375],[4,5]],color=black):
arm2:=plot([[5.3,4.375],[6,5]],color=black):
arm3:=plot([[4.7,4.375],[3.5,4]],color=black):
arm4:=plot([[5.3,4.375],[6.5,4]],color=black):
arm5:=plot([[4.7,4.375],[2.5,3]],color=black):
arm6:=plot([[5.3,4.375],[7.5,3]],color=black):
face1:=display([bow4,eye1,mouth,eye2,head],scaling=constrained,axes=none):
face3:=display([bow4,eye1,mouth,eye2,head],scaling=constrained,axes=none):
leg1:=plot([[4.5,3],[4.5,1.5]],color=black):
leg2:=plot([[5.5,3],[5.5,1.5]],color=black):
leg3:=plot([[4.5,3],[4.5,2.4],[3.5,1.5]],color=black):
leg4:=plot([[5.5,3],[5.5,2.4],[4.5,1.5]],color=black):
leg5:=plot([[4.5,3],[4.5,2.4],[5.5,1.5]],color=black):
leg6:=plot([[5.5,3],[5.5,2.4],[6.5,1.5]],color=black):
leg7:=plot([[19.5,22],[19.5,20.5]],color=black):
leg8:=plot([[20.5,22],[20.5,20.5]],color=black):
nbody:=display([pbody,leg7,leg8]):
body2:=display([body1,arm1,arm2,leg1,leg2]):
body3:=display([body1,arm3,arm4,leg1,leg2]):
pieslice1:=pieslice([0,0],0.5,0..Pi,color="RoyalBlue" ):
pieslice2:=pieslice([1,0],0.5,0..Pi,color="RoyalBlue" ):
plot1:=polygon([[-0.5,0],[0.5,-1],[1.5,0]],color="RoyalBlue" ,style=polygon):
wing1:=display([pieslice1,pieslice2,plot1]):
wing2:=display([translate(rotate(wing1,Pi/2,[0.5,-1]),4.2,5.375)]):
wing3:=display([translate(rotate(wing1,-Pi/2,[0.5,-1]),4.8,5.375)]):
wings1:=display([wing2,wing3]):
mouth2:=ellipse([5,5.5],0.3,0.37,filled=true,color=red,style=polygon):
face2:=display([bow4,eye1,eye2,mouth2,head],axes=none):
face4:=display([bow4,eye1,eye2,mouth2,head],axes=none):
with(plots):
text1:=textplot([5,7,"I've got wings!",font=[Arial,20]],align={above}):
wing4:=rotate(wing2,Pi/8,[4.7,4.375]):
wing5:=rotate(wing3,15*Pi/8,[5.3,4.375]):
wing6:=display([pieslice2,plot1]):
wing7:=display([pieslice1,plot1]):
wing8:=display([translate(rotate(wing6,Pi/2,[0.5,-1]),4.2,5.375)]):
wing9:=display([translate(rotate(wing7,-Pi/2,[0.5,-1]),4.8,5.375)]):
wing10:=display(rotate(wing2,-Pi/10,[4.7,4.375])):
wing11:=display(rotate(wing3,Pi/10,[5.3,4.375])):
wings2:=display([wing4,wing5]):
wings3:=display([wing8,wing9]):
body3:=display([body1,leg1,leg2,wing10,wing11]):
human1:=display([face1,body1,wings2,arm1,arm2]):
human5:=display([face1,body1,wings3]):
pperson1:=display([body1,phead1,arm1,arm2,wings1,leg1,leg2]):
body4:=display([body1,arm1,arm2,leg1,leg2,wings2]):
body5:=display([body1,arm3,arm4,leg1,leg2]):
person1:=display([face1,body3,text1]):
person2:=display([face2,body4,text1]):
person3:=display([face3,body3]):
person4:=display([face4,body4]):
gperson:=display([face3,body1,arm1,arm2,leg3,leg4,wings2]):
gperson2:=display([face4,body1,arm1,arm2,leg5,leg6,wings2]):
p3:=polygon([[8,1],[12,1],[12,15],[8,15],[8,1]],color=gray):
p4:=polygon([[12.2,1],[14,1],[14,11],[12.2,10],[12.2,1]],color="Chocolate"):
window1:=polygon([[8.3,14],[11.7,14],[11.7,12],[8.3,12],[8.3,14]],color="DeepSkyBlue"):
ground1:=polygon([[-3,-1],[22,-1],[22,3],[-3,3],[-3,-1]],color="YellowGreen",style=polygon):
ground2:=polygon([[-3,-1],[22,-1],[22,0,5],[-3,0.5],[-3,-1]],color="YellowGreen",style=polygon):
window2:=polygon([[8.3,11],[11.7,11],[11.7,9],[8.3,9],[8.3,11]],color="LightSkyBlue"):
door1:=polygon([[9,1],[11,1],[11,4],[9,4],[9,1]],color="DeepSkyBlue"):
building1:=display([window1,window2,door1,p3]):
window3:=polygon([[12.3,9],[13.9,9],[13.9,6],[12.3,6],[12.3,9]],color="LightSkyBlue"):
building2:=display([window3,p4]):
o1:=polygon([[-1,2],[1,2],[1,12],[-1,12],[-1,2]],color="HotPink"):
building3:=display([o1]):
bark1:=polygon([[15,1.5],[17,1.5],[16.5,6],[15.5,6]],color=gold):
bark2:=translate(bark1,3,0):
leaves1:=polygon([[14.8,6],[17.2,6],[15.9,9]],color="DarkGreen",style=polygon):
leaves2:=translate(leaves1,3,0):
tree1:=display([bark1,leaves1]):
tree2:=display([bark2,leaves2]):
tree3:=translate(tree1,-5.5,0):
flower1:=disk([10.2,8],0.1,color=yellow):
flower2:=disk([9.8,6.5],0.1,color=yellow):
flower3:=disk([11,7],0.1,color=yellow):
flower4:=disk([10.5,6.3],0.1,color=yellow):
flower5:=translate(flower3,-0.8,0):
flower6:=translate(flower2,0.65,1):
flower7:=translate(flower2,1.2,0):
flower8:=disk([10.5,8.33],0.1,color=yellow):
tree4:=display([flower1,flower2,flower3,flower4,flower5,flower6,flower7,flower8,tree3],scaling=constrained):
tree5:=translate(tree4,5.5,0):
tree6:=translate(tree5,3,0):
step1:=display([person1,building1,building2,building3,tree5,tree6,ground1]):
step2:=display([person2,building1,building2,building3,tree5,tree6,ground1]):
step3:=display([step1,step2,step1,step2,step1,step2,step1,step2,step1,step2],insequence=true,axes=none,scaling=constrained):
h1:=display([body5,face1]):
h2:=display([body5,face2]):
h3:=translate(h1,-6,-1):
h4:=translate(h2,-5.5,-1):
h5:=translate(h1,-5,-1):
h6:=translate(h2,-4.5,-1):
h7:=translate(h1,-4,-1):
h8:=translate(h2,-3.5,-1):
h9:=translate(h1,-3,-1):
h10:=translate(h1,-2.5,-1):
h11:=translate(h2,-2,-1):
h12:=translate(h1,-1.5,-1):
h13:=translate(h2,-1,-1):
h14:=translate(h1,-0.5,-1):
h15:=translate(h2,-0,-1):
e1:=disk([5,4.5],1.5,color=gray):
e2:=translate(e1,-1.2,-1.2):
e3:=translate(e2,1.5,0):
e4:=translate(e3,1,-0.2):
e5:=translate(e2,0.3,-1.3):
e6:=translate(e5,1,-0.2):
e7:=translate(e6,1,-0.2):
smoke:=display([e1,e3,e5,e7,e2,e4,e6]):
say1:=textplot([5.5,6,"My life is so BORING..."],color=black,font=[Arial,20],align={above}):
say2:=textplot([5.5,0.8,"POP!!"],color=red,font=[Arial,50],align={above}):
q1:=display([h3,say1,building1,building2,building3,tree5,tree6,ground1]):
q2:=display([h4,say1,building1,building2,building3,tree5,tree6,ground1]):
q3:=display([h5,say1,building1,building2,building3,tree5,tree6,ground1]):
q4:=display([h6,say1,building1,building2,building3,tree5,tree6,ground1]):
q5:=display([h7,say1,building1,building2,building3,tree5,tree6,ground1]):
q6:=display([h8,say1,building1,building2,building3,tree5,tree6,ground1]):
q7:=display([h9,say1,building1,building2,building3,tree5,tree6,ground1]):
q8:=display([h10,say1,building1,building2,building3,tree5,tree6,ground1]):
q9:=display([h11,say1,building1,building2,building3,tree5,tree6,ground1]):
q10:=display([h12,say1,building1,building2,building3,tree5,tree6,ground1]):
q11:=display([h13,say1,building1,building2,building3,tree5,tree6,ground1]):
q12:=display([h14,say1,building1,building2,building3,tree5,tree6,ground1]):
q13:=display([h15,say1,building1,building2,building3,tree5,tree6,ground1]):
q14:=display([say2,smoke,building1,building2,building3,tree5,tree6,ground1]):
step10:=display([q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,q12,q13,q14,q14,q14,q14,q14],insequence=true,scaling=constrained,axes=none):
p5:=translate(person3,0,1.5):
p6:=translate(person3,0,3):
p7:=translate(person4,0,4.5):
p8:=translate(person4,0,6):
p9:=translate(person3,0,7.5):
p10:=translate(person3,0,9):
p11:=translate(person3,0,10.5):
p12:=translate(person4,0,12):
p13:=translate(person4,0,13.5):
p14:=translate(person3,0,10):
p15:=translate(person3,0,11):
p16:=translate(person4,0,12):
p17:=translate(person4,0,13):
p18:=translate(person3,0,14):
p19:=translate(person3,0,15):
s1:=display([p5,building1,building2,building3,tree5,tree6,ground1]):
s2:=display([p6,building1,building2,building3,tree5,tree6,ground1]):
s3:=display([p7,building1,building2,building3,tree5,tree6,ground1]):
s4:=display([p8,building1,building2,building3,tree5,tree6,ground1]):
s5:=display([p9,building1,building2,building3,tree5,tree6,ground1]):
s6:=display([p10,building1,building2,building3,tree5,tree6,ground1]):
s7:=display([p11,building1,building2,building3,tree5,tree6,ground1]):
s8:=display([p12,building1,building2,building3,tree5,tree6,ground1]):
s9:=display([p13,building1,building2,building3,tree5,tree6,ground1]):
s10:=display([p14,building1,building2,building3,tree5,tree6,ground1]):
s11:=display([p15,building1,building2,building3,tree5,tree6,ground1]):
step4:=display([step3,s1,s2,s3,s4,s5,s6,s7,s8,s9],insequence=true,scaling=constrained,axes=none):
s12:=translate(rotate(person4,-Pi/2,[5.5,1.5]),0,16):
ss12:=translate(rotate(person3,-Pi/2,[5.5,1.5]),0,16):
s13:=translate(ss12,1,0):
s14:=translate(s12,2,0):
s15:=translate(ss12,3,0):
s16:=translate(s12,4,0):
s17:=translate(ss12,5,0):
s18:=translate(s12,6,0):
s19:=translate(ss12,7,0):
s20:=translate(s12,8,0):
s21:=translate(ss12,9,0):
s22:=translate(s12,10,0):
pperson5:=display([s12,building1,building2,building3,tree5,tree6,ground1]):
pperson6:=display([s13,building1,building2,building3,tree5,tree6,ground1]):
pperson7:=display([s14,building1,building2,building3,tree5,tree6,ground1]):
pperson8:=display([s15,building1,building2,building3,tree5,tree6,ground1]):
pperson9:=display([s16,building1,building2,building3,tree5,tree6,ground1]):
pperson10:=display([s17,building1,building2,building3,tree5,tree6,ground1]):
pperson11:=display([s18,building1,building2,building3,tree5,tree6,ground1]):
pperson12:=display([s19,building1,building2,building3,tree5,tree6,ground1]):
pperson13:=display([s20,building1,building2,building3,tree5,tree6,ground1]):
pperson14:=display([s21,building1,building2,building3,tree5,tree6,ground1]):
pperson15:=display([s22,building1,building2,building3,tree5,tree6,ground1]):
step5:=display([step4,pperson5,pperson6,pperson7,pperson8,pperson9,pperson10,pperson11,pperson12,pperson13,pperson14,pperson15],insequence=true,scaling=constrained,axes=none):
w1:=ellipse([4.5,3],3.5,0.8,filled=true,color="CadetBlue"):
w2:=polygon([[3.2,2.7],[4.8,2.7],[6.5,0.5],[5,1]],color="Gainsboro"):
w3:=polygon([[4,3.7],[2.8,3.6],[2,5],[2.5,5]],color="Gainsboro"):
w4:=polygon([[1.53,3.35],[1.21,3.21],[1.76,3.04],[1.95,3.31]],color=black):
w5:=plot([[1.51,3.13],[1.68,3.31]],color=white):
w6:=polygon([[2.5,3.29],[2.8,3.29],[2.8,3],[2.5,3]],color=black):
w7:=translate(w6,0.5,0):
w8:=translate(w7,0.5,0):
w9:=translate(w8,0.5,0):
w10:=polygon([[5.1,3.3],[7.2,3.3],[7.2,2.6],[5.1,2.6]],color=white):
w11:=polygon([[7.58,3.27],[7.58,4.4],[7.21,4.4],[6.5,3.27]],color="Gainsboro"):
texas:=textplot([5.1,2.95,"A&M"],font=[Arial,9,bold],align={right},color="Maroon",scaling=constrained):
plane1:=display([w2,w5,w4,w6,w7,w8,w9,texas,w10,w1,w3,w11],scaling=constrained):
plane2:=translate(plane1,14,18):
lake1:=ellipse([6,1],3,1.5,filled=true,color="SkyBlue",style=polygon):
lake2:=ellipse([13,1.8],6,2,filled=true,color="SkyBlue",style=polygon):
lake3:=ellipse([6,1],2,1,filled=true,color="DeepSkyBlue",style=polygon):
lake4:=ellipse([13,1.8],4.2,1.5,filled=true,color="DeepSkyBlue",style=polygon):
lake:=display([lake3,lake4,lake1,lake2],scaling=constrained):
ground4:=polygon([[-3,-1],[22,-1],[22,4],[-3,4]],color="YellowGreen",style=polygon):
nbark:=polygon([[-1,0.5],[0,0.5],[-0.2,5],[-0.8,5]],color="Chocolate"):
nleaves2:=polygon([[-2,5],[-1,7],[-1.5,7],[-0.5,9],[0.5,7],[0,7],[1,5]],color="LawnGreen" ):
nleaves:=polygon([[-2,5],[-1,7],[-1.5,7],[-0.5,9],[0.5,7],[0,7],[1,5]],color="DarkGreen"):
ntree1:=display([nbark,nleaves]):
nbark2:=translate(nbark,20,2):
nleaves3:=translate(nleaves2,20,2):
ntree2:=display([nbark2,nleaves3]):
ntree3:=translate(ntree2,-18,-1):
ntree4:=translate(ntree1,3.2,1.8):
ntree5:=translate(ntree4,1,0.5):
ntree6:=translate(ntree1,21,0.2):
ntree7:=translate(ntree5,2.5,0.2):
aa1:=translate(s12,-7,-2):
aa2:=translate(ss12,-6,-2):
aa3:=translate(s12,-5,-2):
aa4:=translate(ss12,-4,-2):
aa5:=translate(s12,-3,-2):
aa6:=translate(ss12,-2,-2):
aa7:=translate(s12,-1,-2):
aa8:=translate(ss12,0,-2):
aa9:=translate(s12,1,-2):
aa10:=translate(ss12,2,-2):
aa11:=translate(s12,3,-2):
aa12:=translate(ss12,4,-2):
aa13:=translate(s12,5,-2):
aa14:=translate(ss12,6,-2):
aa15:=translate(s12,7,-2):
aa16:=translate(ss12,8,-2):
aa17:=translate(s12,9,-2):
aa18:=translate(ss12,10,-2):
aa19:=translate(s12,11,-2):
plane3:=translate(plane2,-1,0):
plane4:=translate(plane2,-2,0):
plane5:=translate(plane2,-3,0):
plane6:=translate(plane2,-4,0):
plane7:=translate(plane2,-5,0):
plane8:=translate(plane2,-6,0):
plane9:=translate(plane2,-7,0):
plane10:=translate(plane2,-8,0):
plane11:=translate(plane2,-9,0):
plane12:=translate(plane2,-10,0):
plane13:=translate(plane2,-11,0):
plane14:=translate(plane2,-12,0):
plane15:=translate(plane2,-13,0):
plane16:=translate(plane2,-14,0):
plane17:=translate(plane2,-15,0):
plane18:=translate(plane2,-16,0):
plane19:=translate(plane2,-17,0):
plane20:=translate(plane2,-18,0):
word1:=textplot([0,19,"It's a pretty park!"],align={right},font=[Arial,20,bold],color=black):
word2:=textplot([0,19,"A Plane!"],align={right},font=[Arial,30,bold],color=red):
word3:=textplot([13,11,"Howdy!!!!"],align={above},font=[Arial,40,bold],color=red):
park1:=display(aa1,word2,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane2,scaling=constrained,axes=none):
park2:=display(aa2,word2,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane3,scaling=constrained,axes=none):
park3:=display(aa3,word2,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane4,scaling=constrained,axes=none):
park4:=display(aa4,word2,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane5,scaling=constrained,axes=none):
park5:=display(aa5,word2,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane6,scaling=constrained,axes=none):
park6:=display(aa6,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane7,scaling=constrained,axes=none):
park7:=display(aa7,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane8,scaling=constrained,axes=none):
park8:=display(aa8,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane9,scaling=constrained,axes=none):
park9:=display(aa9,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane10,scaling=constrained,axes=none):
park10:=display(aa10,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane11,scaling=constrained,axes=none):
park11:=display(aa11,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane12,scaling=constrained,axes=none):
park12:=display(aa12,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane13,scaling=constrained,axes=none):
park13:=display(aa13,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane14,scaling=constrained,axes=none):
park14:=display(aa14,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane15,scaling=constrained,axes=none):
park15:=display(aa15,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane16,scaling=constrained,axes=none):
park16:=display(aa16,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane17,scaling=constrained,axes=none):
park17:=display(aa17,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane18,scaling=constrained,axes=none):
park18:=display(aa18,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane19,scaling=constrained,axes=none):
park19:=display(aa19,word3,ntree6,ntree1,ntree2,ntree3,ntree4,ntree5,ntree7,lake,ground4,plane20,scaling=constrained,axes=none):
ParkScene:=display(park1,park2,park3,park4,park5,park6,park7,park8,park9,park10,park11,park12,park13,park14,park15,park16,park17,park18,park19,insequence=true,scaling=constrained,axes=none):
window7:=polygon([[1.5,9],[2.5,10],[3.5,9],[3.5,6],[1.5,6]],style=polygon,color="LightSkyBlue"):
window8:=polygon([[5.3,9],[6.7,9],[6.7,10.5],[5.3,10.5]],color="DeepSkyBlue",style=polygon):
window9:=translate(window8,0,-2):
window10:=translate(window9,0,-2):
window11:=disk([13,9],0.7,color="LightSkyBlue",style=polygon):
b1:=polygon([[1,2.2],[4,2.2],[4,10],[4.2,10],[2.5,12],[0.8,10],[1,10],[1,2.2]],color="Orange"):
building8:=display([window7,b1]):
b2:=polygon([[5,1],[5,11],[7,11],[7,1],[5,1]],color="Plum"):
building9:=display([window8,window9,window10,b2]):
building10:=polygon([[7.3,1],[7.3,8],[9,8],[9,1]],color=gray):
b3:=polygon([[12,2.5],[12,10],[14,10],[14,2.5]],color=orange):
building11:=display([window11,b3]):
building12:=polygon([[15,1.5],[15,10.5],[16,10.5],[16,1.5]],color=black):
i1:=translate(s12,-4,0):
i2:=translate(ss12,-3,0):
i3:=translate(s12,-2,0):
i4:=translate(ss12,-1,0):
i5:=translate(s12,0,0):
i6:=translate(ss12,1,0):
i7:=translate(s12,2,0):
i8:=translate(ss12,3,0):
i9:=translate(s12,4,0):
i10:=translate(ss12,5,0):
i11:=translate(s12,6,0):
i12:=translate(ss12,7,0):
i13:=translate(s12,8,0):
i14:=translate(ss12,9,0):
i15:=translate(s12,10,0):
window4:=disk([2.5,10],1,color="DeepSkyBlue",style=polygon):
window5:=disk([9.5,10],0.7,color="LightSkyBlue",style=polygon):
window6:=disk([9.5,8],0.7,color="LightSkyBlue",style=polygon):
r1:=plot([[12,20.7],[11,19.5]],color=blue):
r2:=translate(r1,0,-1):
r3:=translate(r2,0,-1):
r4:=plot([[10,20.7],[9,19.5]],color=blue):
r5:=translate(r4,0,-1):
r6:=translate(r5,0,-1):
y1:=plot([[8,20.7],[7,19.5]],color=blue):
y2:=translate(y1,0,-1):
y3:=translate(y2,0,-1):
y4:=plot([[14,20.7],[13,19.5]],color=blue):
y5:=translate(y4,0,-1):
y6:=translate(y5,0,-1):
y7:=plot([[16,20.7],[15,19.5]],color=blue):
y8:=translate(y7,0,-1):
y9:=translate(y8,0,-1):
rain1:=display([y1,r1,y7,r5,y5]):
rain2:=display([y2,y6,r4,y8,r2]):
rain3:=display([y3,r6,r3,y9,y4]):
cloud1:=ellipse([22,22.2],3,0.6,filled=true,color="DarkGray",style=polygon):
cloud2:=ellipse([21,21.5],4,0.7,filled=true,color=gray,style=polygon):
clouds1:=display([cloud1,cloud2],scaling=constrained):
clouds2:=translate(clouds1,-1.5,0):
clouds3:=translate(clouds1,-3,0):
clouds4:=translate(clouds1,-4.5,0):
clouds5:=translate(clouds1,-6,0):
clouds6:=translate(clouds1,-7.5,0):
clouds7:=translate(clouds1,-9,0):
clouds8:=translate(clouds1,-10.5,0):
clouds9:=translate(clouds1,-12,0):
clouds10:=translate(clouds1,-13.5,0):
clouds11:=translate(clouds1,-15,0):
clouds12:=translate(clouds1,-16.5,0):
clouds13:=translate(clouds1,-18,0):
rains1:=display([clouds7,rain1]):
rains2:=display([clouds7,rain2]):
rains3:=display([clouds7,rain3]):
t1:=textplot([11,13,"Oh,My,God!"],color=red,align={above},font=[Arial,20]):
t2:=textplot([14,16,"I'm Soaking Wet!!!"],color=blue,align={below},font=[Airal,18]):
z1:=display([i1,building8,building9,building11,building12,tree4,ground1,clouds2]):
z2:=display([i2,building8,building9,building11,building12,tree4,ground1,clouds2]):
z3:=display([i3,building8,building9,building11,building12,tree4,ground1,clouds2]):
z4:=display([i4,building8,building9,building11,building12,tree4,ground1,clouds3]):
z5:=display([i5,building8,building9,building11,building12,tree4,ground1,clouds4]):
z6:=display([i6,building8,building9,building11,building12,tree4,ground1,clouds5]):
z7:=display([i7,building8,building9,building11,building12,tree4,ground1,clouds6]):
z8:=display([i8,building8,building9,building11,building12,tree4,ground1,clouds7]):
z9:=display([i9,building8,building9,building11,building12,tree4,ground1,rains1,t1]):
z10:=display([i9,building8,building9,building11,building12,tree4,ground1,rains2,t1]):
z11:=display([i9,building8,building9,building11,building12,tree4,ground1,rains3,t1]):
z12:=display([i10,building8,building9,building11,building12,tree4,ground1,clouds8,t2]):
z13:=display([i11,building8,building9,building11,building12,tree4,ground1,clouds9,t2]):
z14:=display([i12,building8,building9,building11,building12,tree4,ground1,clouds10,t2]):
z15:=display([i13,building8,building9,building11,building12,tree4,ground1,clouds11,t2]):
z16:=display([i14,building8,building9,building11,building12,tree4,ground1,clouds12,t2]):
z17:=display([i15,building8,building9,building11,building12,tree4,ground1,clouds13,t2]):
step9:=display([z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z9,z10,z11,z12,z13,z14,z15,z16,z17],insequence=true,scaling=constrained,axes=none):
x1:=polygon([[1,13],[1,1],[4,1],[4,13],[1,13]],color="Gold"):
x2:=polygon([[4.5,2.2],[4.5,10],[5.5,12],[6.5,10],[6.5,2.2],[4.5,2.2]],color="DeepPink"):
x3:=polygon([[8,0],[11,0],[11,13.5],[8,13.5],[8,0]],color=gold):
x4:=polygon([[16,0],[17,0],[17,14],[16,12],[16,0]],color="Violet"):
building4:=display([window4,x1]):
building5:=display([x2]):
building6:=display([window5,window6,x3]):
building7:=display([x4]):
string1:=plot([[11,4],[16,4]],color=red):
string2:=arc([13.5,4],2.5,0..-Pi,color=red):
string3:=arc([13.5,4],2.5,0..Pi,color=red):
hole:=ellipse([19,0.5],2,0.5,filled=true,color=black):
f1:=display([i1,building4,building5,building6,building7,string1,hole,ground1]):
f2:=display([i2,building4,building5,building6,building7,string1,hole,ground1]):
f3:=display([i3,building4,building5,building6,building7,string1,hole,ground1]):
f4:=display([i4,building4,building5,building6,building7,string1,hole,ground1]):
f5:=display([i5,building4,building5,building6,building7,string1,hole,ground1]):
f6:=display([i6,building4,building5,building6,building7,string1,hole,ground1]):
f7:=display([i7,building4,building5,building6,building7,string1,hole,ground1]):
f8:=display([i8,building4,building5,building6,building7,string1,hole,ground1]):
f9:=display([i9,building4,building5,building6,building7,string1,hole,ground1]):
step6:=display([f1,f2,f3,f4,f5,f6,f7,f8,f9],insequence=true,axes=none):
u1:=translate(rotate(i7,-Pi/2,[7.5,17.5]),5.5,0):
u2:=translate(u1,0,-2.5):
u3:=translate(u1,0,-5.5):
u4:=translate(u1,0,-8):
u5:=translate(u1,0,-10.5):
a1:=translate(rotate(u5,Pi,[13.5,3.5]),0.3,1.5):
a2:=translate(a1,0,2.5):
a3:=translate(a1,0,5):
a4:=translate(a1,0,8):
a5:=translate(a1,1,11):
a6:=translate(a1,2,14):
a7:=translate(a1,4,14):
a8:=translate(a1,5.2,12.5):
a9:=translate(a8,0,-3):
a10:=translate(a8,0,-6):
a11:=translate(a8,0,-9):
a12:=translate(a8,0,-12):
text2:=textplot([13,16.5,"Ouch!!",font=[Arial,22]],align={below},color=red):
text3:=textplot([11,18,"Oh,NOOOOO!!!!!!",font=[Arial,25]],align={above}):
text4:=textplot([10,17,"Phew...",font=[Arial,23]],align={below}):
text5:=textplot([10,17,"Uh,uh...!!!",font=[Arial,23]],align={below},color=black):
text6:=textplot([10,15,"HELP!!!!",font=[Century,40]],align={above},color=red):
person5:=display([u1,building4,building5,building6,building7,string1,text3,hole,ground1]):
person6:=display([u2,building4,building5,building6,building7,string1,text3,hole,ground1]):
person7:=display([u3,building4,building5,building6,building7,string1,text3,hole,ground1]):
person8:=display([u4,building4,building5,building6,building7,string1,text3,hole,ground1]):
person9:=display([u5,building4,building5,building6,building7,string2,hole,ground1]):
step7:=display([person5,person6,person7,person8,person9],insequence=true,scaling=constrained):
person11:=display([a1,building4,building5,building6,building7,string2,hole,text4,ground1]):
person12:=display([a2,building4,building5,building6,building7,string1,hole,text4,ground1]):
person13:=display([a3,building4,building5,building6,building7,string3,hole,text4,ground1]):
person14:=display([a4,building4,building5,building6,building7,string3,hole,text4,ground1]):
person15:=display([a5,building4,building5,building6,building7,string1,hole,text4,ground1]):
person16:=display([a6,building4,building5,building6,building7,string1,hole,ground1]):
person17:=display([a7,building4,building5,building6,building7,string1,hole,text5,ground1]):
person18:=display([a8,building4,building5,building6,building7,string1,hole,text5,ground1]):
person19:=display([a9,building4,building5,building6,building7,string1,hole,text5,ground1]):
person20:=display([a10,building4,building5,building6,building7,string1,hole,text6,ground1]):
person21:=display([a11,building4,building5,building6,building7,string1,hole,text6,ground1]):
person22:=display([a12,building4,building5,building6,building7,string1,hole,text6,ground1]):
step8:=display([person11,person12,person13,person14,person15,person16,person17,person18,person19,person20,person21,person22],insequence=true):
c1:=disk([18,23],0.5,color=red):
ball1:=display([c1,building4,building5,building6,f1,ground1]):
c2:=translate(c1,-0.62,-0.33):
c3:=translate(c1,-1.24,-0.69):
c4:=translate(c1,-1.86,-1.02):
c5:=translate(c1,-2.48,-1.35):
c6:=translate(c1,-3.10,-1.68):
c7:=translate(c1,-3.72,-2.01):
c8:=translate(c1,-4.34,-2.34):
c9:=translate(c1,-5.3,-2.7):
ball2:=display([c2,building4,building5,building6,f2,hole,ground1]):
ball3:=display([c3,building4,building5,building6,f3,hole,ground1]):
ball4:=display([c4,building4,building5,building6,f4,hole,ground1]):
ball5:=display([c5,building4,building5,building6,f5,hole,ground1]):
ball6:=display([c6,building4,building5,building6,f6,hole,ground1]):
ball7:=display([c7,building4,building5,building6,f7,hole,ground1]):
ball8:=display([c8,building4,building5,building6,f8,hole,ground1]):
ball9:=display([c9,building4,building5,building6,f9,text2,ground1]):
balls:=display([ball1,ball2,ball3,ball4,ball5,ball6,ball7,ball8,ball9,ball9],insequence=true,axes=none,scaling=constrained):
human2:=translate(human1,14,-2.5):
human6:=translate(human5,14,-4):
human3:=translate(face1,14,-5):
human4:=translate(face1,14,-6):
with(plottools):
with(plots):
j1:=ellipticArc([0,0], 2, 0.5, 0..Pi, filled=true, color=black):
j2:=ellipticArc([0,0], 2, 0.5, 0..-Pi, filled=true, color=black):
j3:=translate(j1,19,0.5):
j4:=translate(j2,19,0.5):
ground3:=polygon([[16,-1],[22,-1],[22,0.5],[16,0.5]],style=polygon,color="YellowGreen"):
person24:=display([building4,building5,building6,building7,string1,j4,ground3,text6,human2,j3,ground1]):
person25:=display([building4,building5,building6,building7,string1,j4,ground3,text6,human6,j3,ground1]):
person26:=display([building4,building5,building6,building7,string1,j4,ground3,text6,human3,j3,ground1]):
person27:=display([building4,building5,building6,building7,string1,j4,ground3,human4,j3,ground1]):
person28:=display([building4,building5,building6,building7,string1,j4,ground3,j3,ground1]):
title1:=textplot([10,15,"The Flying Girl"],color="DeepSkyBlue",align={below},font=[ComicSansMS,35,bold]):
title2:=textplot([10,10,"Created by Hong C."],color=black,align={below},font=[ComicSansMS,17,bold]):
title3:=display([title1,title2]):
title4:=display([title3,title3,title3,title3,title3,title3,title3,title3,title3,title3,title3],insequence=true):
hole2:=ellipse([20,23.5],2,0.5,filled=true,color=white):
slide1:=polygon([[18,23.5],[18,15],[17,14],[4,14],[2,12],[2,5],[4,3],[18,3],[18,-1],[22,-1],[22,5],[20,7],[6,7],[6,10],[19,10],[22,13],[22,23.5]],style=polygon,color=white):
background1:=polygon([[-3,-1],[-3,23],[24,23],[24,-1]],color=black,style=polygon):
background2:=polygon([[-3,23],[24,23],[24,24],[-3,24]],color="YellowGreen",style=polygon):
ttext1:=textplot([9,21,"-UNDERGROUND-"],color=white,align={above},font=[Arial,13,bold]):
ttext2:=textplot([9,16,"Aahhhhhhh!!!!"],color=red,align={above},font=[ComicSansMS,30,bold]):
underground1:=display([hole2,slide1,ttext1,background1,background2],scaling=constrained,axes=none):
girl1:=translate(person4,15,16):
girl2:=translate(girl1,0,-1):
girl3:=translate(girl1,0,-2):
girl4:=translate(girl1,0,-3):
girl5:=translate(girl1,0,-4):
girl6:=translate(gperson,15,11):
girl7:=translate(rotate(girl5,-Pi/4,[19.4,13.4]),-3,-2):
girl8:=translate(rotate(girl7,-Pi/4,[16.5,11.3]),-2.5,1.2):
girl9:=translate(girl8,-1,0):
girl10:=translate(girl8,-2,0):
girl11:=translate(girl8,-3,0):
girl12:=translate(girl8,-4,0):
girl13:=translate(girl8,-5,0):
girl14:=translate(girl8,-6,0):
girl15:=translate(girl8,-7,0):
girl16:=translate(girl8,-8,0):
girl17:=translate(girl8,-9,0):
girl18:=translate(girl8,-10,0):
girl19:=translate(rotate(girl18,Pi/4,[4,11.6]),-0.5,-2.3):
girl20:=translate(rotate(girl19,Pi/4,[4,9.35]),0.75,-2):
girl21:=translate(girl20,0,-1):
girl22:=translate(girl20,0,-2):
girl23:=translate(girl20,0,-3):
girl24:=translate(rotate(girl23,Pi/4,[4.55,4.07]),2,0):
girl25:=translate(rotate(girl24,Pi/4,[6.55,3.93]),2,1.5):
girl26:=translate(girl25,1,0):
girl27:=translate(girl25,2,0):
girl28:=translate(girl25,3,0):
girl29:=translate(girl25,4,0):
girl30:=translate(girl25,5,0):
girl31:=translate(girl25,6,0):
girl32:=translate(girl25,7,0):
girl33:=translate(girl25,8,0):
girl34:=translate(girl25,9,0):
girl35:=translate(girl25,10,0):
girl36:=translate(girl25,11,0):
girl37:=translate(rotate(girl36,-Pi/4,[19.4,5.39]),1.7,-2.4):
girl38:=translate(rotate(girl37,-Pi/4,[20.4,2.26]),-1.1,-2):
girl39:=translate(girl38,0,-1):
uground1:=display([girl1,underground1],scaling=constrained,axes=none):
uground2:=display([girl2,ttext2,underground1]):
uground3:=display([girl3,ttext2,underground1]):
uground4:=display([girl4,ttext2,underground1]):
uground5:=display([girl5,ttext2,underground1]):
uground6:=display([girl6,ttext2,underground1]):
uground7:=display([girl7,ttext2,underground1]):
uground8:=display([girl8,ttext2,underground1]):
uground9:=display([girl9,ttext2,underground1]):
uground10:=display([girl10,ttext2,underground1]):
uground11:=display([girl11,ttext2,underground1]):
uground12:=display([girl12,ttext2,underground1]):
uground13:=display([girl13,ttext2,underground1]):
uground14:=display([girl14,ttext2,underground1]):
uground15:=display([girl15,ttext2,underground1]):
uground16:=display([girl16,ttext2,underground1]):
uground17:=display([girl17,ttext2,underground1]):
uground18:=display([girl18,ttext2,underground1]):
uground19:=display([girl19,ttext2,underground1]):
uground20:=display([girl20,ttext2,underground1]):
uground21:=display([girl21,ttext2,underground1]):
uground22:=display([girl22,ttext2,underground1]):
uground23:=display([girl23,ttext2,underground1]):
uground24:=display([girl24,ttext2,underground1]):
uground25:=display([girl25,ttext2,underground1]):
uground26:=display([girl26,ttext2,underground1]):
uground27:=display([girl27,ttext2,underground1]):
uground28:=display([girl28,ttext2,underground1]):
uground29:=display([girl29,ttext2,underground1]):
uground30:=display([girl30,ttext2,underground1]):
uground31:=display([girl31,ttext2,underground1]):
uground32:=display([girl32,ttext2,underground1]):
uground33:=display([girl33,ttext2,underground1]):
uground34:=display([girl34,ttext2,underground1]):
uground35:=display([girl35,ttext2,underground1]):
uground36:=display([girl36,ttext2,underground1]):
uground37:=display([girl37,ttext2,underground1]):
uground38:=display([girl38,ttext2,underground1]):
uground39:=display([girl39,ttext2,underground1]):
slidescene:=display([uground1,uground3,uground5,uground6,uground7,uground8,uground10,uground12,uground14,uground16,uground18,uground19,uground20,uground22,uground24,uground25,uground27,uground29,uground31,uground33,uground35,uground37,uground38,uground39],scaling=constrained,insequence=true,axes=none):
phead1:=disk([10,7],1,color="DarkBlue"):
peye1:=disk([9.6,7.2],0.2,color=black):
peye2:=disk([10.4,7.2],0.2,color=black):
ppeye1:=disk([9.6,7.2],0.3,color=white,style=polygon):
ppeye2:=disk([10.4,7.2],0.3,color=white,style=polygon):
pmouth1:=ellipticArc([10,6.5],0.6,0.2,0..Pi,filled=true,color=yellow):
pmouth2:=ellipticArc([10,6.5],0.6,0.13,0..-Pi,filled=true,color=yellow):
pface1:=display([peye1,peye2,ppeye1,ppeye2,pmouth1,pmouth2,phead1]):
pface2:=display(translate(rotate(pface1,Pi/8,[10,6]),0,0)):
pface3:=display(translate(rotate(pface1,-Pi/8,[10,6]),0,0)):
pbody1:=disk([10,4.5],1.5,color="DarkBlue"):
pbody2:=disk([10,4.3],1.2,color=white,style=polygon):
elli:=ellipse([8.5,5.2],1.5,0.6,filled=true,color="DarkBlue"):
pwing1:=translate(rotate(elli,Pi/8),3,-2.9):
pwing2:=translate(rotate(elli,-Pi/8),1.3,3.6):
pfoot1:=disk([9.3,3.2],0.4,color=yellow):
pfoot2:=disk([10.7,3.2],0.4,color=yellow):
penguin1:=display([pface1,pbody2,pbody1,pwing1,pwing2,pfoot1,pfoot2],scaling=constrained):
penguin2:=display([pface2,pbody2,pbody1,pwing1,pwing2,pfoot1,pfoot2],scaling=constrained):
penguin3:=display([pface3,pbody2,pbody1,pwing1,pwing2,pfoot1,pfoot2],scaling=constrained):
ocean:=polygon([[-3,-1],[-3,18],[24,18],[24,-1]],color="DodgerBlue" ,style=polygon):
sky:=polygon([[-3,18],[24,18],[24,24],[-3,24]],color=COLOR(RGB, 0.6,0.8,1),style=polygon):
ii1:=ellipse([14,3],9.2,1,filled=true,color="White",style=polygon):
ii2:=ellipse([4,8],3,0.8,filled=true,style=polygon,color="LightGray"):
ii3:=ellipse([15,12],2.5,0.8,filled=true,style=polygon,color="White"):
cc1:=polygon([[4.8,3],[23.2,3],[23.2,1.5],[4.8,1.5]],style=polygon,color="LightGray"):
cc2:=polygon([[1,8],[7,8],[7,7],[1,7]],style=polygon,color="Silver"):
cc3:=polygon([[12.5,12],[17.5,12],[17.5,11],[12.5,11]],style=polygon,color="Snow"):
ice1:=display([ii1,cc1]):
ice2:=display([ii2,cc2]):
ice3:=display([ii3,cc3]):
nn1:=disk([-2,23],0.2,color="Snow",style=polygon):
nn2:=disk([1,21],0.2,color="Snow",style=polygon):
nn3:=disk([4,23],0.2,color="Snow",style=polygon):
nn4:=disk([6,20],0.2,color="Snow",style=polygon):
nn5:=disk([10,22],0.2,color="Snow",style=polygon):
nn6:=disk([13,21],0.2,color="Snow",style=polygon):
nn7:=disk([16,23],0.2,color="Snow",style=polygon):
nn8:=disk([18,19],0.2,color="Snow",style=polygon):
nn9:=disk([21,22],0.2,color="Snow",style=polygon):
nn10:=disk([23,21],0.2,color="Snow",style=polygon):
snow1:=display([nn1,nn2,nn3,nn4,nn5,nn6,nn7,nn8,nn9,nn10]):
snow2:=display(translate(snow1,0,-6)):
snow3:=display(translate(snow1,0,-12)):
snow4:=display(translate(snow1,0,-18)):
snow5:=display(translate(snow1,0,-4)):
snow6:=display(translate(snow2,0,-5)):
snow7:=display(translate(snow3,0,-7)):
snow8:=display(translate(snow2,0,7.5)):
snow9:=display(translate(snow1,0,-10)):
snow10:=display(translate(snow1,0,-12)):
snow11:=display(translate(snow1,0,-14)):
snow12:=display(translate(snow1,0,-16)):
snow13:=display(translate(snow1,0,-18)):
snows1:=display([snow1,snow2,snow3,snow4]):
snows2:=display([snow5,snow6,snow7,snow8]):
nhole1:=ellipse([20,22.5],2,0.5,filled=true,color=white):
nhole2:=polygon([[18,22.5],[22,22.5],[22,24],[18,24]],color=white,style=polygon):
nhole:=display([nhole1,nhole2],scaling=constrained):
ngirl20:=translate(rotate(pperson1,Pi/2,[4.5,1.5]),16,1):
ngirl2:=translate(girl1,0,-3):
ngirl3:=translate(girl1,0,-5):
ngirl4:=translate(girl1,0,-7):
ngirl5:=translate(girl1,0,-9):
ngirl6:=translate(girl1,0,-11):
ngirl7:=translate(girl1,0,-13):
ngirl8:=translate(girl1,0,-15):
ngirl9:=translate(rotate(girl8,Pi,[19.3,3.5]),-4,8):
psay1:=textplot([7,15,"Aaaahhhhhh!!!!"],align={above},font=[Arial,25,bold],color=red):
psay2:=textplot([8,7,"??"],align={above},font=[Arial,20,bold],color=yellow):
psay3:=textplot([12,7,"??"],align={above},font=[Arial,22,bold],color=red):
psay4:=textplot([10,9,"Can I eat this thing??"],align={above},font=[ComicSansMS,20,bold],color=black):
psay5:=textplot([15.7,8,"CRASH!"],align={above},font=[Arial,20,bold],color=red):
crash:=polygon([[19,2.5],[18,3.5],[19.2,2.8],[20.3,3.8],[20.7,2.7],[22,3.4],[21,2.5]],color=red,style=polygon):
np1:=display([psay1,snows1,nbody,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np2:=display([psay1,snows2,girl1,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np3:=display([psay1,snows1,ngirl2,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np4:=display([psay1,snows2,ngirl3,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np5:=display([psay1,snows1,ngirl4,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np6:=display([psay1,snows2,ngirl5,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np7:=display([psay1,snows1,ngirl6,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np8:=display([psay1,snows2,ngirl7,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np9:=display([psay5,snows1,crash,ngirl8,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np10:=display([psay5,snows2,ngirl20,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np11:=display([psay3,snows1,ngirl20,nhole,penguin2,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np12:=display([psay2,snows2,ngirl20,nhole,penguin3,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np13:=display([psay3,snows1,ngirl20,nhole,penguin2,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np14:=display([psay2,snows2,ngirl20,nhole,penguin3,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np15:=display([psay3,snows1,ngirl20,nhole,penguin2,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np16:=display([psay2,snows2,ngirl20,nhole,penguin3,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np17:=display([psay4,snows2,ngirl20,nhole,penguin2,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np18:=display([psay4,snows1,ngirl20,nhole,penguin3,ice1,ice2,ice3,ocean,sky],scaling=constrained):
np19:=display([psay4,snows2,ngirl20,nhole,penguin1,ice1,ice2,ice3,ocean,sky],scaling=constrained):
northpole:=display([np1,np2,np3,np4,np5,np6,np7,np8,np9,np9,np10,np11,np12,np13,np14,np15,np16,np17,np18,np17,np18,np19,np19,np19,np19,np19,np19],insequence=true,scaling=constrained):
display([title4,step10,step5,ParkScene,step9,balls,step7,step8,person24,person25,person26,person27,slidescene,northpole],insequence=true,scaling=constrained,axes=none);
# speed =6