restart: with(plots): with(plottools): Dylan T.The Life of Pacman pac1 := sector([0,0], 1.75, 0.01*Pi..1.99*Pi, color=yellow): pac2 := sector([0,0], 1.75, 0.1*Pi..1.9*Pi, color=yellow): pac3 := sector([0,0], 1.75, 0.25*Pi..1.75*Pi, color=yellow): rpac1 := rotate(sector([0,0], 1.75, 0.01*Pi..1.99*Pi, color=yellow),135): rpac2 := rotate(sector([0,0], 1.75, 0.1*Pi..1.9*Pi, color=yellow),135): rpac3 := rotate(sector([0,0], 1.75, 0.25*Pi..1.75*Pi, color=yellow),135): ghosthead := disk ([0,0], 2 , color="DarkBlue",style=polygon): ghostbody := polygon ([[-2,-2],[-2,0],[2,0],[2,-2]], color="DarkBlue", style=polygon ): ghostleg1 := disk ([-1.575,-2], .425 , color="DarkBlue",style=polygon): ghostleg2 := disk ([-0.525,-2], .425 , color="DarkBlue",style=polygon): ghostleg3 := disk ([0.525,-2], .425 , color="DarkBlue",style=polygon): ghostleg4 := disk ([1.575,-2], .425 , color="DarkBlue",style=polygon): spacer1 := disk ([1.04,-2], 0.09 , color="black"): spacer2 := disk ([0,-2], 0.09 , color="black"): spacer3 := disk ([-1.04,-2], 0.09 , color="black"): smileline1 := display (line([-1.5,-1.5],[-1,-1], color="DarkKhaki", thickness=2)): smileline2 := display (line([-1,-1],[-0.5,-1.5], color="DarkKhaki",thickness=2)): smileline3 := display (line([-0.5,-1.5],[0,-1], color="DarkKhaki",thickness=2)): smileline4 := display (line([0,-1],[0.5,-1.5], color="DarkKhaki",thickness=2)): smileline5 := display (line([0.5,-1.5],[1,-1], color="DarkKhaki",thickness=2)): smileline6 := display (line([1,-1], [1.5,-1.5], color="DarkKhaki",thickness=2)): eye1 := disk ([-0.75,0.5], .375, color="DarkKhaki", style=polygon): eye2 := disk ([0.75,0.5], .375, color="DarkKhaki", style=polygon): ghost := display (eye1,eye2,spacer1,spacer2,spacer3,ghosthead,ghostbody,ghostleg1,ghostleg2,ghostleg3,ghostleg4,smileline1,smileline2,smileline3,smileline4,smileline5,smileline6): ghostscaled := scale(ghost, 0.75,0.75): background := polygon([[-10,10],[-10,0],[10,0],[10,10]],scaling=constrained): blueline1 := display (line ([-10,0.5],[10,0.5],color="DarkBlue",thickness=3)): blueline2 := display (line ([-10,4.5],[10,4.5],color="DarkBlue",thickness=3)): blueline3 := display (line ([-10,5.5],[10,5.5],color="DarkBlue",thickness=3)): blueline4 := display (line ([-10,9.5],[10,9.5],color="DarkBlue",thickness=3)): compframe1 := display (polygon([[-13,13],[-13,-2],[13,-2],[13,13]],scaling=constrained, color="DarkKhaki",style=polygon)): compframe2 := polygon([[-13,-2],[-10,-2],[-10,13],[-13,13]],scaling=constrained, color="DarkKhaki",style=polygon): compframe3 := polygon([[13,-2],[10,-2],[10,13],[13,13]],scaling=constrained, color="DarkKhaki",style=polygon): stand := display(polygon([[-4,-2.5],[4,-2.5],[0.5,-2],[-0.5,-2]],color="DimGray",style=polygon)): p0 := disk ([-8,7.5], 0.2 , color="khaki"): p1 := disk ([-7,7.5], 0.2 , color="khaki"): p2 := disk ([-6,7.5], 0.2 , color="khaki"): p3 := disk ([-5,7.5], 0.2 , color="khaki"): p4 := disk ([-4,7.5], 0.2 , color="khaki"): p5 := disk ([-3,7.5], 0.2 , color="khaki"): p6 := disk ([-2,7.5], 0.2 , color="khaki"): p7 := disk ([-1,7.5], 0.2 , color="khaki"): p8 := disk ([0,7.5], 0.2 , color="khaki"): p9 := disk ([1,7.5], 0.2 , color="khaki"): p10 := disk ([2,7.5], 0.2 , color="khaki"): p11 := disk ([3,7.5], 0.2 , color="khaki"): p12 := disk ([4,7.5], 0.2 , color="khaki"): p13 := disk ([5,7.5], 0.2 , color="khaki"): p14 := disk ([6,7.5], 0.2 , color="khaki"): p15 := disk ([7,7.5], 0.2 , color="khaki"): p16 := disk ([8,7.5], 0.2 , color="khaki"): p17 := disk ([9,7.5], 0.2 , color="khaki"): bp := disk ([-9,2.5], 0.2 , color="khaki"): bp0 := disk ([-8,2.5], 0.2 , color="khaki"): bp1 := disk ([-7,2.5], 0.2 , color="khaki"): bp2 := disk ([-6,2.5], 0.2 , color="khaki"): bp3 := disk ([-5,2.5], 0.2 , color="khaki"): bp4 := disk ([-4,2.5], 0.2 , color="khaki"): bp5 := disk ([-3,2.5], 0.2 , color="khaki"): bp6 := disk ([-2,2.5], 0.2 , color="khaki"): bp7 := disk ([-1,2.5], 0.2 , color="khaki"): bp8 := disk ([0,2.5], 0.2 , color="khaki"): bp9 := disk ([1,2.5], 0.2 , color="khaki"): bp10 := disk ([2,2.5], 0.2 , color="khaki"): bp11 := disk ([3,2.5], 0.2 , color="khaki"): bp12 := disk ([4,2.5], 0.2 , color="khaki"): bp13 := disk ([5,2.5], 0.2 , color="khaki"): bp14 := disk ([6,2.5], 0.2 , color="khaki"): bp15 := disk ([7,2.5], 0.2 , color="khaki"): bp16 := disk ([8,2.5], 0.2 , color="khaki"): bp17 := disk ([9,2.5], 0.2 , color="khaki"): jsball :=display( disk ([0,-2] ,0.75, color=red)): jsstick := display (line([0,-2.75],[0,-6]),thickness=10): jsbox:= polygonplot([[-1.5,-5.8],[-1.5,-7],[1.5,-7],[1.5,-5.8]],color=black): joystickhandle:= display([jsstick,jsball],scaling=constrained): jsright:=display (rotate (jsstick,Pi*1.9,[0,-6]),rotate(jsball,Pi*1.9,[0,-6]),scaling=constrained): jsleft:=display (rotate (jsstick,-Pi*1.9,[0,-6]),rotate(jsball,-Pi*1.9,[0,-6]),scaling=constrained): screen := display(blueline1,blueline2,blueline3,blueline4, background): fr1 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac3, -10, 7.5),translate (ghostscaled, 0,7.7),p0,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr2 := display (jsbox,jsright,stand,compframe2,compframe3, translate(pac2, -9, 7.5),translate (ghostscaled, 1,7.7),p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr3 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac1, -8, 7.5),translate (ghostscaled, 2,7.7),p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr4 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, -7, 7.5),translate (ghostscaled, 3,7.7),p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr5 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac3, -6, 7.5),translate (ghostscaled, 4,7.7),p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr6 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, -5, 7.5),translate (ghostscaled, 5,7.7),p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr7 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac1, -4, 7.5),translate (ghostscaled, 6,7.7),p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr8 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, -3, 7.5),translate (ghostscaled, 7,7.7),p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr9 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac3, -2, 7.5),translate (ghostscaled, 8,7.7),p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr10 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, -1, 7.5),translate (ghostscaled, 9,7.7),p9,p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr11 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac1, 0, 7.5),translate (ghostscaled, 10,7.7),p10,p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr12 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, 1, 7.5),p11,p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr13 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac3, 2, 7.5),translate (ghostscaled, 11,2.7),p12,p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17,screen,compframe1): fr14 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, 3, 7.5),translate (ghostscaled, 10,2.7),p13,p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr15 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac1, 4, 7.5),translate (ghostscaled, 9,2.7),p14,p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr16 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, 5, 7.5),translate (ghostscaled, 8,2.7),p15,p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr17 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac3, 6, 7.5),translate (ghostscaled, 7,2.7),p16,p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr18 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, 7, 7.5),translate (ghostscaled, 6,2.7),p17,bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr19 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac1, 8, 7.5),translate (ghostscaled, 5,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr20 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, 9, 7.5),translate (ghostscaled, 4,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr21 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac3, 10, 7.5),translate (ghostscaled, 3,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr22 := display(jsbox,jsright,stand,compframe2,compframe3, translate(pac2, 11, 7.5),translate (ghostscaled, 2,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr23 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(ghostscaled, 1,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16,bp17, screen,compframe1): fr24 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac1, 10, 2.5),translate (ghostscaled, 0,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15,bp16, screen,compframe1): fr25 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, 9, 2.5),translate (ghostscaled, -1,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14,bp15, screen,compframe1): fr26 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac3, 8, 2.5),translate (ghostscaled, -2,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13,bp14, screen,compframe1): fr27 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, 7, 2.5),translate (ghostscaled, -3,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12,bp13, screen,compframe1): fr28 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac1, 6, 2.5),translate (ghostscaled, -4,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11,bp12, screen,compframe1): fr29 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, 5, 2.5),translate (ghostscaled, -5,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10,bp11, screen,compframe1): fr30 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac3, 4, 2.5),translate (ghostscaled, -6,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10, screen,compframe1): fr31 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, 3, 2.5),translate (ghostscaled, -7,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9, screen,compframe1): fr32 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac1, 2, 2.5),translate (ghostscaled, -8,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8, screen,compframe1): fr33 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, 1, 2.5),translate (ghostscaled, -9,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6,bp7, screen,compframe1): fr34 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac3, 0, 2.5),translate (ghostscaled, -10,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5,bp6, screen,compframe1): fr35 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, -1, 2.5),translate (ghostscaled, -11,2.7),bp, bp0,bp1,bp2,bp3,bp4,bp5, screen,compframe1): fr36 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac1, -2, 2.5),bp, bp0,bp1,bp2,bp3,bp4,screen,compframe1): fr37 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, -3, 2.5),translate (ghostscaled, -11,7.7),bp, bp0,bp1,bp2,bp3, screen,compframe1): fr38 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac3, -4, 2.5),translate (ghostscaled, -10,7.7),bp, bp0,bp1,bp2, screen,compframe1): fr39 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, -5, 2.5),translate (ghostscaled, -9,7.7) ,bp, bp0,bp1, screen,compframe1): fr40 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac1, -6, 2.5),translate (ghostscaled, -8,7.7) ,bp, bp0,screen,compframe1): fr41 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, -7, 2.5),translate (ghostscaled, -7,7.7) ,bp , screen,compframe1): fr42 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac3, -8, 2.5),translate (ghostscaled, -6,7.7) ,screen,compframe1): fr43 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, -9, 2.5),translate (ghostscaled, -5,7.7) , screen,compframe1): fr44 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac1, -10, 2.5),translate (ghostscaled, -4,7.7), screen,compframe1): fr45 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(rpac2, -11, 2.5),translate (ghostscaled, -3,7.7), screen,compframe1): fr46 := display(jsbox,jsleft,stand,compframe2,compframe3,translate (ghostscaled, -2,7.7), screen,compframe1): fr47 := display(jsbox,jsleft,stand,compframe2,compframe3, translate(pac1, -12, 2.5),translate (ghostscaled, -1,7.7), screen,compframe1): display ([fr1,fr2,fr3,fr4,fr5,fr6,fr7,fr8,fr9,fr10,fr11,fr12,fr13,fr14,fr15,fr16,fr17,fr18,fr19,fr20,fr21,fr22,fr23,fr24,fr25,fr26,fr27,fr28,fr29,fr30,fr31,fr32,fr33,fr34,fr35,fr36,fr37,fr38,fr39,fr40,fr41,fr42,fr43,fr44,fr45,fr46,fr47],view=[-12..12,-10..12], insequence=true, scaling=constrained, axes=none); #speed=8