Plot()
 {
  Sequence(Long Bay)
  {
   Boundary("Start");
   Phase("1")
   {
    Curve("Marine13","Marine13.14c");
    Delta_R("LocalMarine",-7,45);
    R_Date("Wk-45301", 902, 15);
    R_Date("Wk-45300", 826, 19);
    Curve("SHCal13","SHCal13.14c");
    R_Date("Wk-45299", 519, 18);
   };
   Boundary("End Phase 1");
   Boundary("Start Phase 4");
   Phase("4")
   {
    Curve("Marine13","Marine13.14c");
    Delta_R("LocalMarine",-7,45);
    R_Date("Wk-45302", 869, 19);
   };
   Boundary("Transition Phase 4/5");
   Phase("5")
   {
    Curve("Marine13","Marine13.14c");
    Delta_R("LocalMarine",-7,45);
    R_Date("Wk-45303", 853, 19);
   };
   Boundary("End Phase 5");
   Boundary("Start Phase 7");
   Phase("7")
   {
    Curve("Marine13","Marine13.14c");
    Delta_R("LocalMarine",-7,45);
    R_Date("Wk-45304", 845, 19);
   };
   Boundary("End Phase 7");
   Boundary("Start Phase 10");
   Phase("10")
   {
    Curve("Marine13","Marine13.14c");
    Delta_R("LocalMarine",-7,45);
    R_Date("Wk-45305", 842, 19);
   };
   Boundary("End Phase 10");
   Boundary("Start Phase 12");
   Phase("12")
   {
    Curve("Marine13","Marine13.14c");
    Delta_R("LocalMarine",-7,45);
    R_Date("Wk-45308", 851, 18);
    R_Date("Wk-45307", 872, 18);
    Curve("SHCal13","SHCal13.14c");
    R_Date("Wk-45306", 421, 15);
   };
   Boundary("End Phase 12");
  };
 };