restart:with(plots):with(plottools): Ian M.The Robot that Ate the 8 head := plot([[0,0], [5,0], [5,5], [0,5], [0,0]]): eye1 := plot([[1,3],[2,3], [2,4], [1,4], [1,3]]): eye2 := plot([[3,3], [4,3],[4,4],[3,4],[3,3]]): eyes := ([eye1, eye2]): evilsmile := plot([[1.5,2], [1.5,1.5], [2,1], [3,1], [3.5,1.5], [3.5,2]], scaling=constrained): evilteeth := plot([[2,1], [2.25,1.5], [2.5,1], [2.75,1.5], [3,1], [3.5,1.5], [3.5,2], [3,1.75], [3.5,1.5], [3,1], [2,1], [1.5,1.5], [2,1.75], [1.5,2]]): nose := circle([2.5, 2.5], .25): ear1 := plot([[-.5,3.5], [0,3.5], [0,2.5], [-.5,2.5], [-.5,3.5]]): ear2 := plot([[5,2.5], [5.5, 2.5], [5.5,3.5], [5,3.5]]): ears := ([ear1, ear2]): neck := plot([[1,0],[1,-1],[4,-1],[4,0]]): body := plot([[1, -1], [-1,-1], [-1,-7], [6,-7], [6,-1], [4,-1]]): leg1 := plot([[.5,-7], [.5,-12], [1.5,-12], [1.5, -7]]): leg2 := plot([[3.5,-7], [3.5,-12], [4.5,-12], [4.5,-7]]): legs := ([leg1, leg2]): arm1 := plot([[-1,-2], [-6,-2], [-6,-3], [-1,-3]]): arm2 := plot([[6,-2], [11,-2], [11,-3], [6,-3]]): arms := (arm1, arm2): backdisplaybodytop := plot([[0,0], [-1,-1], [6,-1], [7,1], [5,1]]): backdisplaybodybottom := plot([[7,1], [7,-6], [6,-7], [-1,-7]]): body3d := ([backdisplaybodytop, backdisplaybodybottom]): leg13d := plot([[2,-7],[2,-11.5], [1.5,-12]]): leg23d := plot([[5,-7], [5,-11.5], [4.5,-12]]): legs3d := ([leg13d, leg23d]): arm13d := plot([[-1,-1.5], [-5.5,-1.5], [-6,-2]]): arm23d := plot([[6,-1.5], [10.5,-1.5], [11,-2]]): arms3d := (arm13d, arm23d): head3d := plot([[0,5], [1,6], [6,6], [6,.5], [5,0]]): full2drobot := display(head, eyes, evilsmile, evilteeth, nose, ears, neck, body, legs, arms): additionrobot := plot([[10,-10], [10,-9], [11,-9], [11,-10], [12,-10], [12,-11], [11,-11], [11,-12], [10,-12], [10,-11], [9,-11], [9,-10], [10,-10]]): subtractionrobot := plot([[14,-10], [16,-10], [16,-11], [14,-11], [14,-10]]): multiplicationrobotline1 := plot([[18,-12], [20,-9], [21,-9], [19,-12], [18,-12]]): multiplicationrobotline2 := plot([[18,-9], [20,-12], [21,-12], [19,-9], [18,-9]]): multiplicationrobot := display(multiplicationrobotline1, multiplicationrobotline2): divisionrobotline1 := plot([[23,-9], [25,-9], [25,-10], [23,-10], [23,-9]]): divisionrobotcircle := circle([24, -10.5], .25): divisionrobotline2 := plot([[23,-11], [25,-11], [25,-12], [23,-12], [23,-11]]): divisionrobot := display(divisionrobotcircle, divisionrobotline1, divisionrobotline2, color=blue, color=blue, color=brown): addition := plot([[-1,2], [-1,4], [1,4], [1,2], [3,2], [3,0], [1,0], [1,-2], [-1,-2], [-1,0], [-3,0], [-3,2], [-1,2]]): addeye1 := circle([-.5, 3.5], .25): addeye2 := circle([.5, 3.5], .25): addeyes := display(addeye1, addeye2): addsmile:=arc([0,3.5],1,1.25*Pi..1.75*Pi): display(addition, addeyes, addsmile): wakeupaddition := plot([[-1,0], [-3,0], [-3,2], [-1,2], [-1,4], [1,4], [1,2], [3,2], [3,0], [1,0]]): addwakeupeye1 := circle([-.5, 3.5], .25): addwakeupeye2 := circle([.5, 3.5], .25): addwakeupsmile:=arc([0,3.5],1,1.25*Pi..1.75*Pi): addwakeupeyes := display(addwakeupeye1, addwakeupeye2): addwakeupnose := circle([0, 3], .10): addblanket := plot([[-4,0], [4,0], [4,-6], [-4,-6], [-4,0]]): additionwakingup := display(wakeupaddition, addwakeupsmile, addwakeupeyes, addwakeupnose, addblanket): p1 := display(disk([9, -7], 1, color=yellow), view =[-6..14, -12..4]): p2 := disk([8, -6], 1, color=yellow): p3 := disk([7, -5], 1, color=yellow): p4 := disk([6, -4], 1, color=yellow): p5 := disk([5, -3], 1, color=yellow): p6 := disk([4, -2], 1, color=yellow): p7 := disk([3, -1], 1, color=yellow): p8 := disk([2, -1], 1, color=yellow): p9 := disk([0, 0], 1, color=yellow): p10 := (additionwakingup): addyawn := disk([0, 2.5], .30): addwakeuplegs := plot([[-1,0], [-1,-2], [1,-2], [1,0]]): addyawntext := display(textplot([3,3, "yaaawn"], align={below,right}, font=[Times,16])): p9 := display(wakeupaddition, addwakeupeyes, addwakeupnose, addyawn, addwakeuplegs, addyawntext): adddisastertext := display(textplot([3,5, "It's such a nice day!\134nIt would be a shame\134nif a hungry number-eating\134nrobot-beast came around\134nand destroyed numberville."], align={below,right}, font=[Times,16])): p10 := display(wakeupaddition, addwakeupeyes, addwakeupnose, addwakeupsmile, addwakeuplegs, adddisastertext): p11 := display(full2drobot): num8helptext := display(textplot([5,-8.5, "aaaaaah! Help!"], align={below,right}, font=[Times,16])): num8 := display(textplot([12,-10, "8"], align={below}, font=[Times,24])): p12 := display(num8, full2drobot, num8helptext): full2drobotarmcomedown1 := plot([[6,-2], [7,-2], [12,-10.25], [11,-10.25], [6,-3]]): p13 := display(num8, head, eyes, evilsmile, evilteeth, nose, ears, neck, body, legs, arm1, full2drobotarmcomedown1, num8helptext): num8insky := display(textplot([11,-2, "8"], align={below, left}, font=[Times,24])): p14 := display(full2drobot, num8insky): p15 := display(full2drobot, translate(num8insky, -1, 1)): p16 := display(full2drobot, translate(num8insky, -2, 2)): p17 := display(full2drobot, translate(num8insky, -3, 3)): p18 := display(full2drobot, translate(num8insky, -4, 4)): p19 := display(full2drobot, translate(num8insky, -5, 5)): p20 := display(full2drobot, translate(num8insky, -5.5, 5.5)): p21 := display(full2drobot, translate(num8insky, -6, 6)): p22 := display(full2drobot, translate(num8insky, -7, 5.5)): p23 := display(full2drobot, translate(num8insky, -7.5, 5)): p24 := display(full2drobot): display([p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p10, p10, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24], insequence=true, axes=none); # speed=2 LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYlLUkjbW9HRiQ2LVEifkYnLyUsbWF0aHZhcmlhbnRHUSdub3JtYWxGJy8lJmZlbmNlR1EmZmFsc2VGJy8lKnNlcGFyYXRvckdGNC8lKXN0cmV0Y2h5R0Y0LyUqc3ltbWV0cmljR0Y0LyUobGFyZ2VvcEdGNC8lLm1vdmFibGVsaW1pdHNHRjQvJSdhY2NlbnRHRjQvJSdsc3BhY2VHUSYwLjBlbUYnLyUncnNwYWNlR0ZDLyUrZXhlY3V0YWJsZUdGNEYv