restart: with (plots): with (plottools): dezk := polygon([ [-8,4], [4,4], [7,2], [-5,2], [-8,4], [-8,-1], [-7,-1], [-7,3.3], [-5,2], [-5,-3], [-4,-3], [-4,2], [3,2], [3,-1], [4,-1], [4,2], [6,2], [6,-3], [7,-3], [7,2], [-5,2] ], color=brown): dezkline := plot ([ [-8,-1], [-8,4], [-5,2], [-5,-3], [-5,2], [3,2], [3,-1], [3,2], [6,2], [6,-3], [6,2], [7,2] ], color=black, thickness=4): tablle:= display(dezk, dezkline): fix:= ([0,0], color=green): LPbottle:= polygon ([ [.22,.33], [-.22,.33], [-.22,-.33], [.22,-.33], [.22,.33] ], color=pink): LPscrew:= disk ([0,.43], .1, color=white): LPheart:= polygon ([ [0,.15], [-.04,.25], [-.11,.25], [-.15,.15], [-.14,0], [-.11,-.1], [0,-.26], [.11,-.1], [.14,0], [.15,.15], [.11,.25], [.04,.25], [0,.15] ], color=red): LPheartx:= polygon ([ [0,.15], [-.04,.25], [-.11,.25], [-.15,.15], [-.14,0], [-.11,-.1], [0,-.26], [.11,-.1], [.14,0], [.15,.15], [.11,.25], [.04,.25], [0,.15] ], color=pink): lovepotion:= translate(display(LPheart, LPbottle, LPscrew),3,3): Htuckedtiet:= polygon([ [0,4.5], [-.2,5], [.2,5], [0,4.5], [.44,3.4], [0,2.8], [-.39,3.3], [0,4.5] ], color=red): Htuckedtieo:= polygon([ [.13,4.1], [.3,3.65], [-.1,3], [-.23,3.15], [.1,4.2] ], color=yellow): Htie:= display([Htuckedtieo, Htuckedtiet]): Hhead:= disk([0,6.5], 1.5, color="Beige"): HLeye:= ellipse ([-.5,6.8], .24, .36, color=black): HLpupil:= disk ([-.5,6.61], .17, color=brown): HLP:= disk ([-.5,6.61], .06, color=black): HReye:= ellipse ([.5,6.8], .24, .36, color=black): HRpupil:= disk ([.5,6.61], .17, color=brown): HRP:= disk ([.5,6.61], .06, color=black): Hhair1:= arc([0,6.5], 1.5, (0)*Pi .. Pi, color=brown, thickness=2): Hhair2:= polygon ([ [-1.5,6.4], [-1.55,6.1], [-1.45,5.93], [-1.5,5.7], [-1.4,5.5], [-1.5,5.2], [-1.3,4.9], [-1.4,4.5], [-1.12,4.24], [-.36,5.16], [.36,5.16], [1.12,4.24], [1.4,4.5], [1.3,4.9], [1.5,5.2], [1.4,5.5], [1.5,5.7], [1.45,5.93], [1.55,6.1], [1.5,6.4], [-1.5,6.4] ],color=brown): Hhair3:= plot ([ [-1.35,7.15], [-1,6.9], [-.9,7.4], [-.6,7.3], [-.4,7.6], [-.2,7.4], [0,7.6], [.2,7.4], [.4,7.6], [.6,7.3], [.9,7.4], [1,6.9], [1.35,7.15] ], color=brown, thickness=2): Hmstr:= plot ([ [-.28,5.87], [.28,5.87] ], color=black): Harc:= arc([0,5.87], .3, 2*Pi .. Pi): Hsmile:= display(Hmstr, Harc): Hsmug:= plot ([ [.4,5.9], [.1,5.6], [-.15,5.8] ], color=black): Htalk1:= circle ([0,5.7], .15, color=black): Htalk2:= circle ([0,5.7], .22, color=black): Hsad:= arc([0,5.4], .4, 0*Pi .. Pi): Hshock:= disk ([0,5.7], .22, color=black): Hface:= display([HLeye, HLP, HLpupil, HReye, HRP, HRpupil, Hhair1, Hhair3, Hmstr, Hhead, Hhair2]): Hface2:= display([HLeye, HLP, HLpupil, HReye, HRP, HRpupil, Hhair1, Hhair3, Hsmug, Hhead, Hhair2]): Hface3:= display([HLeye, HLP, HLpupil, HReye, HRP, HRpupil, Hhair1, Hhair3, Hsmile, Hhead, Hhair2]): Hface4:= display([HLeye, HLP, HLpupil, HReye, HRP, HRpupil, Hhair1, Hhair3, Htalk1, Hhead, Hhair2]): Hface5:= display([HLeye, HLP, HLpupil, HReye, HRP, HRpupil, Hhair1, Hhair3, Htalk2, Hhead, Hhair2]): Hface6:= display([HLeye, HLP, HLpupil, HReye, HRP, HRpupil, Hhair1, Hhair3, Harc, Hhead, Hhair2]): Hface7:= display([HLeye, HLP, HLpupil, HReye, HRP, HRpupil, Hhair1, Hhair3, Hsad, Hhead, Hhair2]): Hface8:= display([HLeye, HLP, HLpupil, HReye, HRP, HRpupil, Hhair1, Hhair3, Hshock, Hhead, Hhair2]): HLhand:= disk([-3.4,.55], .4,color="Beige"): HRhand:= disk([3.4,.55], .4,color="Beige"): HLsleeve:= polygon([ [-1.2,4.2], [-1.5,1.3], [-2.5,-.3], [-3.7,1.7], [-1.2,4.2] ], color=black): HRsleeve:= polygon([ [1.2,4.2], [1.5,1.3], [2.5,-.3], [3.7,1.7], [1.2,4.2] ], color=black): Hrobe:= polygon([ [1.5,1.3], [1.8,-1.5], [2.8,-4.5], [-3,-4.5], [-2.4,-2.5], [-1.7,0], [-1.5,1.3], [-1.2,4.2], [-.5,5], [-.2,5], [-.5,5], [-1.2,4.2], [0,2.7], [1.2,4.2], [.5,5], [.2,5], [.5,5], [1.2,4.2], [1.5,1.3] ], color=black): Hshirt:= polygon ([ [-.5,5], [.5,5], [1.2,4.2], [0,2.7], [-1.2,4.2], [-.5,5] ], color=white): sash:= polygon([ [1.2,4.2], [.4,1.4], [0,-1.3], [0,-3], [-.5,-2.5], [-.3,0], [-1.2,4.2], [0,1], [1.2,4.2] ], color=red): HLfoot:= ellipse ([-1.3,-4.75], .6, .35, color=gray, filled=true): HRfoot:= ellipse ([1.3,-4.75], .6, .35, color=gray, filled=true): Hwand:= polygon ([ [3.55,.3], [3.35,.3], [3.9,-2.5], [3.55,.3] ], color=brown): HLsleeve2:= polygon([ [-1.2,4.2], [-1.42,2], [-3.1,.2], [-4.2,2.3], [-1.2,4.2] ], color=black): HLhand2:= disk ([-4,1.07], .4,color="Beige"): HLsleeve3:= polygon([ [-1.2,4.2], [-1.39,2.3], [-3.6,1], [-4.7,3], [-1.2,4.2] ], color=black): HLhand3:= disk ([-4.36,1.8], .4,color="Beige"): HLsleeve4:= polygon([ [-1.2,4.2], [-1.38,2.26], [-3.7,1.6], [-4.9,3.6], [-1.2,4.2] ], color=black): HLhand4:= disk ([-4.42,2.33], .4,color="Beige"): HLsleeve5:= polygon ([ [-1.2,4.2], [-4.9,6.8], [-4.7,4.1], [-1.34,3.05], [-1.2,4.2] ], color=black): HLhand5:= disk ([-5,5.3], .4,color="Beige"): HRsleeve5:= polygon ([ [1.2,4.2], [4.9,6.8], [4.7,4.1], [1.34,3.05], [1.2,4.2] ], color=black): HRhand5:= disk ([5,5.3], .4,color="Beige"): Hwand5:= polygon ([ [5.2,5.2], [5.2,5.4], [8,6.5], [5.2,5.2] ], color=brown): HRsleeve4:= polygon([ [1.2,4.2], [1.38,2.26], [3.7,1.6], [4.9,3.6], [1.2,4.2] ], color=black): HRhand4:= disk ([4.42,2.33], .4,color="Beige"): Hwand4:= polygon ([ [4.42,2.43], [4.42,2.23], [7.22,2.42], [4.42,2.43] ], color=brown): Hermione:= display([HLsleeve, HRsleeve, HLhand, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface, HLfoot, HRfoot]): Hermy1:= translate(Hermione,12,1): Hermy2:= translate(Hermione,11,1): Hermy3:= translate(Hermione,10,1): Hermy4:= translate(Hermione,9,1): Hermy5:= translate(Hermione,8,1): Hermy6:= translate(Hermione,7.7,1): Hermionewohead:= display([HLsleeve, HRsleeve, HLhand, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, HLfoot, HRfoot]): Hermione1x3:= translate(display([HLsleeve, HRsleeve, HLhand, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface3, HLfoot, HRfoot]),7.7,1): Hermione1x5:= translate(display([HLsleeve, HRsleeve, HLhand, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface6, HLfoot, HRfoot]),7.7,1): Hermione1x6:= translate(display([HLsleeve, HRsleeve, HLhand, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface7, HLfoot, HRfoot]),7.7,1): Hermione2:= translate(display([HLsleeve2, HRsleeve, HLhand2, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface, HLfoot, HRfoot]),7.7,1): Hermione2x5:= translate(display([HLsleeve2, HRsleeve, HLhand2, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface5, HLfoot, HRfoot]),7.7,1): Hermione3:= translate(display([HLsleeve3, HRsleeve, HLhand3, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface, HLfoot, HRfoot]),7.7,1): Hermione3x5:= translate(display([HLsleeve3, HRsleeve, HLhand3, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface6, HLfoot, HRfoot]),7.7,1): Hermione4:= translate(display([HLsleeve4, HRsleeve, HLhand4, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface, HLfoot, HRfoot]),7.7,1): Hermione4x1:= translate(display([HLsleeve4, HRsleeve, HLhand4, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface2, HLfoot, HRfoot]),7.7,1): Hermione4x2:= translate(display([HLsleeve4, HRsleeve, HLhand4, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface3, HLfoot, HRfoot]),7.7,1): Hermione4x3:= translate(display([HLsleeve4, HRsleeve, HLhand4, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface4, HLfoot, HRfoot]),7.7,1): Hermione4x4:= translate(display([HLsleeve4, HRsleeve, HLhand4, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface5, HLfoot, HRfoot]),7.7,1): Hermione4x5:= translate(display([HLsleeve4, HRsleeve, HLhand4, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface6, HLfoot, HRfoot]),7.7,1): Hermione5x:= translate(display([HLsleeve5, HRsleeve5, HLhand5, HRhand5, Hwand5, sash, Htie, Hshirt, Hrobe, Hface8, HLfoot, HRfoot]),7.7,1): Hermione5:= display(lovepotion, Hermione4x1): Hermione6:= display(lovepotion, Hermione4x2): Hermione7:= display(lovepotion, Hermione4x3): Hermione8:= display(lovepotion, Hermione4x4): Hermione9:= translate(Hermione7,-1,0): Hermione10:= translate(Hermione8,-2,0): Hermione11:= translate(Hermione7,-3,0): Hermione12:= translate(Hermione8,-4,0): Hermione13:= translate(Hermione7,-5,0): Hermione14:= translate(display(lovepotion, Hermione4x5), -5,0): Hermione15:= translate(display(Hermione4x5), -5,0): Hermione16:= translate(display(Hermione3x5), -5,0): Hermione17:= translate(display(Hermione2x5), -5,0): Hermione18:= translate(display(Hermione1x5), -5,0): Hermione19:= translate(display(Hermione1x3), -5,0): Hermione20:= translate(display(Hermione1x6), -5,0): Hermione21:= translate(display(Hermione5x), -5,0): Hermione22:= translate(display(Hermione5x), -4,0): Hermione23:= translate(display(Hermione5x), -3,0): Hermione24:= translate(display(Hermione5x), -2,0): Hermione25:= translate(display(Hermione5x), -1,0): Hermione26:= translate(display(Hermione5x), 0,0): Hermione27:= translate(display(Hermione5x), 1,0): Hermione28:= translate(display(Hermione5x), 2,0): Hermione29:= translate(display(Hermione5x), 3,0): Hermione30:= translate(display(Hermione5x), 4,0): Hermione31:= translate(display(Hermione5x), 5,0): Hermione32:= translate(display(Hermione5x), 6,0): Hermione33:= translate(display(Hermione5x), 7,0): Hermione34:= translate(display(Hermione5x), 8,0): Hermione35:= translate(display(Hermione5x), 9,0): Rhead:= disk ([.5,6.5], 1.5, color="Beige"): RLeye:= ellipse ([0,6.8], .24, .36, color=black): RLpupil:= disk ([0,6.61], .17, color=blue): RLP:= disk ([0,6.61], .06, color=black): RReye:= ellipse ([1,6.8], .24, .36, color=black): RRpupil:= disk ([1,6.61], .17, color=blue): RRP:= disk ([1,6.61], .06, color=black): Rhair1:= arc([.5,6.5], 1.5, (0)*Pi .. Pi, color=red, thickness=2): Rhair2:= plot ([ [-1,6.65], [-.3,7.2], [-.1,7.5], [.3,7.3], [.8,7.7], [1.1,7.4], [1.3,7.5], [1.5,7], [1.6,7.1], [1.97,6.8] ], color=red, thickness=2): Rmouth:= disk ([.5,5.6], .2, color=black): Rsmile:= arc([.5,5.8], .3, (2)*Pi .. Pi, color=black): Rsmilee:= plot ([ [.2,5.8], [.8,5.8] ], color=black): Rshock:= disk ([.5,5.7], .22, color=black): Rface:= display([RLeye, RLP, RLpupil, RReye, RRP, RRpupil, Rhair1, Rhair2, Rsmile, Rsmilee, Rhead]): Rface2:= display([RLeye, RLP, RLpupil, RReye, RRP, RRpupil, Rhair1, Rhair2, Rshock, Rhead]): RLhand:= disk ([-2.48,.3], .4, color="Beige"): RRhand:= disk ([3.48,.3], .4, color="Beige"): RLsleeve:= polygon ([ [-1,4], [-2.6,1], [-2,0], [-1,1.1], [-1,4] ], color=orange): RRsleeve:= polygon ([ [2,4], [3.6,1], [3,0], [2,1.1], [2,4] ], color=orange): Rsweater:= polygon ([ [0,5], [1,5], [2,4], [2,-.5], [-1,-.5], [-1,4], [0,5] ], color=orange): RsweaterW:= polygon ([ [-.5,2.7], [-.5,.5], [0,.5], [.5,1.5], [1,.5], [1.5,.5], [1.5,2.7], [1,2.7], [1,1.2], [.5,2.2], [0,1.2], [0,2.7], [-.5,2.7] ], color=yellow): Rpants:= polygon ([ [-1,-.5], [-1.5,-5.5], [-.5,-5.5], [.5,-3], [1.5,-5.5], [2.5,-5.5], [2,-.5], [-1,-.5] ], color=black): RLfoot:= ellipse ([-1.2,-5.75], .6, .3, color=gray, filled=true): RRfoot:= ellipse ([2.2,-5.75], .6, .3, color=gray, filled=true): Rwand:= polygon ([ [-2.5,0], [-2.3,0], [-2.6,-3], [-2.5,0] ], color=brown): RLsleeve5:= polygon ([ [-1,4], [-4,4.3], [-3.95,3.2], [-1,2.7], [-1,4] ], color=orange): RLhand5:= disk ([-4.33,3.8], .4, color="Beige"): RRsleeve2:= polygon ([ [2,4], [4.2,1.5], [3.4,.5], [2,1.6], [2,4] ], color=orange): RRhand2:= disk ([4,.8], .4, color="Beige"): RRsleeve3:= polygon ([ [2,4], [4.5,2.3], [4.1,1.3], [2,2.4], [2,4] ], color=orange): RRhand3:= disk ([4.6,1.6], .4, color="Beige"): RRsleeve4:= polygon ([ [2,4], [4.9,3.1], [4.5,2], [2,2.7], [2,4] ], color=orange): RRhand4:= disk ([5,2.4], .4, color="Beige"): RRsleeve5:= polygon ([ [2,4], [5,4.3], [4.95,3.2], [2,2.7], [2,4] ], color=orange): RRhand5:= disk ([5.33,3.8], .4, color="Beige"): Ron:= display([Rface, RLsleeve, RRsleeve, RLhand, RRhand, Rwand, RsweaterW, Rsweater, Rpants, RLfoot, RRfoot]): Ron2:= display([Rface, RLsleeve, RRsleeve2, RLhand, RRhand2, Rwand, RsweaterW, Rsweater, Rpants, RLfoot, RRfoot]): Ron3:= display([Rface, RLsleeve, RRsleeve3, RLhand, RRhand3, Rwand, RsweaterW, Rsweater, Rpants, RLfoot, RRfoot]): Ron4:= display([Rface, RLsleeve, RRsleeve4, RLhand, RRhand4, Rwand, RsweaterW, Rsweater, Rpants, RLfoot, RRfoot]): Ron5:= display([Rface, RLsleeve, RRsleeve5, RLhand, RRhand5, Rwand, RsweaterW, Rsweater, Rpants, RLfoot, RRfoot]): Ron5x:= display([Rface, RLsleeve5, RRsleeve5, RLhand5, RRhand5, RsweaterW, Rsweater, Rpants, RLfoot, RRfoot]): Ronxx:= display([Rface2, RLsleeve, RRsleeve, RLhand, RRhand, RsweaterW, Rsweater, Rpants, RLfoot, RRfoot]): Rheart1:= translate(scale(LPheart, 13, 13), -3,6): Rheart2:= translate(scale(LPheart, 7, 7), 4,1): Rheart3:= translate(scale(LPheart, 9, 9), -3,-2): Rheart4:= translate(scale(LPheart, 8, 8), 3,7): Rheart5:= translate(scale(LPheart, 8, 8), -.5,1): Rheart6:= translate(scale(LPheart, 10, 10), 2.5,-3): Rheart7:= translate(scale(LPheartx, 9, 9), 2.5,2): Rheart8:= translate(scale(LPheartx, 10, 10), -3.5,2): Rheart9:= translate(scale(LPheartx, 11, 11), -1,-4): Rheart10:= translate(scale(LPheartx, 9, 9), 4.4,-2.2): Rheart11:= translate(scale(LPheartx, 9, 9), -.5,6): Hearts:=display(Rheart8, Rheart9, Rheart3, Rheart1, Rheart11, Rheart5, Rheart6, Rheart7, Rheart2, Rheart10, Rheart4): Rony1:= translate(Ron,-14,2): RH1:= display(translate(Ron,-14,2), translate(Hearts,-14,0)): Rony2:= translate(Ron,-13,2): Rony3:= translate(Ron,-12,2): RH3:= display(translate(Ron,-12,2), translate(Hearts,-12,0)): Rony4:= translate(Ron,-11,2): Rony5:= translate(Ron,-10,2): RH5:= display(translate(Ron,-10,2), translate(Hearts,-10,0)): Rony6:= translate(Ron,-9,2): Rony7:= translate(Ron,-8,2): RH7:= display(translate(Ron,-8,2), translate(Hearts,-8,0)): Rony8:= translate(Ron,-7,2): Rony9:= translate(Ron,-6,2): RH9:= display(translate(Ron,-6,2), translate(Hearts,-6,0)): Rony10:= translate(display(lovepotion),-5,0), translate(Ron2,-6,2): Rony11:= translate(display(Rony10),-1,0): Rony12:= translate(display(Rony10),-2,0): Rony13:= translate(display(Rony10),-3,0): Rony14:= translate(display(lovepotion),-7.3,.7), translate(Ron3,-9,2): Rony15:= translate(display(lovepotion),-6.9,1.6), translate(Ron4,-9,2): Rony16:= translate(display(lovepotion),-6.5,3), translate(Ron5,-9,2): Rony17:= translate(Ron,-5,2): Rony18:= translate(Ron,-4,2): RH18:= display(translate(Ron,-4,2), translate(Hearts,-4,0)): Rony19:= translate(Ron,-3,2): Rony20:= translate(Ron,-2,2): RH20:= display(translate(Ron,-2,2), translate(Hearts,-2,0)): Rony21:= translate(Ron,-1,2): Rony22:= translate(Ron,0,2): RH22:= display(translate(Ron,0,2), translate(Hearts,0,0)): Rony23:= translate(Ron,1,2): Rony24:= translate(Ron,2,2): RH24:= display(translate(Ron,2,2), translate(Hearts,2,0)): Rony25:= translate(Ron,3,2): Rony26:= translate(Ron,4,2): RH26:= display(translate(Ron,4,2), translate(Hearts,4,0)): Rony27:= translate(Ron,5,2): Rony28:= translate(Ron,6,2): RH28:= display(translate(Ron,6,2), translate(Hearts,6,0)): Rony29:= translate(Ron,7,2): Rony30:= translate(Ron,8,2): RH30:= display(translate(Ron,8,2), translate(Hearts,8,0)): Rony31:= translate(Ron,9,2): Rony32:= translate(Ron,10,2): RH32:= display(translate(Ron,10,2), translate(Hearts,10,0)): Rony33:= translate(Ron,11,2): Rony34:= translate(Ron,12,2): RH34:= display(translate(Ron,12,2), translate(Hearts,12,0)): Rony35:= translate(Ron,13,2): Rony36:= translate(Ron,14,2): RH36:= display(translate(Ron,14,2), translate(Hearts,14,0)): Rony37:= translate(Ron,15,2): FstSP1:= display(lovepotion, Hermy1, tablle): FstSP2:= display(lovepotion, Hermy2, tablle): FstSP3:= display(lovepotion, Hermy3, tablle): FstSP4:= display(lovepotion, Hermy4, tablle): HS1:= textplot([9,12, "Fred and George's\134nlove potion .. hmm..."], font=[TIMES, ROMAN, 16]): FstSP4x1:= display(HS1, lovepotion, Hermy4, tablle): FstSP4x2:= display(HS1, lovepotion, Hermy4, tablle): FstSP4x3:= display(HS1, lovepotion, Hermy4, tablle): FstSP5:= display(lovepotion, Hermy5, tablle): FstSP6:= display(lovepotion, Hermy6, tablle): FstSP7:= display(lovepotion, Hermione2, tablle): FstSP8:= display(lovepotion, Hermione3, tablle): FstSP9:= display(lovepotion, Hermione4, tablle): FstSP11:= display(Hermione5, tablle): FstSP14:= display(Hermione6, tablle): FstSP17:= display(Rony1, Hermione6, tablle): FstSP18:= display(Rony2, Hermione6, tablle): FstSP19:= display(Rony3, Hermione6, tablle): Hspeech2:= textplot([6.6,12, "Here Ron drink\134nthis, um, juice."], font=[TIMES, ROMAN, 16]): FstSP20:= display(Rony4, Hspeech2, Hermione9, tablle): FstSP21:= display(Rony5, translate(Hspeech2,-1,0), Hermione10, tablle): FstSP22:= display(Rony6, translate(Hspeech2,-2,0), Hermione11, tablle): FstSP23:= display(Rony7, translate(Hspeech2,-3,0), Hermione12, tablle): FstSP24:= display(Rony7, translate(Hspeech2,-4,0), Hermione13, tablle): RS1:= textplot([-6.5,11.5, "Yum."], font=[TIMES, ROMAN, 16]): FstSP25:= display(Rony8, RS1, Hermione14, tablle): FstSP26:= display(Rony9, translate(RS1,1,0), Hermione14, tablle): FstSP27:= display(Rony10, translate(RS1,1,0), Hermione14, tablle): FstSP28:= display(Rony11, Hermione15, tablle): FstSP29:= display(Rony12, Hermione15, tablle): FstSP30:= display(Rony13, Hermione16, tablle): FstSP31:= display(Rony14, Hermione17, tablle): FstSP32:= display(Rony15, Hermione18, tablle): FstSP33:= display(Rony16, Hermione18, tablle): Rspeech2:= textplot([-3,8, "*drinks*"], font=[TIMES, ROMAN, 15]): FstSP34:= display(Rony16, Rspeech2, Hermione18, tablle): FstSP35:= translate(display(Ron5x, Rheart8, Rheart9, Rheart3, Rheart1, Rheart11, Rheart5, Rheart6, Rheart7, Rheart2, Rheart10, Rheart4),5,0): FstSP36:= translate(display(Ron5x, Rheart11, Rheart1, Rheart9, Rheart3, Rheart5, Rheart10, Rheart8, Rheart4, Rheart2, Rheart7, Rheart6),5,0): FstSP37:= translate(display(Ron5x, Rheart3, Rheart9, Rheart1, Rheart8, Rheart11, Rheart7, Rheart4, Rheart10, Rheart2, Rheart6, Rheart5),5,0): FstSP38:= translate(display(Ron5x, Rheart5, Rheart4, Rheart8, Rheart9, Rheart1, Rheart3, Rheart11, Rheart10, Rheart2, Rheart6, Rheart7),5,0): FstSP39:= translate(display(Ron5x, Rheart9, Rheart5, Rheart4, Rheart11, Rheart1, Rheart3, Rheart8, Rheart7, Rheart2, Rheart6, Rheart10),5,0): FstSP40:= display(Rony6, Hermione19, tablle): FstSP41:= display(Rony7, translate(Hearts,-7,0), Hermione19, tablle): FstSP42:= display(Rony8, Hermione19, tablle): FstSP43:= display(Rony9, translate(Hearts,-5,0), Hermione19, tablle): FstSP44:= display(Rony17, Hermione19, tablle): FstSP45:= display(Rony18, translate(Hearts,-3,0), Hermione19, tablle): FstSP46:= display(Rony19, Hermione19, tablle): FstSP47:= display(Rony20, translate(Hearts,-1,0), Hermione19, tablle): FstSP48:= display(Rony21, Hermione19, tablle): FstSP49:= display(Rony22, translate(Hearts,0,0), Hermione19, tablle): FstSP50:= display(Rony23, Hermione19, tablle): FstSP51:= display(Rony24, translate(Hearts,1,0), translate(Hermionewohead,2.7,1), tablle): FstSP52:= display(Rony25, Hermione19, tablle): FstSP53:= display(Rony26, translate(Hearts,3,0), Hermione19, tablle): FstSP54:= display(Rony27, Hermione19, tablle): FstSP55:= display(Rony28, translate(Hearts,5,0), Hermione20, tablle): FstSP56:= display(Rony29, Hermione20, tablle): FstSP57:= display(Rony30, translate(Hearts,7,0), Hermione20, tablle): FstSP58:= display(Rony31, Hermione20, tablle): FstSP59:= display(Rony32, translate(Hearts,9,0), Hermione20, tablle): FstSP60:= display(Rony33, Hermione20, tablle): FstSP61:= display(Rony34, translate(Hearts,11,0), Hermione20, tablle): FstSP62:= display(Rony35, Hermione20, tablle): FstSP63:= display(Rony36, translate(Hearts,13,0), Hermione20, tablle): FstSP64:= display(Rony37, Hermione20, tablle): FstSP65:= display(Hermione20, tablle): FstSP69:= display(Hermione21, tablle): FstSP70:= display(Hermione22, tablle): FstSP71:= display(Hermione23, tablle): FstSP72:= display(Hermione24, tablle): FstSP73:= display(Hermione25, tablle): FstSP74:= display(Hermione26, tablle): FstSP75:= display(Hermione27, tablle): FstSP76:= display(Hermione28, tablle): FstSP77:= display(Hermione29, tablle): FstSP78:= display(Hermione30, tablle): FstSP79:= display(Hermione31, tablle): FstSP80:= display(Hermione32, tablle): FstSP81:= display(Hermione33, tablle): FstSP82:= display(Hermione34, tablle): FstSP83:= display(Hermione35, tablle): FstSP84:= display(tablle): Caption1a:= textplot([0,15, "Dedicated to all the"], font=[TIMES, ROMAN, 32]): Caption1b:= textplot([0,5, "Harry Potter "], font=[TIMES, ROMAN, 36]): Caption1c:= textplot([0,-5, "fans of the world ..."], font=[TIMES, ROMAN, 32]): Caption1:=display(Caption1a,Caption1b,Caption1c): Caption2a:= textplot([0,15, "and to J.K. Rowling,"], font=[TIMES, ROMAN, 32]): Caption2b:= textplot([0,5, "without whom this"], font=[TIMES, ROMAN, 32]): Caption2c:= textplot([0,-5, "would never be possible."], font=[TIMES, ROMAN, 32]): Caption2:= display(Caption2a,Caption2b,Caption2c): Caption3a:= textplot([0,15, "May the Harry Potter"], font=[TIMES, ROMAN, 32]): Caption3b:= textplot([0,5, "franchise live forever."], font=[TIMES, ROMAN, 32]): Caption3c:= textplot([0,-5, "GO HARRY POTTER!!!"], font=[TIMES, ROMAN, 34]): Caption3:= display(Caption3a,Caption3b,Caption3c): Caption4a:= textplot([0,15, "During that little incident,"], font=[TIMES, ROMAN, 32]): Caption4b:= textplot([0,5, "Harry was battling Voldemort"], font=[TIMES, ROMAN, 32]): Caption4c:= textplot([0,-5, "in the Great Hall..."], font=[TIMES, ROMAN, 32]): Caption4:= display(Caption4a,Caption4b,Caption4c): Vhead:= disk([.5,5.5], 1.5, color=white): Veye:= polygon ([ [1.1,6.4], [.6,6.5], [.1,6.5], [-.4,6.2], [-.7,5.7], [-.4,5.4], [.2,5.4], [.6,5.6], [.9,5.9], [1.1,6.4] ], color=red): Vpupil:= polygon ([ [.1,6.5], [.3,6], [.2,5.4], [0,5.8], [.1,6.5]], color=black): VSeye:= display([Vpupil, Veye]): VS:= translate(scale(VSeye,.5, .5),-.3,3): VLhand:= disk([-4.15,1.2], .4, color=white): VRhand:= disk([4.65,-.3], .4, color=white): VLsleeve:= polygon([ [0,4], [-1.8,2.8], [-4.8,2.1], [-3.1,.8], [-1,2], [0,4] ], color=black): VRsleeve:= polygon ([ [1,4], [2,1], [4,-1], [4.8,.7], [2.9,2], [1,4] ], color=black): Vrobe:= polygon ([ [0,4], [-1,2], [-1,-1], [-2,-4], [-3,-6], [-2.5,-5.5], [-2,-6], [-1.5,-5.5], [-1,-6], [-.5,-5.5], [0,-6], [.5,-5.5], [1,-6], [1.5,-5.5], [2,-6], [2.5,-5.5], [3,-6], [3.5,-5.5], [4,-6], [2.6,-3.5], [2,-1], [2,1], [1,4], [0,4] ], color=black): Vbutton1:= polygon ([ [0,2.2], [.1,2], [0,1.8], [-.1,2], [0,2.2] ], color=white): Vbutton2:= polygon ([ [0,1.2], [.1,1], [0,.8], [-.1,1], [0,1.2] ], color=white): Vbutton3:= polygon ([ [0,.2], [.1,0], [0,-.2], [-.1,0], [0,.2] ], color=white): Vbutton4:= polygon ([ [0,-.8], [.1,-1], [0,-1.2], [-.1,-1], [0,-.8] ], color=white): Vbutton5:= polygon ([ [0,-1.8], [.1,-2], [0,-2.2], [-.1,-2], [0,-1.8] ], color=white): VbuttonCon:= plot ([ [0,1.9], [0,-1.9] ], color=white): VButtons:= display([Vbutton1, Vbutton2, Vbutton3, Vbutton4, Vbutton5, VbuttonCon]): Vwand:= polygon ([ [-4.4,1.35], [-4.4,1.15], [-8,1.4], [-4.4,1.35] ], color=brown): VWspark1:= plot ([ [-8,1.7], [-8.4,1.9], [-8.3,1.7], [-9,2] ], color=green): VWspark2:= plot ([ [-8.2,1.5], [-8.6,1.6] ], color=green): VWspark3:= plot ([ [-8.3,1.3], [-8.8,1.2], [-8.6,1.4], [-9.2,1.4] ], color=green): VWspark4:= plot ([ [-8.2,1.2], [-8.5,1.1] ], color=green): Voldemort:= display([VS, VLsleeve, VRsleeve, VLhand, VRhand, Vwand, VButtons, Vrobe,Vhead]): Voldy:= display([VS, VLsleeve, VRsleeve, VLhand, VRhand, VButtons, Vrobe,Vhead]): HPtiet:= polygon ([ [.5,3.7], [.2,4], [.8,4], [.5,3.7], [0,2], [.5,1.3], [1,2], [.5,3.7] ], color=red): HPtieo1:= polygon ([ [.6,3.3], [.73,2.85], [.3,1.63], [.13,1.87], [.6,3.3] ], color=yellow): HPtieo2:= polygon ([ [.44,1.4], [.85,2.43], [.98,2], [.5,1.33], [.44,1.4] ], color=yellow): HPtie:= display([HPtieo1, HPtieo2, HPtiet]): HPhead:= disk ([.5,5.5], 1.5, color="Beige"): HPLeye:= ellipse ([0,5.8], .24, .36, color=black): HPLpupil:= disk ([-.05,5.75], .17, color=green): HPLP:= disk ([-.05,5.75], .06, color=black): HPReye:= ellipse ([1,5.8], .24, .36, color=black): HPRpupil:= disk ([1.05,5.75], .17, color=green): HPRP:= disk ([1.05,5.75], .06, color=black): HPscar:= plot ([ [.2,6.75], [.2,6.5], [0,6.6], [0,6.35] ], color=red): HLlens:= circle ([-.05,5.72], .4, color=black, thickness=2): HRlens:= circle ([1.05,5.72], .4, color=black, thickness=2): HN:= plot ([ [.35,5.7], [.65,5.7] ], color=black, thickness=2): HL:= plot ([ [-.45,5.75], [-.88,6.1] ], color=black, thickness=2): HR:= plot ([ [1.45,5.75], [1.88,6.1] ], color=black, thickness=2): HPshock:= disk ([.5,4.7], .22, color=black): HPstra:= plot ([ [.1,4.8], [.9,4.8] ], color=black): HParc:= arc([.5,4.8], .4, (2)*Pi .. Pi, color=black): HPsmile:= display(HPstra, HParc): HPhair1:= arc([.5,5.5], 1.5, (0)*Pi .. Pi, color=black, thickness=2): HPhair2:= plot ([ [-.95,5.9], [-.8,5.5], [-.7,6.35], [-.6,6], [-.25,6.75], [0,6.2], [.3,6.6], [.6,6.12], [.8,6.6], [1.1,6.35], [1.2,6.6], [1.5,6.05], [1.6,6.3], [1.8,5.7], [1.95,5.9] ], color=black, thickness=2): HPface1:= display([HPscar, HPLP, HPLpupil, HPRP, HPRpupil, HLlens, HRlens, HN, HL, HR, HPshock, HPhair1, HPhair2, HPhead]): HPface2:= display([HPscar, HPLP, HPLpupil, HPRP, HPRpupil, HLlens, HRlens, HN, HL, HR, HPstra, HPhair1, HPhair2, HPhead]): HPface3:= display([HPscar, HPLP, HPLpupil, HPRP, HPRpupil, HLlens, HRlens, HN, HL, HR, HPsmile, HPhair1, HPhair2, HPhead]): HPRhand:= disk ([4.9,.7], .4, color="Beige"): HPRsleeve:= polygon ([ [1.5,3.5], [2,3.1], [5.3,1.6], [3.9,.1], [2,1.4], [1.5,3.5] ], color=black): HPLrobe:= polygon ([ [-.8,3.8], [-1.5,-1], [-2.5,-2.5], [-3.2,-3.3], [-4.2,-3.8], [-2.2,-4.1], [-1.1,-4], [-1.1,0], [-.2,1.5], [-.8,3.8] ], color=black): HPRrobe:= polygon ([ [1.5,3.5], [2,1.7], [2,-1.5], [2.5,-2.6], [3.5,-4.5], [1.8,-4.8], [-.5,-4.5], [.5,-1], [.9,1.9], [1.5,3.5] ], color=black): HPshirt:= polygon ([ [0,4], [1,4], [2,3.1], [2,-1], [-1.1,-1], [-1.04,2.4], [-.8,3.8], [0,4] ], color=white): HPpants:= polygon ([ [-1.1,-1], [-1.1,-5], [0,-5], [.5,-2.5], [1,-5], [2,-5], [2,-1], [-1.1,-1] ], color=gray): HPLfoot:= ellipse ([-.7,-5.25], .6, .3, color=black): HPRfoot:= ellipse ([1.7,-5.25], .6, .3, color=black): HPLsleeve4:= polygon ([ [-.8,3.8], [-4.5,5], [-3.7,2.6], [-1,2.2], [-.8,3.8] ], color=black): HPLhand4:= disk ( [-4.3,3.6], .4, color="Beige"): HPwand4:= polygon ([ [-4.3,3.7], [-4.3,3.5], [-1,3.6], [-4,3.7] ], color=brown): HPLsleeve3:= polygon ([ [-.8,3.8], [-4.7,4], [-3.7,2], [-1,2.2], [-.8,3.8] ], color=black): HPLhand3:= disk ( [-4.5,2.9], .4, color="Beige"): HPwand3:= polygon ([ [-4.5,3], [-4.5,2.8], [-1.2,2.9], [-4.5,3] ], color=brown): HPLsleeve2:= polygon ([ [-.8,3.8], [-4.9,2.85], [-3.6,1.2], [-1,2.2], [-.8,3.8] ], color=black): HPLhand2:= disk ( [-4.5,1.8], .4, color="Beige"): HPwand2:= polygon ([ [-4.5,1.9], [-4.5,1.7], [-1.2,1.8], [-4.5,1.9] ], color=brown): HPLsleeve1:= polygon ([ [-.8,3.8], [-4.9,1.8], [-3.2,.5], [-1,2.2], [-.8,3.8] ], color=black): HPLhand1:= disk ( [-4.3,1], .4, color="Beige"): HPwand1:= polygon ([ [-4.3,1.1], [-4.3,.9], [-1,.8], [-4.3,1.1] ], color=brown): Harry1:= translate(display([HPface1, HPwand1, HPLsleeve1, HPRsleeve, HPLrobe, HPRrobe, HPLhand1, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Harry1x2:= translate(display([HPface2, HPwand1, HPLsleeve1, HPRsleeve, HPLrobe, HPRrobe, HPLhand1, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Harry1x3:= translate(display([HPface3, HPwand1, HPLsleeve1, HPRsleeve, HPLrobe, HPRrobe, HPLhand1, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Harry2:= translate(display([HPface1, HPwand2, HPLsleeve2, HPRsleeve, HPLrobe, HPRrobe, HPLhand2, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Harry2x2:= translate(display([HPface2, HPwand2, HPLsleeve2, HPRsleeve, HPLrobe, HPRrobe, HPLhand2, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Harry3:= translate(display([HPface1, HPwand3, HPLsleeve3, HPRsleeve, HPLrobe, HPRrobe, HPLhand3, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Harry3x2:= translate(display([HPface2, HPwand3, HPLsleeve3, HPRsleeve, HPLrobe, HPRrobe, HPLhand3, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Harry4:= translate(display([HPface1, HPwand4, HPLsleeve4, HPRsleeve, HPLrobe, HPRrobe, HPLhand4, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Harry4x2:= translate(display([HPface2, HPwand4, HPLsleeve4, HPRsleeve, HPLrobe, HPRrobe, HPLhand4, HPRhand, HPtie, HPshirt, HPpants, HPLfoot, HPRfoot]),-17,-.5): Ntiet:= polygon ([ [0,3.3], [-.2,3.5], [.2,3.5], [0,3.3], [-.5,1.7], [0,1], [.5,1.7], [0,3.3] ], color=red): Ntieo1:= polygon ([ [0, 3.28], [.11,2.9], [-.34,1.5], [-.49,1.71], [0,3.28] ], color=yellow): Ntieo2:= polygon ([ [-.17,1.26], [.23,2.53], [.36,2.1], [0,1.02], [-.17,1.26] ], color=yellow): Ntie:= display([Ntieo1, Ntieo2, Ntiet]): Nhead:= disk ([0,4.75], 1.25, color="Beige"): NLeye:= ellipse ([-.45,5], .2, .3, color=black): NLpupil:= disk ([-.45,4.85], .14, color=brown): NLP:= disk ([-.45,4.85], .05, color=black): NReye:= ellipse ([.45,5], .2, .3, color=black): NRpupil:= disk ([.45,4.85], .14, color=brown): NRP:= disk ([.45,4.85], .05, color=black): Nhair1:= arc([0,4.74], 1.25, (0)*Pi .. Pi, color=brown): Nhair2:= plot ([ [1.23,5], [.1,5.7], [-.2,5.4], [-.5,5.6], [-.6,5.3], [-.7,5.4], [-1.1,4.9], [-1.2,5.1] ], color=brown): Nstra:= plot ([ [-.3,4.1], [.3,4.1] ], color=black): Narc:= arc([0,4.1], .3, (2)*Pi .. Pi, color=black): Nsmile:= display(Nstra, Narc): Nface:= display([NLeye, NLP, NLpupil, NReye, NRP, NRpupil, Nhair1, Nhair2, Nsmile, Nhead]): NLhand:= disk ([-2.77,.07], .33, color="Beige"): NRhand:= disk ([2.77,.07], .33, color="Beige"): NLsleeve:= polygon ([ [-1.3,3.1], [-1.5,.4], [-2.2,-.7], [-3,1], [-1.3,3.1] ], color=black): NRsleeve:= polygon ([ [1.3,3.1], [1.5,.4], [2.2,-.7], [3,1], [1.3,3.1] ], color=black): NLrobe:= polygon ([ [-1.3,3.1], [-1,3.25], [-.2,1.5], [-.4,-2], [-.5,-3.5], [-1,-3.8], [-2.7,-4], [-2.2,-3], [-1.6,-1.3], [-1.5,.4], [-1.3,3.1] ], color=black): NRrobe:= polygon ([ [1.3,3.1], [1,3.25], [.2,1.5], [.4,-2], [1,-3.8], [2.7,-4], [2.2,-3], [1.6,-1.3], [1.5,.4], [1.3,3.1] ], color=black): Nrobe:= polygon ([ [-.35,-3.5], [.34,-3.55], [0,-1.5], [-.32,-3.4] ], color=black): Nshirt:= polygon ([ [-.7,3.4], [-.5,3.5], [-.2,3.5], [-.1,3.4], [-.6,2.9], [-.7,3.4], [-1.3,3.1], [-1.5,.4], [-1.5,-.5], [1.5,-.5], [1.5,.4], [1.3,3.1], [.7,3.4], [.6,2.9], [.1,3.4], [.2,3.5], [.5,3.5], [.7,3.4], [.5,3.5], [-.5,3.5] ], color=white): Nsweater:= polygon ([ [-1.2,3.15], [-1.3,3.1], [-1.5,.4], [-1.5,-.5], [1.5,-.5], [1.5,.4], [1.3,3.1], [1.2,3.15], [0,2], [-1.2,3.15] ], color=gray): Npants:= polygon ([ [-1.5,-.5], [-1.5,-4.5], [-.5,-4.5], [0,-1.5], [.5,-4.5], [1.5,-4.5], [1.5,-.5], [-1.5,-.5] ], color="SlateGray"): NLfoot:= ellipse ([-1.08,-4.75], .5, .25, color=gray, filled=true): NRfoot:= ellipse ([1.08,-4.75], .5, .25, color=gray, filled=true): NLsleeve5:= polygon ([ [-1.3,3.1], [-1.4,1.8], [-3,3], [-3,5], [-1.3,3.1] ], color=black): NLhand5:= disk ([-3.18,4], .33, color="Beige"): NRsleeve5:= polygon ([ [1.3,3.1], [1.4,1.8], [3,3], [3,5], [1.3,3.1] ], color=black): NRhand5:= disk ([3.18,4], .33, color="Beige"): Neville1:= display([Nface, Nrobe, NLsleeve, NRsleeve, NLhand, NRhand, NLrobe, NRrobe, Nsweater, Ntie, Nshirt, Npants, NLfoot, NRfoot]): Neville5:= display([Nface, Nrobe, NLsleeve5, NRsleeve5, NLhand5, NRhand5, NLrobe, NRrobe, Nsweater, Ntie, Nshirt, Npants, NLfoot, NRfoot]): GPtiet:= polygon ([ [0,3.3], [-.2,3.5], [.2,3.5], [0,3.3], [-.5,1.7], [0,1], [.5,1.7], [0,3.3] ], color=red): GPtieo1:= polygon ([ [0, 3.28], [.11,2.9], [-.34,1.5], [-.49,1.71], [0,3.28] ], color=yellow): GPtieo2:= polygon ([ [-.17,1.26], [.23,2.53], [.36,2.1], [0,1.02], [-.17,1.26] ], color=yellow): GPtie:= display(GPtieo1, GPtieo2, GPtiet): GPhead:= disk ([0,4.75], 1.25, color="Beige"): GPLeye:= ellipse ([-.45,5], .2, .3, color=black): GPLpupil:= disk ([-.45,4.85], .14, color=brown): GPLP:= disk ([-.45,4.85], .05, color=black): GPReye:= ellipse ([.45,5], .2, .3, color=black): GPRpupil:= disk ([.45,4.85], .14, color=brown): GPRP:= disk ([.45,4.85], .05, color=black): GPhair1:= arc([0,4.74], 1.25, (0)*Pi .. Pi, color=red): GPhair2:= plot([ [-.56,5.86], [-.7,5.27], [-.85,4.95], [-1.22,4.5] ], color=red): GPhair3:= plot([ [.56,5.86], [.7,5.27], [.85,4.95], [1.22,4.5] ], color=red): GPhair4:= plot([ [-.32,5.96], [-.35,5.65], [-.45,5.45], [-.56,5.37] ], color=red): GPhair5:= plot([ [-.1,6], [-.18,5.67], [-.15,5.57], [-.13,5.48] ], color=red): GPhair6:= plot([ [.32,5.96], [.35,5.65], [.45,5.45], [.56,5.37] ], color=red): GPhair7:= plot([ [.2,6], [.12,5.67], [.15,5.57], [.17,5.48] ], color=red): GPhair8:= polygon([ [-1.23,4.5], [-1.23,2], [1.23,2], [1.23,4.5] ], color=red): GPhair:= display(GPhair1, GPhair2, GPhair3, GPhair4, GPhair5, GPhair6, GPhair7): GPstra:= plot ([ [-.3,4.1], [.3,4.1] ], color=black): GParc:= arc([0,4.1], .3, (2)*Pi .. Pi, color=black): GPsmile:= display(GPstra, GParc): GPface:= display([GPLeye, GPLP, GPLpupil, GPReye, GPRP, GPRpupil, GPsmile, GPhair, GPhead, GPhair8]): GPLhand:= disk ([-2.77,.07], .33, color="Beige"): GPRhand:= disk ([2.77,.07], .33, color="Beige"): GPLsleeve:= polygon ([ [-1.3,3.1], [-1.5,.4], [-2.2,-.7], [-3,1], [-1.3,3.1] ], color=black): GPRsleeve:= polygon ([ [1.3,3.1], [1.5,.4], [2.2,-.7], [3,1], [1.3,3.1] ], color=black): GPLrobe:= polygon ([ [-1.3,3.1], [-.8,3.32], [-.2,1.5], [-.3,-3.9], [-.6,-4.1], [-1.6,-4.2], [-2.4,-3.8], [-1.8,-2.5], [-1.6,-1.3], [-1.5,.4], [-1.3,3.1] ], color=black): GPRrobe:= polygon ([ [1.3,3.1], [.8,3.32], [.2,1.5], [.3,-3.9], [.6,-4.1], [1.6,-4.2], [3,-4], [2.2,-3], [1.6,-1.3], [1.5,.4], [1.3,3.1] ], color=black): GPwand:= polygon ([ [2.7,-.2], [2.9,-.2], [3.1,-3], [2.7,-.2] ], color=brown): GPshirt:= polygon ([ [-1.3,3.1], [-1.5,.4], [-1.5,-.5], [1.5,-.5], [1.5,.4], [1.3,3.1], [.5,3.5], [-.5,3.5], [-1.3,3.1] ], color=white): GPpants:= polygon ([ [-1.5,-.5], [-1.5,-4.5], [-.5,-4.5], [0,-1.5], [.5,-4.5], [1.5,-4.5], [1.5,-.5] ], color=gray): GPLfoot:= ellipse ([-1.08,-4.75], .5, .25, color="SlateGray", filled=true): GPRfoot:= ellipse ([1.08,-4.75], .5, .25, color="SlateGray", filled=true): GPLsleeve5:= polygon ([ [-1.3,3.1], [-1.4,1.8], [-3,3], [-3,5], [-1.3,3.1] ], color=black): GPLhand5:= disk ([-3.18,4], .33, color="Beige"): GPRsleeve5:= polygon ([ [1.3,3.1], [1.4,1.8], [3,3], [3,5], [1.3,3.1] ], color=black): GPRhand5:= disk ([3.18,4], .33, color="Beige"): GPwand5:= polygon ([ [3.15,4.13], [3.35,4], [5,5.2], [3.15,4.13] ], color=brown): Ginny1:= display([GPLsleeve, GPRsleeve, GPLhand, GPRhand, GPwand, GPRrobe, GPLrobe, GPtie, GPshirt, GPpants, GPLfoot, GPRfoot, GPface]): Ginny5:= display([GPLsleeve5, GPRsleeve5, GPLhand5, GPRhand5, GPwand5, GPRrobe, GPLrobe, GPtie, GPshirt, GPpants, GPLfoot, GPRfoot, GPface]): Lhead:= disk ([0,4.75], 1.25, color="Beige"): LLeye:= ellipse ([-.45,5], .2, .3, color=black): LLpupil:= disk ([-.45,4.85], .14, color=gray): LLP:= disk ([-.45,4.85], .05, color=black): LReye:= ellipse ([.45,5], .2, .3, color=black): LRpupil:= disk ([.45,4.85], .14, color=gray): LRP:= disk ([.45,4.85], .05, color=black): Lstra:= plot ([ [-.3,4.1], [.3,4.1] ], color=black): Larc:= arc([0,4.1], .3, (2)*Pi .. Pi, color=black): Lsmile:= display(GPstra, GParc): HhairxL:= polygon ([ [-1.5,6.4], [-1.55,6.1], [-1.45,5.93], [-1.5,5.7], [-1.4,5.5], [-1.5,5.2], [-1.3,4.9], [-1.4,4.5], [-1.12,4.24], [-.36,5.16], [.36,5.16], [1.12,4.24], [1.4,4.5], [1.3,4.9], [1.5,5.2], [1.4,5.5], [1.5,5.7], [1.45,5.93], [1.55,6.1], [1.5,6.4], [-1.5,6.4] ],color=yellow): Lhair1:= arc([0,4.74], 1.25, (0)*Pi .. Pi, color=yellow): Lhair2:= plot([ [-.56,5.86], [-.7,5.27], [-.85,4.95], [-1.22,4.5] ], color=yellow): Lhair3:= plot([ [.56,5.86], [.7,5.27], [.85,4.95], [1.22,4.5] ], color=yellow): Lhair4:= plot([ [-.8,5.7], [-.47,5.45], [-.25,5.65], [0,5.45], [.25,5.65], [.47,5.45], [.8,5.7] ], color=yellow): Lhair5:= translate(scale(HhairxL, .79,.8),0,-.75): Lhair:= display(Lhair1, Lhair2, Lhair3, Lhair4): Lface:= display([LLeye, LLP, LLpupil, LReye, LRP, LRpupil, Lsmile, Lhair, Lhead, Lhair5]): LLhand:= disk ([-2.77,.07], .33, color="Beige"): LRhand:= disk ([2.77,.07], .33, color="Beige"): LLsleeve:= polygon ([ [-1.3,3.1], [-1.5,.4], [-2.2,-.7], [-3,1], [-1.3,3.1] ], color=black): LRsleeve:= polygon ([ [1.3,3.1], [1.5,.4], [2.2,-.7], [3,1], [1.3,3.1] ], color=black): Lwand:= polygon ([ [-2.7,-.2], [-2.9,-.2], [-3.1,-3], [-2.7,-.2] ], color=brown): LLfoot:= ellipse ([-1.08,-4.75], .5, .25, color="SlateGray", filled=true): LRfoot:= ellipse ([1.08,-4.75], .5, .25, color="SlateGray", filled=true): LLrobe:= polygon ([ [-1.3,3.1], [-1,3.25], [-.2,1.5], [-.4,-2], [-.5,-3.5], [-1,-3.8], [-2.7,-4], [-2.2,-3], [-1.6,-1.3], [-1.5,.4], [-1.3,3.1] ], color=black): LRrobe:= polygon ([ [1.3,3.1], [1,3.25], [.2,1.5], [.4,-2], [1,-3.8], [2.7,-4], [2.2,-3], [1.6,-1.3], [1.5,.4], [1.3,3.1] ], color=black): Lrobe:= polygon ([ [-.35,-3.5], [.34,-3.55], [0,-1.5], [-.32,-3.4] ], color=black): Lshirt:= polygon ([ [-1.3,3.1], [-1.5,.4], [-1.5,-.5], [1.5,-.5], [1.5,.4], [1.3,3.1], [.5,3.5], [-.5,3.5], [-1.3,3.1] ], color=white): Lpants:= polygon ([ [-1.5,-.5], [-1.5,-4.5], [-.5,-4.5], [0,-1.5], [.5,-4.5], [1.5,-4.5], [1.5,-.5], [-1.5,-.5] ], color=gray): LLsleeve5:= polygon ([ [-1.3,3.1], [-1.4,1.8], [-3,3], [-3,5], [-1.3,3.1] ], color=black): LLhand5:= disk ([-3.18,4], .33, color="Beige"): LRsleeve5:= polygon ([ [1.3,3.1], [1.4,1.8], [3,3], [3,5], [1.3,3.1] ], color=black): LRhand5:= disk ([3.18,4], .33, color="Beige"): Lwand5:= polygon ([ [-3.15,4.13], [-3.35,4], [-5,5.2], [-3.15,4.13] ], color=brown): Lscarf1:= polygon ([ [-1,3.25], [-.5,2.85], [0,2.7], [.5,2.85], [1,3.25], [.5,3.5], [-.5,3.5], [-1,3.25] ], color=blue): Lscarf2:= polygon ([ [.1,3], [.85,3.2], [.64,-.8], [-.23,-1.5], [.3,3] ], color=blue): LS2x1:= polygon ([ [.24,2.3], [.19,1.85], [.77,2.13], [.8,2.55], [.24,2.3] ], color=gray): LS2x2:= polygon ([ [.14,1.45], [.09,.97], [.72,1.19], [.73,1.66] ], color=gray): LS2x3:= polygon ([ [.03,.5], [-.03,.05], [.67,.19], [.69,.7] ], color=gray): LS2x4:= polygon ([ [-.09,-.43], [-.14,-.87], [.62,-.66], [.65,-.28] ], color=gray): Lscarfxx:= display(LS2x1, LS2x2, LS2x3, LS2x4, Lscarf1, Lscarf2): Luna1:= display([LLsleeve, LRsleeve, LLhand, LRhand, Lwand, Lscarfxx, LLrobe, LRrobe, Lshirt, Lpants, Lrobe, LLfoot, LRfoot, Lface]): Luna5:= display([LLsleeve5, LRsleeve5, LLhand5, LRhand5, Lwand5, Lscarfxx, LLrobe, LRrobe, Lshirt, Lpants, Lrobe, LLfoot, LRfoot, Lface]): VS1:= textplot([0,9, "At last,\134nHarry Potter."], font=[TIMES, ROMAN, 16]): MSA1:= display (VS1, Voldemort, Harry1): MSA4:= display(Voldemort, Harry1): MSA5:= display(Voldemort, Harry2): MSA6:= display(Voldemort, Harry3): MSA7:= display(Voldemort, Harry4): VS2:= textplot([0,9, "Avada kedavra!"], font=[TIMES, ROMAN, 16]): MSA8:= display(VS2, Voldemort, Harry4): Caption5:= textplot([-8,0, "*sizzle*"], font=[TIMES, ROMAN, 15]): MSA10:= display(Voldemort, Caption5, VWspark1, VWspark2, VWspark3, Harry4): MSA11:= display(Voldemort, Caption5, VWspark4, VWspark2, VWspark3, Harry4): MSA12:= display(Voldemort, Caption5, VWspark1, VWspark2, VWspark3, VWspark4, Harry4): Caption6:= textplot([.5,10, "?"], font=[TIMES, ROMAN, 35, bold]): MSA13:= display(Voldemort, Caption6, Harry4): HPS1:= textplot([-11,9, "Expelliarmus!"], font=[TIMES, ROMAN, 16]): MSA15:= display(Voldemort, Caption6, HPS1, Harry4): MSA16:= display(Voldemort, HPS1, Harry4): HPWspark1:= plot ([ [-17.9,3.1], [-8.05,1.4] ], color=red, thickness=3): MSA17:= display(HPWspark1, Voldemort, HPS1, Harry4): Vwandx1:= rotate(Vwand,1.75*Pi,[-5,2.5]): Vwandx2:= rotate(Vwand,1.75*Pi,[-7.6,1]): Vwandx3:= rotate(Vwand,1.75*Pi,[-10,-.5]): Vwandx4:= translate(rotate(Vwand,1.87*Pi,[0,0]), -1,-7.5): Vwandx5:= translate(rotate(Vwand,2*Pi,[-11,-10]), 0,-7): MSA19:= display(Vwandx1, Voldy, Harry4): MSA20:= display(Vwandx2, Voldy, Harry4): MSA21:= display(Vwandx3, Voldy, Harry4): MSA22:= display(Vwandx4, Voldy, Harry4): MSA23:= display(Vwandx5, Voldy, Harry4): RS3:= textplot([-10.7,22, "I LOVE YOU VOLDI!!!"], font=[TIMES, ROMAN, 16]): Ronx:= translate(Ron,-20,15): MSA24:= display(Vwandx5, Voldy, Harry4, translate(Ronx, 1,-3), translate(RS3, 1.8,-3)): MSA25:= display(translate(Ronx, 1.9,-3.5), translate(RS3, 2.7,-3.5),Vwandx5, Voldy, Harry4): MSA26:= display(translate(Ronx,3.8,-4), translate(RS3, 4.6,-4), Vwandx5, Voldy, Harry4): MSA27:= display(translate(Ronx,5.7,-4.5), translate(RS3, 6.5,-4.5), Vwandx5, Voldy, Harry4): MSA28:= display(translate(Ronx,7.6,-5), translate(RS3, 8.4,-5), Vwandx5, Voldy, Harry4): MSA29:= display(translate(Ronx,9.5,-5.5), translate(RS3, 10.3,-5.5), Vwandx5, Voldy, Harry4x2): MSA30:= display(translate(Ronx,11.4,-6), translate(RS3, 12,-6), Vwandx5, Voldy, Harry3x2): MSA31:= display(Voldy, translate(Ronx,13.3,-7), translate(RS3, 14.1,-7), Vwandx5, Harry2x2): MSA32:= display(Voldy, translate(Ronx,15.2,-8), translate(RS3, 16,-8), Vwandx5, Harry1x2): Her4mione:= translate(display(HLsleeve5, HRsleeve4, HLhand5, HRhand4, Hwand4, sash, Htie, Hshirt, Hrobe, Hface8, HLfoot, HRfoot),-19.5,14): Hermione5xx:= translate(display(HLsleeve5, HRsleeve5, HLhand5, HRhand5, Hwand5, sash, Htie, Hshirt, Hrobe, Hface8, HLfoot, HRfoot),-19.5,15): HS5:= textplot([-19,24.5, "NOOO!!!"], font=[TIMES, ROMAN, 16]): MSA33:= display(Voldy, Harry1x2, translate(HS5,0,-3.6), translate(Hermione5xx,0,-3.6), translate(Ronx,15.2,-8), Vwandx5): MSA34:= display(Voldy, Harry1x2, translate(HS5,1,-4.6), translate(Hermione5xx,1,-4.6), translate(Ronx,15.2,-8), Vwandx5): MSA35:= display(Voldy, Harry1x2, translate(HS5,2,-5.6), translate(Hermione5xx,2,-5.6), translate(Ronx,15.2,-8), Vwandx5): MSA36:= display(Voldy, Harry1x2, translate(HS5,3,-6.6), translate(Hermione5xx,3,-6.6), translate(Ronx,15.2,-8), Vwandx5): MSA37:= display(Voldy, Harry1x2, translate(Hermione5xx,3.8,-7.6), translate(Ronx,15.2,-8), Vwandx5): MSA38:= display(Voldy, Harry1x2, translate(Hermione5xx,4.6,-8.6), translate(Ronx,15.2,-8), Vwandx5): MSA39:= display(Voldy, Harry1x2, translate(Hermione5xx,5.4,-9.6), translate(Ronx,15.2,-8), Vwandx5): MSA40:= display(Voldy, Harry1x2, translate(Hermione5xx,5.4,-10.6), translate(Ronx,15.2,-8), Vwandx5): MSA41:= display(Voldy, Harry1x2, translate(Hermione5xx,5.4,-11.6), translate(Ronx,15.2,-8), Vwandx5): HS6:= textplot([-17,13, "Avada Kedavra!"], font=[TIMES, ROMAN, 16]): MSA42:= display(Voldy, Harry1x2, HS6, translate(Hermione5xx,5.4,-11.6), translate(Ronx,15.2,-8), Vwandx5): MSA43:= display(Voldy, Harry1x2, translate(HS6,0,-2), translate(Her4mione,5.4,-12.8), translate(Ronx,15.2,-8), Vwandx5): HWspark1:= plot ([ [-6.67,3.54], [.45,2.45] ], color=green, thickness=2): MSA44:= display(HWspark1, Voldy, Harry1x2, translate(HS6,0,0), translate(Her4mione,5.4,-12.8), translate(Ronx,15.2,-8), Vwandx5): MSA45:= display(HWspark1, Voldy, Harry1x2, translate(Her4mione,5.4,-12.8), translate(Ronx,15.2,-8), Vwandx5): Voldi1:= translate(rotate(Voldy,1.85*Pi,[-11,-10]), 0,5.5): Voldi2:= translate(rotate(Voldy,1.65*Pi,[-11,-10]), 3,13.5): Voldi3:= translate(rotate(Voldy,1.5*Pi,[-11,-10]), 8,16.5): MSA46:= display(Voldi1, Harry1x2, translate(Her4mione,5.4,-12.8), translate(Ronx,15.2,-8), Vwandx5): MSA47:= display(Voldi2, Harry1x2, translate(Her4mione,5.4,-12.8), translate(Ronx,15.2,-8), Vwandx5): MSA48:= display(Voldi3, Harry1x2, translate(Her4mione,5.4,-12.8), translate(Ronx,15.2,-8), Vwandx5): MSA49:= display(Voldi3, Harry1, translate(Her4mione,5.4,-12.8), translate(Ronxx,-5,7), Vwandx5): Her4xmione:= translate(display(HLsleeve5, HRsleeve4, HLhand5, HRhand4, Hwand4, sash, Htie, Hshirt, Hrobe, Hface2, HLfoot, HRfoot),-19.5,14): Her3xmione:= translate(display(HLsleeve, HRsleeve, HLhand, HRhand, Hwand, sash, Htie, Hshirt, Hrobe, Hface2, HLfoot, HRfoot),-19.5,14): MSA52:= display(Voldi3, Harry1x3, translate(Her4xmione,5.4,-12.8), translate(Ronx,15.2,-8), Vwandx5): MSA54:= display(Voldi3, Harry1x3, translate(Her3xmione,5.4,-12.8), translate(Ronx,15.2,-8), Vwandx5): MSA55:= display(Voldi3, translate(Harry1x3,1,0), translate(Her3xmione,5.6,-11.6), translate(Ronx,15.2,-8), Vwandx5): MSA56:= display(Voldi3, translate(Harry1x3,2,0), translate(Her3xmione,5.8,-10.4), translate(Ronx,15.2,-8), Vwandx5): MSA57:= display(Voldi3, translate(Harry1x3,3,0), translate(Her3xmione,6,-9.2), translate(Ronx,15.2,-8), Vwandx5): MSA58:= display(Voldi3, translate(Harry1x3,4,0), translate(Her3xmione,6.2,-8), translate(Ronx,15.2,-8), Vwandx5): MSA59:= display(Voldi3, translate(Harry1x3,5,0), translate(Her3xmione,6.7,-8), translate(Ronx,15.2,-8), Vwandx5): MSA60:= display(Voldi3, translate(Harry1x3,6,0), translate(Her3xmione,7.1,-8), translate(Ronx,15.2,-8), Vwandx5): MSA61:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5): GNYELL:= textplot([8.9,16, "Yay Voldemort's dead!!"], font=[TIMES, ROMAN, 16]): GNLYELL:= textplot([13,16, "Yay Voldemort's dead!!"], font=[TIMES, ROMAN, 16]): GCaption:= textplot([9,10, "*POP*"], font=[TIMES, ROMAN, 15]): NCaption:= textplot([17,12, "*POP*"], font=[TIMES, ROMAN, 15]): LCaption:= textplot([20,10, "*POP*"], font=[TIMES, ROMAN, 15]): MSA62:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny1, 5,7), GCaption): MSA64:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny1, 5,7), translate(Neville1,12.5,8), NCaption): MSA65:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny5, 5,7), translate(Neville1,12.5,8)): MSA66:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny5, 5,7), translate(Neville5,12.5,8), GNYELL): MSA68:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny1, 5,7), translate(Neville1,12.5,8), GNYELL): MSA71:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny5, 5,7), translate(Neville5,12.5,8), translate(Luna1,20,3), LCaption): MSA72:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny1, 5,7), translate(Neville1,12.5,8), translate(Luna1,21,4)): MSA73:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny1, 5,7), translate(Neville1,12.5,8), translate(Luna1,22,5)): MSA74:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny1, 5,7), translate(Neville1,12.5,8), translate(Luna1,22,6), GNLYELL): MSA75:= display(Voldi3, translate(Harry1x3,7,0), translate(Her3xmione,7.7,-8), translate(Ronx,15.2,-8), Vwandx5, translate(Ginny5, 5,7), translate(Neville5,12.5,8), translate(Luna5,22,6), GNLYELL): Ftiet:= polygon ([ [0,3.3], [-.2,3.5], [.2,3.5], [0,3.3], [-.5,1.7], [0,1], [.5,1.7], [0,3.3] ], color=red): Ftieo1:= polygon ([ [0, 3.28], [.11,2.9], [-.34,1.5], [-.49,1.71], [0,3.28] ], color=yellow): Ftieo2:= polygon ([ [-.17,1.26], [.23,2.53], [.36,2.1], [0,1.02], [-.17,1.26] ], color=yellow): Ftie:= display([Ftieo1, Ftieo2, Ftiet]): Fhead:= disk ([0,4.75], 1.25, color="Beige"): FLeye:= ellipse ([-.45,5], .2, .3, color=black): FLpupil:= disk ([-.45,4.85], .14, color=brown): FLP:= disk ([-.45,4.85], .05, color=black): FReye:= ellipse ([.45,5], .2, .3, color=black): FRpupil:= disk ([.45,4.85], .14, color=brown): FRP:= disk ([.45,4.85], .05, color=black): Fhair1:= arc([0,4.74], 1.25, (0)*Pi .. Pi, color=red): Fhair2:= plot ([ [1.23,5], [.1,5.7], [-.2,5.4], [-.5,5.6], [-.6,5.3], [-.7,5.4], [-1.1,4.9], [-1.2,5.1] ], color=red): Fstra:= plot ([ [-.3,4.1], [.3,4.1] ], color=black): Farc:= arc([0,4.1], .3, (2)*Pi .. Pi, color=black): Fsmile1:= display(Fstra, Farc): Fface:= display(Fhair1, Fhair2, FLeye, FLP, FLpupil, FReye, FRP, FRpupil, Fhair1, Fhair2, Fsmile1, Fhead): FLhand:= disk ([-2.4,0], .33, color="Beige"): FRhand:= disk ([2.4,0], .33, color="Beige"): FLsleeve:= polygon ([ [-1.5,3], [-2.7,.4], [-2,0], [-1.5,.8], [-1.5,3] ], color=white): FRsleeve:= polygon ([ [1.5,3], [2.7,.4], [2,0], [1.5,.8], [1.5,3] ], color=white): Fshirt:= polygon ([ [-.7,3.4], [-.5,3.5], [-.2,3.5], [-.1,3.4], [-.6,2.9], [-.7,3.4], [-1.5,3], [-1.5,-.5], [1.5,-.5], [1.5,3], [.7,3.4], [.6,2.9], [.1,3.4], [.2,3.5], [.5,3.5], [.7,3.4], [.5,3.5], [-.5,3.5] ], color=white): Fpants:= polygon ([ [-1.5,-.5], [-1.5,-4.5], [-.5,-4.5], [0,-1.5], [.5,-4.5], [1.5,-4.5], [1.5,-.5] ], color=black): Fpocket:= plot ([ [-1.2,-1.5], [-.5,-1.5] ], color=gray): Fwand:= polygon ([ [-1,-1], [-.8,-1], [-.83,-1.5], [-.98,-1.5], [-1,-1] ], color=brown): FLfoot:= ellipse ([-1.08,-4.75], .5, .25, color=gray, filled=true): FRfoot:= ellipse ([1.08,-4.75], .5, .25, color=gray, filled=true): Fred1:= display([Fface, Ftie, FLsleeve, FRsleeve, FLhand, FRhand, Fshirt, Fpocket, Fwand, Fpants, FLfoot, FRfoot]): Gtiet:= polygon ([ [0,3.3], [-.2,3.5], [.2,3.5], [0,3.3], [-.5,1.7], [0,1], [.5,1.7], [0,3.3] ], color=red): Gtieo1:= polygon ([ [0, 3.28], [.11,2.9], [-.34,1.5], [-.49,1.71], [0,3.28] ], color=yellow): Gtieo2:= polygon ([ [-.17,1.26], [.23,2.53], [.36,2.1], [0,1.02], [-.17,1.26] ], color=yellow): Gtie:= display([Ftieo1, Ftieo2, Ftiet]): Ghead:= disk ([0,4.75], 1.25, color="Beige"): GLeye:= ellipse ([-.45,5], .2, .3, color=black): GLpupil:= disk ([-.45,4.85], .14, color=brown): GLP:= disk ([-.45,4.85], .05, color=black): GReye:= ellipse ([.45,5], .2, .3, color=black): GRpupil:= disk ([.45,4.85], .14, color=brown): GRP:= disk ([.45,4.85], .05, color=black): Ghair1:= arc([0,4.74], 1.25, (0)*Pi .. Pi, color=red): Ghair2:= plot ([ [-1.23,5], [-.1,5.7], [.2,5.4], [.5,5.6], [.6,5.3], [.7,5.4], [1.1,4.9], [1.2,5.1] ], color=red): Gstra:= plot ([ [-.3,4.1], [.3,4.1] ], color=black): Garc:= arc([0,4.1], .3, (2)*Pi .. Pi, color=black): Gsmile1:= display(Gstra, Garc): Gface:= display([GLeye, GLP, GLpupil, GReye, GRP, GRpupil, Ghair1, Ghair2, Gsmile1, Ghead]): GLhand:= disk ([-2.4,0], .33, color="Beige"): GRhand:= disk ([2.4,0], .33, color="Beige"): GLsleeve:= polygon ([ [-1.5,3], [-2.7,.4], [-2,0], [-1.5,.8], [-1.5,3] ], color=gray): GRsleeve:= polygon ([ [1.5,3], [2.7,.4], [2,0], [1.5,.8], [1.5,3] ], color=gray): Gshirt:= polygon ([ [-.7,3.4], [-.5,3.5], [-.2,3.5], [-.1,3.4], [-.6,2.9], [-.7,3.4], [-1.5,3], [-1.5,-.5], [1.5,-.5], [1.5,3], [.7,3.4], [.6,2.9], [.1,3.4], [.2,3.5], [.5,3.5], [.7,3.4], [.5,3.5], [-.5,3.5] ], color=white): Gsweater:= polygon ([ [-1.2,3.15], [-1.5,3], [-1.5,-.5], [1.5,-.5], [1.5,3], [1.2,3.15], [0,2], [-1.2,3.15] ], color=gray): Gpants:= polygon ([ [-1.5,-.5], [-1.5,-4.5], [-.5,-4.5], [0,-1.5], [.5,-4.5], [1.5,-4.5], [1.5,1.5] ], color=black): GLfoot:= ellipse ([-1.08,-4.75], .5, .25, color=gray, filled=true): GRfoot:= ellipse ([1.08,-4.75], .5, .25, color=gray, filled=true): Gpocket:= plot ([ [-1.2,-1.5], [-.5,-1.5] ], color=gray): Gwand:= polygon ([ [-1,-1], [-.8,-1], [-.83,-1.5], [-.98,-1.5], [-1,-1] ], color=brown): George1:= translate(display([Gface, Gsweater, Gtie, GLsleeve, GRsleeve, GLhand, GRhand, Gshirt, Gpocket, Gwand, Gpants, GLfoot, GRfoot]), 7,0): Hermione5xx:= translate(scale(Hermione5x, .8,.8),-23,-1.75): HWSA1:= display([Hermione5xx, Fred1, George1]): HS3:= textplot([-15,9, "You shouldn't leave love potions lying around!!!!"], font=[TIMES, ROMAN, 16]): HWSA2:= display(translate(Hermione5xx,1,0), HS3, Fred1, George1): HWSA3:= display(translate(Hermione5xx,2,0), translate(HS3,1,0), Fred1, George1): HWSA4:= display(translate(Hermione5xx,3,0), translate(HS3,2,0), Fred1, George1): HWSA5:= display(translate(Hermione5xx,4,0), translate(HS3,3,0), Fred1, George1): HWSA6:= display(translate(Hermione5xx,5,0), translate(HS3,4,0), Fred1, George1): HS4a:= textplot([-12,10, "I'm a prefect!"], font=[TIMES, ROMAN, 16]): HS4b:= textplot([-12,8, "I'll confiscate all your products!"], font=[TIMES, ROMAN, 16]): HS4:= display(HS4a, HS4b): HWSA7:= display(translate(Hermione5xx,6,0), HS4, Fred1, George1): HWSA8:= display(translate(Hermione5xx,7,0), translate(HS4,1,0), Fred1, George1): HWSA9:= display(translate(Hermione5xx,8,0), translate(HS4,2,0), Fred1, George1): HWSA10:= display(translate(Hermione5xx,9,0), translate(HS4,3,0), Fred1, George1): HWSA11:= display(translate(Hermione5xx,10,0), translate(HS4,4,0), Fred1, George1): HWSA12:= display(translate(Hermione5xx,11,0), translate(HS4,5,0), Fred1, George1): HWSA13:= display(translate(Hermione5xx,12,0), Fred1, George1): HWSA14:= display(translate(Hermione5xx,13,0), Fred1, George1): HWSA15:= display(translate(Hermione5xx,14,0), Fred1, George1): HWSA16:= display(translate(Hermione5xx,15,0), Fred1, George1): HWSA17:= display(translate(Hermione5xx,16,0), Fred1, George1): HWSA18:= display(translate(Hermione5xx,17,0), Fred1, George1): HWSA19:= display(translate(Hermione5xx,18,0), Fred1, George1): HWSA20:= display(translate(Hermione5xx,19,0), Fred1, George1): HWSA21:= display(translate(Hermione5xx,20,0), Fred1, George1): HWSA22:= display(translate(Hermione5xx,21,0), Fred1, George1): HWSA23:= display(translate(Hermione5xx,22,0), Fred1, George1): HWSA24:= display(translate(Hermione5xx,23,0), Fred1, George1): HWSA25:= display(translate(Hermione5xx,24,0), Fred1, George1): HWSA26:= display(translate(Hermione5xx,25,0), Fred1, George1): HWSA27:= display(translate(Hermione5xx,26,0), Fred1, George1): HWSA28:= display(translate(Hermione5xx,27,0), Fred1, George1): HWSA29:= display(translate(Hermione5xx,28,0), Fred1, George1): HWSA30:= display(translate(Hermione5xx,29,0), Fred1, George1): HWSA31:= display(translate(Hermione5xx,30,0), Fred1, George1): HWSA32:= display(translate(Hermione5xx,31,0), Fred1, George1): HWSA33:= display(translate(Hermione5xx,32,0), Fred1, George1): HWSA34:= display(translate(Hermione5xx,33,0), Fred1, George1): HWSA35:= display(translate(Hermione5xx,34,0), Fred1, George1): HWSA36:= display(translate(Hermione5xx,35,0), Fred1, George1): HWSA37:= display(Fred1, George1): FS1:= textplot([-9.4,6.3, "I guess ickle Ronnie\134ngot the love potion."], font=[TIMES, ROMAN, 16]): HWSA38:= display(FS1, Fred1, George1): GS1:= textplot([13.3,9.3, "Romilda Vane's in\134nfor a big sursprise."], font=[TIMES, ROMAN, 16]): HWSA42:= display(GS1, Fred1, George1): Dhead:= disk ([.7,6.5], 1.6, color="Beige"): Dhato:= polygon ([ [2.2,7.5], [-.8,7.5], [.7,12], [2.2,7.5] ], color=blue): DLeye:= ellipse ([.2,7], .24, .37, color=black): DLpupil:= disk ([.2,6.84], .19, color=blue): DLP:= disk ([.2,6.84], .06, color=black): DReye:= ellipse ([1.2,7], .24, .37, color=black): DRpupil:= disk ([1.2,6.84], .19, color=blue): DRP:= disk ([1.2,6.84], .06, color=black): Dnose:= plot ([ [.75,6.6], [.85,6.1], [.55,6.1], [.65,6.6] ], color=black): DRlen:= arc([1.2,6.4], .25, (2)*Pi .. Pi): DLlen:= arc([.2,6.4], .25, (2)*Pi .. Pi): Dlen:= plot ([ [-.7,7.3], [-.05,6.4], [1.45,6.4], [2.1,7.3] ], color=black): Dstram:= plot([ [.4,5.6], [1.1,5.6] ], color=black): Dsmile:= arc([.75,5.6], .33, (2)*Pi .. Pi): Dbeard:= polygon ([ [.2,5.8], [1.3,5.8], [1.2,2], [.75,0], [.3,2], [.2,5.8] ], color=white): Dface:= display([DLeye, DLP, DLpupil, DReye, DRP, DRpupil, Dnose, DRlen, DLlen, Dlen, Dstram, Dsmile, Dbeard, Dhead]): Dstar1:= polygon ([ [1.45,1.65], [.9,1], [1.7,1], [1,1.66], [1.3,.5], [1.45,1.65] ], color=white): Dstar2:= translate(display(Dstar1),-1.7,-1): Dstar3:= translate(display(Dstar1),-1,2): Dstar4:= translate(display(Dstar1),2.3,-.5): Dstar5:= translate(display(Dstar1),1.4,2): Dstar6:= translate(display(Dstar1),-4,-.5): Dstar7:= translate(display(Dstar1),-3,1.5): Dstar8:= translate(display(Dstar1),3.8,0): Dstar9:= translate(display(Dstar1),-1,-3.5): Dstar10:= translate(display(Dstar1),-2.7,-5): Dstar11:= translate(display(Dstar1),.5,-3): Dstar12:= translate(display(Dstar1),0,-5): Dstar13:= translate(display(Dstar1),2,-5.7): Dstar14:= translate(display(Dstar1),-.1,7.3): Dstar15:= translate(display(Dstar1),-.6,9): Dstar16:= translate(display(Dstar1),-1.2,7): Dhat:= display([Dstar14, Dstar15, Dstar16, Dhato]): DLsleevo:= polygon ([ [0,5], [-5.2,.7], [-2.5,-.9], [-1,1.5], [0,5] ], color=blue): DLsleeve:= display([Dstar6, Dstar7, DLsleevo]): DRsleevo:= polygon ([ [1.5,5], [2,1.9], [3.5,-1], [6.1,1.2], [1.5,5] ], color=blue): DRsleeve:= display([Dstar4, Dstar5, Dstar8, DRsleevo]): DRhand:= disk ([4.95,-.2], .5, color="Beige"): Dwand:= polygon ([ [5,-.5], [5.2,-.3], [7,-3], [5,-.5] ], color=brown): Drobo:= polygon ([ [1.5,5], [2,1.9], [2.4,0], [3.3,-2], [5.2,-5.2], [3.5,-5.45], [1.7,-5.2], [0,-5.2], [-1.5,-5.1], [-3.2,-5.3], [-1.5,-2.5], [-1.2,-1], [-1,1.5], [0,5], [1.5,5] ], color=blue): Drobe:= display([Dstar1, Dstar2, Dstar3, Dstar9, Dstar10, Dstar11, Dstar12, Dstar13, Drobo]): DLhand:= disk ([-4,-.3], .5, color="Beige"): Dhair:= polygon ([ [2.2,7.5], [2.2,0], [.75,-2], [-.8,0], [-.8,7.5], [2.2,7.5] ], color=white): DRsleeve2:= polygon ([ [1.5,5], [1.9,2.43], [4.5,0], [6.7,2.2], [1.5,5] ], color=blue): DRhand2:= disk ([5.7,.64], .5, color="Beige"): Dwand2:= polygon ([ [5.85,.42], [6.05,.6], [8.2,-1.5], [5.85,.42] ], color=brown): DRsleeve3:= polygon ([ [1.5,5], [1.87,2.8], [5,.9], [7.1,3.4], [1.5,5] ], color=blue): DRhand3:= disk ([6.3,1.82], .5, color="Beige"): Dwand3:= polygon ([ [6.5,1.7], [6.6,1.9], [9,.4], [6.5,1.7] ], color=brown): DRsleeve4:= polygon ([ [1.5,5], [1.84,3.05], [5.2,2], [7.3,4.5], [1.5,5] ], color=blue): DRhand4:= disk ([6.45,2.9], .5, color="Beige"): Dwand4:= polygon ([ [6.7,2.7], [6.7,2.95], [9.5,2.6], [6.7,2.7] ], color=brown): Dumbledore1:= display(Dhat, Dface, DLsleeve, DLhand, DRsleeve, DRhand, Dwand, Drobe, Dhair): Dumbledore2:= display(Dhat, Dface, DLsleeve, DLhand, DRsleeve2, DRhand2, Dwand2, Drobe, Dhair): Dumbledore3:= display(Dhat, Dface, DLsleeve, DLhand, DRsleeve3, DRhand3, Dwand3, Drobe, Dhair): Dumbledore4:= display(Dhat, Dface, DLsleeve, DLhand, DRsleeve4, DRhand4, Dwand4, Drobe, Dhair): Dspark1:= plot ([ [9.7,2.8], [10.3,3] ], color=red): Dspark2:= plot ([ [9.7,2.6], [10.2,2.6] ], color=red): Dspark3:= plot ([ [9.7,2.4], [10.3,2.3] ], color=red): Dumbledore5:= display(Dhat, Dface, DLsleeve, DLhand, DRsleeve4, DRhand4, Dwand4, Dspark1, Dspark2, Dspark3, Drobe, Dhair): banner:= polygon ([ [-8.6,4], [-9.1,4.8], [-9,4], [-9.7,4.2], [-8.9,3.8], [-8.4,1.8], [-8.4,-2.8], [-8.9,-4.8], [-9.8,-5.2], [-8.8,-5], [-9,-5.9], [-8.3,-4.9], [-5.5,-4.4], [5.5,-4.5], [8.6,-4], [9.1,-4.8], [9,-4], [9.7,-4.2], [8.9,-3.8], [8.4,-2.8], [8.4,1.8], [8.9,3.8], [9.8,4.2], [8.8,4], [9,4.9], [8.3,3.9], [5.5,3.6], [-5.5,3.6], [-8.6,4] ], color="VioletRed"): bannerT:= plot ([ [-8,1.9], [-7.5,2.5], [-4.7,2.5], [-4.2,1.9], [-4.7,2.5], [-5.9,2.5], [-5.7,-.3], [-6.2,.5], [-6,-2.2], [-6.4,-1.6], [-6.3,-3] ], color=black, thickness=4): bannerh:= plot ([ [-3.9,2.5], [-3.9,-3], [-3.9,-.3], [-2.8,.8], [-2.2,0], [-2.2,-3], [-2.5,-3.5] ], color=black, thickness=4): bannere:= plot ([ [-1.9,-1], [-1,.8], [.2,-.5], [-.2,-1], [-1.9,-1], [-1.9,-2], [-.9,-3], [.2,-2.5] ], color=black, thickness=4): bannerE:= plot ([ [4.5,1.8], [4,2.5], [1.5,2.5], [1,1.8], [1.5,2.5], [1.5,-.3], [3.3,-.3], [1.5,-.3], [1.5,-3], [1,-2.5], [1.5,-3], [4,-3], [4.3,-2.2] ], color=black, thickness=4): bannern:= plot ([ [4.3,-.3], [4.7,.1], [4.7,-3], [4.7,-1], [5.5,.1], [6.1,-.2], [6.1,-3], [5.8,-3.5] ], color=black, thickness=4): bannerd:= plot ([ [7.9,-.5], [7.3,0], [6.4,-.9], [6.4,-2.5], [7.3,-3], [7.9,-2.5], [7.9,-3], [7.9,2.5] ], color=black, thickness=4): TheEnd:= translate(scale(display(banner, bannerT, bannerh, bannere, bannerE, bannern, bannerd),1.3,1.3),22,7): LtSP1:= translate(Dumbledore1,-11,0): LtSP2:= translate(Dumbledore1,-12,0): LtSP3:= translate(Dumbledore1,-13,0): LtSP4:= translate(Dumbledore1,-14,0): LtSP5:= translate(Dumbledore1,-15,0): LtSP6:= translate(Dumbledore1,-16,0): LtSP7:= translate(Dumbledore1,-17,0): LtSP8:= translate(Dumbledore1,-18,0): LastSP1:= translate(Dumbledore1,-10,0): LastSP2:= translate(Dumbledore2,-10,0): LastSP3:= translate(Dumbledore3,-10,0): LastSP4:= translate(Dumbledore4,-10,0): LastSP5:= translate(Dumbledore5,-10,0): LastSP6:= display(translate(Dumbledore5,-10,0), translate(TheEnd,-10,0)): speed 3 display([Caption1, Caption1, Caption1, Caption1, Caption1, Caption1, Caption1, Caption1, Caption1, Caption2, Caption2, Caption2, Caption2, Caption2, Caption2, Caption2, Caption2, Caption2, Caption3, Caption3, Caption3, Caption3, Caption3, Caption3, Caption3, Caption3, Caption3, FstSP1, FstSP2, FstSP3, FstSP4, FstSP4x1, FstSP4x2, FstSP4x3, FstSP4x3, FstSP4x3, FstSP4x3, FstSP5, FstSP6, FstSP7, FstSP8, FstSP9, FstSP9, FstSP11, FstSP11, FstSP11, FstSP14, FstSP14, FstSP14, FstSP17, FstSP18, FstSP19, FstSP20, FstSP21, FstSP22, FstSP23, FstSP24, FstSP24, FstSP24, FstSP24, FstSP24, FstSP24, FstSP25, FstSP26, FstSP27, FstSP27, FstSP28, FstSP29, FstSP30, FstSP31, FstSP32, FstSP33, FstSP34, FstSP34, FstSP35, FstSP36, FstSP37, FstSP38, FstSP39, FstSP40, FstSP41, FstSP42, FstSP43, FstSP44, FstSP45, FstSP46, FstSP47, FstSP48, FstSP49, FstSP50, FstSP51, FstSP52, FstSP53, FstSP54, FstSP55, FstSP56, FstSP57, FstSP58, FstSP59, FstSP60, FstSP61, FstSP62, FstSP63, FstSP64, FstSP65, FstSP65, FstSP65, FstSP65, FstSP69, FstSP70, FstSP71, FstSP72, FstSP73, FstSP74, FstSP75, FstSP76, FstSP77, FstSP78, FstSP79, FstSP80, FstSP81, FstSP82, FstSP83, FstSP84, Caption4, Caption4, Caption4, Caption4, Caption4, Caption4, Caption4, Caption4, Caption4, MSA1, MSA1, MSA1, MSA1, MSA1, MSA4, MSA5, MSA6, MSA7, RH1, Rony2, RH3, Rony4, RH5, Rony6, RH7, Rony8, RH9, Rony17, MSA8, MSA8, MSA8, MSA8, MSA10, MSA11, MSA12, MSA10, MSA13, MSA13, RH18, Rony19, RH20, Rony21, RH22, Rony23, RH24, Rony25, RH26, Rony27, MSA15, MSA16, MSA16, MSA17, MSA17, MSA19, MSA20, MSA21, MSA22, MSA23, RH28, Rony29, RH30, Rony31, RH32, Rony33, RH34, Rony35, RH36, Rony37, HWSA1, HWSA2, HWSA3, HWSA4, HWSA5, HWSA6, HWSA6, HWSA6, HWSA7, HWSA8, HWSA9, HWSA10, HWSA11, HWSA12, HWSA12, HWSA12, HWSA13, HWSA14, HWSA15, HWSA16, HWSA17, HWSA18, HWSA19, HWSA20, HWSA21, HWSA22, HWSA23, HWSA24, HWSA25, HWSA26, HWSA27, HWSA28, HWSA29, HWSA30, HWSA31, HWSA32, HWSA33, HWSA34, HWSA35, HWSA36, HWSA37, HWSA38, HWSA38, HWSA38, HWSA38, HWSA38, HWSA38, HWSA38, HWSA38, HWSA42, HWSA42, HWSA42, HWSA42, HWSA42, HWSA42, HWSA42, HWSA42, MSA24, MSA25, MSA26, MSA27, MSA28, MSA29, MSA30, MSA31, MSA32, MSA33, MSA34, MSA35, MSA36, MSA37, MSA38, MSA39, MSA40, MSA41, MSA42, MSA43, MSA43, MSA43, MSA44, MSA45, MSA46, MSA47, MSA48, MSA49, MSA49, MSA49, MSA52, MSA52, MSA54, MSA55, MSA56, MSA57, MSA58, MSA59, MSA60, MSA61, MSA62, MSA62, MSA64, MSA64, MSA65, MSA66, MSA66, MSA68, MSA66, MSA68, MSA71, MSA71, MSA72, MSA73, MSA74, MSA75, MSA74, MSA75, MSA74, MSA75,LtSP8, LtSP7, LtSP6, LtSP5, LtSP4, LtSP3, LtSP2, LtSP1, LastSP1, LastSP2, LastSP3, LastSP4, LastSP5, LastSP6],insequence=true,scaling=constrained,axes=none);