restart; with(plots):with(plottools): frameout:=polygon( [[1,0], [0,1], [0,12], [1,13], [9,13], [10,12], [10,1], [9,0], [1,0],[2,1],[2,1], [1,2], [1,11], [2,12], [8,12], [9,11], [9,2], [8,1], [2,1]], color=black): framein:=polygon( [[2,1], [1,2], [1,11], [2,12], [8,12], [9,11], [9,2], [8,1], [2,1]], color=white): bell:=polygon( [[2,3], [2,7], [3,9], [4,10], [6,10], [7,9], [8,7], [8,3], [7,2], [3,2], [2,3]], color=gray): handleout:=polygon([[6,10], [4,10], [3,11], [4,12], [6,12], [7,11], [6,10]], color=gray): handlein:=polygon( [[4,10.5], [3.5,11], [4,11.5], [6,11.5], [6.5,11], [6,10.5], [4,10.5]], color=white): Dframe:=polygon( [[9.3,12.5], [8.5,14], [0,14], [-1,12.5], [-1,1], [0,0],[1,0], [0,1], [0,12], [1,12.5]], color=gold): L:=plot( [[2.5,8], [2.5,7], [3,7]], color=black): i:=plot( [[3.2,7], [3.2,7.5]], color=black): b:=plot( [[3.5,8], [3.5,7], [3.7,7], [3.7,7.5], [3.5,7.5]], color=black): e:=plot( [[4,7.3], [4.4,7.3], [4.4,7.5], [4,7.5], [4,7], [4.4,7]], color=black): r:=plot( [[4.6,7], [4.6,7.7], [4.6,7.5], [4.9,7.5], [4.9,7.3]], color=black): t:=plot( [[5.4,8], [5.4,7], [5.4,7.5], [5.1,7.5], [5.7,7.5]], color=black): y:=plot( [[5.9,7.5],[5.9,7], [6.3,7], [6.3,7.5], [6.3,6.5]], color=black): B:=plot( [[3,5.5], [3,6.5], [3.5,6.5], [3.5,6], [3,6], [3.7,6], [3.7,5.5], [3,5.5]], color=black): E:=plot( [[3.9,5.7], [4.2,5.7], [4.2,6], [3.9,6], [3.9,5.5], [4.2,5.5]], color=black): l:=plot( [[4.5,5.5], [4.5,6.5]], color=black): display(handlein, handleout, bell, framein, frameout, Dframe, L, i, b, e, r, t, y, B, E, l): L2:=plot( [[4.8,5.5], [4.8,6.5]], color=black): display(handlein, handleout, bell, framein, frameout, Dframe, L, i, b, e, r, t, y, B, E, l, L2): mark:=plot( [[5.2,6], [5.2,6.5]], color=black): dot:=plot( [[5.2,5.8], [5.2,5.5]], color=black): frame:=polygon( [[8,12],[8,3], [7,2], [1,2],[2,1], [8,1], [9,2], [9,11]], color=gold): crack:=plot( [[4.2,2], [4,2.2], [4.5,2.5], [3.9,2.7]], color="DarkGoldenrod"): opencrack:=polygon( [[7,9], [6.5,8.5], [6.3,8], [7,8.3], [7.3,7.7], [7.5,8]], color="DarkGoldenrod"): fullbell:=display(handlein, handleout, crack,opencrack, bell, L, i, b, e, r, t, y, B, E, l, L2, mark, dot): rotate1:=translate(rotate(fullbell,Pi/4),9.17,0): p1:=display(fullbell,frame, framein, frameout, Dframe): p2:=display(rotate1,frame, framein, frameout, Dframe): rotate2:=translate(rotate(fullbell,-Pi/4),-6.4,6.7): p3:=display(rotate2,frame, framein, frameout, Dframe): display(p1,p2,p1,p3,insequence=true, axes=none, scaling=constrained); # speed=4