set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]

set status [ SclFunction "RECALL ANY FILE" {
  file="pfl1.str"
  mode="openInNewLayer"
}]

set status [ SclFunction "SAVE FILE AS" {
  output_file="prof1.str"
  output_type="Surpac String Files"
  output_filenames=""
  Surpac={
    Purpose=""
    range="4"
    FileFormat="text"
    ForceValidation="true"
    ForceCompatibility="true"
    }

  frm00121={
    {
      _action="display"
      _action="apply"
    }
  }
}]

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  file="prof1.str"
  mode="openInNewLayer"
}]

set status [ SclFunction "2D GRID" {
  frm00140={
    {
      _action="display"
      ygrid_inc="0.5"
      ylabel_inc="1"
      xgrid_inc="0.5"
      xlabel_inc="1"
      grid="above"
      maximum="0.000"
      minimum="0.000"
    }
  }
}]

set status [ SclFunction "2D TRANSFORM" {
  frm00284={
    {
      _action="display"
      locn="prof"
      lrange="1"
      ftype="S"
      oloc="prof"
      rl="N"
      trnax="N"
      rltyp="A"
      rl_correct="0"
      yd1="0.488"
      xd1="-13.403"
      yd2="0.488"
      xd2="-8.903"
      ym1="0"
      xm1="-2.25"
      ym2="0"
      xm2="2.25"
    }
  }
  frm00285={
    {
      _action="display"
      accept="Y"
    }
  }
}]

set status [ SclFunction "EXIT GRAPHICS" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  file="dcl100.str"
  mode="openInNewLayer"
}]

set status [ SclFunction "TRIANGULATE CENTRE LINE AND PROFILE" {
  frm00497={
    {
      _action="display"
      plloc="prof"
      plid="1"
      scale="1"
      yoff="0"
      xoff="0"
      zoff="0"
      rotation="0"
      gfactor="1"
      vcon="N"
      triangulate_first_face="N"
      triangulate_last_face="N"
    }
  }
  select_point={
    {
      winx="-0.193"
      winy="-0.484"
      objectx="5348.134"
      objecty="10402.521"
      objectz="928.951"
    }
  }
}]

set status [ SclFunction "ERASE OBJECTS" {
  frm00089={
    {
      range1=""
      range2=""
      range3=""
      textalignment="<"
      legend_location="no legend"
      layer_name="dcl100.str"
    }
  }
}]

set status [ SclFunction "DRAW LINES" {
  frm00089={
    {
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      legend_location="no legend"
      layer_name="dcl100.str"
    }
  }
}]

set status [ SclFunction "WINDOW IN" {
  window_drag=table { winx1 winy1 winx2 winy2 objectx1 objecty1 objectz1 objectx2 objecty2 objectz2 } {
    { "-0.233" "-0.523" "0.054" "-0.807" "5332.809" "10392.676" "971.234" "5443.367" "10321.563" "971.234" }
    { "0.355" "-0.637" "0.438" "-0.763" "5373.091" "10345.702" "971.234" "5382.436" "10336.363" "971.234" }
  }
}]

puts ""
puts ""
puts ""
puts ""
puts "Macro 05_centre_line_and_profile.tcl completed."
puts ""
puts ""

