encoding  utf-8
survey white_river_series

  input kingdom_west/kingdom_west.th
  input kingdom_east/kingdom_east.th
  input arsespot/arsespot.th
  input ventilator/ventilator_top.th
  input nameless_series/nameless_series.th
  input white_river_passage/white_river_passage.th
  input moosetrap/moosetrap.th
  
  join kingdomSP6@kingdom_west kingdomSP8@kingdom_east
  join kingdomSP8@kingdom_east arsespotSP1@arsespot
  join kingdomSP9@kingdom_east WRS_4th_rampSP1@ventilator_top
  ##join WRS_4th_rampSP1@ventilator_top white_river_passageSP1@white_river_passage ##AG Hashed out so that He can get both of the two the northerly passages to join
  ###AG 29.03.24 below 4 line join do the same as the above scrap join, but join both passages which need joining
  join 4THRE@ventilator_top:end WRPE@white_river_passage:end #lines drawn the wrong way round, reverse used
  join 4THRR@ventilator_top:0 WRPR@white_river_passage:end
  join 4THRL@ventilator_top:end WRPL@white_river_passage:0
  join 4THRW@ventilator_top:0 WRPW@white_river_passage:0 #lines drawn the wrong way round, reverse used
   
              
  map white_river_seriesMP
    white_river_passageMP@white_river_passage
    kingdom_westMP@kingdom_west
    kingdom_eastMP@kingdom_east
    break
    moosetrapMP@moosetrap
    namesless_seriesMP@nameless_series
    arsespotMP@arsespot
    ventilator_topMP@ventilator_top
  endmap
  
centreline
  #cs OSGB:SK
  
  #station ent "main ent." entrance
  #fix ent 13930.46  82750.4  247.0372
  
  equate 655@kingdom_west 655@kingdom_east
  equate 647@kingdom_east 647@arsespot
  equate 641@kingdom_east 641@ventilator_top
  equate 659@nameless_series 659@kingdom_west
  equate 709@white_river_passage 709@ventilator_top
  equate 654@kingdom_east 654@moosetrap
    
endcentreline    
                    
endsurvey