restart:with(plots):with(plottools):
body:=plot([[-13,1],[-14,3],[-9,3],[-10,1],[-13,1]],color=green,scaling=constrained):
body1:=plot([[-12.5,1],[-13.5,3],[-8.5,3],[-9.5,1],[-12.5,1]],color=green,axes=none,scaling=constrained):
body2:=plot([[-12,1],[-13,3],[-8,3],[-9,1],[-12,1]],color=green,axes=none,scaling=constrained):
body3:=plot([[-11.5,1],[-12.5,3],[-7.5,3],[-8.5,1],[-11.5,1]],color=green,axes=none,scaling=constrained):
body4:=plot([[-11,1],[-12,3],[-7,3],[-8,1],[-11,1]],color=green,axes=none,scaling=constrained):
body5:=plot([[-10.5,1],[-11.5,3],[-6.5,3],[-7.5,1],[-10.5,1]],color=green,axes=none,scaling=constrained):
body6:=plot([[-10,1],[-11,3],[-6,3],[-7,1],[-10,1]],color=green,axes=none,scaling=constrained):
body7:=plot([[-9.5,1],[-10.5,3],[-5.5,3],[-6.5,1],[-9.5,1]],color=green,axes=none,scaling=constrained):
body8:=plot([[-9,1],[-10,3],[-5,3],[-6,1],[-9,1]],color=green,axes=none,scaling=constrained):
body9:=plot([[-8.5,1],[-9.5,3],[-4.5,3],[-5.5,1],[-8.5,1]],color=green,axes=none,scaling=constrained):
body10:=plot([[-8,1],[-9,3],[-4,3],[-5,1],[-8,1]],color=green,axes=none,scaling=constrained):
body11:=plot([[-7.5,1],[-8.5,3],[-3.5,3],[-4.5,1],[-7.5,1]],color=green,axes=none,scaling=constrained):
body12:=plot([[-7,1],[-8,3],[-3,3],[-4,1],[-7,1]],color=green,axes=none,scaling=constrained):
body13:=plot([[-6.5,1],[-7.5,3],[-2.5,3],[-3.5,1],[-6.5,1]],color=green,axes=none,scaling=constrained):
body14:=plot([[-6,1],[-7,3],[-2,3],[-3,1],[-6,1]],color=green,axes=none,scaling=constrained):
body15:=plot([[-5.5,1],[-6.5,3],[-1.5,3],[-2.5,1],[-5.5,1]],color=green,axes=none,scaling=constrained):
body16:=plot([[-5,1],[-6,3],[-1,3],[-2,1],[-5,1]],color=green,axes=none,scaling=constrained):
body17:=plot([[-4.5,1],[-5.5,3],[-0.5,3],[-1.5,1],[-4.5,1]],color=green,axes=none,scaling=constrained):
body18:=plot([[-4,1],[-5,3],[-0,3],[-1,1],[-4,1]],color=green,axes=none,scaling=constrained):
body19:=plot([[-3.5,1],[-4.5,3],[0.5,3],[-0.5,1],[-3.5,1]],color=green,axes=none,scaling=constrained):
body20:=plot([[-3,1],[-4,3],[1,3],[0,1],[-3,1]],color=green,axes=none,scaling=constrained):
body21:=plot([[-2.5,1],[-3.5,3],[1.5,3],[0.5,1],[-2.5,1]],color=green,axes=none,scaling=constrained):
body22:=plot([[-2,1],[-3,3],[2,3],[1,1],[-2,1]],color=green,axes=none,scaling=constrained):
body23:=plot([[-1.5,1],[-2.5,3],[2.5,3],[1.5,1],[-1.5,1]],color=green,axes=none,scaling=constrained):
body24:=plot([[-1,1],[-2,3],[3,3],[2,1],[-1,1]],color=green,axes=none,scaling=constrained):
body25:=plot([[-0.5,1],[-1.5,3],[3.5,3],[2.5,1],[-0.5,1]],color=green,axes=none,scaling=constrained):
body26:=plot([[0,1],[-1,3],[4,3],[3,1],[-0,1]],color=green,axes=none,scaling=constrained):
body27:=plot([[0.5,1],[-0.5,3],[4.5,3],[3.5,1],[0.5,1]],color=green,axes=none,scaling=constrained):
body28:=plot([[1,1],[0,3],[5,3],[4,1],[1,1]],color=green,axes=none,scaling=constrained):
shoreline:=plot([[-15,2],[-7,7]],scaling=constrained,color=tan,thickness=2):
d:=plot([[-14,3.5],[-14,4.5],[-13,4],[-14,3.5]],scaling=constrained):
o:=plot([[-12.5,5.5],[-12,5],[-12.5,4.5],[-13,5],[-12.5,5.5]],scaling=constrained):
c:=plot([[-11,6.2],[-11.5,6.4],[-11.5,5.6],[-11,5.8]],scaling=constrained):
k:=plot([[-10.5,7],[-10.5,6],[-10.5,6.5],[-9.5,7],[-10.5,6.5],[-9.5,6]],scaling=constrained):
dock:=display([d,o,c,k],scaling=constrained):
sunspokes:=plot([[3,7],[5,5],[5,9],[3,7],[7,7],[5,9]],color=yellow):
sunspokes1:=plot([[3,7.5],[5,5.5],[5,9.5],[3,7.5],[7,7.5],[5,9.5]],color=yellow):
sunspokes2:=plot([[4,7],[6,5],[6,9],[4,7],[8,7],[6,9]],color=yellow):
sunspokes3:=plot([[4.5,7],[6.5,5],[6.5,9],[4.5,7],[8.5,7],[6.5,9]],color=yellow):
sunspokes4:=plot([[5,7],[7,5],[7,9],[5,7],[9,7],[7,9]],color=yellow):
sunspokes5:=plot([[5.5,7],[7.5,5],[7.5,9],[5.5,7],[9.5,7],[7.5,9]],color=yellow):
sunspokes6:=plot([[6,7],[8,5],[8,9],[6,7],[10,7],[8,9]],color=yellow):
sunspokes7:=plot([[6.5,7],[8.5,5],[8.5,9],[6.5,7],[10.5,7],[8.5,9]],color=yellow):
sunspokes8:=plot([[7,7],[9,5],[9,9],[7,7],[11,7],[9,9]],color=yellow):
sunspokes9:=plot([[7.5,7],[10.5,5],[9.5,9],[7.5,7],[11.5,7],[7.5,9]],color=yellow):
sunspokes10:=plot([[8,7],[11,5],[10,9],[8,7],[12,7],[8,9]],color=yellow):
sunspokes11:=plot([[8.5,7],[11.5,5],[10.5,9],[8.5,7],[12.5,7],[8.5,9]],color=yellow):
sunspokes12:=plot([[9,7],[12,5],[11,9],[9,7],[13,7],[9,9]],color=yellow):
sunspokes13:=plot([[9.5,7],[12.5,5],[11.5,9],[9.5,7],[13.5,7],[9.5,9]],color=yellow):
sunspokes14:=plot([[10,7],[13,5],[12,9],[10,7],[14,7],[10,9]],color=yellow):
sunspokes15:=plot([[10.5,7],[13.5,5],[12.5,9],[10.5,7],[14.5,7],[10.5,9]],color=yellow):
sunspokes16:=plot([[11,7],[14,5],[13,9],[11,7],[15,7],[11,9]],color=yellow):
sunspokes17:=plot([[11.5,7],[14.5,5],[13.5,9],[11.5,7],[15.5,7],[11.5,9]],color=yellow):
sunspokes18:=plot([[12,7],[15,5],[14,9],[12,7],[16,7],[12,9]],color=yellow):
sunspokes19:=plot([[12.5,7],[15.5,5],[14.5,9],[12.5,7],[16.5,7],[12.5,9]],color=yellow):
sunspokes20:=plot([[13,7],[16,5],[15,9],[13,7],[17,7],[17,9]],color=yellow):
sunspokes21:=plot([[13.5,7],[16.5,5],[15.5,9],[13.5,7],[17.5,7],[17.5,9]],color=yellow):
sunspokes22:=plot([[14,7],[17,5],[16,9],[14,7],[18,7],[18,9]],color=yellow):
sunspokes23:=plot([[14.5,7],[17.5,5],[16.5,9],[14.5,7],[18.5,7],[18.5,9]],color=yellow):
sunspokes24:=plot([[15,7],[18,5],[17,9],[15,7],[19,7],[19,9]],color=yellow):
sunspokes25:=plot([[15.5,7],[18.5,5],[17.5,9],[15.5,7],[19.5,7],[19.5,9]],color=yellow):
sunspokes26:=plot([[16,7],[19,5],[18,9],[16,7],[20,7],[20,9]],color=yellow):
sunspokes27:=plot([[16.5,7],[19.5,5],[18.5,9],[16.5,7],[21.5,7],[20.5,9]],color=yellow):
sunspokes28:=plot([[17,7],[20,5],[19,9],[17,7],[22,7],[21,9]],color=yellow):
sunrim:=disk([5,7],2,thickness=2,color=yellow):
sunrim1:=disk([5,7.5],2,thickness=2,color=yellow):
sunrim2:=disk([5,8],2,thickness=2,color=yellow):
sunrim3:=disk([5,8.5],2,thickness=2,color=yellow):
sunrim4:=disk([5,9],2,thickness=2,color=yellow):
sunrim5:=disk([5,9.5],2,thickness=2,color=yellow):
sunrim6:=disk([5,10],2,thickness=2,color=yellow):
sunrim7:=disk([5,10.5],2,thickness=2,color=yellow):
sunrim8:=disk([5,11],2,thickness=2,color=yellow):
sunrim9:=disk([5,11.5],2,thickness=2,color=yellow):
sunrim10:=disk([5,12],2,thickness=2,color=yellow):
sunrim11:=disk([5,12.5],2,thickness=2,color=yellow):
sunrim12:=disk([5,13],2,thickness=2,color=yellow):
sunrim13:=disk([5,13.5],2,thickness=2,color=yellow):
sunrim14:=disk([5,14],2,thickness=2,color=yellow):
sunrim15:=disk([5,14.5],2,thickness=2,color=yellow):
sunrim16:=disk([5,15],2,thickness=2,color=yellow):
sunrim17:=disk([5,15.5],2,thickness=2,color=yellow):
sunrim18:=disk([5,16],2,thickness=2,color=yellow):
sunrim19:=disk([5,16.5],2,thickness=2,color=yellow):
sunrim20:=disk([5,17],2,thickness=2,color=yellow):
sunrim21:=disk([5,17.5],2,thickness=2,color=yellow):
sunrim22:=disk([5,18],2,thickness=2,color=yellow):
sunrim23:=disk([5,18.5],2,thickness=2,color=yellow):
sunrim24:=disk([5,19],2,thickness=2,color=yellow):
sunrim25:=disk([5,19.5],2,thickness=2,color=yellow):
sunrim26:=disk([5,20],2,thickness=2,color=yellow):
sunrim27:=disk([5,20.5],2,thickness=2,color=yellow):
sunrim28:=disk([5,21],2,thickness=2,color=yellow):
flag:=plot([[3,7],[6,8],[3,9]],color=red):
waterline :=plot([[-15,2],[9,2]],color=blue):
waterline1:=plot([[-15,2],[9.5,2]],color=blue):
waterline2:=plot([[-15,2],[10,2]],color=blue):
waterline3:=plot([[-15,2],[10.5,2]],color=blue):
waterline4:=plot([[-15,2],[11,2]],color=blue):
waterline5:=plot([[-15,2],[11.5,2]],color=blue):
waterline6:=plot([[-15,2],[12,2]],color=blue):
waterline7:=plot([[-15,2],[12.5,2]],color=blue):
waterline8:=plot([[-15,2],[13,2]],color=blue):
waterline9:=plot([[-15,2],[13.5,2]],color=blue):
waterline10:=plot([[-15,2],[14,2]],color=blue):
waterline11:=plot([[-15,2],[14.5,2]],color=blue):
waterline12:=plot([[-15,2],[15,2]],color=blue):
waterline13:=plot([[-15,2],[15.5,2]],color=blue):
waterline14:=plot([[-15,2],[16,2]],color=blue):
waterline15:=plot([[-15,2],[16.5,2]],color=blue):
waterline16:=plot([[-15,2],[16.5,2]],color=blue):
waterline17:=plot([[-15,2],[17,2]],color=blue):
waterline18:=plot([[-15,2],[17.5,2]],color=blue):
waterline19:=plot([[-15,2],[18,2]],color=blue):
waterline20:=plot([[-15,2],[18.5,2]],color=blue):
waterline21:=plot([[-15,2],[19,2]],color=blue):
waterline22:=plot([[-15,2],[20,2]],color=blue):
waterline23:=plot([[-15,2],[21,2]],color=blue):
waterline24:=plot([[-15,2],[22,2]],color=blue):
waterline25:=plot([[-15,2],[22.5,2]],color=blue):
waterline26:=plot([[-15,2],[23,2]],color=blue):
waterline27:=plot([[-15,2],[23.5,2]],color=blue):
waterline28:=plot([[-15,2],[24,2]],color=blue):
waterline29:=plot([[-15,2],[24.5,2]],color=blue):
waterline30:=plot([[-15,2],[25,2]],color=blue):
waterline31:=plot([[-15,2],[25.5,2]],color=blue):
waterline32:=plot([[-15,2],[26,2]],color=blue):
waterline33:=plot([[-15,2],[9,2]],color=blue):
shoreline1:=plot([[-15,2],[-7.5,6.75]],scaling=constrained,color=tan,thickness=2):
shoreline2:=plot([[-15,2],[-8,6.5]],scaling=constrained,color=tan,thickness=2):
shoreline3:=plot([[-15,2],[-8.5,6.25]],scaling=constrained,color=tan,thickness=2):
shoreline4:=plot([[-15,2],[-9,6]],scaling=constrained,color=tan,thickness=2):
shoreline5:=plot([[-15,2],[-9.5,5.75]],scaling=constrained,color=tan,thickness=2):
shoreline6:=plot([[-15,2],[-10,5.5]],scaling=constrained,color=tan,thickness=2):
shoreline7:=plot([[-15,2],[-10.5,5.25]],scaling=constrained,color=tan,thickness=2):
shoreline8:=plot([[-15,2],[-11,5]],scaling=constrained,color=tan,thickness=2):
shoreline9:=plot([[-15,2],[-11.5,4.75]],scaling=constrained,color=tan,thickness=2):
shoreline8:=plot([[-15,2],[-12,4.5]],scaling=constrained,color=tan,thickness=2):
shoreline9:=plot([[-15,2],[-12.5,4.25]],scaling=constrained,color=tan,thickness=2):
shoreline10:=plot([[-15,2],[-13,4]],scaling=constrained,color=tan,thickness=2):
shoreline11:=plot([[-15,2],[-13.5,3.75]],scaling=constrained,color=tan,thickness=2):
shoreline12:=plot([[-15,2],[-14,3.5]],scaling=constrained,color=tan,thickness=2):
shoreline13:=plot([[-15,2],[-14.5,3.25]],scaling=constrained,color=tan,thickness=2):
shoreline14:=plot([[-15,2],[-15,2]],scaling=constrained,color=tan,thickness=2):
mast:=plot([[-11,3],[-11,3.25]],color=black,thickness=2):
mast1:=plot([[-10.5,3],[-10.5,3.5]],color=black,thickness=2):
mast2:=plot([[-10,3],[-10,3.75]],color=black,thickness=2):
mast3:=plot([[-9.5,3],[-9.5,4]],color=black,thickness=2):
mast4:=plot([[-9,3],[-9,4.25]],color=black,thickness=2):
mast5:=plot([[-8.5,3],[-8.5,4.5]],color=black,thickness=2):
mast6:=plot([[-8,3],[-8,4.75]],color=black,thickness=2):
mast7:=plot([[-7.5,3],[-7.5,5]],color=black,thickness=2):
mast8:=plot([[-7,3],[-7,5.25]],color=black,thickness=2):
mast9:=plot([[-6.5,3],[-6.5,5.5]],color=black,thickness=2):
mast10:=plot([[-6,3],[-6,5.75]],color=black,thickness=2):
mast11:=plot([[-5.5,3],[-5.5,6]],color=black,thickness=2):
mast12:=plot([[-5,3],[-5,6.25]],color=black,thickness=2):
mast13:=plot([[-4.5,3],[-4.5,6.5]],color=black,thickness=2):
mast14:=plot([[-4,3],[-4,6.75]],color=black,thickness=2):
mast15:=plot([[-3.5,3],[-3.5,7]],color=black,thickness=2):
mast16:=plot([[-3,3],[-3,7.25]],color=black,thickness=2):
mast17:=plot([[-2.5,3],[-2.5,7.5]],color=black,thickness=2):
mast18:=plot([[-2,3],[-2,7.75]],color=black,thickness=2):
mast19:=plot([[-1.5,3],[-1.5,8]],color=black,thickness=2):
mast20:=plot([[-1,3],[-1,8.25]],color=black,thickness=2):
mast21:=plot([[-0.5,3],[-0.5,8.5]],color=black,thickness=2):
mast22:=plot([[0,3],[0,8.75]],color=black,thickness=2):
mast23:=plot([[0.5,3],[0.5,9]],color=black,thickness=2):
mast24:=plot([[1,3],[1,9.25]],color=black,thickness=2):
mast25:=plot([[1.5,3],[1.5,9.5]],color=black,thickness=2):
mast26:=plot([[2,3],[2,9.75]],color=black,thickness=2):
mast27:=plot([[2.5,3],[2.5,10]],color=black,thickness=2):
mast28:=plot([[3,3],[3,10.25]],color=black,thickness=2):
boat:=display([body,shoreline,mast,dock,sunrim,waterline],scaling=constrained):
boat1:=display([body1,shoreline1,mast1,dock,sunrim1,waterline1],scaling=constrained):
boat2=display([body2,shoreline2,mast2,dock,sunrim2,waterline2],scaling=constrained):
boat3:=display([body3,shoreline3,mast3,sunrim3,waterline3],scaling=constrained):
boat4:=display([body4,shoreline4,mast4,sunrim4,waterline4],scaling=constrained):
boat5:=display([body5,shoreline5,mast5,sunrim5,waterline5],scaling=constrained):
boat6:=display([body6,shoreline6,mast6,sunrim6,waterline6],scaling=constrained):
boat7:=display([body7,shoreline7,mast7,sunrim7,waterline7],scaling=constrained):
boat8:=display([body8,shoreline8,mast8,sunrim8,waterline8],scaling=constrained):
boat9:=display([body9,shoreline9,mast9,sunrim9,waterline9],scaling=constrained):
boat10:=display([body10,shoreline10,mast10,sunrim10,waterline10],scaling=constrained):
boat11:=display([body11,shoreline11,mast11,sunrim11,waterline11],scaling=constrained):
boat12:=display([body12,shoreline12,mast12,sunrim12,waterline12],scaling=constrained):
boat13:=display([body13,shoreline13,mast13,sunrim13,waterline13],scaling=constrained):
boat14:=display([body14,shoreline14,mast14,sunrim14,waterline14],scaling=constrained):
boat15:=display([body15,mast15,sunrim15,waterline15],scaling=constrained):
boat16:=display([body16,mast16,sunrim16,waterline16],scaling=constrained):
boat17:=display([body17,mast17,sunrim17,waterline17],scaling=constrained):
boat18:=display([body18,mast18,sunrim18,waterline18],scaling=constrained):
boat19:=display([body19,mast19,sunrim19,waterline19],scaling=constrained):
boat20:=display([body20,mast20,sunrim20,waterline20],scaling=constrained):
boat21:=display([body21,mast21,sunrim21,waterline21],scaling=constrained):
boat22:=display([body22,mast22,sunrim22,waterline22],scaling=constrained):
boat23:=display([body23,mast23,sunrim23,waterline23],scaling=constrained):
boat24:=display([body24,mast24,sunrim24,waterline24],scaling=constrained):
boat25:=display([body25,mast25,sunrim25,waterline25],scaling=constrained):
boat26:=display([body26,mast26,sunrim26,waterline26],scaling=constrained):
boat27:=display([body27,mast27,sunrim27,waterline27],scaling=constrained):
boat28:=display([body28,mast28,sunrim28,waterline28,flag],scaling=constrained):
boat29:=display([body28,mast28,sunrim28,flag],scaling=constrained):
display([boat,boat,boat1,boat1,boat3,boat4,boat5,boat6,boat7,boat8,boat9,boat10,boat11,boat12,boat13,boat14,boat15,boat16,boat17,boat18,boat19,boat20,boat21,boat22,boat23,boat24,boat25,boat26,boat27,boat28,boat28,boat28,boat28,boat28,boat28,boat28],scaling=constrained,axes=none,insequence=true);