restart:with(plots):with(plottools): Grass:=display(rectangle([0,0.8],[4,0],color="LightGreen")): DaySky:=display(rectangle([0,4],[4,0.8],color="LightSkyBlue")): Stem:=plot([[2,0.8],[2,1]],color="ForestGreen"): Sun1:=display(disk([.5,3],.3,color="Gold")): Sun1_5:=display(disk([1,3.3],0.3,color="Gold")): Sun2:=display(disk([2,3.5],.3,color="Gold")): Sun3:=display(disk([3.5,3],.3,color="Gold")): Moon1:=display(disk([.5,3],.2,color="LightCyan")): Moon2:=display(disk([2,3.5],.2,color="LightCyan")): Moon3:=display(disk([3.5,3],.2,color="LightCyan")): NightSky:=display(rectangle([0,4],[4,0.8],color="MidnightBlue")): NightFlowerPetals:=display(disk([2,1.5],.5,color="Lavender")): NightFlowerHead:=display(disk([2,1.5],.2,color="LemonChiffon")): NightGrass:=display(rectangle([0,0.8],[4,0],color="SeaGreen")): Night1:=display([Moon1,NightFlowerHead,NightFlowerPetals,NightSky,NightGrass,Stem]): Night2:=display([Moon2,NightFlowerHead,NightFlowerPetals,NightSky,NightGrass,Stem]): Night3:=display([Moon3,NightFlowerHead,NightFlowerPetals,NightSky,NightGrass,Stem]): Sun2_5:=display(disk([3,3.3],.3,color="Gold")): FlowerBud:=display(disk([2,1.5],.2),color="ForestGreen"): DayStem:=plot(([2,2],[1,1.3],color="ForestGreen")): OpeningNightFlowerPetals:=display(disk([2,1.5],.2,color="Lavender")): Day3:=display([Sun3,OpeningNightFlowerPetals,DaySky,Grass,Stem,DayStem]): Day1_5:=display([Sun1_5,FlowerBud,DaySky,Grass,Stem,DayStem]): Day2_5:=display([Sun2_5,FlowerBud,DaySky,Grass,Stem,DayStem]): Moon1_5:=display(disk([1,3.3],.2,color="LightCyan")): Moon2_5:=display(disk([3,3.3],.2,color="LightCyan")): Night1_5:=display([Moon1_5,NightFlowerHead,NightFlowerPetals,NightSky,NightGrass,Stem]): Night2_5:=display([Moon2_5,NightFlowerHead,NightFlowerPetals,NightSky,NightGrass,Stem]): Day1:=display([Sun1,FlowerBud,DaySky,Grass,Stem,DayStem]): Day2:=display([Sun2,FlowerBud,DaySky,Grass,Stem,DayStem]): NightFlower:=display([Day1,Day1_5,Day2,Day2_5,Day3,Night1,Night1_5,Night2,Night2_5,Night3],scaling=constrained,insequence=true,axes=none); #speed 3