restart:with(plots):with(plottools):
head:=disk([2,4],2,color=tan):
eyeleft:=ellipse([1,5],.5,.2,color=white, filled=true):
eyeright:=ellipse([3,5],.5,.2,color=white,filled=true):
irisleft:=disk([1,5],.2,color=blue):
irisright:=disk([3,5],.2,color=blue):
pupilleft := disk([1, 5], 0.05, color = black):
pupilright := disk([3, 5], 0.05, color = black):
nose := disk([2, 4], .2, color = brown):
hair1:=polygon([[2,6],[5,2],[-1,2],[2,6]],color="Chocolate"):
hair2:=polygon([[4,4],[5,2],[3.5,3],[4,4]],color="Chocolate"):
hair3:=polygon([[3,5],[5,2],[3,6],[3,5]],color="Chocolate"):
hair4:=polygon([[1,5],[-1,2],[1,6],[1,5]],color="Chocolate"):
hair5:=polygon([[0,4],[-1,2],[.5,3],[3,5]],color="Chocolate"):
hair6:=polygon([[3,6],[1,6],[1,5],[3,5],[3,6]],color="Chocolate"):
hair7:=polygon([[0,5.5],[4,5.5],[4,6],[0,6],[0,6],[0,5.5]],color="Chocolate"):
hair8:=polygon([[0,4],[4,4],[4,5.5],[0,5.5],[0,4]],color="Chocolate"):
mouth := ellipse([2, 2.6], .5, .2, color = violet, filled = true):
hair:=display(hair1, hair2, hair3, hair4, hair5, hair6, hair8):
body:=polygon([[2,2],[0,-7],[4,-7]],color=green):
wing1:=polygon([[2.5,0],[5,5],[5,1],[2.5,0]],color="HotPink"):
wing2:=polygon([[1.5,0],[-1,5],[-1,1],[1.5,0]],color="HotPink"):
armright:=plot([[2.5,0],[4,-2.5]],color=green):
armleft:=plot([[1.5,0],[0,-2.5]],color=green):
fairy:=display(pupilleft,pupilright,irisleft,irisright,nose,eyeleft,eyeright,mouth,hair7,head,hair,armleft,armright,wing1,wing2,body):
p1:=fairy:
p2:=translate(p1,-2,2):
p3:=translate(p1,-1,1):
p4:=translate(p1,-2,2):
p5:=translate(p1,-5,0):
p6:=translate(p1,2,2):
p7:=translate(p1,-1,1):
p8:=translate(p1,1,2):
p9:=translate(p1,-2,0):
p10:=translate(p1,-1,2):
p11:=translate(p1,-1,1):
p12:=translate(p1,1,2):
p13:=translate(p1,2,0):
p14:=translate(p1,2,2):
p15:=translate(p1,2,1):
p16:=translate(p1,1,2):
p17:=translate(p1,-1,0):
p18:=translate(p1,-3,2):
p19:=translate(p1,-2,1):
p20:=translate(p1,-4,2):
p21:=translate(p1,-1,0):
p22:=translate(p1,-4,2):
p23:=translate(p1,4,1):
p24:=translate(p1,-3,2):
p25:=translate(p1,3,0):
p26:=translate(p1,2,2):
p27:=translate(p1,4,1):
p28:=translate(p1,-2,2):
p29:=translate(p1,-5,0):
p30:=translate(p1,-4,2):
p31:=translate(p1,1,1):
p32:=translate(p1,3,2):
p33:=translate(p1,6,0):
p34:=translate(p1,4,2):
p35:=translate(p1,3,1):
p36:=translate(p1,-3,2):
p37:=translate(p1,3,0):
p38:=translate(p1,4,2):
p39:=translate(p1,5,1):
p40:=translate(p1,1,2):
p41:=translate(p1,2,0):
p42:=translate(p1,-2,2):
p43:=translate(p1,-1,1):
p44:=translate(p1,-2,2):
p45:=translate(p1,-5,0):
p46:=translate(p1,2,2):
p47:=translate(p1,-1,1):
p48:=translate(p1,1,2):
p49:=translate(p1,-2,0):
p50:=translate(p1,-1,2):
p51:=translate(p1,-1,1):
p52:=translate(p1,1,2):
p53:=translate(p1,2,0):
p54:=translate(p1,2,2):
p55:=translate(p1,2,1):
p56:=translate(p1,1,2):
p57:=translate(p1,-1,0):
p58:=translate(p1,-3,2):
p59:=translate(p1,-2,1):
p60:=translate(p1,-4,2):
p61:=translate(p1,-1,0):
p62:=translate(p1,-4,2):
p63:=translate(p1,4,1):
p64:=translate(p1,-3,2):
p65:=translate(p1,3,0):
p66:=translate(p1,2,2):
p67:=translate(p1,4,1):
p68:=translate(p1,-2,2):
p69:=translate(p1,-5,0):
p70:=translate(p1,-4,2):
p71:=translate(p1,1,1):
p72:=translate(p1,3,2):
p73:=translate(p1,6,0):
p74:=translate(p1,4,2):
p75:=translate(p1,3,1):
p76:=translate(p1,-3,2):
p77:=translate(p1,3,0):
p78:=translate(p1,4,2):
p79:=translate(p1,5,1):
p80:=translate(p1,1,2):
p81:=translate(p1,2,0):
g:=plot([[-20,-7],[20,-7]],color="Green",thickness=15):
s1:=disk([-10,10],1,color="BlueViolet"):
s2:=disk([0,12],1,color="Cornsilk"):
s3:=disk([10,10],1,color="DarkGoldenrod"):
s4:=disk([0,15],1,color="ForestGreen"):
s5:=disk([-5,10],1,color="Gold"):
s6:=disk([5,10],1,color="IndianRed"):
s7:=disk([-5,-1],1,color="LavenderBlush"):
s8:=disk([5,-1],1,color="LemonChiffon"):
s9:=disk([-10,5],1,color="LightSeaGreen"):
s10:=disk([19,9],1,color="Lime"):
s11:=disk([-18,12],1,color="LimeGreen"):
s12:=disk([-7,12],1,color="Firebrick"):
sky:=polygon([[-20,20],[20,20],[20,-7],[-20,-7],[-20,20]],color="DarkSlateBlue"):
bkgd:=display(s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,g,sky):
p82:=display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p35,p36,p37,p38,p39,p40,p41,p42,p43,p44,p45,p46,p47,p48,p49,p50,p51,p52,p53,p54,p55,p56,p57,p58,p59,p60,p61,p62,p63,p64,p65,p66,p67,p68,p69,p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,p80,p81],insequence=true):
dance:=display(p82,bkgd):
stf1:=translate(s1,0,-16):
stf2:=translate(s2,0,-18):
stf3:=translate(s3,0,-16):
stf4:=translate(s4,-1,-21):
stf5:=translate(s5,0,-16):
stf6:=translate(s6,0,-16):
stf7:=translate(s7,0,-5):
stf8:=translate(s8,0,-5):
stf9:=translate(s9,0,-11):
stf10:=translate(s10,0,-15):
stf11:=translate(s11,0,-18):
stf12:=translate(s12,0,-18):
stf13:=translate(s1,0,-16):
stf14:=translate(s2,0,-18):
stf15:=translate(s3,0,-16):
stf16:=translate(s4,-1,-21):
stf17:=translate(s5,0,-16):
stf18:=translate(s6,0,-16):
stf19:=translate(s7,0,-5):
stf20:=translate(s8,0,-5):
stf21:=translate(s9,0,-11):
stf22:=translate(s10,0,-15):
stf23:=translate(s11,0,-18):
stf24:=translate(s12,0,-18):
stf25:=translate(s7,0,-5):
stf26:=translate(s8,0,-5):
stf27:=translate(s9,0,-11):
stf28:=translate(s10,0,-15):
stf29:=translate(s11,0,-18):
stf30:=translate(s12,0,-18):
stf31:=translate(s1,0,-16):
stf32:=translate(s2,0,-18):
stf33:=translate(s3,0,-16):
stf34:=translate(s4,-1,-21):
stf35:=translate(s5,0,-16):
stf36:=translate(s6,0,-16):
stf37:=translate(s7,0,-5):
stf38:=translate(s8,0,-5):
stf39:=translate(s9,0,-11):
stf40:=translate(s1,0,-16):
stf41:=translate(s2,0,-18):
stf42:=translate(s3,0,-16):
stf43:=translate(s4,-1,-21):
stf44:=translate(s5,0,-16):
stf45:=translate(s6,0,-16):
stf46:=translate(s7,0,-5):
stf47:=translate(s8,0,-5):
stf48:=translate(s9,0,-11):
stf49:=translate(s10,0,-15):
stf50:=translate(s11,0,-18):
stf51:=translate(s12,0,-18):
stf52:=translate(s1,0,-16):
stf53:=translate(s2,0,-18):
stf54:=translate(s3,0,-16):
stf55:=translate(s4,-1,-21):
stf56:=translate(s5,0,-16):
stf57:=translate(s6,0,-16):
stf58:=translate(s7,0,-5):
stf59:=translate(s8,0,-5):
stf60:=translate(s9,0,-11):
stf61:=translate(s10,0,-15):
stf62:=translate(s11,0,-18):
stf63:=translate(s12,0,-18):
stf64:=translate(s7,0,-5):
stf65:=translate(s8,0,-5):
stf66:=translate(s9,0,-11):
stf67:=translate(s10,0,-15):
stf68:=translate(s11,0,-18):
stf69:=translate(s12,0,-18):
stf70:=translate(s1,0,-16):
stf71:=translate(s2,0,-18):
stf72:=translate(s3,0,-16):
stf73:=translate(s4,-1,-21):
stf74:=translate(s5,0,-16):
stf75:=translate(s6,0,-16):
stf76:=translate(s7,0,-5):
stf77:=translate(s8,0,-5):
stf78:=translate(s9,0,-11):
starfall:=display(stf1,stf2,stf3,stf4,stf5,stf6,stf7,stf8,stf9,stf10,stf11,stf12,stf13,stf14,stf15,stf16,stf17,stf18,stf17,stf18,stf19,stf20,stf21,stf22,stf23,stf24,stf25,stf26,stf27,stf28,stf29,stf30,stf31,stf32,stf33,stf34,stf35,stf36,stf37,stf38,stf39,stf40,stf41,stf42,stf43,stf44,stf45,stf46,stf47,stf48,stf49,stf50,stf51,stf52,stf53,stf54,stf55,stf56,stf57,stf58,stf59,stf60,stf61,stf62,stf62,stf64,stf65,stf66,stf67,stf68,stf69,stf70,stf71,stf72,stf73,stf74,stf75,stf76,stf77,stf78,insequence=true):
b1:=disk([10,-6],1,color="LawnGreen"):
display(starfall,dance,scaling=constrained,axes=none);
#speed 5