restart:with(plots):with(plottools): brick:=rectangle([0,0], [5,2], color=gray): wall:= brick, translate(brick, 0,2), translate(brick, 0,4), translate(brick, 0,6), translate(brick, 0,6), translate(brick, 0,8), translate(brick, 5,2), translate(brick, 5,2), translate(brick, 5,0), translate(brick, 5,4), translate(brick, 5,6), translate(brick, 5,8): lever:=plot([[0,2.5],[.75,5]],thickness=7,color=gold): leverbox:=rectangle([-.5,-.5],[.5,5.5], color=red): leverslit:=plot([[0,0],[0,5]], color=black,thickness=5): boxslit:=display(leverbox,leverslit): fulllever:=translate(display(boxslit, lever), 9,2): body:=plot([[2,0],[1,1.5],[0,0],[1,1.5],[1,3], [2,3], [0,3], [1,3], [1,4]],color= black ): with (plots): head:=disk([1,5], 1, color=tan): eye:=disk([.5,5.3], .25, color=white): eye2:=disk([1.5,5.3], .25, color=white): you:=plot([ [.5,4.5] , [.75,4.2] , [1.25,4.2], [1.5,4.5] ], color=red): nose:=disk([1,4.8], .25, color=black): person:= [nose, eye, eye2,you, head, body]: eye3:=disk([6.5,5.3], .25, color=white): eye4:=disk([7.5,5.3], .25, color=white): head2:=disk([7,5], 1, color=tan): you2:=plot([ [6.5,4.5] , [6.75,4.2] , [7.25,4.2], [7.5,4.5] ], color=red): nose2:=disk([7,4.8], .25, color=black): body2:=plot([[8,0],[7,1.5],[6,0],[7,1.5],[7,3], [8,3], [6,3], [7,3], [7,4]],color= black ): with (plots): person2:= [ nose2, eye3,eye4,you2, head2,body2]: kbtx:=textplot([5, 8, "KBTX"], font = [TIMES, BOLD, 20],color= blue): p1:=display(translate(boxslit,9,2),kbtx,person,person2, wall,fulllever,leverbox,scaling=constrained): welcome:=textplot([2.75,7,"welcome to KBTX news channel 3"], font = [TIMES, ROMAN, 16]): p2:=display(translate(boxslit,9,2),kbtx,welcome,person,person2, wall,fulllever,leverbox,scaling=constrained): sports:=textplot([2.75,7,"Now for sports"], font = [TIMES, ROMAN, 16]): p3:=display(translate(boxslit,9,2),kbtx,sports,person,person2, wall,fulllever,leverbox,scaling=constrained): bla:=textplot([2.75,7,"Bla Bla Bla", font = [TIMES, ROMAN, 12]]): bla2:=textplot([6,7,"Bla Bla Bla", font = [TIMES, ROMAN, 12]]): p4:=display(translate(boxslit,9,2),kbtx,bla,bla2,person,person2, wall,fulllever,leverbox,scaling=constrained): weather:=textplot([2.75,7,"now for weather"], font = [TIMES, ROMAN, 16]): p5:=display(translate(boxslit,9,2),kbtx,weather,person,person2, wall,fulllever,leverbox,scaling=constrained): snow:=textplot([5,7,"one hundred persent chance of snow"], font = [TIMES, ROMAN, 16]): p6:=display(translate(boxslit,9,2),kbtx,snow,person,person2, wall,fulllever,leverbox,scaling=constrained): blizzard:=textplot([5,5,"o no it's a blizzard"],font=[TIMES,bold,50]): p7:=display(translate(boxslit,9,2),kbtx,blizzard,person,person2, wall,fulllever,leverbox,scaling=constrained): body3:=plot([[8,0],[7,1.5],[6,0],[7,1.5],[7,3], [8,3], [9.5,6], [8,3], [6,3], [7,3], [7,4]],color= black ): p7:=display(translate(boxslit,9,2),kbtx ,person,person2,body3 ,wall,fulllever,leverbox,scaling=constrained): p8:=display([blizzard],scaling=constrained): speed 4 display([p1,p2,p2,p2,p2,p1,p1,p1,p3,p3,p3,p3,p4,p4,p4,p4,p4,p4,p5,p5,p5,p5,p5,p6,p6,p6,p6,p6,p6,p6,p6,p7,p7,p7,p7,p7,p7,p7,p8,p8,p8,p8,p8,p8],insequence=true,scaling=constrained,axes=none);