restart:with(plots):with(plottools): leo_s The Fight p:=disk([5.5,8], 1, color=purple): u:=plot([[5.5,8],[5.5,3]]): n:=plot([[4,0],[5.5,3],[7,0]]): w:=plot([[0,0],[15,0],[15,15],[0,15],[0,0]]): o1:=plot([[3,4],[5.5,5],[8,4]]): o2:=plot([[3,4],[5.5,5],[6.5,4],[8,5]]): per1b:=display([u,p,n,o2]): o3:=plot([[3,4],[6.5,6.5],[8,8]]): per1c:=display([u,p,n,o3]): i:=plot([[7,4],[8.5,5],[10,4]]): c:=plot([[8,0],[8.5,3],[9,0]]): e:=plot([[8.5,8],[8.5,3]]): r:=disk([8.5,8], 1, color=purple): per2a:=display([r,e,c,i]): per1a:=display([u,p,n,o1]): p1:=display([per1a,per2a,w]): p2:=display([per1b,per2a,w]): p3:=display([per1c,per2a,w]): p4:=display({translate(per1c, 0, 0), translate(per2a, 0, 1),w }): c2:=plot([[8,0],[8.25,3],[8.5,2],[8.5,3],[8.5,2],[8.75,3],[9,0]]): i2:=plot([[7,4],[7.75,5.5],[8.5,5],[9.25,5.5],[10,4]]): i3:=plot([[7,6],[8.5,5],[10,6]]): per2c:=display([r,e,c2,i2]): per2b:=display([r,e,c2,i3]): p5:=display({translate(per1c, 0, 0), translate(per2a, 0, 2),w }): p6:=display({translate(per1b, 0, 0), translate(per2a, 0, 3),w }): p7:=display({translate(per1a, 0, 0), translate(per2a, 0, 4),w }): p8:=display({translate(per1a, 0, 0), translate(per2a, 0, 5),w }): p9:=display({translate(per1a, 0, 0), translate(per2a, 0, 6),w }): p10:=display({translate(per1a, 0, 0), translate(per2c, 0, 6),w }): p11:=display({translate(per1a, 0, 0), translate(per2b, 0, 5),w }): p12:=display({translate(per1a, 0, 0), translate(per2b, 0, 4),w }): p13:=display({translate(per1a, 0, 0), translate(per2b, 0, 3),w }): p14:=display({translate(per1a, 0, 0), translate(per2b, 0, 2),w }): p15:=display({translate(per1a, 0, 0), translate(per2b, 0, 1),w }): p16:=display({translate(per1a, 0, 0), translate(per2b, 0, 0),w }): p17:=display({translate(per1a, 0, 0), translate(per2c, 0, 0),w }): p18:=display({translate(per1a, 0, 0), translate(per2a, 0, 0),w }): i4:=plot([[7,4], [8.5,5], [10.5,5]]): per2d:=display({r, e, c, i4}): i5:=plot([[7,4], [8.5,5], [10,6]]): i6:=plot([[7,4], [8.5,5], [9,7]]): i7:=plot([[7,4], [8.5,5], [5.8,7]]): i8:=plot([[7,4], [8.5,5], [7.5,7]]): i9:=plot([[7,4], [8.5,5], [7,6]]): i10:=plot([[7,4], [8.5,5], [6,6]]): per2e:=display({r, e, c, i5}): per2f:=display({r, e, c, i6}): per2g:=display({r, e, c, i7}): u2:=plot([[5,8],[5.5,5],[5.5,3]]): pa:=disk([5,8], 1, color=purple): per1d:=display([u2,pa,n,o1]): p19:=display({translate(per1a, 0, 0), translate(per2d, 0, 0),w }): p20:=display({translate(per1a, 0, 0), translate(per2e, 0, 0),w }): p21:=display({translate(per1a, 0, 0), translate(per2f, 0, 0),w }): p22:=display({translate(per1d, 0, 0), translate(per2g, 0, 0),w }): n2:=plot([[4,0],[5.5,3],[8.6,2.9]]): per1e:=display([u2,pa,n2,o1]): p23:=display({translate(per1e, 0, 0), translate(per2f, 0, 0),w }): p24:=display({translate(per1e, 0, 0), translate(per2a, 0, 1),w }): p25:=display({translate(per1d, 0, 0), translate(per2a, 0, 2),w }): p26:=display({translate(per1a, 0, 0), translate(per2a, 0, 3),w }): p27:=display({translate(per1a, 0, 0), translate(per2a, 0, 4),w }): p28:=display({translate(per1a, 0, 0), translate(per2a, 0, 5),w }): p29:=display({translate(per1a, 0, 0), translate(per2a, 0, 6),w }): p30:=display({translate(per1a, 0, 0), translate(per2c, 0, 6),w }): p31:=display({translate(per1a, 0, 0), translate(per2b, 0, 5),w }): p32:=display({translate(per1a, 0, 0), translate(per2b, 0, 4),w }): p33:=display({translate(per1a, 0, 0), translate(per2b, 0, 3),w }): p34:=display({translate(per1a, 0, 0), translate(per2b, 0, 2),w }): p35:=display({translate(per1a, 0, 0), translate(per2b, 0, 1),w }): p36:=display({translate(per1a, 0, 0), translate(per2b, 0, 0),w }): p37:=display({translate(per1a, 0, 0), translate(per2c, 0, 0),w }): p38:=display({translate(per1a, 0, 0), translate(per2a, 0, 0),w }): per2v:=display([r,e,c,i3]): p39:=display({translate(per1a, 0, 0), translate(per2c, 0, 0),w }): i8:=plot ([[6,5],[7,6],[8.5,5],[7,4],[6,5]]): i9:=plot ([[6,7],[8.5,5],[6,4]]): v1:=disk([6,5.5], .5, color=yellow): v2:=disk([6,5.5], 1, color=yellow): beam:= display(polygon([[6,5.5],[5,15],[0,15],[0,0],[5,0]], color=yellow)): p40:=display({translate(per1a, 0, 0), translate(per2c, 0, 0),w }): per2h:=display([r,e,c,i8]): per2i:=display([r,e,c,i9]): per2j:=display([r,e,c,i9,v1]): per2k:=display([r,e,c,i9,v2]): per2l:=display([r,e,c,i9,v2,beam]): p41:=display({translate(per1a, 0, 0), translate(per2h, 0, 0),w }): p42:=display({translate(per1a, 0, 0), translate(per2i, 0, 0),w }): p43:=display({translate(per1a, 0, 0), translate(per2j, 0, 0),w }): p44:=display({translate(per1a, 0, 0), translate(per2k, 0, 0),w }): p45:=display({translate(per1a, 0, 0),(per2l),w }): p46:=display({translate(per2l, 0, 0),w }): p47:=display({translate(per2k, 0, 0),w }): p48:=display({translate(per2j, 0, 0),w }): p49:=display({translate(per2i, 0, 0),w }): p50:=display({translate(per2h, 0, 0),w }): p51:=display({translate(per2v, 0, 0),w }): 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,p51,p51], insequence, axes=none); speed 12