set status [ SclFunction "EXIT GRAPHICS" {
  frm00108={
    {
      exit_mode="E"
    }
  }
}]
puts ""
puts ""
puts "One segment to many segments"
puts ""
puts ""

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

set status [ SclFunction "DRAW MARKERS" {
  frm00089={
    {
      _action="display"
      range1=""
      range2=""
      range3=""
      ifld_num="d1"
      textalignment="<"
      position="All points"
      legend_location="no legend"
      layer_name="bifurc1.str"
    }
  }
}]
set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      bearing="0"
      dip="-15"
    }
  }
}]
set status [ SclFunction "BIFURCATION ONE TO MANY" {
  frm00459={
    {
      _action="display"
      iobj="1"
      itrisol="1"
    }
  }
  frm00649={
    {
      _action="display"
      no_children="2"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "0.026" "-0.545" "-7.828" "-12.177" "-0.021" }
    { "0.020" "-0.174" "-10.057" "7.687" "-0.050" }
    { "-0.332" "-0.388" "-13.826" "-10.989" "1.311" }
    { "-0.472" "0.341" "-16.578" "-6.632" "8.263" }
    { "0.307" "0.293" "-3.812" "-6.630" "8.019" }
  }
  frm00646={
    {
      _action="display"
      theopt="S"
    }
  }
  frm00650={
    {
      _action="display"
      theopt="S"
    }
  }
}]

puts ""
puts "Click in graphics to continue"
puts ""

SclPause

puts ""
puts ""
puts "One Segment to Two Segments"
puts ""
puts ""

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

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      _action="display"
      bearing="0"
      dip="-15"
    }
  }
}]

set status [ SclFunction "BIFURCATION UNION" {
  frm00459={
    {
      _action="display"
      iobj="1"
      itrisol="1"
    }
  }
  frm00645={
    {
      _action="display"
      theopt="N"
      res_string_no="32000"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "-0.202" "-0.423" "-12.637" "-11.139" "1.607" }
    { "-0.506" "0.372" "-17.594" "2.772" "6.603" }
    { "0.409" "0.345" "-2.678" "2.304" "6.441" }
  }
  frm00646={
    {
      _action="display"
      theopt="S"
    }
  }
  frm00647={
    {
      _action="display"
      theopt="S"
    }
  }
}]

puts ""
puts "Click in graphics to continue"
puts ""

SclPause

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

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

set status [ SclFunction "VIEW BY BEARING" {
  frm00289={
    {
      _action="display"
      bearing="0"
      dip="-15"
    }
  }
}]

set status [ SclFunction "BIFURCATION UNION" {
  frm00459={
    {
      _action="display"
      iobj="1"
      itrisol="1"
    }
  }
  frm00645={
    {
      _action="display"
      theopt="Y"
      res_string_no="32000"
    }
  }
  select_point=table { winx winy objectx objecty objectz } {
    { "0.071" "-0.597" "-8.190" "-12.198" "-0.026" }
    { "0.023" "-0.113" "-8.978" "7.691" "-0.035" }
    { "-0.392" "-0.383" "-15.741" "-9.074" "1.485" }
    { "-0.449" "0.363" "-16.667" "2.871" "6.481" }
    { "-0.045" "-0.593" "-10.089" "-12.208" "0.024" }
    { "-0.139" "-0.117" "-11.618" "7.405" "-0.007" }
    { "0.261" "-0.375" "-5.086" "-10.657" "2.005" }
    { "0.403" "0.354" "-2.770" "2.313" "6.534" }
  }
  frm00646={
    {
      _action="display"
      theopt="S"
    }
  }
  frm00647={
    {
      _action="display"
      theopt="S"
    }
  }
}]

puts ""
puts ""
puts "Macro 03a_bifurcation.tcl completed."
puts ""
puts ""
