restart:with(plots):with(plottools): head:=disk([0,8],1,color="Burlywood"): body:=rectangle([-1,7],[1,4.5], color="Maroon"): arm1:=polygon([[1,6],[.5,6.8],[.1,6.3],[1,5.3]]): arm2:=rectangle([-1,7],[-1.5,5.5]): leg1:=rectangle([0.5,4.1],[1,4.5],c\134olor="Black"): leg2:=rectangle([-0.5,4.1],[-1,4.5],color="Black"): shoe1:=rectangle([-1.5,4.1],[-.5, 3.6],color="Crimson"): shoe2:=rectangle([0.5,3.6],[1.5,4.1],color="Crimson"): eye1:=disk([-.5,8], .1, color=black): eye2:=disk([0.5,8], .1, color=black): hair2:=rectangle([-1,9.3],[1,8],color="Gold"): smile:=arc([0,7.8], -.5, 0..Pi ,color="Crimson"): sad:=arc([0,7.25], .5, 0..Pi ,color="Crimson"): tongue1:=ellipse([.3,7.3], .1, .13,filled=true, color="Crimson"): tongue2:=ellipse([0.1,7.2],.1,.13,filled=true,color="Crimson"): tongue3:=ellipse([0.5,7.43],.1,.13,filled=true,color="Crimson"): smileboy:=display([smile,eye1,eye2,arm1,arm2,body,head,hair2,leg1, leg2, shoe1,shoe2]): sadboy:=display([sad,eye1,eye2,arm1,arm2,body,head,hair2,leg1, leg2, shoe1,shoe2]): lick:=display([tongue2,tongue1,tongue3],insequence=true,scaling=constrained): diamond:=display(polygon([[.3,5.7],[0,7],[.6,7],[.3,5.7]],color="Tan")): sweet:=disk([0.3,7],.3,color="Pink"): cherry:=disk([0.3,7.32],.1,color="Red"): Icecream:=display([diamond,sweet,cherry]): Icecream2:=translate(rotate(Icecream,-Pi/4,[2.5,2.5]),-3.5,-1): Icecream3:=translate(rotate(Icecream,-Pi/2,[2.5,2.5]),-6,1): Icecream4:=translate(rotate(Icecream,-3*Pi/4,[2.5,2.5]),-6,3): Icecream5:=translate(rotate(Icecream,-Pi,[2.5,2.5]),-3,4): Icecream6:=translate(rotate(Icecream,-Pi,[2.5,2.5]),-3,4): cloud1:=circle([3,11],1,color="White",thickness=4),disk([3,11],1,color="White"): cloud2:=circle([3,10.5],1,color="White",thickness=4),disk([3,10.5],1,color="White",filled=true,color="White"): cloud3:=circle([4,11],1,color="White",thickness=4),disk([4,11],1,color="White",filled=true,color="White"): cloud4:=circle([3.7,11.7],1,color="White",thickness=4),disk([3.7,11.7],1,color="White",filled=true,color="White"): cloud5:=circle([4.6,11],1,color="White",thickness=4),disk([4.6,11],1,color="White",filled=true,color="White"): cloud6:=circle([6,12],1,color="White",thickness=4),disk([6,12],1,color="White",filled=true,color="White"): cloud7:=circle([6.5,11],1,color="White",thickness=4),disk([6.5,11],color="White",filled=true,color="White"): cloud8:=circle([4.5,12],1,color="White",thickness=4),disk([4.5,12],1,color="White",filled=true,color="White"): sun:=disk([2,11],1.5,color="Yellow"): head1:=disk([5.5,8],1,color="Burlywood"): body1:=rectangle([4.5,7],[6.5,4.5], color="Pink"): leg3:=rectangle([5,4.5],[4.5,4]): leg4:=rectangle([6.5,4.5],[6,4]): shoe3:=rectangle([5,4],[4,3.6],color="Purple"): shoe4:=rectangle([6,4],[7,3.6],color="Purple"): eye3:=disk([5,8], .1, color=black): eye4:=disk([6,8], .1, color=black): mouth:=arc([5.5,7.8], -.5, 0..Pi ,color="Crimson"): hair:=disk([5.5,8],1.5,color=orange): arm3:=polygon(([[4.5,7],[3.5,6],[3.5,5.3],[4.5,6.5]]),color="Purple"): arm4:=rectangle([6.5,7],[7,5.5],color="Purple"): wow:=disk([5.5,7.5],.3,filled=true,color="Crimson"): scoop1:=disk([3.5,6],.5,filled=true,color="Red"): scoop2:=disk([3.5,6.5],.5,filled=true,color="Orange"): scoop3:=disk([3.5,7],.5,filled=true,color="Yellow"): scoop4:=disk([3.5,7.5],.5,filled=true,color="Green"): scoop5:=disk([3.5,8],.5,filled=true,color="Blue"): scoop6:=disk([3.5,8.5],.5,filled=true,color="Indigo"): cherry1:=disk([3.5,9],.1,color="Crimson"): diamond2:=display(polygon([[4,6],[3.5,5],[3,6],[4,6]],color="Tan")): icecream2:=display([cherry1,diamond2,scoop1,scoop2,scoop3,scoop4,scoop5,scoop6]):girl:=display([icecream2,leg3,leg4,arm3,arm4,body1,eye3,mouth,eye4,head1,hair,shoe3,shoe4]): air1:=rectangle([-3,2.8], [10,13], color="LightBlue"): ground1:=polygon([[10,3.5],[10,-1],[-3,-1],[-3,3.5]],color="ForestGreen"): scenery:=display([cloud1,cloud2,cloud3,cloud4,cloud5,cloud6,cloud7,cloud8,ground1,sun]): stay:=display([girl,icecream2]): grin:=pieslice([0,7.8], -.5, 0..Pi ,color="Crimson"): antanthill := sector([6,2], 2, 0..Pi, color="Brown"): antp1:=disk([6,2.9],.5,color="SaddleBrown"): antp2:=disk([5.5,2.9],.5,color="SaddleBrown"): antp3:=disk([5,2.9],.5,color="SaddleBrown"): antleg1:=line([6,2.4],[6,2.2]): antleg2:=line([5.5,2.4],[5.5,2.2]): antleg3:=line([5,2.4],[5,2.2]): tongue1ant:=ellipse([4.7,2.6], .05, .13,filled=true, color="Crimson"): tongue2ant:=rotate(tongue1ant,-Pi/4,[4.7,2.73]): tongue3ant:=rotate(tongue1ant,Pi/4,[4.7,2.73]): anteye1:=disk([4.6,3],.03): anteye2:=disk([4.8,3],.03): antsmile:=pieslice([4.7,2.8],.1,0..-Pi,color="Crimson"): lick2:=display([tongue1ant,tongue2ant,tongue3ant],insequence=true,scaling=constrained): ant:=display([antsmile,anteye1,anteye2,antp1,antp2,antp3,antleg1,antleg2,antleg3]): ant1:=(tongue1ant,ant): ant2:=(tongueant,ant): ant3:=(tongue3ant,ant): anthill :=sector([6,1], 1.6, 0..Pi, color="Brown"): ants1:=plot([[5.9,2.56],[2.5,1.85]],linestyle=dot,color="Black"): ants2:=plot([[6,2.56],[1.5,1.85]],linestyle=dot,color="Black"): thought1:=disk([3.5,2.3],.1,color="White"): thought2:=disk([4,2.6],.1,color="White"): thought3:=disk([5.5,3.4],1,color="White"): eyeant1:=disk([5,3.5], .1, color=black): eyeant2:=disk([5.5,3.5], .1, color=black): mouthant:=arc([5.3,3.3], -.5, 0..Pi ,color="Crimson"): think:=display([thought1,thought2,eyeant1,eyeant2,mouthant,thought3]): suneye1:=disk([1.3,11], .1, color=black): suneye2:=disk([1.8,11], .1, color=black): sunmouth:=arc([1.6,10.5], -.5, 0..Pi ,color="Crimson"): sunsmile:=display([suneye1,suneye2,sunmouth]): lastscreen:=rectangle([10,12.5],[-2.5,0],color="LightBlue"): words:=textplot([[4,10.5,"Make Someone Happy Today.",'font'=["Papyrus",17]]]): words2:=textplot([[3.7,4,"~Sayuni Dharmasena",'font'=["Papyrus",25]]]): lastlastscreen:=display(words,words2,lastscreen): d1:=display(anthill,lick,Icecream,diamond,arm1,smileboy,stay,scenery,air1): d2:=display(anthill,Icecream,diamond,arm1,smileboy,stay,scenery,air1): d3:=display(anthill,Icecream2,arm1,smileboy,stay,scenery,air1): d4:=display(anthill,Icecream3,arm1,smileboy,stay,scenery,air1): d5:=display(anthill,Icecream4,arm1,smileboy,stay,scenery,air1): d6:=display(anthill,Icecream5,arm1,smileboy,stay,scenery,air1): d7:=display(anthill,wow,Icecream6,arm1,eye1,eye2,body,head,arm2,hair2,leg1, leg2, shoe1,shoe2,icecream2,leg3,leg4,arm3,arm4,body1,eye3,eye4,head1,hair,shoe3,shoe4,sad,scenery,air1): d8:=display(translate(ant,-1,-.5),anthill,wow,Icecream6,arm1,eye1,eye2,body,head,arm2,hair2,leg1, leg2, shoe1,shoe2,icecream2,leg3,leg4,arm3,arm4,body1,eye3,eye4,head1,hair,shoe3,shoe4,sad,scenery,air1): d9:=display([translate(ant,-2,-1),anthill,girl,Icecream6,arm1,eye1,eye2,body,sad,head,arm2,hair2,leg1, leg2, shoe1,shoe2,scenery,air1]): d10:=display([translate(girl,-1.5,0),translate(ant,-2,-1),anthill,Icecream6,sadboy,scenery,air1]): D1:=display([translate(icecream2,-3,0),translate(lick2,-2.7,-1),translate(ant,-2.7,-1),sunsmile,anthill,arm1,eye1,eye2,body,grin,head,arm2,hair2,leg1, leg2, shoe1,shoe2,Icecream6,arm1,leg3,leg4,arm3,arm4,body1,eye3,eye4,mouth,head1,hair,shoe3,shoe4,scenery,air1]): D1r:=display(translate(icecream2,-3,0),translate(ant,-2.7,-1),sunsmile,anthill,arm1,eye1,eye2,body,grin,head,arm2,hair2,leg1, leg2, shoe1,shoe2,Icecream6,arm1,shoe2,leg3,leg4,arm3,arm4,body1,eye3,eye4,mouth,head1,hair,shoe3,shoe4,scenery,air1): D2r:=display([lastlastscreen]): display([d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,D1,D1,D1,D1r,D1r,D1r,D2r,D2r,D2r,D2r],axes=none,insequence=true,scaling=constrained); #speed=3