restart: with(plots): with(plottools): macro(ocean = COLOR(RGB, 0., 0., .2000)): seac:=plot([[0,-1.5],[34,-1.5]],thickness=50,color=ocean): background:=polygon([[0,0],[34,0],[34,20],[0,20],[0,0]], color="Navy"): sea0:=polygon([[0,3],[34,3],[34,-4],[0,-4]],color=ocean): sead:=polygon([[0,1.3],[34,1.3],[34,-4],[0,-4]],color="DarkBlue",linestyle=none): sea:=(display(sea0,background)): polygon([ [1,4], [2,1], [14,1], [15,4], [1,4] ], color=gray): tank:= polygon([ [1,3], [2,1], [14,1], [15,3], [1,3] ], color=black): layer:=polygon([ [2,3], [2,4.5], [11,4.5], [11,3] ], color="Grey"): pass:=polygon([ [4,3], [4,4], [10,4], [10,3], [4,3] ], color="Grey"): chim:=polygon([[3,4.5], [3.5,4.5], [3.5,6], [3,6], [3,4.5]], color="Chocolate"): chim2:=polygon([[5,4.5], [5.5,4.5], [5.5,6], [5,6], [5,5.4]], color="Chocolate"): line1:=plot([ [3,5.90], [3.5,5.90] ], thickness=10, color="DarkRed"): c1:=(line1,chim): line2:=plot([ [5,5.9], [5.5,5.90] ], thickness=10, color="DarkRed"): c2:=(line2,chim2): chim3:=polygon([[7,4.5], [7.5,4.5], [7.5,6], [7,6], [7,5.4]], color="Chocolate"): line3:=plot([ [7,5.9], [7.5,5.9] ], thickness=10, color="DarkRed"): c3:=(chim3,line3): chim4:=polygon([[9,4.5], [9.5,4.5], [9.5,6], [9,6], [9,5.4]], color="Chocolate"): line4:=plot([ [9,5.9], [9.5,5.9] ], thickness=10, color="DarkRed"): c4:=(line4,chim4): word:=textplot([13,2.5, "Titanic"], font=[Times,Roman, 8], color=pink): ship0:=(tank,layer,c1,c2,c3,c4,word): windowp:=polygon([ [3,2], [3.15,2], [3.15,2.15], [3,2.15], [3,2] ], color=yellow): lifeboat:=polygon([[4,3],[5,2],[7,2],[8,3],[4,3]],color="SaddleBrown"): lifeboat1:=display(seac,translate(rotate(lifeboat,-Pi/85),0,0),sea): lifeboat2:=display(seac,translate(rotate(lifeboat,Pi/85),0,-2),sea): lifeboat3:=display(seac,translate(rotate(lifeboat,-Pi/85),0,-4),sea): lifeboat4:=display(seac,lifeboat,lifeboat1,lifeboat2,lifeboat3,sea): wood:=polygon([[9,1],[7,1],[7,-1],[9,1],[9,1]],color="SaddleBrown"): wood1:=polygon([[20,0],[22,0],[22,-1],[20,-1],[20,0]],color="SaddleBrown"): window1:=display(translate(windowp,1,0)): window2:=display(translate(windowp,2,0)): window3:=display(translate(windowp,3,0)): window4:=display(translate(windowp,4,0)): window5:=display(translate(windowp,5,0)): window6:=display(translate(windowp,6,0)): window7:=display(translate(windowp,7,0)): window8:=display(translate(windowp,8,0)): window9:=display(translate(windowp,9,0)): window10:=display(translate(windowp,10,0)): window11:=display(translate(windowp,2,1.5)): window12:=display(translate(windowp,1.5,0)): window13:=display(translate(windowp,-1.5,0)): window14:=display(translate(windowp,1,0)): window15:=display(translate(windowp,2,0)): window16:=display(translate(windowp,2.25,0)): window17:=display(translate(windowp,1,2)): window18:=display(translate(windowp,3,2)): window19:=display(translate(windowp,2,1)): window20:=display(translate(windowp,3,1.5)): window21:=display(translate(windowp,4,1.5)): window22:=display(translate(windowp,5,1.5)): window23:=display(translate(windowp,6,1.5)): window24:=display(translate(windowp,7,-.25)): window25:=display(translate(windowp,8,-.25)): window26:=display(translate(windowp,9,-.25)): window27:=display(translate(windowp,10,-.25)): window28:=display(translate(windowp,-1,1)): window29:=display(translate(windowp,1.5,1.5)): window30:=display(translate(windowp,4,2)): window31:=display(translate(windowp,5,2)): window32:=display(translate(windowp,6,2)): window33:=display(translate(windowp,7,-.5)): window34:=display(translate(windowp,8,-.5)): window35:=display(translate(windowp,9,-.5)): window36:=display(translate(windowp,10,-.5)): window37:=display(translate(windowp,-1,0)): window38:=display(translate(windowp,2,1.5)): cloud0:=ellipse([10,6.5], 0.5, 0.2,filled=true,color="Grey"): cloud1:=ellipse([9,7], 0.5, 0.2,filled=true,color="Grey"): cloud2:=ellipse([8,6.5], 0.5,0.2,filled=true,color="Grey"): cloud3:=ellipse([7,7], 0.5, 0.2,filled=true,color="Grey"): cloud4:=ellipse([6,6.5], 0.5,0.2,filled=true,color="Grey"): cloud5:=ellipse([5,7], 0.5, 0.2,filled=true,color="Grey"): cloud6:=ellipse([4,6.5], 0.5, 0.2,filled=true,color="Grey"): cloud7:=ellipse([3,7], 0.5, 0.2,filled=true,color="Grey"): ship:=display(windowp,window1,window2,window3,window4,window5,window6,window7,window8,window9,window10,window11,window12,window13,window14,window15,window16,window17,window18,window19,window20,window21,window22,window23,window24,window25,window26,window27,window28,window29,window30,window31,window32,window33,window34,window35,window36,window37,window38,word,cloud0,cloud1,cloud2,cloud3,cloud4,cloud5,cloud6,cloud7,ship0): macro(ocean = COLOR(RGB, 0., 0., .2000)): test15:=polygon([[0,0],[34,0],[34,5],[0,5],[0,0]],color=ocean): sea0:=polygon([[0,3],[34,3],[34,-4],[0,-4]],color=ocean): seac:=plot([[0,-1.5],[34,-1.5]],thickness=50,color=ocean): sead:=polygon([[0,1.3],[34,1.3],[34,-4],[0,-4]],color="DarkBlue",linestyle=none): sea:=(display(sea0,background)): p1:=display(seac,translate(rotate(ship,-Pi/75,[8,2]),0,0),sea): p2:=display(seac,translate(rotate(ship,Pi/75,[8,2]),2,0),sea): p3:=display(seac,translate(rotate(ship,-Pi/75,[8,2]),4,0),sea): p4:=display(seac,translate(rotate(ship,Pi/75,[8,2]),6,0),sea): p5:=display(seac,translate(rotate(ship,-Pi/75,[8,2]),8,0),sea): p6:=display(seac,translate(rotate(ship,Pi/75,[8,2]),10,0),sea): p7:=display(seac,translate(rotate(ship,-Pi/75,[8,2]),12,0),sea): p8:=display(seac,translate(rotate(ship,Pi/75,[8,2]),14,0),sea): p9:=display(seac,translate(rotate(ship,-Pi/75,[8,2]),16,0),sea): p10:=display(seac,translate(rotate(ship,Pi/75,[8,2]),18,0),sea): d1:=display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10],insequence=true,scaling=constrained,axes=none): ice0:=polygon([[15,1],[14,1],[15,4],[16,4],[16,5],[17,5],[18,6],[19,6],[20,6],[21,7],[22,6],[22,4],[23,3],[24,1],[24,1]],color="White"): ice:=display(ice0, sea): p11:=display(translate(rotate(ship,-Pi/75,[8,2]),0,0),ice,seac): p12:=display(translate(rotate(ship,Pi/75,[8,2]),2,0),ice,seac): p13:=display(translate(rotate(ship,-Pi/75,[8,2]),4,0),ice,seac): background1:=polygon([[0,0],[34,0],[34,20],[0,20],[0,0]], color="Orange"): scrape0:=textplot([19,10,"SCRAPE!"],font=[Broadway,40],color=yellow): scrape:=(display(background1, scrape0)): d2:=display([p11,p12,p13,scrape],insequence=true,scaling=constrained,axes=none): head:=(disk([10,2],0.15,color="Tan")): body:=plot([[10,1.9],[10,1]],color=blue): leg1:=plot([[10,1],[9.8,0]],color="Red"): leg2:=plot([[10,1],[10.2,0]],color="Red"): arm1:=plot([[10,1.5],[9.8,1.5]],color="Tan"): arm2:=plot([[10,1.5],[10.2,1.5]],color="Tan"): person:=(display(head,body,arm1,arm2,leg1,leg2)): person1:=display(translate(rotate(person,Pi/85,[10,2]),0,0)): person2:=display(translate(rotate(person,-Pi/85,[10,2]),0,-1)): person3:=display(translate(rotate(person,Pi/85,[10,2]),0,-2)): person4:=display(translate(rotate(person,-Pi/85,[10,2]),0,-3)): person5:=display([person1,person2,person3,person4],insequence=true): ship1:=display(windowp,window1,window2,window3,window4,window5,window6,window7,window8,window9,window10,window11,window12,window13,window14,window15,window16,window17,window18,window19,window20,window21,window22,window23,window24,window25,window26,window27,window28,window29,window30,window31,window32,window33,window34,window35,window36,window37,window38,cloud0,cloud1,cloud2,cloud3,cloud4,cloud5,cloud6,cloud7,tank,layer,c1,c2,c3,c4): sinking0:=display(seac,translate(rotate(ship,-Pi/45,[8,2]),0,0),sea): sinking1:=display(seac,translate(rotate(ship1,-Pi/35,[8,2]),0,-2),sea): sinking2:=display(seac,translate(rotate(ship1,-Pi/25,[8,2]),0,-4),sea,person5): sinking3:=display(seac,translate(rotate(ship1,-Pi/15,[8,2]),0,-4),sea): word3:=textplot([19,12, "2 hours later"], font=[Times,Roman, 20], color=black): word4:=display(word3,background1): sinked1:=polygon([[3,2.5], [3.5,2.5], [3.5,3.6], [3,3.6], [3,2.5]], color="Chocolate"): line5:=plot([ [3,3.3], [3.5,3.3] ], thickness=10, color="DarkRed"): sinked:=display(sinked1,line5,sea): lifeboat5:=display(wood,wood1,sea): lifeboat6:=display(wood,wood1,sea): sea3:=polygon([[0,3],[34,3],[34,-4],[0,-4]],color="DarkBlue"): sinked4:=polygon([[3,2.5], [3.5,2.5], [3.5,3], [3,3], [3,2.5]], color="Chocolate"): line6:=plot([ [3,2.90], [3.5,2.90] ], thickness=5, color="DarkRed"): sinked3:=(display(line6,sinked4,sea)): sinked2:=polygon([[3,1.5], [3.5,1.5], [3.5,2], [3,2], [3,2.5]], color="Chocolate"): line7:=plot([ [3,1.90], [3.5,1.90] ], thickness=2, color="DarkRed"): sinked5:=(display(line7,sinked2,sea)): display([d1,d2,sinking0,sinking1,sinking2,sinking3,sinked,sinked3,sinked5,sea],insequence=true); # 2 fps