######################################################################
#
# Macro Name    : c:/users/public/gemcom/surpac/64_beta_2/demo_data/tutorials/geological_database/05e_rerecorded.tcl
#
# Version       : Surpac 6.4 beta 2
#
# Creation Date : Thu Jan 17 09:39:39 2013
#
# Description   : 
#
######################################################################

set plot_ed [SclSystemOption get {plot_editor}]
puts "plot editor setting was initially $plot_ed and is now surpac"
SclSystemOption set "plot_editor" "surpac"

set status [ SclFunction "SHEET ENTITIES" {} ]

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

catch {set status [ SclFunction "PLOT DELETE TITLE" {
  frm00831={
    {
      title_id="MULT"
    }
  }
}]}

set status [ SclFunction "PLOT COPY TITLE" {
  frm00832={
    {
      _action=display
      old_title_id="NMA3"
      title_id="MULT"
      title_desc="A3 multiple sections"
      border_id="BORD"
      draw_area_id="DRAW"
      corner="lr"
      xoffset="0"
      yoffset="0"
      scale_factor="1"
      rotate_by="0"
      xsize="10"
      ysize="3.15"
      priority="124"
      pen="2"
      font="Default"
      bold_font="N"
      italic_font="N"
      underline_font="N"
      prompt_lines=table { text_prompt text_xpos text_ypos text_height text_max_length text_pen } {
        { "Title Line 1" "1.25" "1.85" "0.25" "7.5" "1" }
        { "Title Line 2" "1.25" "1.35" "0.25" "7.5" "1" }
        { "Title Line 3" "1.25" "0.85" "0.25" "7.5" "1" }
      }
    }
  }
}]

set status [ SclFunction "WINDOW IN SHEET ENTITY" {
  window_drag=table { winx1 winy1 winx2 winy2 objectx1 objecty1 objectz1 objectx2 objecty2 objectz2 } {
    { "0.512" "-0.724" "0.265" "-0.889" "117.968" "5.330" "0.000" "88.167" "-2.728" "0.000" }
    { "-0.678" "0.032" "-0.124" "-0.476" "97.344" "5.717" "0.000" "114.212" "-0.508" "0.000" }
  }
}]

set status [ SclFunction "PLOT DELETE TITLE ITEM" {
  select_plot_element={
    {
      objectx="106.738"
      objecty="0.734"
    }
  }
}]

set status [ SclFunction "PLOT INSERT TITLE SECTION INFO" {
  digitise_plot_position={
    {
      objectx="106.628"
      objecty="0.916"
    }
  }
  frm00874={
    {
      _action=display
      easting_suffix="East"
      elevation_prefix="Elevation : "
      northing_prefix="Section : "
      xpos="3.60"
      italic_font="N"
      ypos="0.20"
      oblique_prefix=""
      elevation_suffix="mRL"
      bold_font="N"
      num_decimals="0"
      northing_suffix="North"
      font="Default"
      height="0.20"
      easting_prefix="Section : "
      oblique_suffix=""
      underline_font="N"
      priority="124"
      pen="1"
    }
  }
}]

set status [ SclFunction "PLOT SAVE TITLES" {} ]

set status [ SclFunction "EXIT SHEET ENTITIES" {} ]

puts ""
SclSystemOption set plot_editor $plot_ed
puts "plot editor setting is now reset to $plot_ed"
puts ""
puts ""
puts "Macro 05e_create_title_block_multiple_plots.tcl completed"
puts ""