restart; with(plots): with(plottools):
xskyblue := COLOR(RGB, 0.5, 0.8, 0.9):
xnavy := COLOR(RGB, 0, 0, 0.5):
xroyalblue := COLOR(RGB, .25, .41, 0.88):
xlightblue := COLOR(RGB, .8, .8, 1):
xlightcyan := COLOR(RGB, .8, 1, 1):
xyellow := COLOR(RGB, 1, 1, 0):
xblue := COLOR(RGB, 0, 0, 1):
rim:= disk([3,5], 1.5, thickness=2,color=pink):
wing:= disk ([2,8], 2, thickness=2, color=yellow, filled= true):
body:= polygon([[4,4], [4,9], [5,9], [5,4]], color=brown):
head:= disk ([4.5, 9.5],.5, color= brown):
butterfly:=display (translate (rim,3.5,0), translate (wing, 5,0), body, wing, rim, head):
center:= disk([13,7], 1, thickness=1, color=yellow, filled= true):
center2:= disk([20,7], 1, thickness=1, color=yellow, filled= true):
stem:= plot ([[13,0],[13,5.5]],color=green):
stem2:= plot ([[20,0],[20,5.5]],color=green):
petal:= arc([13.5,8], 1,-1/3*Pi..1*Pi,color=red):
petal2:= arc([14.5,6.75], 1,-3/4*Pi..2/3*Pi,color=red):
petal3:= arc([13,6], 1,2*Pi..5/6*Pi,color=red):
petal4:= arc([12,7], -1,5/6*Pi..-4/5*Pi,color=red):
petal5:= arc([21.5,7],1,5/6*Pi..-3/4*Pi,color=red):
petal6:=arc([20.5,5.5],1,1/2*Pi..-7/6*Pi,color=red):
petal7:=arc([19,6],1,0*Pi..-18/12*Pi,color=red):
petal8:=arc([19,8],1,1.5*Pi..0*Pi,color=red):
petals:=display (center2,petal5,petal6,petal7, petal8):
petals2:=rotate(petals,Pi):
stem2:=line ([19.5,6], [19.5,0], color= green):
flower:=display([translate(petals2, 40, 14),stem2]):
flower2:=display (stem, petal, petal2, petal3,petal4,center):
stem2:=line ([19.5,6], [19.5,0], color= green):
sky:= polygon([[-10,0],[-10,60], [45,60], [45,0]],color= xskyblue ):
sun:=disk([10,35],4,color=yellow):
sky3:= polygon([[-10,0],[-10,60], [45,60], [45,0]],color= xnavy ):
sky2:= polygon([[-10,0],[-10,60], [45,60], [45,0]],color=xroyalblue):
cloud:= ellipse([15,50], 10, 4, filled=true, color=white):
cloud2:= ellipse([35,35], 10, 4, filled=true, color=white):
cloud3:= ellipse([10,30], 10, 4, filled=true, color=white):
cloud4:= ellipse([35,45], 10, 4, filled=true, color=white):
cloud5:= ellipse([0,20], 10, 4, filled=true, color=white):
cloud6:= ellipse([20,25], 10, 4, filled=true, color=white):
ray1:=line([6,37],[4,39],color=yellow, thickness=5):
ray2:=line([10,40],[10,43],color=yellow, thickness=5):
ray3:=line([14.5,37],[17,39],color=yellow, thickness=5):
ray4:=line([5.5,34],[2.5,34],color=yellow, thickness=5):
ray5:=line([15,34],[18.5,34],color=yellow, thickness=5):
ray6:=line([7,31],[4,29],color=yellow, thickness=5):
ray7:=line([14.5,31],[17.5,29],color=yellow, thickness=5):
ray8:=line([10,30],[10,27],color=yellow, thickness=5):
sun:=display(sun,ray1,ray2,ray3,ray4,ray5,ray6,ray7,ray8):
moon:=disk([10,35],4,color=white):
star1:=plot([[6,25],[7,26.5],[8,25],[6,26],[8,26],[6,25]],color=yellow):
star2:=display(translate(star1,7,22)):
star3:=display(translate(star1,23,15)):
star4:=display(translate(star1,17,11)):
star5:=display(translate(star1,11,7)):
star6:=display(translate(star1,2,3)):
star7:=display(translate(star1,29,1)):
star8:=display(translate(star1,27,13)):
star9:=display(translate(star1,18,0)):
star10:=display(translate(star1,25,5)):
star11:=display(translate(star1,-9,9)):
star12:=display(translate(star1,24,19)):
star13:=display(translate(star1,4,10)):
star14:=display(translate(star1,20,23)):
star15:=display(translate(star1,15,28)):
star16:=display(translate(star1,14,14)):
star17:=display(translate(star1,21,7)):
star18:=display(translate(star1,10,15)):
star19:=display(translate(star1,18,21)):
star20:=display(translate(star1,-1,27)):
star21:=display(translate(star1,28,7)):
star22:=display(translate(star1,-8,12)):
p1:=display( petal,butterfly,center,stem, petal,cloud,cloud5,cloud2, petal2, petal3,petal4,stem2, flower,sun,sky,scaling=constrained):
p2:=display(translate(butterfly,12,10),cloud4,cloud3,stem,stem2,translate(flower,0,2.5),translate(flower2,0,2.5),translate(sun,5,10),sky2,scaling=constrained):
p3:=display(translate(butterfly,30,0),translate(flower,0,5),translate(flower2,0,5),translate(moon,25,0),star1,star2,star3,star4,star5,star6,star7,star8,star9,star10,star11,star12,star13,star14,star15,star16,star17,star18,star19,star20,star21,star22,stem,stem2,sky3,scaling=constrained):
star1:=plot([[6,25],[7,26.5],[8,25],[6,26],[8,26],[6,25]],color=yellow):
display(p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p2,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,p3,insequence=true,axes=none);